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

تفضل هل هذا ما تريد Dim a As String a = Me.x If Me.x = a Then Forms("fxm").Controls(a).Value = True End If أو If Me.x <> "" Then Forms("fxm").Controls(Me.x).Value = True End If testc.accdb

تفضل بالتوفيق If me.aa = 1 Then DoCmd.OpenForm "bb" Else MsgBox "يجب كتابة رقم صحيح" End If

تفضل هل هذا ما تريد Database5.accdb

تفضل qtest-1.accdb

تفضل حسب ما فهمت هناك طريقتان فى الوحدة النمطية اختر ما يناسبك qtest-1.accdb

اجعل التقرير منبثق نعم و عند حدث عند فتح التقرير قم باضافة DoCmd.Maximize بالتوفيق

@شامل2 وفقك الله وزادك علما ومعرفة @gamal gamal تمنياتى لك وللجميع بالتوفيق @kkhalifa1960 بارك الله فيك استاذى و نتعلم منكم

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

أستاذى @ابوخليل بارك الله فيك و مازلت تلميذاً وفقك الله وزادك علما ومعرفة بارك الله فيك ووفقك لما يحبه ويرضاه

أساتذتي الكرام، ربنا يبارك فيكم و يحفظكم ما زلت تلميذًا وما زلتُ أتعلم

تفضلى من صفحة كتابة الأكواد من الوحدة النمطية او النموذج

تفضل بالتوفيق استعلام تحديث UPDATE tbbook SET mookname = Trim(Left([mookname], InStr(1, [mookname], "/") - 1)) WHERE InStr(1, [mookname], "/") > 0; تشغيله من نموذج DoCmd.SetWarnings False DoCmd.RunSQL "UPDATE tbbook SET mookname = Trim(Left([mookname],InStr(1,[mookname],""/"")-1)) " & vbCrLf & _ "WHERE InStr(1,[mookname],""/"")>0;" DoCmd.SetWarnings True library.accdb

لا تأثر الفرق اعدادات اللغة فى الجهاز

تفضل وأنصحك بالابتعاد عن تسمية رؤوس العواميد بالعربى IIf([نوع الحركة]="سند قبض مورد";[نوع الحركة];0) سند.mdb

هنا الحل Mod 2 = 1 Mod 2 <> 0

تفضل بالتوفيق Dim strSQL As String ' Replace "YourTableName" with the actual name of your table strSQL = "DELETE FROM TBmast WHERE idmast Mod 2 = 0;" CurrentDb.Execute strSQL MsgBox "تم حذف السجلات ذات الرقم الزوجي بنجاح.", vbInformation Me.Requery mast.accdb

أستاذ @Foksh 😁 أرى أن تحذف أفضل اجابة حتى تصل للمطلوب تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010 Second.accdb

تفضل وجدت هذا الامر بالتوفيق Second.accdb

تفضل 999.accdb

تفضل base1.accdb

تفضل و اذا كانت الاجابة صحيحة اختار افضل اجابة لغلق الموضوع جدول.accdb استعلام.accdb

تفضل هل هذا ما تريد بالتوفيق 11.accdb

تفضل ' استخراج قيمة حقل Namex من النموذج أو الجدول Dim personName As String personName = Me.Namex ' تأكد من تحديث "Namex" بالحقل الصحيح في النموذج ' عرض رسالة تأكيد مع اسم الشخص If MsgBox("هل ترغب في طباعة تقرير urine للـمريض " & personName & "؟", vbQuestion + vbYesNo, "تأكيد") = vbYes Then ' إذا تم النقر على نعم، قم بفتح وطباعة التقرير وثم إغلاقه DoCmd.OpenReport "urine", acViewNormal DoCmd.PrintOut DoCmd.Close acReport, "urine" Else ' إذا تم النقر على لا، لا تقم بفعل أي شيء End If

طيب جرب محاولتى Me.RecordSource = "SELECT cert.* FROM cert WHERE cert.Lot = '" & Forms!cer!Text8 & "';" لم أجربه

ضع مثال لكى نستطيع المساعدة ومرفق مثال تفقيط الارقام فى الاكسس.accdb