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

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

السلام عليكم ,,,,, اريد نقل الكود الموجود في النموذج FCp في حدث عند التحميل الى وحدة نمطية مع جزيل الشكر وحدة نمطية.accdb

السلام عليكم ,,,,,, اريد اضافة على هذا الكود ليقوم بحذف الاصفار ايضا Dim Numbers if len(SText & "")=0 then GetNumbersOnly="" exit function end if For i = 1 To Len(SText) If IsNumeric(Mid(SText, i, 1)) Then Numbers = Numbers & Mid(SText, i, 1) End If Next GetNumbersOnly = Trim(Numbers)

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

وعليكم السلام عليكم ورحمة الله وبركاته test.accdb

بالانتظار بالانتظار

وهذا بخصوص التاريخ 22_فيها_تعبير.accdb

تقريبا نفس حل الاستاذ محمد لكن الحدث اصبح في حقل الواصل وليس الباقي

Base_de_données1352_-_Copie_-_Copie(1).accdb

وعليكم السلام ,,,, تفضل محاولة مني Base_de_données1352_-_Copie_-_Copie(1).accdb

وعليكم السلام عليكم ورحمة الله وبركاته FIRAS.accdb

تفضل لعلة المطلوب تعديل.accdb