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

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

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,898

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

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

  • Days Won

    2

Community Answers

  1. محمد احمد لطفى
    محمد احمد لطفى's post in طلب كود رفع ملفات pdf & الصور داخل مجلد معين was marked as the answer   
    تفضل هل هذا ما تريد بالتوفيق
     
    جديد.accdb
  2. محمد احمد لطفى
    محمد احمد لطفى's post in مساعدة في تصميم استعلام was marked as the answer   
    تفضل هل هذا ما تريد 

     
    INSERT INTO tbmor ( [or] ) SELECT [tbmr.mr] & "-" & [tbmo.mo] AS 123 FROM tbmo, tbmr; mor.accdb
  3. محمد احمد لطفى
    محمد احمد لطفى's post in تصحيح معادلة شرطية was marked as the answer   
    تفضل اذا كان هناك مشكلة ارفق مثال
    Color.mdb
  4. محمد احمد لطفى
    محمد احمد لطفى's post in مساعدة في تحويل نص الى رقم was marked as the answer   
    تفضل 

     
    qtest-1.accdb
  5. محمد احمد لطفى
    محمد احمد لطفى's post in مساعدة في حذف جزء من النص was marked as the answer   
    تفضل بالتوفيق 
    استعلام تحديث
    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
  6. محمد احمد لطفى
    محمد احمد لطفى's post in المساعدة في خطأ في معادلة was marked as the answer   
    تفضل 
    وأنصحك بالابتعاد عن تسمية رؤوس العواميد بالعربى

     
    IIf([نوع الحركة]="سند قبض مورد";[نوع الحركة];0) سند.mdb
  7. محمد احمد لطفى
    محمد احمد لطفى's post in مساعدة في حذف سجلات بشرط was marked as the answer   
    تفضل بالتوفيق 
     
    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
  8. محمد احمد لطفى
    محمد احمد لطفى's post in جلب معلومات ملف صوتي was marked as the answer   
    تفضل وجدت هذا الامر بالتوفيق
     
    Second.accdb
  9. محمد احمد لطفى
    محمد احمد لطفى's post in اخراج النسبة المئوية was marked as the answer   
    تفضل 

     
    999.accdb
  10. محمد احمد لطفى
    محمد احمد لطفى's post in جعل قيمة x في نص رسالة = قيمة حقل آخر was marked as the answer   
    تفضل 

    و اذا كانت الاجابة صحيحة اختار افضل اجابة لغلق الموضوع 
    جدول.accdb استعلام.accdb
  11. محمد احمد لطفى
    محمد احمد لطفى's post in عدد الكلمات was marked as the answer   
    اسف تفضل

     
    Word (1) (1).accdb
  12. محمد احمد لطفى
    محمد احمد لطفى's post in كود منع التكرار ... ورسالة خطأ was marked as the answer   
    ضيف فى الكود الاول 
    On Error Resume Next
  13. محمد احمد لطفى
    محمد احمد لطفى's post in ايجاد القيمة السالبة في الجدول وعمل تقرير was marked as the answer   
    بعد اذن أستاذى @Foksh

    يجب شرح ما تريد بالضبط  
    Database11 (1).accdb
  14. محمد احمد لطفى
    محمد احمد لطفى's post in تغيير تنسيق التاريخ القصير للحاسوب ويندوز 10 من اكسس عن طريق vba was marked as the answer   
    تفضل بالتوفيق

     غير التنسيق زى ما حضرتك عاوز


     
    yyyymmdd.accdb
  15. محمد احمد لطفى
    محمد احمد لطفى's post in استعلام تغيير و تحديث من خلال جدول ( 2 ) was marked as the answer   
    استاذى @kanory

    بفضل الله ثم بفضل حضرتك وجدت الحل عن طريق ثلاثة استعلامات تحديث

    1 - تم تحديث النشاط مباشرة بدالة FnSearch بعد أن تم تغييرها الى likeA و ليس likeB اى ما سيتم نقله هو likeA . 

    2 - تم مسح النشاط من حقل namex
                        
    Replace([TableX].[NameX],[LikeA],"""");" 3 - تم تحديث النشاط  الى LikeB

    اذا كان هناك شيىء خاطىء أو لم انتبه اليه يرجى اعلامى 


                                                                                                               وجزاكم الله كل خير  

    قد لمعت عيناه
     
    Replace&add Final.mdb
  16. محمد احمد لطفى
    محمد احمد لطفى's post in عند إخفاء مكونات قاعدة البيانات يظهر خطأ برمجي was marked as the answer   
    تفضل

    هل هذا ما تريد

     
    55.accdb
  17. محمد احمد لطفى
    محمد احمد لطفى's post in طريقه اجبار المستخدم ادخال الاسم ثلاثى بناء على اختيار من جدول الاعدادات نفس الكلام عدم ترك حقل التليفون فارغا was marked as the answer   
    ده بالنسبة للموبايل 
     
    If DLookup("[mobile]", "[settings_general_tbl]", "-1") Then else End If If DLookup("[full_name]", "[settings_general_tbl]", "-1") Then else End If

    غير موبايل باى حقل تانى و اكتبى الشروط الى حضرتك عاوزها هل هذا هو المطلوب
  18. محمد احمد لطفى
    محمد احمد لطفى's post in التأكد من أن اخر تاريخ لملف على الشبكة يطابق اخر تاريخ لملف العمل was marked as the answer   
    شكراُ أستاذ @Moosak

    توصلت الى حل كل ما كنت أريده ان يتم التحديث بطريقة ألية بدون التدخل من احد حيث أقوم بتحديث بعض الجداول فقط


     
    Dim strSQL As String, dbLocal As DAO.Database, dbExternal As DAO.Database, maxDateLocal As Date, maxDateExternal As Date ' افتح قاعدة البيانات المحلية Set dbLocal = CurrentDb() ' احصل على أقصى تاريخ للجدول المحلي maxDateLocal = dbLocal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value ' افتح قاعدة البيانات الخارجية Set dbExternal = OpenDatabase("\\10.12.20.125\Updatedata\البحث.accdb") ' احصل على أقصى تاريخ للجدول الخارجي maxDateExternal = dbExternal.OpenRecordset("SELECT MAX(datex) AS MaxDate FROM main1115").Fields("MaxDate").Value ' أغلق قاعدة البيانات الخارجية dbExternal.Close ' قارن بين القيمتين واتخذ الإجراء المناسب If maxDateLocal <> maxDateExternal Then ' غير متطابقين Call Update End If
    وجارى مشاهدة الملف المرفق


  19. محمد احمد لطفى
    محمد احمد لطفى's post in رسالة تنبيه was marked as the answer   
    تفضلى بالتوفيق

     
    Private Sub Command0_Click() ' زر "Yes" - للطباعة Dim response As VbMsgBoxResult Dim patientName As String ' احصل على اسم المريض من النموذج patientName = Me![اسم_المريض] ' قم بعرض رسالة التأكيد مع اسم المريض response = MsgBox("هل تريد طباعة التقرير للمريض: " & patientName & "؟", vbYesNoCancel + vbQuestion, "تأكيد") Select Case response Case vbYes ' طباعة التقرير DoCmd.OpenReport "اسم_التقرير", acViewNormal Case vbNo ' معاينة التقرير DoCmd.OpenReport "اسم_التقرير", acViewPreview Case vbCancel ' إلغاء العملية MsgBox "تم إلغاء العملية.", vbInformation, "إلغاء" End Select End Sub  
  20. محمد احمد لطفى
    محمد احمد لطفى's post in عايزه طريقة البحث باستخدام مربع نص لعمل فلتره فى ليست بوكس ثم اختيار اى عنصر لاسترجاع بياناته was marked as the answer   
    تفضلى بالتوفيق
    أو 
     
    DoCmd.FindRecord Me![test_list].Column(1), , , , , acCurrent lab.rar
  21. محمد احمد لطفى
    محمد احمد لطفى's post in تغيير قيمة حقل في تقرير بناء على قيمة حقل آخر was marked as the answer   
    تفضل 
     
    BASEZ.accdb
  22. محمد احمد لطفى
    محمد احمد لطفى's post in تغير اسم الحقل بناء على حقل أخر was marked as the answer   
    تم الحل و الخطأ من عندى و تم التصحيح 
    test2023.rar
  23. محمد احمد لطفى
    محمد احمد لطفى's post in نقل صورة من مكان الى مكان "JPEG" و "PNG" و ".jpg" was marked as the answer   
    تم حل المشكلة جزاكم الله خيراُ 

     
    If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & [id] & ".*") <> "" Then Kill (CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & [id] & ".*") Me!imgPicture.Requery End If If Dir(CurrentProject.Path & "\download\" & [id] & ".*", vbDirectory) <> "" Then If Dir(CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\", vbDirectory) <> "" Then Else MkDir CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" End If Dim Mypath As String Mypath = FileName6(CurrentProject.Path & "\Download\", Me.id) Dim oldpathANDname As String, newpathANDname As String oldpathANDname = CurrentProject.Path & "\download\" & [id] & "." & Right([mypath], Len([mypath]) - InStrRev([mypath], ".")) newpathANDname = CurrentProject.Path & "\12 3\" & Left([Worker], 1) & "-file\" & Me.id & ".jpg" Name oldpathANDname As newpathANDname Me!imgPicture.Requery End If  
  24. محمد احمد لطفى
    محمد احمد لطفى's post in كيف افتح نموذج عن طريق قائمة تحرير وسرد؟! was marked as the answer   
    تفضل هل هذا ما تريد بالتوفيق

     
    قاعدة تجربة.accdb
  25. محمد احمد لطفى
    محمد احمد لطفى's post in كود استيراد جدول من قاعدة بيانات was marked as the answer   
    طيب جرب

     
    DoCmd.DeleteObject acTable, "data" DoCmd.TransferDatabase acImport, "Microsoft Access", _ "C\Updatedata\ser.mdb", acTable, "data", "data", False بالتوفيق كل عام و أنتم بخير
×
×
  • اضف...

Important Information

  I accept