اذهب الي المحتوي
أوفيسنا

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

الخبراء
  • Posts

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

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

  • Days Won

    2

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

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

Important Information