عبق الرياحيين

شكرا جدا جدا جدا لحضراتكم

سلام عليكم من فضلكم عاوزة اعمل شئ ومش عارفه اعمله ازاى عندى نموذج عاوزة اضيف فيه اكتر من مربع نص وليكن 50 مربع نص ازاى اخلى اسماء مربع النص على الترتيب بالشكل الاتى مثلا officena1 officena2 officena3 officena4 لحد ما نوصل لـ officena50

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

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

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

السلام عليكم من فضلكم عاوزة اضيف سجلات لجدول محدد عن طريق استخدام حلقة تكرارية من تاريخ بدايه الى تاريخ نهايه لكن بشرطين عدم اضاقة ايام الجمعه والسبت التى تكون ضمن تاريخ البدايه وتاريخ النهايه عدم اضافة تواريخ محدده من جدول أخر و التى تكون ضمن تاريخ البدايه وتاريخ النهايه يعنى مثلا انا عرفت احقق الشرط الاول بس مش عارفة احقق الشرط الثانى المفروض طبقا للمثال المرفق عدم اضافة ايام 06/01/2022 12/01/2022 13/01/2022 مثال.mdb

جرب استبدال السطر بهذا الكود واخبرنى بالنتيجة #If Win64 = 1 And VBA7 = 1 Then Private Declare PtrSafe Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As LongPtr, clr As LongPtr) '---color Picer #Else Private Declare Sub ChooseColor Lib "msaccess.exe" Alias "#53" (ByVal hwnd As Long, clr As Long) '---color Picer #End If

شكرا استاذ @أبو إبراهيم الغامدي شكرا استاذ @ابا جودى الله يبارك لكم فى علمكم

والله لو ينفع اعمل 1000 لايك كنت عملتها بجد شكرا

اهلا ومليون اهلا بيك استاذ @أبو إبراهيم الغامدي انا كتير متشكره ليك جدا جزاكم الله كل خير

الامر Debug.Print بيظهر حسب الكود البيانات فى النافذة الفورية Immediate داخل محرر الاكواد انا عاوزة الفيم تروح على مربع قائمة فى النموذج هو بيجبلى اخر سطر بس زى ما بيظهر فى النافذة الفورية Immediate ازاى نخليه يجيب كل الاسطر

سلام عليكم انا استخدمت كود لاظهار اسماء اوراق العمل لاى شيت اكسل بعد اختياره وكله كله تمام بس المشكلة اللى مش عارفه احلها ان اسماء الشيتات بتظهر بس فى النافذة الفورية Immediate عاوزة انها تظهر فى القائمة اللى فى النموذج زى ما ظهرت بالظبط فى النافذة الفورية Immediate Import Excel.zip

السلام عليكم ورحمة الله وبركاته كنت ابحث على الانترنت عن طريق استيراد بيانات من شيت اكسل يحتوى على الكثير من اوراق العمل ولكن اريد قائمة تظهر اوراق العمل بداخل ملف الاكسل ليتم تحديد ورقة العمل التى نريد اجراء عملية الاستيرا للبيانات التى بداخلها وجدت مثال فى موقع اجنبى ولكن به مشكلة لم استطيع حلها وهى عدم الاستيراد عند وجود خلية فارغة مرفق مثال لملف الاكسل وقاعدة البيانات برجاء تعديل هذه المشكلة وهناك سؤال اخر فى نفس السياق هل يمكن التعديل بحيث نبتعد عن اختيار مكتبة الاكسـل من محرر الاكواد لانها تعطى خطأ باختلاف نسخ الاوفيس جزاكم الله خيـــــــــرا Import Excel Example.zip

وانت بنفسك قلت ولي عودة عند ما يكون للعودة جدوى

غير السطر ده ب DoCmd.Quit ولي عودة عند ما يكون للعودة جدوى