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

ضع مثال لكى نستطيع المساعدة ومرفق مثال تفقيط الارقام فى الاكسس.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

تفضل بالتوفيق غير التنسيق زى ما حضرتك عاوز yyyymmdd.accdb

تفضل بالتوفيق Sub ChangeSystemDateFormat() ' تحديد التنسيق الجديد الذي تريده Dim newDateFormat As String newDateFormat = "dd/MM/yyyy" ' يمكنك تغيير هذا الجزء حسب التنسيق الذي تريده ' تشغيل أمر PowerShell لتغيير تنسيق التاريخ Dim powerShellCommand As String powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US""" Shell powerShellCommand, vbNormalFocus ' رسالة تأكيد MsgBox "تم تغيير تنسيق التاريخ على الحاسوب بنجاح!" ' اعد النظام إلى التنسيق الأصلي (اختياري) ' يمكنك استخدام نفس الأمر مع التنسيق الأصلي الذي تريده ' Dim originalDateFormat As String ' originalDateFormat = "التنسيق الأصلي" ' powerShellCommand = "powershell -Command ""Set-Culture -CultureInfo en-US; Set-WinSystemLocale -SystemLocale en-US""" ' Shell powerShellCommand, vbNormalFocus End Sub

تفضل هل هذا ما تريد 55.accdb