اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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

الخبراء
  • Posts

    1931
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    2

كل منشورات العضو محمد احمد لطفى

  1. تفضل هل هذا ما تريد INSERT INTO tbmor ( [or] ) SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr; mor.accdb
  2. من الخصائص اجعل منبثق = نعم و فى حدث عند الفتح DoCmd.Maximize بالتوفيق
  3. تفضل اذا كان هناك مشكلة ارفق مثال Color.mdb
  4. هل حقل total_arabic_nesf1 فيه قيمة غ
  5. جرب بالتوفيق caler_arabic: IIf([total_arabic_nesf1]>=85, "أزرق", IIf([total_arabic_nesf1]>=65, "أخضر", IIf([total_arabic_nesf1]>=50, "أصفر", IIf([total_arabic_nesf1]>=1, "أحمر", IIf([total_arabic_nesf1]="غ", "غ", "")))))
  6. فقط قم باخفاء المربع الاصلى الصفر في التقرير.mdb
  7. تفضل هل هذا ما تريد 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
  8. تفضل بالتوفيق If me.aa = 1 Then DoCmd.OpenForm "bb" Else MsgBox "يجب كتابة رقم صحيح" End If
  9. تفضل هل هذا ما تريد Database5.accdb
  10. تفضل حسب ما فهمت هناك طريقتان فى الوحدة النمطية اختر ما يناسبك qtest-1.accdb
  11. اجعل التقرير منبثق نعم و عند حدث عند فتح التقرير قم باضافة DoCmd.Maximize بالتوفيق
  12. @شامل2 وفقك الله وزادك علما ومعرفة @gamal gamal تمنياتى لك وللجميع بالتوفيق @kkhalifa1960 بارك الله فيك استاذى و نتعلم منكم
  13. اسعدك الله وبارك فيك وفى علمكم جزاك الله خيرا على شعوركم الطيب بارك الله فيك اخى واستاذى و نتعلم منكم الله يبارك فى حضرتك الله يبارك فى حضرتك الله يبارك فى حضرتك أستاذى شايب و نتعلم منكم
  14. أستاذى @ابوخليل بارك الله فيك و مازلت تلميذاً وفقك الله وزادك علما ومعرفة بارك الله فيك ووفقك لما يحبه ويرضاه
  15. أساتذتي الكرام، ربنا يبارك فيكم و يحفظكم ما زلت تلميذًا وما زلتُ أتعلم
  16. تفضلى من صفحة كتابة الأكواد من الوحدة النمطية او النموذج
  17. تفضل بالتوفيق استعلام تحديث 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
  18. لا تأثر الفرق اعدادات اللغة فى الجهاز
  19. تفضل وأنصحك بالابتعاد عن تسمية رؤوس العواميد بالعربى IIf([نوع الحركة]="سند قبض مورد";[نوع الحركة];0) سند.mdb
  20. تفضل بالتوفيق 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
  21. أستاذ @Foksh 😁 أرى أن تحذف أفضل اجابة حتى تصل للمطلوب تفضل هذا الامر تم تجربته على أوفيس 2020 و للأسف ليس عندى اوفيس 2010 Second.accdb
  22. تفضل وجدت هذا الامر بالتوفيق Second.accdb
×
×
  • اضف...

Important Information