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

تفضل هل هذا ما تريد بالتوفيق 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

هذا صحيح

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

نعم يوجد فى المنتدى تفضل

مشاركة مع أستاذى @Foksh تفضل test1.rar

تفضل من موضوع سابق بالتوفيق جلب البيانات من الرقم القمي ابو جودي.rar

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

لم يضف تنسيق للتاريخ لقد وجدت حل DoCmd.RunSQL "SELECT Max(main1115.[datex]) AS [datex] INTO main1116 FROM main1115;" ' إضافة تنسيق لحقل التاريخ في الجدول الجديد Dim db As DAO.Database Dim prop As DAO.Property Set db = CurrentDb Set prop = db.TableDefs("main1116").Fields("[datex]").CreateProperty("Format", dbText, "yyyy/mm/dd") db.TableDefs("main1116").Fields("[datex]").Properties.Append prop مع انى قد شاهدت الامر فى سطر واحد فى احد مشاركات أستاذ AbuuAhmed تحديث DoCmd.RunSQL "SELECT Max(main1115.[datex]) AS [datex] INTO main1116 FROM main1115;" CurrentDb.TableDefs("main1116").Fields("datex").Properties.Append CurrentDb.TableDefs("main1116").CreateProperty("Format", dbText, "yyyy/mm/dd") سأترك الموضوع مفتوحا لبعض الوقت اذا كان هناك تحديث أخر

تمام عاوزين جدول main1116 حقل datex يبقى تنسيق yyyy/mm/dd برمجيا لتلافى الاخطاء او ابقاء حقل main1116 موجود دائما وعمل استعلام تحديث لاضافة اخر تاريخ من main1115

فى هذا المثال أعمل استعلام تكوين اخر تاريخ و النتيجة فى جدول جديد أريد اضافة التنسيق فى حقل التاريخ فى الجدول الجديد yyyy/mm/dd وجزاكم الله كل خير last datex.mdb

ضيف فى الكود الاول On Error Resume Next

تفضل بالتوفيق Dim db As DAO.Database Dim rst As DAO.Recordset Set db = CurrentDb Set rst = Me.RecordsetClone rst.MoveFirst Do Until rst.EOF If rst!ymd = Me.ymd Then MsgBox "تاريخ الغياب مكرر" Cancel = True Exit Do End If rst.MoveNext Loop rst.Close db.Close If rst.EOF Then MsgBox "لا يوجد سجلات" End If

يمكن ضغطه باى برنامج صغط Winrar 7-zip او رفعه على موقع mediafire

بعد اذن أستاذى @Foksh يجب شرح ما تريد بالضبط Database11 (1).accdb