تطبيق نتيجة الجملة الشرطية If اكثر من مرة

[Amr Ashraf]

السلام عليكم اخوتى 

مطلوب التعديل على الكود IF التالى بحيث فى حالة توافر الشرط فى اكثر من سجل فى النموذج الفرعى يتم تطبيق النتيجة على كافة السجلات المتوافر بها الشرط وليس السجل المحدد فقط ,, فى المثال المرفق قاعدة بها نموذج رئيسى ونموذج فرعى بالنسبة للنموذج الرئيسى به زر أمر و 3 حقول غير منضمة Unbound وفى زر الأمر حدث عند الضغط On click فى حالة وجود حقل معين فارغ فى النموذج الفرعى فعند الضغط على زر الأمر يتم كتابة القيم الموجودة بال3 حقول الموجودة بالنموذج الرئيسى داخل حقول محددة فى النموذج الفرعى أرجو انى اوضحت الفكرة ,,, مع العلم انى جربت For ولكنها فى حالة انطباق الشرط يتم تطبيق النتيجة على كافة الحقول المنطبق عليها الشرط والغير منطبق عليها ايضاً واسف على الاطالة القاعدة فى المرفقات

 

new.rar

[رمهان]

ان احسنت الفهم

Private Sub Command12_Click()
Me.sbfrmTr.SetFocus
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.sbfrmTr.Form.RecordsetClone.recordcount
If IsNull(Me.sbfrmTr![Section]) Then Me.sbfrmTr![Section] = Me.Text2
If IsNull(Me.sbfrmTr![Doc]) Then Me.sbfrmTr![Doc] = Me.Text0
If IsNull(Me.sbfrmTr![zdate]) Then Me.sbfrmTr![zdate] = Me.Text6
DoCmd.GoToRecord , , acNext
Next
End Sub

وحبذا تعديل التنسيق للعنصر Text6 الى تاريخ

بالتوفيق

[Amr Ashraf]

18 دقائق مضت, رمهان said:

ان احسنت الفهم

Private Sub Command12_Click()
Me.sbfrmTr.SetFocus
DoCmd.GoToRecord , , acFirst
For i = 1 To Me.sbfrmTr.Form.RecordsetClone.recordcount
If IsNull(Me.sbfrmTr![Section]) Then Me.sbfrmTr![Section] = Me.Text2
If IsNull(Me.sbfrmTr![Doc]) Then Me.sbfrmTr![Doc] = Me.Text0
If IsNull(Me.sbfrmTr![zdate]) Then Me.sbfrmTr![zdate] = Me.Text6
DoCmd.GoToRecord , , acNext
Next
End Sub

وحبذا تعديل التنسيق للعنصر Text6 الى تاريخ

بالتوفيق

جزاك الله خير استاذى الفاضل هو المطلوب واكثر :)