السلأم عليكم
لماذا هذ الكود لأ يعمل مع Microsoft Asscess؟
هل من خبير يعالج هذه المشكله وجزاكم الله كل خير ؟
Private Sub Form_Load()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblStudent", DB_OPEN_TABLE)
Dim f As Integer
f = rs.RecordCount
If f = 0 Then
ID = 0
Else
rs.NextRecordset = rs.RecordCount + 1
ID = rs.NextRecordset
End If
End Sub