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

السلام عليكم في النمودج Fmetal مجموعة من الاكواد اريد ان انقلها الى وحدة نمطية وان امكن هل من طريقة لاختصار هدة الاكواد ان وجدت سؤال هل نقل هدة الاكواد الى وحدة نمطية سيؤثر على البرنامج سلبا او ايجبا b (2).accdb

استاد احمد الظاهر هو المطلوب لكن اسمح لي بمراجعة الحل جزاك الله عني كل خير

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

السلام عليكم لدي نمودج frm يحتوي مربع تحرير وسرد idrxt ويجود نمودج فرعي يحتوي على حقل بنفس الاسم وبنفس البيانات لكن في الاول نص والثاني رقم لان الاول مصدر بياناتة استعلام على حقلان كيف اجعل القيمة الافتراضية للحقل idrxt في النمودج الفرعي تكون مشابهة لما موجود في مربع التحرير في النمودج الرئيسي بمعن لو تم اختيار من مربع التحرير r1 وعند اضافة سجل جديد في النمودج الفرعي تكون قيمة الحقل idrxt في النودج الفرعي = 1 وهكدا t1.accdb

السلام عليكم لدي نمودج fbutton `عبارة عن نمودج مستمر المشكلة انه عند فتح النمودج يظهر لي جميع السجلات السابقة وانا احتاج اجعلة يظهر لي فقط السجلات التي اقوم بادخالها بمعن عند فتح النمودج لا اريد اظهار البيانات القديمة وفقط اظهار السجلات التي اقوم بادخالها حاليا حل من حل باي طريقة ممكنة سواء بالتعديل على تصميم النمودج او كود او اي شئ b.accdb

السلام عليكم لدي نمودج fbuton يحتوي مجموعتان من الازرار BوFN عند الضغط على الزر B تظهر التسميات التوضيحيه لبقية الازرار وعند الضغط على احد الازرار الموجود تحت الزر B تضهر التسميات التوضيحية للازرار الموجودة تحت الزر FN المطلوب في المجموعة الازرار FN احتاج عند الضغط على اي زر تتغير قيمة الحقل fn بحسب التسمية التوضيحية للزر الدي تم الضغط علية ملاحظة اساتدتي في النمودج الاصلي لدي 25 زر فادا امكن الاختصار في حال وجود اكثر من كود b.accdb

زادك الله من فضلة وهو المطلوب

السلام عليكم لدي نمودج Fbutton يحتوي ثلاثة ازرار كيف اجعل التسمية التوضيحية لهدة الازار تكون مساوية للاسماء الموجودة في الجدول TBbuton بمعنى يكون التسمية التوضيحية للزر الاول هو b1 والزر الثاني b2 والزر الثالث هو b3 وتتغير هدة الاسماء عند تغيرها من الجدول b.accdb

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

الاستاذ @jjafferrلم يفلح الكود فلم تظهر التصفية في التقرير

السلام عليكم لدي نموذج form3 يحتوي نموذج فرعي form1 احتاج طباعة البيانات في النموذج الفرعي بعد اي عملية الفرز في النموذج الفرعي ....من خلال التقرير ur بمعنى عند القيام بعمية الفرز داخل النموذج الفرعي والضغط على زر الطباعة يفتح التقرير بحسب الفرز الذي تم في النموذج الفرعي ur.accdb

السلام عليكم ورحمة الله وبركاتة المطلب الاول لدي نموذج fur كيف اضيف الاختصار في الحقل code الى القيمة في الحقل بمعنى عند اختبار ur1 من الحقل code يضاف الى الرقم الموجود في الحقل ur دون التاثير في الجدول اي هذة الاضافة تكون فقط في النموذج المطلب الثاني في النموذج furh في الحقل x1,و الحقلx2 نفس الشئ اي اظهار الارقام الموجود في الحقل مسبوقة بالاختصار ur1 في الحقل x1 وايضا الحقل x2 يكون الرقم مسبوق بur2 دون التاثير في الجدول اي هذة الاضافة تكون فقط في النموذج ur.accdb

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

السلام عليكم لدي قاعدة بيانات قمت بجعل نموذج عند الفتح نموذج منبثق وايضا عند فتح النموذج المنبثق يفتح نموذج اخر منبثق ايضا لكني تفاجئت بان قاعدة البيانات فقط تفتح النموذجان ثم لاتستجيب ارجو الحل وقد ارفقت مثال للمشكلة mx.accdb

السلام عليكم لدي نموذج fx1 ليس له مصدر بيانات والجدول x1 اريد جلب الاسم dimon في الحقل xxx من الجدول x1 الى النموجج fx1 في الحقل mx mx.accdb

مشتاقين استاذ ابا جودي الغالي

السلام عليكم ,,,,, في النموذج fqx احتاج عند الضغط على زر تحقق وكانت قيمة الحقل z تساوي قيمة الحق v تظهر رسالة تنبية error 1 وبخلافة تظهر رسالة تنبيه error2 عن طريق الكود وليس الماكرو وشكرا جزيلا vvv.accdb

السلام عليكم ,,,,, احتاج عند بداية عداد الوقت يفتح النموذج A وعند انتهاء العداد يغلق نموذج العداد اي النموذج الحالي Private Sub Form_Open(Cancel As Integer) i = 101 Me.pr = "loading ..." End Sub Private Sub Form_Timer() i = i - 1 Me("sq" & i).Visible = True If i = 1 Then Me.TimerInterval = 0 End If Static intCount As Integer intCount = intCount - 1 If intCount Then Me.pr = "loading " & Abs(intCount) & "%" End If End Sub

بامكانك اخذ صورة للعلاقات بعد انتهاء ربطها

وعليكم السلام test.accdb

@husamwahab, @Shivan Rekany كلمة شكر لاتكفي لكن دعوة بالغيب ,,,,,,

تفضل Dim fdialog As Office.FileDialog Dim filepath As String Set fdialog = Application.FileDialog(msoFileDialogFilePicker) With fdialog .Title = "Select image" .AllowMultiSelect = False .Filters.Clear .Filters.Add "Image file", "*.jpg ; *.bmp ; *.png" If .Show Then filepath = .SelectedItems(1) [Imagepath] = filepath Else Exit Sub End If End With

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

جزيل الشكر استاذ شفان وهو المطلوب

من رخصة وحش الاكواد الاستاذ محمد تفضل لعلة المطلوب FRm_Refresh.accdb