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

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

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

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

هذا صحيح

واتساب ويب يجب ان تكون الارقام مسجلة لديك و ان تكون مسجلة ايضا فى الواتس حتى لا يتوقف البرنامج