طلب تعديل كود عند التركيز

[kaser906]

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

هذا الكود يقوم بالتأكد من اكمال البيانات في النموذج الرئيسي والفرعي عند التركيز على زر أمر sav

هو يعمل بشكل سليم

ولكن المشكلة لايقوم بالترتيب لحقل تلو الاخر وخصوصا مع النموذج الفرعي

المطلوب ان يقوم بالتأكد أولا من الفورم الرئيسي ثم بعد ذلك تبدأ جزئية الفورم الفرعي

Private Sub sav_GotFocus()
         If (IsNull(Me![Num_brnamge])) Then
   MsgBox "أدخل رقم الرحلة ", 48, "تـنـبـيـه !"
Me.Num_brnamge.SetFocus
ElseIf (IsNull(Me![PcDigtf])) Then
MsgBox "أدخل رقم الزائر ", 48, "تـنـبـيـه !"
Me.PcDigtf.SetFocus
ElseIf (IsNull(Me![Fdate])) Then
MsgBox "أدخل تاريخ الفاتورة ", 48, "تـنـبـيـه !"
Me.Fdate.SetFocus

   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) _
   Or (Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities] = "") Then
        MsgBox "أدخل الوضع  !!!", 48, "تـنـبـيـه !"
       Forms![Forme_Fatora]![Forme_Visitors].SetFocus
       Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities].SetFocus
   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![service])) _
   Or (Forms![Forme_Fatora]![Forme_Visitors]![service] = "") Then
        MsgBox "أدخل الخدمة المطلوبة  !!!", 48, "تـنـبـيـه !"
       Forms![Forme_Fatora]![Forme_Visitors].SetFocus
       Forms![Forme_Fatora]![Forme_Visitors]![service].SetFocus

ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Travel])) _
Or (Forms![Forme_Fatora]![Forme_Visitors]![Travel] = "")) Then
MsgBox "أدخل طريقة السفر  !!!", 48, "تـنـبـيـه !"
       Forms![Forme_Fatora]![Forme_Visitors].SetFocus
       Forms![Forme_Fatora]![Forme_Visitors]![Travel].SetFocus

ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Itinerary])) _
Or (Forms![Forme_Fatora]![Forme_Visitors]![Itinerary] = "")) Then
MsgBox "أدخل خط سير الرحلة  !!!", 48, "تـنـبـيـه !"
       Forms![Forme_Fatora]![Forme_Visitors].SetFocus
       Forms![Forme_Fatora]![Forme_Visitors]![Itinerary].SetFocus
End If
'"=====


  If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
   ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then

  
MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
       Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
       Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'ملاحظة

'من هنا تبدأ مشكلة تداخل الكود



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
ElseIf Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2]) _
   Or (Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2] = "")) Then
On Error Resume Next
Me.Forme_Visitors2.SetFocus
On Error GoTo 0
DoCmd.GoToRecord , , acFirst
For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1
    If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _
    And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _
                Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _
Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _
Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then

        
        MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
                If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus
                            Else
                         If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus
                Else
                                                       If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then
 
                                        Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus
                Else
                                    If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then

                                        Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus
End If
                End If: End If: End If
            Exit Sub
    End If
        DoCmd.GoToRecord , , acNext


Next i

End If

 

[jjafferr]

وعليكم السلام أخوي كاسر

واسعد الله ايامكم بهذا اليوم المبارك

 

انا نظرت الى الكود وليس على طريقة عمله ، وشفت ان المشكلة انك ما رابط Else مع IF اللي خلفها ، فالمفروض ان الجمله تكون ElseIf مثل بقية الكود اللي فوق واللي بدون مشاكل ، وهذا مثال:

فانت هنا ضيعت الكود ، وما اعطيته الطريقة الصحيحة لفحص الشرط

If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus
                            Else
                         If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus
                Else
                                                       If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then
 
                                        Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus
                Else
                                    If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then

                                        Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus
End If

 

وهذا تعديل الكود من طرفي ، مع تعديل التنسيق ، حتى كل شيء يكون واضح ومرتب:

