ناقل

المشكلة في الطول ام العرض

هل تريد رسالة تحذير قبل الاضافة ؟؟؟ صحيح

تفضل ....... البرنامج-aa.rar

انظر ......

اين البرنامج !!

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

تريد التعديل في البيانات العلوية ام السفلية ؟؟؟

طيب نفضل .... جرب المرفق ..... ناقل_1.accdb

تريدها نظام ملصقات .... هل هذا التوزيع هو المطلوب ؟؟؟؟

جرب هذا المرفق ..... العلاج.accdb

تفضل ..... ناقل_1.accdb

اولا : عليكم السلام ثانيا : حياك الله في المنتدى ثالثا : هل تريد طباعة هذه الارقام على تقرير يعني مثلا كنبت في المسج 1-5 ..... تقوم الطابعة بطباعة خمس تقارير مرقمة التقرير 1 ... التقرير2 ... التقرير3 ... التقرير4 ... التقرير5 صحيح

لمعرفة عدد السجلات بالاعتماد على حقل ضع =Count([id]) حيث اسم الحقل id لمعرفة عدد السجلات من غيرالاعتماد على حقل ضع =Count(*) ان لم تجد نتيجة ...... ارفق النموذج الذي به المشكلة

طيب .... اكتب لنا كيف كتبت الدالة ؟؟؟

ممكن نضع في بداية الكود شيفرة تتاكد من عدم وجود ملف الاكسل ... واذا كان موجود يحذفه اولا ثم يتابع

لان اسلوب اخونا احمد غريب شوي في تصدير الاكسيل ..... لذلك حاولت التحايل على الفكرة ...... ما شاء الله عليك ابا جودي .... معلم واستاذ ... جزاك الله خيرا ...

طيب شوف التحايل هذا ....... Dim fso As New FileSystemObject Dim LExcelOriginal As String Dim LExcelCopyOf As String Dim msgstyle If fso.FolderExists(Environ("USERPROFILE") & "\Desktop\" & "\Folder2") Then Else fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\" & "\Folder2") End If DoCmd.RunSavedImportExport "export" LExcelOriginal = "D:\Table1.xlsx" LExcelCopyOf = Environ("USERPROFILE") & "\Desktop\" & "Folder2" & "\" & "Table1.xlsx" FileCopy LExcelOriginal, LExcelCopyOf Kill ("D:\Table1.xlsx") MsgBox Space(20) & "تمت العملية بنجاح.." & Space(20), msgstyle, "للمعلومية" ملفك بد التعديل .... Create Folder2 (1).accdb

استخدم هذا الكود ...... Dim fso As New FileSystemObject If fso.FolderExists(Environ("USERPROFILE") & "\Desktop\" & "\Folder2") Then Else fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\" & "\Folder2") End If 'DoCmd.RunSavedImportExport "export" 'fso.CopyFile Environ("USERPROFILE") & "\Desktop\" & "Folder2\Table1.xlsx", True Output_Path = Environ("USERPROFILE") & "\Desktop\" & "Folder2\Table1.xlsx" DoCmd.TransferSpreadsheet acExport, , "Table1", Output_Path او استخدم هذا ,,,,,, Dim fso As New FileSystemObject If fso.FolderExists(Environ("USERPROFILE") & "\Desktop\" & "\Folder2") Then Else fso.CreateFolder (Environ("USERPROFILE") & "\Desktop\" & "\Folder2") End If DoCmd.TransferSpreadsheet acExport, , "Table1", Environ("USERPROFILE") & "\Desktop\" & "Folder2\Table1.xlsx", True

جرب هذا .... Worker.rar

تفضل .... New folder.rar

تفضل ...... New folder.rar

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

انت سألت هذا سابقا ولم تتفاعل مع الموضوع

ابحث في المنتدى تجد اجابة شافية لسؤالك من قبل الاستاذ @jjafferr