السلام عليكم ورحمة الله وبركاته ..
كل عام وانتم بخير وتقبل الله منا ومنكم صالح الأعمال .. وكل عام وانتم إلى الله أقرب ...
عندي جدول اسمه T_M المرفق ..
وفيه سجلات كثيرة لعدد من العملاء
كل عميل له عدد من السجلات ...
واريد أن أضع ترقيم لكل سجل لكل عميل ابتداء من رقم 1
يعني أذا العميل رقم ( 3 ) له ( 10 ) سجلات أريد ترقيم كل سجل ( 1-2-3-4-5-6-7-8-9-10 ) ويضع لي الترقيم في حقل ( ID2 )
والمثال المرفق فيه توضيح المطلوب .
بارك الله فيكم وفي علمكم ونفع الله بكم .
وعليكم السلام ورحمة الله وبركاته
تم إضافة نموذج يقوم بعرض السجلات بعد تحديثها, والنموذج يأخذ بياناته من استعلام يتحسس رقم العميل الذي تقوم بإدخاله في النموذج.
وعند النقر على الزر عرض ترقيم سجلات العميل وضعت هذا الكود الذي يقوم بترقيم السجلات ابتداءاً من الأقدم وانتهاءاً بالأحدث:
Private Sub ÃãÑ4_Click()
On Error GoTo Err_ÃãÑ4_Click
If IsNull(Me.Txt1) Or Me.Txt1 = "" Then Exit Sub
Dim Rst As Recordset
Dim i As Integer
Set Rst = CurrentDb.OpenRecordset("Q1")
x = Rst.RecordCount
If x > 0 Then
Rst.MoveFirst
i = 1
Do While Not Rst.EOF
Rst.Edit
Rst!id2 = i
i = i + 1
Rst.Update
Rst.MoveNext
If Rst.EOF Then Exit Do
Loop
Else
Exit Sub
End If
Rst.Close
Set Rst = Nothing
DoCmd.OpenForm "frmQ1"
Exit_ÃãÑ4_Click:
Exit Sub
Err_ÃãÑ4_Click:
MsgBox Err.Description
Resume Exit_ÃãÑ4_Click
End Subالأحرف الغريبة هي اسم الزر "أمر4"
انظر المرفق تم التعديل
سبحانه الله وبحمده سبحانه الله العظيم
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama"); المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…