Barna

انظر ربما هذا هو المطلوب ... ادراج الصور بعد 5 .accdb

انا لله وانا اليه راجعون ... عظم الله اجركم وغفر لميتكم والهمكم الصبر والسلوان

اهلا بك بشمهندس ... بالعكس كثرة و تنوع الردود يثري الموضوع ... لا داعي للاعتذار انا استفدت من ردك ... لان هذه الردود تمثل عصف ذهني لمجموعة متحاورة ولسنا في سباق ... بارك الله فيك اخي الفاضل ... اسأل الله العظيم ان يديم علينا جميعا بالصحة والعافية ⚘⚘

البرنامج مرتبط ببرنامج اخر رئيسي أين هو ؟؟؟؟؟ انظر ... لذلك لن تستطيع العمل على البرنامج ... قم بالتواصل مع المبرمج !!!!!!

في مربع نص الكمية وفي حدث عند الخروج ضع هذا الكود ... مع تعديل ما يلزم If IsNull(Me.Namex) Then ' Namex هو اسم مربع نص الكمية MsgBox "ادخل بيانات", vbCritical, "dATA" DoCmd.CancelEvent End If

اشكرك اخي @ابو ياسين المشولي .. بارك الله فيك

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

للعلم البرنامج شغال .... انظر ...

الحمد لله على السلامة أخي @ابا جودى سررنا بمشاهدة مشاركتك ... ارجو أن تكون بصحة وعافية

حياك اخي @iibat ... بالتوفيق

تفضل ..... DoCmd.OpenForm "Main", acNormal, , "[M1] ='" & Me.M1 & "'" & "and [M2]='" & Me.M2 & "'" & "and [M3]='" & Me.M3 & "'" & "and [M4]='" & Me.M4 & "'" & "and [M5]='" & Me.M5 & "'" & "and [M6]='" & Me.M6 & "'"

حياك الله ... نحن في الخدمة

وهذه طريقة أخرى ....... اختر ما تريد في عملك .... أنا افضل الطريقة الثانية لأنها أسرع .... علما أني غيرت بعض مسميات الحقول لأنها عربية نجد صعوبة في كتابة الأكود .... وهذا ما يحزننا ( لحبنا للعربية ) الفرق بين تاريخين.mdb

استخدم هذا الكود ..... Dim c, i c = DCount("[المعرف]", "daraga") DoCmd.GoToRecord , , acFirst For i = 1 To c If IsNull(Me.Date1) Or IsNull(Me.date2) Then Exit Sub Me.age = CalcAge(Me.Date1, Me.date2) Me.tdate = CalcAged(Me.Date1, Me.date2) Me.tmonth = CalcAgem(Me.Date1, Me.date2) Me.tyear = CalcAgey(Me.Date1, Me.date2) DoCmd.GoToRecord , , acNext Next i MsgBox "تم الحساب", vbInformation + vbMsgBoxRight, "حساب"

بارك الله فيك .... ولك والمشاهدين بمثل ما دعوت يارب ..

مشاركة مع أخي @عبد اللطيف سلوم أنظر ... n15.accdb

جرب هذا الكود ... DoCmd.RunCommand acCmdSelectRecord لتحديد السجل

اذا كنت تقصد كلمة مرور لمحرر الفيجوال ... انظر ...

أشكرك أخي حسين ..... جميل ... بارك الله فيك

الحمد لله رب العالمين

افتح قاعدة جديده واستورد جميع الكائنات لها

مشاركة مع أخي الأستاذ @kha9009lid يمكن طباعة التقرير دون فتح خصائص الطابعة بصيغة XPS عن طريق كتابة هذا الكود .... جرب DoCmd.OutputTo acOutputReport, _ "اكتب هنا اسم التقرير", acFormatXPS, "", True, , , acExportQualityPrint

وهذه طريقة أخرى .... الكود.accdb

انظر .... الكود.accdb

اسأل الله الشفاء العاجل له