husseinharby قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 السلام عليكم في نموذج buy اريد في حالة ادخال بيانات في النموذج الرئيسي الزام المستخدم بعدم ترك النموذج الفرعي فارغ بمعني عدم الانتقال الي فاتورة جديدة او فتح سجل جديد الا عند ادخال بيانات في النموذج الفرعي Documents.rar رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 تفضل --------->>>>>> copy_kan.accdb 1 رابط هذا التعليق شارك More sharing options...
د.كاف يار قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 تفضل اخي الكريم مع تعديل ما يلزم Dim msg1, msg2 As String msg2 = "يجب عدم ترك حقول فارغة للاستمرار" Dim ctl As Control For Each ctl In [اسم النموذج الفرعي].Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Or ctl = 0 Then If msg1 = "" Then msg1 = ctl.Name Else msg1 = msg1 & vbNewLine & ctl.Name End If End If End If Next ctl If msg1 = "" Then DoCmd.RunCommand acCmdSaveRecord MsgBox "تم الحفظ بنجاح", vbInformation, "تأكيد" Else MsgBox msg2 & vbNewLine & msg1, vbCritical + vbMsgBoxRight, "تنبيه بوجود حقول فارغة" End If 2 رابط هذا التعليق شارك More sharing options...
kanory قام بنشر نوفمبر 14, 2020 مشاركة قام بنشر نوفمبر 14, 2020 استخدمنا هذا الكود في حدث الحالي وايضا عند تحديث الصنف في النموذج الفرعي !!!! Forms!buy!Command17.Enabled = Forms!buy!buy_sub.Form.Recordset.RecordCount > 0 رابط هذا التعليق شارك More sharing options...
husseinharby قام بنشر نوفمبر 16, 2020 الكاتب مشاركة قام بنشر نوفمبر 16, 2020 (معدل) عذرا الاخوة الافاضل لكن الكود لايعمل لم يتم عمل المطلوب لايزال يقبل بفتح سجل جديد مع عدم وجود بيانات في النموذج الفرعي لقد قمت برفع المثال مرة اخري بدون اكواد لأنني كنت ناسي وقفلت الاكواد برقم سري ارجو التطبيق مرة اخرى علي المثال copy.rar تم تعديل نوفمبر 16, 2020 بواسطه husseinharby رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر مايو 9, 2022 مشاركة قام بنشر مايو 9, 2022 جرب الفكرة copy.accdb رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان