Barna

استبدل الفانك لديك بهذا ..... 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

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

بارك الله فيك الاستعلام مكتوب كجملة SQL داخل الزر انظر الصور .....

طيب اخي الكريم جرب المرفق ووافينا بالنتيجة .... علما اننا اضفنا حقل نعم / لا في الجدول A AB.mdb

اذن كيف تريد منع التكرار في الجدول ...... اذن هناك لبس في الموضوع .... لو ارفقت مثال لعرفنا وانتهى الموضوع ..... لان تفسيراتنا الغيبية انت تتحدث في جانب ونحن في جانب .... لن نصل ونضيع الوقت !!

وبارك فيك ...

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

هذه الرسالة مفادها ان الجدول اساسا في هذا الحقل بيانات متكررة فلذلك ليس من المنطق جعل الحقل لايقبل التكرار وهو به بيانات ...... ؟؟؟؟؟ هل البيانات المكررة تحتاجها ؟؟؟؟ اذا كان لا انسخ الجدول وغير اسمه وفرغه من البيانات ثم غير خصائص الحقل ... ثم انسخ والصق بيانات الجدول الاساسي فيه ....

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

اجعل احد حقول الجدول حسب الصورة ....

اين الحروف في المثال ؟؟؟؟ على كل حال انظر المرفق .... مثال.rar

انت لو سألت سؤال محدد لوجدت الف اجابة !!!!

بارك الله فيك ابا الحسن .... تقريرك المصدر هو بالانجليزي ... كيف تبغاه بالعربي ؟؟؟؟؟؟؟ ثانيا :::: لا تتوقع عند تصدير التقرير الى الاكسل يكون بنفس التنسيق .... اذا تبقاة بنفس التنسيق صدرة PDF فقط ...

طيب اخي الكريم انت تقول غير اسم التقرير في الكود ..... وتريد ان معالج اختيار مكان الحفظ استخدم هذا الكود ...... DoCmd.OutputTo acOutputQuery, "rpt_Items_Dates_3", "ExcelWorkbook(*.xlsx)", "", False, "", , acExportQualityPrint

اظن الحالة الاولى .... معروفة وسهلة هذا مثال للحالة الثانية ...... Bar_te.accdb

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

تلميذك ..... منك نتعلم

تفضل ...... Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.OutputTo acOutputQuery, "qry_Query", "ExcelWorkbook(*.xlsx)", Output_Path, False, "", , acExportQualityPrint

ربما تجد حلول هنا ..... انظر هنا تفضل >>>>>>

وعليكم السلام ورحمة الله Output_Path = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\" & Format(Date, "dd-mm-yyyy") & ".xlsx" DoCmd.TransferSpreadsheet acExport, , "qry_Query", Output_Path مع تعديل اسم الاستعلام باسم الجدول المطلوب لديك ...