Private Sub sav_GotFocus()
         
    If (IsNull(Me![Num_brnamge])) Then
        
        MsgBox "أدخل رقم الرحلة ", 48, "تـنـبـيـه !"
        Me.Num_brnamge.SetFocus
    
    ElseIf (IsNull(Me![PcDigtf])) Then
        
        MsgBox "أدخل رقم الزائر ", 48, "تـنـبـيـه !"
        Me.PcDigtf.SetFocus

    ElseIf (IsNull(Me![Fdate])) Then
        
        MsgBox "أدخل تاريخ الفاتورة ", 48, "تـنـبـيـه !"
        Me.Fdate.SetFocus

   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities] = "") Then
        
        MsgBox "أدخل الوضع  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities].SetFocus
   
   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![service])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![service] = "") Then
        
        MsgBox "أدخل الخدمة المطلوبة  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![service].SetFocus

    ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
        And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Travel])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Travel] = "")) Then
        
        MsgBox "أدخل طريقة السفر  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Travel].SetFocus

    ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
        And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Itinerary])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Itinerary] = "")) Then
        
        MsgBox "أدخل خط سير الرحلة  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Itinerary].SetFocus
    
    End If  'IsNull(Me![Num_brnamge]
'"=====


    If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
        ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then
  
        MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'ملاحظة

'من هنا تبدأ مشكلة تداخل الكود



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ElseIf Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2]) _
        Or (Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2] = "")) Then

        On Error Resume Next
        Me.Forme_Visitors2.SetFocus
        On Error GoTo 0
        DoCmd.GoToRecord , , acFirst
        
        For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1
        
            If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _
                Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _
                Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _
                Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then

        
                MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
                
                If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus
                
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus
                
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus
                    
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus

                End If  'IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])
                
                Exit Sub
            
            End If  'Not
        
        DoCmd.GoToRecord , , acNext

        Next i

    End If  'DCount

 

جعفر

[kaser906]

10 دقائق مضت, jjafferr said:

وعليكم السلام أخوي كاسر

واسعد الله ايامكم بهذا اليوم المبارك

 

انا نظرت الى الكود وليس على طريقة عمله ، وشفت ان المشكلة انك ما رابط Else مع IF اللي خلفها ، فالمفروض ان الجمله تكون ElseIf مثل بقية الكود اللي فوق واللي بدون مشاكل ، وهذا مثال:

فانت هنا ضيعت الكود ، وما اعطيته الطريقة الصحيحة لفحص الشرط

If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus
                            Else
                         If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then
                        Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus
                Else
                                                       If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then
 
                                        Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus
                Else
                                    If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then

                                        Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus
End If

 

وهذا تعديل الكود من طرفي ، مع تعديل التنسيق ، حتى كل شيء يكون واضح ومرتب:

Private Sub sav_GotFocus()
         
    If (IsNull(Me![Num_brnamge])) Then
        
        MsgBox "أدخل رقم الرحلة ", 48, "تـنـبـيـه !"
        Me.Num_brnamge.SetFocus
    
    ElseIf (IsNull(Me![PcDigtf])) Then
        
        MsgBox "أدخل رقم الزائر ", 48, "تـنـبـيـه !"
        Me.PcDigtf.SetFocus

    ElseIf (IsNull(Me![Fdate])) Then
        
        MsgBox "أدخل تاريخ الفاتورة ", 48, "تـنـبـيـه !"
        Me.Fdate.SetFocus

   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities] = "") Then
        
        MsgBox "أدخل الوضع  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities].SetFocus
   
   ElseIf (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![service])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![service] = "") Then
        
        MsgBox "أدخل الخدمة المطلوبة  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![service].SetFocus

    ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
        And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Travel])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Travel] = "")) Then
        
        MsgBox "أدخل طريقة السفر  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Travel].SetFocus

    ElseIf (Forms![Forme_Fatora]![Forme_Visitors]![service] <= 5 _
        And (IsNull(Forms![Forme_Fatora]![Forme_Visitors]![Itinerary])) _
        Or (Forms![Forme_Fatora]![Forme_Visitors]![Itinerary] = "")) Then
        
        MsgBox "أدخل خط سير الرحلة  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors]![Itinerary].SetFocus
    
    End If  'IsNull(Me![Num_brnamge]
