أريد استعلاماً يقوم بأدخال أرقما مسلسلة إلى سجلات الطلاب في جدولهم

الأخ أبو عاصم

جرب هذا الكود إن شاء الله يؤدي الغرض

'هذا إجراء لأنشاء عداد يكتب العدد مباشرة عند الانتقال إلى سجل آخر

' ضع هذا الكود في حدث بعد التحديث لخصائص النموذج

Private Sub Form_AfterUpdate()

On Error GoTo err

Dim mss As Integer

Dim Num As Integer

Dim numCopy As Integer

mss = MsgBox("هل تريد إنشاء سجل جديد", vbOKCancel, " سجل جديد")

If mss = vbCancel Then

DoCmd.GoToRecord , , acFirst

Me.الاسم_الأول.SetFocus

End If

If mss = vbOK Then

Num = DCount("[المدينة]", "قائمة المراسلات")

If Num = 1 Then

numCopy = Me.الرقم

DoCmd.GoToRecord , , acNext

Me.الرقم = numCopy + 1

Me.الاسم_الأول.SetFocus

Else

DoCmd.GoToRecord , , acLast

numCopy = Me.الرقم

DoCmd.GoToRecord , , acNext

Me.الرقم = numCopy + 1

Me.الاسم_الأول.SetFocus

End If

End If

err:

Exit Sub

End Sub

الأخ / أحمد الحربي

لك مني خالص الشكر وأحره.

لقد شفيت غليلي ودليتني على ضالتي!!!

سعدت كثيراً عندما جربت هذا الكود فنجح عندي وقد أبدعت فيه بعد ذلك حتى استفدت منه في مجالات أخرى.

وأنا آسف على التأخر في الرد لأني كنت منهمكاً في تطبيق ذلك الكود على سجلات معقدة حتى نجحت.

ألف شكر لك يا أحمد ولك من دعم هذا المنتدى الناجح..

(؛)