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

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

سلام عليكم

من فضلكم عاوزة اعمل شئ ومش عارفه اعمله ازاى

عندى نموذج عاوزة اضيف فيه اكتر من مربع نص وليكن 50 مربع نص

ازاى اخلى اسماء مربع النص على الترتيب بالشكل الاتى  مثلا

officena1

officena2

officena3

officena4

لحد ما نوصل لـ 

officena50

مثال ولا أروع بجد 

38 دقائق مضت, Moosak said:

وإضافة جميلة للمكتبة العامرة ☺️👌🏼

ممكن نسخة من المكتبة ؟

وعندى فكرة لو تسمح

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

سلام عليكم

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

عاوزة اعمل جدول احدد منه اسماء العطلات الاسبوعية يعنى لو الجمعة بس ولو فى مكان تانى الجمعة والسبت و..... وهكذا

عاوزة اعمل جدول يتم منه تحديد لون الخلفية لايام العطلات ولون الخط

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

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

DatePicker.accdb

الاستاذ @ابو جودي 

لله ما أعطى ولله ما أخذ إنا لله وإنا إليه راجعون.

عظم الله اجركم ورحم الله ميتكم والهمكم وذويكم الصبر والسلوان.

اقدم احر التعازي واصدق المواساة⁩ في وفاة ⁧والدكم واسال الله له الرحمه والمغفره وان يجعل الله قبره روضه من رياض الجنه.

الله يصبركم ويكرم ضيفه بالعفو والغفران وجنات النعيم ويزيده كرما برؤيه وجهه الشريف.

أسأل الله العظيم ان يغفر له ويرحمه ويسكنه فسيح جناته ويرزقه الفردوس الأعلى من الجنة.

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

يارب اجعل قبره روضة من الجنة وبشره يارب بالفردوس الأعلى من الجنة.

لم اضع صورة والدكم الا لأذكركم ببشريات الفلاح والصلاح والراحة النفسية والطمأينة التى رزقه الله بها من فضله.

السلام عليكم

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

1.  عدم اضاقة ايام الجمعه والسبت التى تكون ضمن تاريخ البدايه وتاريخ النهايه 
2.  عدم اضافة تواريخ محدده من جدول أخر و التى تكون ضمن تاريخ البدايه وتاريخ النهايه 

يعنى مثلا

انا عرفت احقق الشرط الاول بس مش عارفة احقق الشرط الثانى المفروض طبقا للمثال المرفق عدم اضافة ايام 

06/01/2022
12/01/2022
13/01/2022

مثال.mdb

5 ساعات مضت, اسلام سيد said:

السلام عليكم

للاسف الشديد ما فتح معى
انا استخدم اوفيس 2016 نواه 64 بت

فهل هذة المشكله

جرب استبدال السطر بهذا الكود واخبرنى بالنتيجة

#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

ولي عودة عند ما يكون للعودة جدوى

لا خااااااااااالص

مالهاش حل حتى لو عملتها بباسورد بتتفتح 

ههههههههههههه  انا رخمه قفلتهالك

انا مش فاهمه انت يعنى لاقيت الحل اللى انت عايزه واللا لسه

ممكن ده

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

1- اعمل قاعدة بيانات مرفقة داخله جوة قاعدة البيانات الاصلية اللى انت عاوز لو اتغيرت ترجعها تانى

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

2- عند فتح نموذج الدخول مثلا يحمل القاعدة المرفقة للمسار فى حالة ان اسم القاعدة اللى شغاله اتغير لما تعمل له مقارنه ويقفل القاعدة الحاليه

3-القاعدة المرفقه لما تفتح هى تعمل رينيم اليا وتفتح القاعدة الاصلية وتقفل نفسها 

هى لفة بس اعتقد انها فكرة ممكن تنفذ اللى انت عاوزه 

ههههههههههههههههههه

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

لو الكلام من فضه يبقى السكوت من دهب

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

يعنى لو معجبكش الحل ده روح قول لهم هم انه مش عاجبك  هههههههههههههههههههه  انا ماليش دعوة 

للعود جدوى والنبى انا ما فاهمه منك حاجه

نسيت الرسالة معلش ههههههههههههههههه

HCT Permit To Work System.mdb

شوف كده

HCT Permit To Work System.mdb

منع زيادة رقم بالدالة dmax.accdb