Ahmed_J

السلام عليكم مرفق ملف لاحد الاخوة في الموقع حول استيراد من الاكسيل الى الاكسس المطلوب : عدم السماح باستيراد الملف ؟ 1- لو كان هنالك اختلاف في اسم اي عمود من اعمدة الاكسل او كان ملف الاكسيل فارغ 2- اظهار رسالة بذلك 3-الغاء عملية الاستيراد وشكرا لكم Access Import.rar

استاذي الكبير @ابو جودي شكرا كثيرا لك بارك الله فيك ويحفظك من كل مكروه

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

استاذي العزير مع الاسف لايعمل هذا الكود مع ملفي

السلام عليكم اساتذتي الاعزاء هل يمكن تغيير في الكود ليعمل االمسار على تصدير ملف الاكسل على سطح المكتب لكل اجهزة الحاسوب ("C:\Users\Public\Desktop\Folder2\Table1.xlsx") "C:\Users\Public\Desktop\Folder2\Table1.xlsx" شكرا لكم

استاذ @ابو جودي مع الاسف لم يضبط معي شكرا لك كثيرا استاذنا الغالي

استاذ @ابو جودي انا اسف من الجميع على نعبكم معي فقط اريد ان اوضح عمل الملف الاصلي هو يعمل بصورة صحيحة جدا عن التصدير الى اي قسم من اقسام الهارد كما في الملف الاصلي عن طريق حفظ مسار الملف عن طريق (بيانات خارجية - عمليات التصدير المحفوظة) كما في الصوز قم بتجربة الملف الاصلي سيقوم بحفظ الملف مع الفولدر بصورة صحيحة في :C اريد ان يجعل الحفظ على سطح المكنب نحياتي لك استاذ الملف الاصلي.accdb

أستاذ @ابو جودي شكرا جزيلا لك لاتخدم عملي سوى الطريقة التي يالصور والملف المرقق نحياتي لك المشكلة فقط في هذا الكود باللون الاحمر"C:\Users\Public\Desktop\Folder2\Table1.xlsx" هو يعمل على جهاز الحاسوب نيعي لكن لايعمل مع باقي الاجهزة الاخرى "C:\Users\Public\Desktop\Folder2\Table1.xlsx" Create Folder.accdb

السىلام عليكم استاذ @د.كاف يار انا والله حجلان جدا منك لانني تعبتك كتير الكود لايعل نظهر الرسالة كما في الصورة لو في حل ؟ الرجاء التعديل على الملف المرفق يكون افضل وشكرا Create Folde.accdb

استاذي العزيز @ناقل شكرا لاهتمامك هذه الطريقة اعرفها لابد من استخدام هذه الطريفة بالصور تحباتي لك

السىلام عليكم استاذ @د.كاف يار تظهر رسالة (فشل غي انشاء ملف) لا اعرف شو الحل ؟؟؟ تحياتي لك استاذنا العزيز Create Folder2.accdb

استاذ @د.كاف يار شكرا كثيرا لك على تعبك معي بارك الله فيك لكن الكود لايتوافق مغ عملي في المرفق الاخير (لايعمل) تحياتي لك

السلام عليكم اساتذتي الاعزاء استاذ @سامي الحداد استاذ @د.كاف يار نعبتك مغي كثير ☺️ تسلم ايدك على هذه الاكواد شكرا لكم المطلوب : إنشاء مجلد Folder2 على سطح المكتب ونسخ الملف Table1 داخلة بصيغة اكسل عن طريق (بيانات خارجية - عمليات التصدير المحفوظة) كما في الصوز مرفق ملف بعمل بصورة صحيحة على جهاز الحاسوب تبعي؟ لكن لابغمل مع بافي الاجهزة بسبب الكود (\C:\Users\PC\Desktop") يحتلف من جهاز الى اخر (اختلاف اسم المستخدم) لو امكن كود لسطخ المكتب بغمل مع كل الاجهزة تحياتي Create Folder.accdb

السلام عليكم اساتذتي الاعزاء استاذ @سامي الحداد استاذ @د.كاف يار شكرا لكم انا اسف امس كنت فاتح من الموبايل ولم استطع ارفاق مثال ولم استطيع توضيح الطلب؟ استاذ سامي لاتظرب اخماس باسداس سلامتك الموضوع بسيط ان شاء اللة تغببر مكان إنشاء المجلد من ( C) ونسخ الملف داخل المجلد على سطح المكتب وعدم السماح يتكرار الملف او المجلد نحياتي للجميع Create Folder .accdb

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

السلام عليكم اساتذتي الاعزاء استاذ @سامي الحداد استاذ @د.كاف يار شكرا لكم بالنسبة للمثال الثاني المجلد الجديد يكون بجانب قاعدة البيانات وليس عى سطح المكتب؟ المهم Dim fso As Object, fldrname As String, fldrpath As String fldrname = "qq" Set fso = CreateObject("scripting.filesystemobject") fldrpath = CurrentProject.Path & "\" & fldrname If Not fso.FolderExists(fldrpath) Then fso.CreateFolder (fldrpath) End If fso.CopyFile (fldrpath) \ AA , True' هنا الخطا لدي ملف داخل قاغدة البيانات الايد نسخة داخل المجلد الحديد qq ارجو التغديل على السطر الاحير وشكرا

السلام عليكم عاوز كود لانشاء مجلد (فولدر) على سطح المكتب عن طريق زر بالنموذج من اي مكان من جهاز الحاسوب وشكرا

up

السلام غليكم اساتذتي الاعزاء لدي قاغدة بيانات اكسس يتم التصدير من خلالها ملف اكسيل (موضوع سابق) Dim I As Integer For I = 2 To .range("b" & .rows.count).end(3).row .Range("A" & I).Value = I-1 Next I المطلوب : انه بعض الحقول توجد فيها فيم ثابتة لاتتغير اريد ملئها بالكود مباشرة من الاكسس الى الاكسل كما في الصورة اي تكون القيمة في الحقول المعبئة= "لاتوجد" يعني تعبئة تلقائية علما باتي استخدم الاكواد التالية: والكود الاخير فقط فيه الخطا (H) .Range("A1").Value = "ID" .Range("C1").Value = "Name" .Range("D1").Value = "Salary" .Range("H").Value = "لاتوجد" وشكرا لكم

السلام عليكم استاذ @jjafferr دائما مبدع ربي يحغظك من كل مكروه

شكرا لك استاذي العزبز

شكرا لك استاذ @Moosak بارك الله فيك لااستطيع استخدام جدولين هل ممكن عمل ذلك عن طربق النموذج للجدول وشكرا لك

السلام عليكم اريد عمل قائمة منسدلة كما في الصورة في نموذج مصدر بياناته حقل للتاريخ في جدول ياخذ تاريخ اليوم + اليوم التالي + اليوم اللي بعدة علما يوجد فوق القائمة المنسدلة حقل للتاريخ بالنموذج وشكرا لكم

السلام عليكم استاذ @jjafferr استاذ ممكن توضح لي ؟ اعذرني لم افهم قصدك ؟ اتمنى منك مثال عملي لذلك وشكزا لك

السلام عليكم اساتذتي الاعزاء استاذي الفاضل @jjafferr استاذي الفاضل @Moosak شكرا لكم نغم انا اعرف ماتقصدونه جيدا لكن هو كان سؤال لزيادة المعرفة فقط ؟ هل يمكن زيادة عدد الحقول برمجيا ام لايمكن تحياتي للجميع