ازهر عبد العزيز

ما شاء الله عليك اخي احسنت زادك الله علما وعافية طلب اخر يا اخي القلولدرات Libraries , Library1 , BOOKS دائما ستكون موجودة بجانب القاعدة لا احتاج الى التاكد من وجودهن ممكن اختصار الكود الاخير لو تفضلت بحسب المطلوب

اتعبتك يااخي لكن ممكن شرح لهذا الكود If Len(Dir(FolderA, vbDirectory)) = 0 Then MkDir CurrentProject.Path & "\" & FolderA

جزاك الله كل خير اخي ماذا لو تم نغير المسار بالكامل مستقبلا C:\Libraries\Library1\BOOKS الى D:\Libraries\Library1\BOOKS هل هناك طريقة لجعل الكود ياخذ المسار بحسب وجود قاعدة البيانات

وانت بالف خير اخي ربي يحفظكم في حال الفولدر موجود تظهر رسالة خطأ ممكن حل للمشكلة

If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent If DCount("*", "ÇáØÇáÈ", "ÇÓã_ÇáØÇáÈ = '" & Me.xxx & "'") <> 0 Then Call Undo MsgBox "ÇÓã ÇáßÊÇÈ ãæÌæÏ ÓÇÈÞÇ" DoCmd.CancelEvent منع تكرار الاسم.accdb

السلام عليكم لدي هذا المسار C:\Libraries\Library1\BOOKS اريد انشاء فولدر داخل الفولدر BOOKS من خلال الزر الموجود بحسب الاسم المدخل في مربع النص الموجود في النمودج Libraries.rar

السلام عليكم لدي نموذج يحتوي زر وحقل احتاج عند النقر على الزر الموجود يضيف رقم عشوائي محصورة بين 0 الى 73 بشرط ان بتم ادراج الارقام المحصورة كافة وعند انتهاء الارقام يعيد من جديد بمعنى عند الضغط اولا تكون قيمة الحفل الرقم مثلا 44 وعند الضغط مرة ثانية يكون قيمة الحقل مثلا 55 الى ان تنتهي الارقم 72 test200.accdb

بالعكس اخي شكرا على الملاحظه ممكن اقتراح منك للعنوان يكون مناسب

السلام عليكم لدي هذا الكود Sub XY1() If ActiveControl.Text = Me.TextBox1.Text Then Me.TextBox1.Text = ActiveControl.Text My.Computer.Audio.Play("sounddd\BookName\1.wav", AudioPlayMode.Background) End If End Sub كيف اجعل تشغيل الصوت حسب الزر الذي تم الضغط علية دون اللجوء الى كتابة الكود تحت كل زر اي ياخذ قيمتة من ActiveControl.Text

احسنت اخي وهو المطلوب هل توجد طريقة اخرى

السلام عليكم لدي 3 نماذج FA ,FB ,FC في النموذج الفرعي FC يوجد كود Sub ccc() textboxc = 77 End Sub ماهي الطرقية التي يمكن مناداتة من النموذج الرئيسي FA والنموذج الفرعي FB عن طريق الازرار الموجودة في النموذجين وهل يوجد اكثر من طريقة لذلك CALLTEST.accdb

ما شاء الله عليك اخي سهلة علي الكثير من العمل لكن ممكن شرح لطريقتك وماذا يقصد ب ActiveControl مع جزيل الشكر

السلام عليكم في النموذج FLabelName D يوجد حقل LabelNameText ويوجد ثلاث ازرار A,B,C احتاج عند الضغط على احد هذة الازار تكون قيمة الخقل LabelNameText مساوية لقيمة نص تلميح عنصر التحكم للزر الذي تم الضغط علية LabelName.accdb

ما شاء الله تبارك الله

جزاكم الله كل خير الاستاذ @Foksh و الاستاذ @محمد احمد لطفى المثالين تمام طلب اخر لو تفضلتم عند الضغط على الاستعلام لا اريد ان يكرر الموجود سابقا بمعنى لو اضفت اسم اخر في الجدول tbmr يكون الاجراء فقط على هذا الاسم بدون نكرار ما تم الحاقة في الجدول سابقا

السلام عليكم لدي جداول tbmo , tbmr , tbmor احتاج دمج كل اسم موجود في الجدول tbmr مع الرقم الموجود في الجدول tbmo ثم اضافتة الى الجدول tbmor كمثال الاسم Ag الموجود في الجدول tbmr يتم دمجة مع كل رقم موجود في الجدول tbmo ثم الحاقة الى الجدول tbmor في الحقل or كما في الصورة وهكذا بقية الاسماء باي طريقة ممكنة mor.accdb

جزاكم الله كل خير احسنتم المثالين تمام

السلام عليكم في النموذج fxm يوجد 9 مرباعات اختيار بدون مصدر للسجلات ويوجد نموذج فرعي يحوي 9 سجلات هي نفس مسميات مربعات الاختيار في النموذح الرئيسي عند النقر على اي حقل في النوذج الفرعي يتم تحديد مربع الاختيار في النموذح الرئيسي احتاج كود لاختصار هذا الامر لاني اعمل على 75 مربع اختيار وبنفس الوقت احتاج عند الضغط على السجل يتم تحديد مربع الاختيار لنفس الاسم في السجل والغاء التحديد من بقية المربعات لقد فعلت هذا في السجل الاول لكن الامر اصبح مزعج لوجود العديد من المربعات فهل هناك طريقة ابسط testc.accdb

وعليكم السلام الصفر في التقرير.mdb

موضوع جميل

السلام عليكم احتاج تغير مصدر السجلات في النموذج عند الفتح او التحميل الى كود هذا هو مصدر السجلات SELECT Qbook_Reader.Readerm FROM Qbook_Reader WHERE (((Qbook_Reader.Num)=[Forms]![FReaderB]![FReaderSubB].[Form]![Num]));

لم يكن خطا برمجي كل ما هنالك بعض السجلات مكررة للرقم

وعليكم السلام ورحمة الله وبركاته = IIf([اللغة العربية]="4";"أزرق";IIf([اللغة العربية]="3";"أخضر";IIf([اللغة العربية]="2";"أصفر";IIf([اللغة العربية]="1";"أحمر";IIf([اللغة العربية]="غ";"غ";"")))))

و عليكم السلام ورحمة الله وبركاته Arciving2.rar

وهو المطلوب والشكر موصول الى الاخ @kkhalifa1960 الذي افادني بفكرة رائعة ونجحت ايضا