kanory

ما شاء الله تبارك الله استاذي الحبيب @مبرمج متقاعد ثري دائما ... احيانا يحتاج الواحد يخرج من الصندوق لكي يفكر ... احسنت

كلامك عام وايضا الكود عام ...ز تفضل ..... 'starnet(http://www.accesswordkingdome.com/) sourcedb = "D:\sterile_dep\pre_db\Main_program.accdb" targetdb = "D:\sterile_dep\Main_program.accde" Dim accessApplication As Access.Application Set accessApplication = New Access.Application With accessApplication .SysCmd 603, sourcedb, targetdb End With Set accessApplication = Nothing DoCmd.Close acForm, "makeAccde" DoCmd.Quit

بالنسبة للتسلسل نحتاج رقم وليس نص جرب الان واخبرنا ...................... الموردين4 (1).accdb

طيب :::: اضفنا حقل في الجدول id_id وذلك لضمان تسلسل السجلات بالجدول .... جرب المرفق واعلمنا .... الموردين4.accdb

تقصد بهذه الصورة .....

حياك الله اخي الحبيب @ابوبسمله جزاك الله خيرا

اقرا هذ الموضوع وغيره من موضوعات

(إنَّا للهِ وإنَّا إليه راجعونَ) اللهم ارحمه. (اللَّهمَّ اغفِرْ له وارحَمْه واعفُ عنه وأكرِمْ منزلَه وأوسِعْ مُدخَلَه واغسِلْه بالماءِ والثَّلجِ والبَردِ ونقِّه مِن الخطايا كما يُنقَّى الثوبُ الأبيضُ مِن الدَّنسِ لِلَّهِ ما أخَذَ وله ما أعْطَى، وكُلُّ شيءٍ عِنْدَهُ بأَجَلٍ مُسَمًّى، فَمُرْهَا فَلْتَصْبِرْ ولْتَحْتَسِبْ

اخي الكريم هل النماذج كانت فيها اكواد وعناصر .... لانها تبدو فارغة من الاكواد ؟؟

انا مثلك لم اسمع بها ............... بالرغم ان النسخة الموجودة لدي لنفس البرنامج واحدث انظر ....

أخي نصيحة أن تجعل لكل عمل تقوم به اكثر من نسخة احتياطية تحسبا لمثل هذا الطارئ .... كان الله في عونك

جرب هذا ..... If Me.تم_الدفع = True Then MsgBox "تم السداد" DoCmd.RunCommand acCmdSaveRecord Else DoCmd.RunCommand acCmdSaveRecord End If

لا حول ولا قوة الا بالله أخي الكريم للاسف الملف معطوب أنظر الملف بع الاصلاح ......... Mahdi'sBell (AccessFIX).rar

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

🤐

ابحث عن السطر الموجود في الصورة واوقف عمله بوضع الفاصلة كما في الصورة ثم شغل البرنامج وارسل رسالة البريد ثم اذهب الى المجلد الموجود بجوار البرنامج والمسمى بالشهادات هل فيها ملف PDF ؟؟؟

واضح من الصورة ان برنامج الواتس لديك قديم انظر لدي ؟؟؟؟؟

امين واياك ... هل فكيت الضغط عند الملف والمجلد ....

عادة مفاتيح الدول ثلاث ارقام معليش اي دولة انت ... الدولة مصر صحيح اذن 022 مع حذف الصفر الموجود في الرقم

هل مفتاح الدولة لديك هو 201 اذا كان نعم احذف الصف الذي على اليسار انظر صورة من جهازي بعد الارسال ...

هل صيغة الرقم مكتوب بهذا الشكل 966555555555 وبدون الصفر

للاسف ميكروسوفت لم تهتم كثيرا بمحرر الاوفيس باضافة اوامر حسب متطلبات العصر وكن نتوقع منها ذلك لكن .... واعتقد هي سخرت امكاناتها لتطوير لغات اخرى لديها

اخي @ابو فتحى هل برنامج Adobe Acrobat Reader منصب لديك في الكمبيوتر .......... ؟؟؟؟ بالنسبة لأولا بسيطة هذه ... بالنسبة لثانيا :::: هل فتح برنامج الواتس قبل الارسال ؟؟؟ اذا كانت الاجابة نعم حاول مرة اخرى ولكن بعد الضغط على الارسال مباشرة اجعل شاشة الواتس هي الظاهرة على الشاشة .... واعلمني بالنتيجة

استدل السطر كاملا بهذا .................. #If VBA7 Then Private Declare PtrSafe Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #Else Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long #End If

تابع الموضوع اعلاه .............