درخواست راهنمایی برای به دست آوردن اولین کد آزاد !!!

[shedayat]

اگر کسی از لیست حذف شد نباید کد اشتراکش به شخص دیگری داده شود

حامد جان میشه بگی چرا ؟

خیر من max یعنی بزرگترین عددی که موجود هست رو +1 میکنم نه اخرین

ببخشید منظورم همون بیشترین بود .

---

مشکلم حل شد . کد رو میزارم بقیه دوستان هم استفاده کنند .

کد:

Private Function LastFreemycode() As Long

Dim i As Long

Call OpenDataBase

rs.Open "SELECT mycode FROM Table1 ORDER BY mycode ASC", cn, adOpenStatic, adLockBatchOptimistic

If rs.RecordCount = 0 Then
LastFreemycode = 1
Call CloseDataBase
Exit Function
End If

i = 1
While rs.EOF = False
If i <> rs.Fields("mycode").Value Then
LastFreemycode = i
Call CloseDataBase
Exit Function
End If
rs.MoveNext
i = i + 1
Wend

LastFreemycode = i
rs.Close

End Function

.

به نظر من این کد می تونه بهتر باشه. حالا خودت نام Ado رو تغییر بده.

کد:

Ado.recordset.movelast
LastFreemycode=ado.recordset.fields("mycode") +1