تسلسل الرقم وتكراره بشروط في نموذج فرعي

[mr steev]

السلام عليكم 

 

أريد التعديل على هذا الكود والموجود في المرفق

 

ليقوم بما يلي:

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

تم تعديل يونيو 1, 2015 بواسطه mr steev

[Elsayed Bn Gemy]

اخى الكريم حقل Action نوع بياناته رقم ثم انت تقوم بتخزين به نص

فماذا تقصد با اذا كان اكبر من واحد وهو مخزن بداخله نص

[mr steev]

ناسف للإزعاج

وجزاكم الله خير تم الحل

SNDuplicates1.rar