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

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

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

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

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

تفضل بالتوفيق استعلام تحديث 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

تم اضافة تنسيق التاريخ update invoices.rar

مشاركة مع معلمى @kkhalifa1960 update invoices.rar

تفضل جرب بالتوفيق Shell "cmd /c start """" """ & CurrentProject.Path & "\" & Me.id & ".pdf""", vbNormalFocus

اسف تفضل Word (1) (1).accdb

تفضل بالتوفيق Word (1).accdb

مشاركة مع أستاذى @Foksh MsgBox "Number Of Words: " & IIf(Len(Trim(Me.Text1)) = 0, 0, UBound(Split(Trim(Me.Text1), " ")) + 1) Or MsgBox UBound(Split(Trim(Me.Text1), " ")) + 1