Ahmed_J

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

السلام عليكم اساتذتي الاعزاء استاذ @سامي الحداد استاذ @د.كاف يار نعبتك مغي كثير ☺️ تسلم ايدك على هذه الاكواد شكرا لكم المطلوب : إنشاء مجلد 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 شكرا لكم نغم انا اعرف ماتقصدونه جيدا لكن هو كان سؤال لزيادة المعرفة فقط ؟ هل يمكن زيادة عدد الحقول برمجيا ام لايمكن تحياتي للجميع

السلام عليكم اساتذتي الاعزاء 1- هل يمكن زيادة عدد حقول الجدول الواحد بالاكسس عن 255 حقل برمجيا او بطريفة اخرى 2- هل يمكن عمل استعلام توحيد لجدولين مجموع حقولهما اكثر من 255 حقل برمجيا او بطريفة اخرى (تظهر زسالة تم نعريف حقول كثيرة باستعلام التوحيد) علما اني استخدم اكسس 2010 وشكرا لكم

السلام عليكم انظر للملف اتمنى ان يكون المطلوب لكن بدون Input Box دورة inputbox.accdb

اخي العزيز لان الكود مرتبط Me.ChooseTble اي اخيار الجدول او الاستعلام و Me.mm بتخديد الحقول المهم في حل اخر ان تقوم باضافة حقول نموذج التصدير الى اكسل الى نموذجك الاصلي ويصبح نموذج واحد ان لم تعجبك الفكره ؟؟ ارجو من السادة الاغضاء مساعدتك في الوصول الى حل تحياتي للجميع

لم افهم هذه العبارة

السلام عليكم استاذ @ahmed_2040 واجهتني مشكلة اسماء الحقول بالانكليزي A1 , A2 الى اخره قمت بتغيير اسمائها من خلال التصدير الى اكسل لااعرف ان كانت هذه الطريقة تعجبك ام لا (لو كان اسماء الحقول بالعربية لكان افضل بالنسبة لي) المهم : عملت لك 10 حفول للتصدير الى اكسل مثال للعمل مع التنسيقات افتح النموذج Search ثم قم بتصفية النموذج ثم اختر التصدير الى اكسيل بعد فتح التصدير الى اكسل اختر الجدول المحدد او الاستعلام ثم اختر حقول معينة او جميع الحقول بالماوس ثم اضغط على زر تصدير ستجد ملف اكسل منسق اتمنى يكون المطلوب نجياتي

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

السلام عليكم استاذ @عبدالقدوس48 انا فهمت من طلبك انك تريد لوحة للتحكم بخصائص البرنامج تقضل الرابط https://www.officena.net/ib/topic/102495-اخفاء-واظهار-جميع-كائنات-اكسس/?tab=comments#comment-618717 اتمنى ان يكون المطلوب تحياتي للجميع

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

اخي العزيز @ahmed_2040 اضف نموذج التصدير في الملف المرفق الى قاعدة بياناتك وقم بتغيير اسم الاستعلام ومن ثم تصدير الحقول المطلوبة الى اكسيل تحباتي export excel.accdb

السلام عليكم اساتذتي الاعزاء بارك الله فيك استاذ @ابا جودى تنويه فقط لاننسى السنة الكبيسة سيقوم البرنامج باضافة يوم على شهر شباط (يصبح 29 يوم) اي لو تاريخ الاصدار 29/02/2020 سيكون تاريخ النفاذ 28/02/2021 تحياتي للجميع

شكرا كثيرا لكم بارك الله فيكم وجعلها في ميزان حسناتكم