'"=====


    If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
        ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then
  
        MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus
'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
'ملاحظة

'من هنا تبدأ مشكلة تداخل الكود



'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
    ElseIf Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2]) _
        Or (Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2] = "")) Then

        On Error Resume Next
        Me.Forme_Visitors2.SetFocus
        On Error GoTo 0
        DoCmd.GoToRecord , , acFirst
        
        For i = 0 To Me.Forme_Visitors2.Form.Recordset.RecordCount - 1
        
            If Not (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2])) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])) _
                Or (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service])) _
                Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel])) _
                Or (Forms![Forme_Fatora]![Forme_Visitors2]![service] <= 5) _
                And (IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary])) Then

        
                MsgBox "أدخل  هذا الحقل  !!!", 48, "تـنـبـيـه !"
                
                If IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Kinship].SetFocus
                
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![service]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![service].SetFocus
                
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Travel]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Travel].SetFocus
                    
                ElseIf IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary]) Then
                    Forms![Forme_Fatora]![Forme_Visitors2]![Itinerary].SetFocus

                End If  'IsNull
                
                Exit Sub
            
            End If  'IsNull(Forms![Forme_Fatora]![Forme_Visitors2]![Kinship])
        
        DoCmd.GoToRecord , , acNext

        Next i

    End If  'DCount

 

جعفر

يا هلا ومرحبا أخوي جعفر

الله يجعل أيامنا وأيامك  كلها  بركة وفرح وسعادة  ومسره وبهجة

بالنسبة للكود ما زالت المشكلة قائمة

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

ثم يعود التركيز للنموذج الفرعي ويطلب الادخال

والمفروض أن يتوقف عند النموذج الرئيسي اذا تم ادخال كافة الحقول يبدأ من بعدها

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

للتصحيح

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

الكود في البداية يخص نموذج فرعي  الأول  Forme_Visitors

الود الثاني يخص النموذج الفرعي الثاني Forme_Visitors2

[jjafferr]

الظاهر من الكود ان التسلسل تمام!!

 

اعمل التالي:

شوف الرابط التالي

 

اللي بتدخل به داخل الكود ، واعمل النقطة رقم 1 على اول سطر عندك في الكود ،

وشغل النموذج الى ان يجي التركيز على الزر ، عندها بينقلك البرنامج الى الكود ، والسطر اللي يكون باللون الاصفر ما بيكون البرنامج قد نفّذه ،

فكل اللي عليك عمله هو الضغط على الزر F8 من لوحة المفاتيح كيبورد ، واللي بينتقل السطر الاصفر للسطر التالي حسب طلب الكود.

 

المطلوب منك هو:

انت تدري اي حقل يجب ان ينتقل اليه الكود ، ثم اي حقل تالي ،

فأثناء متابعتك للكود ، لاحظه لما ينتقل الى سطر غلط في تسلسل حقول النموذج ، وعندها خلي مؤشر الفأرة على اسماء الحقول في الكود لتعرف قيمتها ، ومنها نتعرف وين المعادلة الخطأ.

 

بهذه الطريقة تعرف وين المشكلة ، وبعدين تشوف شو طريقة حل المشكلة

 

جعفر

[kaser906]

عملت الطريقة والكود يعمل  بتسلسل كامل

المشكلة في كل حقل فارغ  مطلوب إدخاله في النموذج الفرعي رقم واحد يتم التركيز عليه بعده مباشر ينتقل التركيز

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

اعتقد أني بحاجه الى وصل الكود هنا

   End If  'IsNull(Me![Num_brnamge]
'"=====


    If DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
        ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then
  
        MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus

وضعت الكود بهذه الطريقة 
 
