Barna

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

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

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

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

حياك اخي @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

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

ما شاء الله تبارك الله .... تستاهل يا بطل ... الف مبروك

الطابعة اذا كانت جاهزة فيطبع دون سؤال هذا كان حسب سؤال لأنك لم توضح .... أنظر لطلبك داخل البرنامج ....

تفضل .... Lab.rar

جرب هذا .... لأن المشكلة غير موجودة عندي فلذلك لا استطاع التجربة ... Application.FollowHyperlink "http://www.google.com/search?q= " & Me.title.Value & ""

يبدو أن العيب من المتصفح الموجود في جهازك هل قوقل كروم أم غيره ..... حاول تغيير المتصفح .... قوقل كروم لدي وشغال برنامجك ليس فيه مشكلة