محمد احمد لطفى

تفضلى يعمل على option button Dim frm As Form Dim ctl As Control Dim optionName As String Dim i As Integer ' يمكنك استبدال "اسم_نموذج" بالاسم الفعلي لنموذجك Set frm = Forms("Nameformx") ' تحديد جميع أزرار الاختيار (Option Buttons) في النموذج بناءً على الأسماء المحددة For i = 0 To 14 optionName = "خيار" & i On Error Resume Next Set ctl = frm.Controls(optionName) On Error GoTo 0 If Not ctl Is Nothing Then If TypeOf ctl Is Access.OptionButton Then ctl.Value = True End If End If Next i

يجب وضع مثال للعمل عليه هذا DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;" اذا كان اسم الاستعلام او الجدول مصدر النموذح و الحقل

تفضلى بالتوفيق DoCmd.RunSQL "UPDATE اسم_الاستعلام SET اسم_الحقل = True;"

جرب بالتوفيق =Nz(Sum([total]), 0) or =IIf([total]="#خطاء", 0, Sum([total]))

تفضلى بالتوفيق Private Sub Command0_Click() ' زر "Yes" - للطباعة Dim response As VbMsgBoxResult Dim patientName As String ' احصل على اسم المريض من النموذج patientName = Me![اسم_المريض] ' قم بعرض رسالة التأكيد مع اسم المريض response = MsgBox("هل تريد طباعة التقرير للمريض: " & patientName & "؟", vbYesNoCancel + vbQuestion, "تأكيد") Select Case response Case vbYes ' طباعة التقرير DoCmd.OpenReport "اسم_التقرير", acViewNormal Case vbNo ' معاينة التقرير DoCmd.OpenReport "اسم_التقرير", acViewPreview Case vbCancel ' إلغاء العملية MsgBox "تم إلغاء العملية.", vbInformation, "إلغاء" End Select End Sub

جزاك الله خيراً أستاذ @Moosak

جزاك الله خيراً أستاذ @Foksh

جزاك الله خيراً أستاذ @kkhalifa1960 قمت بتغيير y1 الى ()date لتتغير بطريقة الية

أستاذ @ناقل تمام بس يوم السبت بيعرض كل الاسبوع الى الى فات يعنى لو عملت تاريخ الكمبيوتر السبت 11 مثل الصورة

أستاذ @kkhalifa1960 المطلوب عرض أيام الاسبوع الحالى السبت 11 الاحد 12 الاثنين 13 الثلاثاء 14 الاربع 15 الخميس 16 الجمعه 17 و عندما يأتى يوم السبت القادم تتحدث الحقول بطريقة الية النموذج المرفق يعمل و لكن من الاثنين الى السبت و الاحد الاسبوع القادم ولا يتحدث تاريخ الايام الا يوم الاثنين القادم ( حاولت تغيير الطريقة فى النموذج المرفق و كان أمس يوم السبت 11 و هكذا باقى ايام الاسبوع ثم لاحظت اليوم أن تم تغيير يوم السبت الى 12 وباقى الايام زادت يوم كذلك ) وجزاك الله كل خير date12.mdb

أريد ضبط تاريخ أيام الاسبوع أولا يوم السبت و الاحد تاتى تاريخ الاسبوع القادم ثانيا الارقام التاريخ فى جميع الحقول لا تتغير الا يوم الاثنين مفترض ان تتغير يوم السبت وجزاكم الله كل خير date.mdb

دى محاولة قد تكون صحيحة و قد تكون خاطئة حسب فهمى للسؤال مع تغيير حقل age لنص و ليس رقمى age collect.rar

للتوضيح عند وقف On Error Resume Next يظهر خطأ عند حذف الملف Kill aFile الخطأ run time error 70 You tried to open a write-protected file for sequential Output or Append لقد حاولت فتح ملف محمي ضد الكتابة للإخراج المتسلسل أو الإلحاق بالتوفيق

تفضل كليك يمين

تفضل Vtext.zip

تفضلى بالتوفيق أو DoCmd.FindRecord Me![test_list].Column(1), , , , , acCurrent lab.rar

تمت التجربة و الملف يعمل يجب ان يكون بجوار البرنامج فولدر Myfiles وبداخله فولدر My pdf Bbb.rar

مثل ما افاد أستاذ موسى يجلب أرقام IP adress التى تعمل على الشبكة المطلوب مثل ما الصورة و النموذج المرفق و لكن هل يمكن تطبيقها فى نموذج واحد حيث يتم عمل ping و فى حالة ان الجهاز لا يعمل تكون اشارة حمراء أما اذا كان يعمل تكون اشارة خضراء تومض ( مقتبس من موضوع أستاذ ابو جودى )

هل يمكن أن نعرف الاجهزة التى تعمل و الاجهزة التى لا تعمل فى ( نموذج واحد ) بدون تكرار للكود IP.accdb

تفضل BAZEG.accdb

لو هتعمل جدول للمهن و قاعات خاصة لكل مهنة الكود هيتغير للتالى =Nz(DLookUp("[room]";"[جدول2]";"[Grade]='" & [Grade] & "'");"") فقط قم باضافة المهن فى جدول 2 ووضع ارقام القاعات تم عمل الملف فى مشاركة سابقة BASEZ (1) (1).accdb

جزاك الله خيراً أستاذى @Foksh

نعم ان شاء الله

تفضل =IIf([grade]="طبيب";"25";IIf([grade]="مهندس";"25";Nz(DLookUp("[room]";"[جدول1]";"[Grade]='" & [Grade] & "'");""))) BASEZ (2).accdb

المهندس رقم كام الطبيب 25