' End If  'IsNull(Me![Num_brnamge]
'"=====


    ElseIf DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
        ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then
  
        MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus

                                                                            
                                                                            

لكن للأسف يتوقف الكود عن العمل في الجزأ الثاني

[kaser906]

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

بهذه الطريقة تعرف وين المشكلة ، وبعدين تشوف شو طريقة حل المشكلة

استاذي

هذا مثال بالمرفق

افتح Forme_Fatora

قف على السجل الأول في الفورم الرئيسي

انقر زر تعديل ثم انقر على زر الأمر حفظ لتظهر المشكلة اثناء تعديل البيانات

أيضا أنقر زر امر إضافة لاضافة سجل جديد

أدخل رقم العميل 14

ثم انقر زر الأمر حفظ

اذا وصل الى حقل الوضع اختر مرافق لكي يطلب منك ادخال بيانات المرافقين

وستظهر لديك مشكلة الكود

ملاحظة يوجد كود عند الادخال لكلا النموذجين الفرعين قمت بإيقافهما

امل انك تنظر هل سيسببان مشكلة عند إعادة تفعيلهما

ps.rar

[kaser906]

في ‏١٠‏/‏٠٣‏/‏١٤٣٩ at 11:45, jjafferr said:

جعفر

نسيت تتبخر ونسيت الموضوع

[jjafferr]

في 11/28/2017 at 17:25, kaser906 said:

 

وضعت الكود بهذه الطريقة 
 
' End If  'IsNull(Me![Num_brnamge]
'"=====


    ElseIf DCount("[id_visitors2]", "Tabil_Visitors2", "[Id_fatora]=id") < 1 And _
        ((Forms![Forme_Fatora]![Forme_Visitors]![Independent_Facilities])) = 2 Then
  
        MsgBox "أدخل المرافقين  !!!", 48, "تـنـبـيـه !"
        Forms![Forme_Fatora]![Forme_Visitors2].SetFocus
        Forms![Forme_Fatora]![Forme_Visitors2]![PcDigtv2].SetFocus

                                                                            
                                                                            

لكن للأسف يتوقف الكود عن العمل في الجزأ الثاني

 

هذه هي الطريقة الصحيحة ، ولم يتوقف عندي الكود ، واكمل بالطريقة الصحيحة

 

جعفر

 

 

 

1 ساعه مضت, kaser906 said:

نسيت تتبخر ونسيت الموضوع

ششششش ، لا يسمعوك ويردون عليك

 

 

[kaser906]

في ‏١٠‏/‏٠٣‏/‏١٤٣٩ at 19:21, kaser906 said:

 

هذا مثال بالمرفق

افتح Forme_Fatora

قف على السجل الأول في الفورم الرئيسي

انقر زر تعديل ثم انقر على زر الأمر حفظ لتظهر المشكلة اثناء تعديل البيانات

أستاذ ما عليش تحملني شوي

افتح النموذج على السجل الأول كما بالصورة

أنقر على زر تعديل ثم انقر مباشرة  على زر حفظ

شاهد اين يذهب التركيز

يذهب أولا للفورم  الفرعي الأول

ثم ينتقل التركيز للفورم الفرعي الثاني

والمفروض أن يتوقف التركيز تماما في الفورم الفرعي الأول الى ان يتم ادخال حقل طريقة السفر

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

ثم لو حاول ان يعمل حفظ يجب ان ينتقل التركيز الى الفورم الفرعي الثاني لادخال بقية الحقول

أتمنى وصلت الفكرة بشكل واضح

[jjafferr]

شوف البرنامج المرفق لوسمحت

وكما قلت ، ماشي على الطريق الصحيح

 

جعفر

769.ps.accdb.zip

[kaser906]

8 ساعات مضت, jjafferr said:

شوف البرنامج المرفق لوسمحت

وكما قلت ، ماشي على الطريق الصحيح

 

جعفر

769.ps.accdb.zip

يا  سبحان الله

مع اني حاولت بنفس الطريقة مرات ومرات وما نجحت

هل عملت تغير أستاذ جعفر

لاني دققت وما لاحظت شي تغير

مشكور والله يرحم والديك ويعطيك العافية

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

[jjafferr]

وعليكم السلام

 

انت قلت:

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

نسيت تتبخر ونسيت الموضوع

 

بس الظاهر جوابي كان متأخر:

15 ساعات مضت, jjafferr said:

ششششش ، لا يسمعوك ويردون عليك

 

جعفر

[kaser906]