Barna

غير العبارات المكتوبة بالعربية في الرسالة في محرر الاكود الى لغة جهازك ...

بالتوفيق ....

ادرج مريع نص في التقرير واجعل مصدر بياناته بهذا الشكل .... =[Forms]![form_name]![txt_name] هو اسم النموذج الخاص بالبحثform_name هو مربع البص لبداية التاريخ مثلاtxt_name كرر العملية مع مربع النص الخاص بنهاية التاريخ (اي الى)

😁

جرب هذا .... ba_11.accdb

استبدله بهذا وجرب ..... Dim FD As Object

تفضل .... جرب المرفق ....... ba_11.accdb

تفضل ... انظر الصورة ....

استبدلها بهذه الدالة ....

تفضل .... 1.accdb

نعم استخدم between

وعليكم السلام ورحمة الله وبركاته طيب ممكن مثال مبسط كمرفق ... حتى نستطيع التفكير معك فيما تريد ؟؟؟

ما شاء الله تبارك الله مبدع @king5star متابع بصمت ....

ما شاء الله تبارك الله .... مبدع @Moosak

دائما اخي الكريم عند نسخ نموذج من ملف انسخ ملحقاته من المديولات ..... انظر ملفك بعد اضافة المديولات الناقصة ..... db1.rar

انظر هذا المثال على ال_ Fifo

اليس هذا هو نتيجة برنامجك قبل التعديل ؟؟؟؟؟؟؟ تفضل ....... test (1).rar

ماهو المطلوب اليس هذا هو المطلوب .......

استبدل الفانك لديك بهذا ..... Public Function Concatenate_test_items(C As String) As String Dim rst As DAO.Recordset Dim myWhere As String 'do the Where Criteria in an easy way, item by item myWhere = myWhere & "[tube]='" & C & "' AND [code]='" & 1000 & "'" 'set the Data source Set rst = CurrentDb.OpenRecordset("Select [test] From [Table1] Where " & myWhere) 'Loop through the Records Do Until rst.EOF 'Concatenate the items Concatenate_test_items = Concatenate_test_items & ", " & rst!test 'move to the next Record rst.MoveNext Loop 'Remove the initial ", ", thats why we start from the 3rd letter Concatenate_test_items = Mid(Concatenate_test_items, 3) 'clean up memory rst.Close: Set rst = Nothing End Function

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

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

استخدم هذا الكود ....... Dim strDirectoryPath As String strDirectoryPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "sample" If Dir(strDirectoryPath, vbDirectory) = "" Then MkDir strDirectoryPath Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & "sample" & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "q1", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint MsgBox "تمت عملية انشاء المجلد باسم Sample بنجاح مع تصدير الملف", vbInformation, " مبروك "

بارك الله فيك اخي الكريم ...... الحمد لله رب العالمين .... بالتوفيق

جرب المرفق ..... السبب في عدم الالحاق افتح الجدول A وازل الاشارات من كل السجلات ... AB.mdb

يستاهل الدكتور كل طيب ........