السلام عليكم
أريد التعديل على هذا الكود والموجود في المرفق
ليقوم بما يلي:
Private Sub Action_AfterUpdate()
If Me.Action.Value = 1 Then
Me.SNDuplicates.Value = Nz(DMax("SNDuplicates", "Sub", "[Action]=1"), 0) + 1
ElseIf Me.Action.Value > 1 Then
Me.SNDuplicates.Value = Nz(DCount("*", "Sub", "[Action]=1 and [MainNo]= form![MainNo]"), 0)
End If
End Sub
إذا كان حقل Action= 1
أن يبحث عن أعلى قيمة في الحقل SNDuplicates ويضيف 1
وإذا كان حقل Action> 1
ان يكرر الرقم في العمليات التالية مع المرعاه لتنقيذ الامر عند الانتقال إلى سجلات أخرى بحيث ان يكون الرقم الأكبر في النموذج الفرعي هو المتكرر حسب السجل الرئيسي اي في النموذج Main
SNDuplicates.rar