كود اجبار المستخدم على ادخال قيمة بالنموذج الفرعي لايعمل الا مع السجل الاول فقط

[kaser906]

السلام عليكم ورحمة الله وبركاتة

بالمرفق نموذج رئيسي يحتوي على نموذج فرعي

يوجد بالنموذج الرئيسي زر أمر

عند النقر عليه يبحث في في النموذج الفرعي عن القيمة الفارغة في  الحقل tex1  ويطلب إدخاله

الى هنا الكود يعمل بشكل سليم

المشكلة في التالي

عندما يكون الحقل tex1 في السجل الأول فارغ يطلب ادخاله

لكن عندما يكون  الحقل tex1  في السجل الأول يحتوي على قيمة فأنه يتجاهل المطالبة في إدخاله  بالسجل الثاني والثالث الى أخره

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

امل المساعده في التعديل على الكود

Mic.rar

[Shivan Rekany]

12 ساعات مضت, kaser906 said:

عندما يكون الحقل tex1 في السجل الأول فارغ يطلب ادخاله

لكن عندما يكون  الحقل tex1  في السجل الأول يحتوي على قيمة فأنه يتجاهل المطالبة في إدخاله  بالسجل الثاني والثالث الى أخره

اتفضل
 

Private Sub أمر4_Click()
Me.Tabl_2.SetFocus
DoCmd.GoToRecord , , acFirst
For I = 0 To Me.Tabl_2.Form.Recordset.RecordCount - 1
    If Not (IsNull(Forms![frm]![Tabl_2]![id_1])) _
            And (IsNull(Forms![frm]![Tabl_2]![tex1])) _
                Or (Forms![frm]![Tabl_2]![tex1] = "") Then
        MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
            Forms![frm]![Tabl_2].SetFocus
                Forms![frm]![Tabl_2]![tex1].SetFocus
            Exit Sub
    End If
        DoCmd.GoToRecord , , acNext
Next I
End Sub

 

Mic.rar

[kaser906]

33 دقائق مضت, Shivan Rekany said:

اتفضل
 

Private Sub أمر4_Click()
Me.Tabl_2.SetFocus
DoCmd.GoToRecord , , acFirst
For I = 0 To Me.Tabl_2.Form.Recordset.RecordCount - 1
    If Not (IsNull(Forms![frm]![Tabl_2]![id_1])) _
            And (IsNull(Forms![frm]![Tabl_2]![tex1])) _
                Or (Forms![frm]![Tabl_2]![tex1] = "") Then
        MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
            Forms![frm]![Tabl_2].SetFocus
                Forms![frm]![Tabl_2]![tex1].SetFocus
            Exit Sub
    End If
        DoCmd.GoToRecord , , acNext
Next I
End Sub

 

Mic.rar

يعطيك العافية أستاذ شيفان

فقط اردت الاستفسار في حالة اردت ان يقوم الكود بأجبار المستخدم

على ادخال قيمة في اكثر من حقل وليكن مثل tex وأيضا الحقل tex1

لاني حاولت اعملها وظهرت لي بعض المشاكل

[wael_rafat]

مشاركة مع استاذي العزيز @Shivan Rekany

جرب اخي كاسر

     Dim i As Integer
     Dim rs As Recordset
     Set rs = Me.Tabl_2.Form.RecordsetClone
     rs.MoveLast
     r = rs.RecordCount
     rs.MoveFirst
     For i = 1 To r
     If IsNull(rs!Tex) Or IsNull(rs!Tex1) Then
     MsgBox " íæÌÏ Þíã ÝÇÑÛÉ íÌÈ ÇÏÎÇáåÇ ... ÇÏÎá ÇáÞíã ÇáÝÇÑÛÉ ", vbCritical, " ÈÏæä ßãíÉ "
     Refresh
     Exit Sub
     End If
     rs.MoveNext
     Next
     rs.Close
     Set rs = Nothing
  DoCmd.GoToRecord , , acNext
 

 

New .rar

تم تعديل نوفمبر 23, 2017 بواسطه wael_rafat

[kaser906]

12 دقائق مضت, wael_rafat said:

مشاركة مع استاذي العزيز @Shivan Rekany

جرب اخي كاسر

     Dim i As Integer
     Dim rs As Recordset
     Set rs = Me.Tabl_2.Form.RecordsetClone
     rs.MoveLast
     r = rs.RecordCount
     rs.MoveFirst
     For i = 1 To r
     If IsNull(rs!Tex) Or IsNull(rs!Tex1) Then
     MsgBox " íæÌÏ Þíã ÝÇÑÛÉ íÌÈ ÇÏÎÇáåÇ ... ÇÏÎá ÇáÞíã ÇáÝÇÑÛÉ ", vbCritical, " ÈÏæä ßãíÉ "
     Refresh
     Exit Sub
     End If
     rs.MoveNext
     Next
     rs.Close
     Set rs = Nothing
  DoCmd.GoToRecord , , acNext
 

 

New .rar

'طريقتك جيده اخي الكريم

لكنها لا تحدد الحقل الفارغ وتضع التركيز عليه

[Shivan Rekany]

7 ساعات مضت, kaser906 said:

فقط اردت الاستفسار في حالة اردت ان يقوم الكود بأجبار المستخدم

على ادخال قيمة في اكثر من حقل وليكن مثل tex وأيضا الحقل tex1

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

Private Sub أمر4_Click()
Me.Tabl_2.SetFocus
DoCmd.GoToRecord , , acFirst
For I = 0 To Me.Tabl_2.Form.Recordset.RecordCount - 1
    If Not (IsNull(Forms![frm]![Tabl_2]![id_1])) And (IsNull(Forms![frm]![Tabl_2]![Tex])) _
                Or (IsNull(Forms![frm]![Tabl_2]![tex1])) Then
        MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
'            Forms![frm]![Tabl_2].SetFocus
                If IsNull(Forms![frm]![Tabl_2]![Tex]) Then
                        Forms![frm]![Tabl_2]![Tex].SetFocus
                            Else
                        Forms![frm]![Tabl_2]![tex1].SetFocus
                End If
            Exit Sub
    End If
        DoCmd.GoToRecord , , acNext
Next I
End Sub

 

Mic.rar

[kaser906]

18 ساعات مضت, Shivan Rekany said:

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

Private Sub أمر4_Click()
Me.Tabl_2.SetFocus
DoCmd.GoToRecord , , acFirst
For I = 0 To Me.Tabl_2.Form.Recordset.RecordCount - 1
    If Not (IsNull(Forms![frm]![Tabl_2]![id_1])) And (IsNull(Forms![frm]![Tabl_2]![Tex])) _
                Or (IsNull(Forms![frm]![Tabl_2]![tex1])) Then
        MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
'            Forms![frm]![Tabl_2].SetFocus
                If IsNull(Forms![frm]![Tabl_2]![Tex]) Then
                        Forms![frm]![Tabl_2]![Tex].SetFocus
                            Else
                        Forms![frm]![Tabl_2]![tex1].SetFocus
                End If
            Exit Sub
    End If
        DoCmd.GoToRecord , , acNext
Next I
End Sub

 

Mic.rar

اشكرك استاذ 

المثال هو المطلوب فعلا

ولكن مع الاسف  عندما حاولت تطبيق الكود على برنامجي لم يستجب اعتقد بسبب وجود اكواد اخرى متداخله 

بحثت عن اقتراحك بتطبييق الفكرة قبل تحديث النموذج الفرعي ولم اتوصل لشيئ اذا كان بإمكانك المساعده بتوجيهي الى رابط يحتوي على مثال