Shivan Rekany

بدل كودك بهذا If Me.PTetatCivil.Value = "مفوض الحالة المدنية" Then Me.DelegationSainiture = True Me.AgentGuechi = False Me.Reporte_Title = Me.PTetatCivil.Value Else Me.AgentGuechi = True Me.DelegationSainiture = False Me.Reporte_Title = Me.PTetatCivil.Value End If

في السابق انا قلت لك تريد على اي جدول وما كان بين جداولك علاقة عملت استعلام اخر وعملت عليها تقرير اخر شوف جربها ووافيني بالنتيجة بين تاريخين ورقم السجل (1) (2).rar

عفوا ما عرفت ترید ذلك الان انا عم بستخدم موبايل غدا راح اعمل لك اذا ما اكدرت ان تعمل اللي اقول فتح التقرير في وضع تصميم واعمل ثلاث مربعات نصية وفي داخله اكتب =forms!nameforfrm!mytext بدل nameforfrm باسم نموذجك وبدل mytext باسم مربع نصي اللي في نموذج تحياتي

على الرغم كل شي فكرة جميلة ورائعة ونرجوا من استاذنا ان يحل لنا المشكلة والحمد لله ماكان من عندي

كل شي تمام عندك فقط عليك ان تعمل زر على نموذج وتكتب خلفها هذا الكود DoCmd.OpenReport "report_car", acViewPreview واليك ملفك بعد تعديل waheed2.rar

جرب ووافيني بالنتيجه‌ بين تاريخين ورقم السجل (1) (2).rar

نعم يا استاذ تكدر تحذف هذا السطر من الكود DoCmd.RunCommand acCmdCopy لكن ما هي اهمية ذاك السطر بيعمل كوبي من النص المحدود واحتمال بيكون تحتاج ان تلصق في مكان اخر النص المحدود تحياتي

اتفضل waheed1.rar

اليك هذا DoCmd.RunSQL " delete * from TABLE1" غير TABLE1 ب اسم جدولك

لكن شوف بيظهر عندي اذا رقم السيارة ما بيكون في بين التاريخين ما يظهر لك اي شي واذا تكتب رقم السيارة خطا ايضا ما يظهر لك اي شي

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

اتفضل يا سيدي الطريقة هو للاستاذنا جعفر getfathername.rar

ارفع المرفق لكي نعمل العملية عليه

اتفضل بين تاريخين ورقم السجل (1).rar

نعم انا استخدم ويندوز 7 وقمت بتنزيل الحزمة SP1 وعملت تثبيت له ولكن بعد لم يتم الحل شكرا لك على كل شي

اتفضل شوف الاستعلام waheed1.rar

عفوا منك يا استاذ Elsayed Bn Gemy لكن انا فتحت معالج تركيب نظام التثبيت 2007-2016 لكن طلعت معي هذا للعلم انا استخدم اوفيس اصدار 2010 انكليزية

اتفضل استخدممت هذا الكود Private Sub Form_Load() DoCmd.GoToRecord , , acNewRec End Sub 522.نقل نسخة.rar

اتفضل استخدمت هذا الكود بعد تحديث Me.Text16 = DSum("[trip_on]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") Me.Text18 = DSum("[quantity]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") Me.Text20 = DSum("[pric]", "Qry1", "[date_bills] between [forms]![frmqryserchOnfileBetweendate]![StartDate] and [forms]![frmqryserchOnfileBetweendate]![EndDate]") waheed.rar

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

اتفضل اخي قاعدة بيانات2.rar

عفوا منكم جميعا اليك هذا الكود فقط On Error Resume Next DoCmd.OutputTo acOutputQuery, "Q1", "excelworkbook(*.xlsx)" لكن انا عملت استعلام لنموذج فرعي 591.ExportExcel.accdb.zip

اسف على التدخل يا استاذ جعفر استاذنا قام باعطاء مكان حفظ هذا اي في قرص دي وشوف هذا بيعمل المطلوب واذا تريد ان يظهر نافذة حفظ بدل هذا الكود اي حذف كلمة saveFileAs22 من الكود الاسف بهذا DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12Xml, "qryExportExcel"

جرب هذا الكود Private Sub Form_Open(Cancel As Integer) Me.ShortcutMenu = True End Sub

اعمل استعلام وفی حقل التاریخ اکتب Between [تاريخ الاول] And [تاريخ الثاني]