لايتم الحفظ الا عند اكتمال البيانات بالنموذج الريئسي والفرعي

[النجاشي]

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

استاذتذي الكرام عندي المشلكه عندما تكون البيانات بنموذج الريئسي الفاتوره واضغط زر حفظ يعمل حفظ

المطلوب ان يتم الحفظ  الحفظ عند وجود بيانات بالريئسي والفرعي 

شاكرين احبتي الكرام

الحفظ بعد اكتمال البيانات.rar

[النجاشي]

للرفع

[ابوخليل]

عندي رأي .. يحتاج تجربه 

جرب  ضع زر الحفظ داخل النموذج الفرعي

واجعل خاصية  حقل الكمية في  الجدول :  مطلوب = نعم 

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

[النجاشي]

9 ساعات مضت, ابوخليل said:

عندي رأي .. يحتاج تجربه 

جرب  ضع زر الحفظ داخل النموذج الفرعي

واجعل خاصية  حقل الكمية في  الجدول :  مطلوب = نعم 

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

ساقوم بالتجربه الان استاذي ابو خليل

استاذي @ابوخليل عملت زر الحفظ  دون جدوي لمساتك استاذي بارك الله فيك 

[محمد أبوعبدالله]

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

من بعد اذن استاذي الفاضل ابوخليل نفعنا الله به لدي فكرة ايضاً :

في النموذج الفرعي frmSubSales يتم اضافة حقل غير منضم باسم XCount ومصدر عنصر التحكم له =

=Count(*)

وفي النموذج الرئيسي  frmSales وفي حدث عند الاغلاق  نضيف الكود التالي

    On Error Resume Next
        DoCmd.SetWarnings False
        If Forms!SubSales!XCount > 0 Then
        DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));"
    Else
     If Me.Xsave = -1 Then
     Else
        DoCmd.GoToControl "Rjmfatwra"
        DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));"
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
      End If
      End If
        DoCmd.SetWarnings True

 

 

الحفظ بعد اكتمال البيانات.rar

 

تحياتي

[النجاشي]

8 ساعات مضت, محمد ابوعبد الله said:

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

من بعد اذن استاذي الفاضل ابوخليل نفعنا الله به لدي فكرة ايضاً :

في النموذج الفرعي frmSubSales يتم اضافة حقل غير منضم باسم XCount ومصدر عنصر التحكم له =

=Count(*)

وفي النموذج الرئيسي  frmSales وفي حدث عند الاغلاق  نضيف الكود التالي

    On Error Resume Next
        DoCmd.SetWarnings False
        If Forms!SubSales!XCount > 0 Then
        DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));"
    Else
     If Me.Xsave = -1 Then
     Else
        DoCmd.GoToControl "Rjmfatwra"
        DoCmd.RunSQL "DELETE Hrakatsanf.*, Hrakatsanf.Rjmfatwra FROM Hrakatsanf WHERE (((Hrakatsanf.Rjmfatwra)=[Forms]![frmSales]![Rjmfatwra]));"
        DoCmd.RunCommand acCmdDeleteRecord
        DoCmd.SetWarnings True
      End If
      End If
        DoCmd.SetWarnings True

 

 

الحفظ بعد اكتمال البيانات.rar

 

تحياتي

السلام عيكم ورحه الله وبركاته استاذي@محمد ابوعبد الله مازلت المشكله موجوده اخي الكريم جرب ادخل رقم العميل واحد واضغط انتر روح سوي حفظ بيحفظ  

[محمد أبوعبدالله]

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

تفضل اخي ابوزاهر

الحفظ بعد اكتمال البيانات.rar

تحياتي

[Shivan Rekany]

استأذن من الجماعة
اليك هذا 
اضف الى كود سجل حفظ هذا الشرط
 

Private Sub أمر16_Click()
On Error Resume Next
    If Me.SubSales.Form.Recordset.RecordCount = 0 Then
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdSelectRecord
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
        Else
            نص31 = Null
            Me.Text34 = Me.n1
            Me.Text33 = Me.n2
            Me.Xsave = -1
            DoCmd.GoToRecord , , acNewRec
    End If

End Sub

 

[النجاشي]

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

استأذن من الجماعة
اليك هذا 
اضف الى كود سجل حفظ هذا الشرط
 

Private Sub أمر16_Click()
On Error Resume Next
    If Me.SubSales.Form.Recordset.RecordCount = 0 Then
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdSelectRecord
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
        Else
            نص31 = Null
            Me.Text34 = Me.n1
            Me.Text33 = Me.n2
            Me.Xsave = -1
            DoCmd.GoToRecord , , acNewRec
    End If

End Sub

 

السلام عليكم ورجمه الله وبركاته اهلا بك بين اخوانك استاذي طالت الغيبه علينا ان شاء الله تكون بخير استاذي @Shivan Rekany شكرا اليك استاذي نعم هذا طلبي 

وشكر لكل من استاتذتي الكرام الذي حاولو مساعدتي الاخ الاستاذ ابو خليل والاخ محمد ابو عبدالله فانا ممنون لكم كثير استاتذي الكرام فبارك الله فيكم والف تحيه لكم اين ما كنتم فشكر شكر اخواني الكرام وجزاكم الله خير 

وضاح