Barna

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

وهذه طريقة أخرى ....... اختر ما تريد في عملك .... أنا افضل الطريقة الثانية لأنها أسرع .... علما أني غيرت بعض مسميات الحقول لأنها عربية نجد صعوبة في كتابة الأكود .... وهذا ما يحزننا ( لحبنا للعربية ) الفرق بين تاريخين.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 & ""

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

نعم هذا ما قصدته ...

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

أخي الكريم .... أولا : ما الهدف من هذه الطريقة .... يمكن لو عرفنا نجد لك طريقة أخرى ثانيا : يمكن عمل ذلك عن طريق استعلام

حياك الله .... كنا نسعد بخدمتك ..

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

الجدولين ليس بينهم علاقه ..... اذن على اي اساس يكون الوصل رقم 1 لحارث أم جميل أنظر ......