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

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

السلام عليكم لدي هذا الكود 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 الذي افادني بفكرة رائعة ونجحت ايضا

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

كل حرف له رقم اي رقم لايهم المهم يبقى نفس الرقم لو كان A=5 احتاجة ان تبقى قيمتة 5 لاتتغير

بالضبط اخي كل حرف يتحول الى رقم خاص بة ملاحظة توجد حقول تحوي اسماء كتب عربية

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

السلام عليكم في الاستعلام QB احتاج دمج الحقلين BN , LN وتحويلهم الى رقم في حقل جديد qtest.accdb

سوال استاذ لماذا لم يقبل الكود بعد ادخال علامة التنصيص وملاخظة الى الاخ السائل بدل YourTextBox ضع Text3 اسم مربع النص لديك

تفضل 111 (1).accdb