amin_rj
دوشنبه 30 خرداد 1390, 17:23 عصر
سلام دوستان
من می خواهم در یک جدول که شامل id های نا منظم است id جدید طوری وارد شود که id های خالی جا افتاده به طور خودکار در فرم وارد شود مثلا اگر جدول ما شامل id های 1و2و3و4و6و8و9
بود با باز کردن فرم به طور خود کار تکس بکس id عدد 5 را نشان دهدوبعد ازثبت شدن این id با فشار یک دکمه یا دوباره باز شدناین فرم عدد 7 بیاید و به ترتیب تا آخر لطف می کنید کمک کنید
مثل این کد در vba
Dim rst87 As Recordset, strSql As String, I
strSql = "SELECT sanad.id1 FROM bar ORDER BY bar.id1;"
Set rst87 = CurrentDb.OpenRecordset(strSql)
If rst87.RecordCount > 0 Then
rst87.MoveFirst
I = 1
Do While Not rst87.EOF
If rst87!id1 = I Then
rst87.MoveNext
I = I + 1
Else
Me.Text50 = I
Exit Function
End If
Loop
rst87.MoveLast
Me.Text50 = rst87![id1] + 1
Else
Me.Text50 = 1
End If
rst87.Close
من می خواهم در یک جدول که شامل id های نا منظم است id جدید طوری وارد شود که id های خالی جا افتاده به طور خودکار در فرم وارد شود مثلا اگر جدول ما شامل id های 1و2و3و4و6و8و9
بود با باز کردن فرم به طور خود کار تکس بکس id عدد 5 را نشان دهدوبعد ازثبت شدن این id با فشار یک دکمه یا دوباره باز شدناین فرم عدد 7 بیاید و به ترتیب تا آخر لطف می کنید کمک کنید
مثل این کد در vba
Dim rst87 As Recordset, strSql As String, I
strSql = "SELECT sanad.id1 FROM bar ORDER BY bar.id1;"
Set rst87 = CurrentDb.OpenRecordset(strSql)
If rst87.RecordCount > 0 Then
rst87.MoveFirst
I = 1
Do While Not rst87.EOF
If rst87!id1 = I Then
rst87.MoveNext
I = I + 1
Else
Me.Text50 = I
Exit Function
End If
Loop
rst87.MoveLast
Me.Text50 = rst87![id1] + 1
Else
Me.Text50 = 1
End If
rst87.Close