مصطفى العراقي1

عاشت ايدك اخي هسه تمام شكراً جزيلاً

السلام عليكم رمضان مبارك عليكم وتقبل الله اعمالكم اخواني الاعزاء استخدام هذا الكود لارسال رسائل عن طريق اكسس الى الواتساب Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "whatsapp://send?phone=" & txtNumber & "&text=" & txtMsg Sleep 2000 SendKeys "~" SendKeys "{NUMLOCK}", True Set IE = Nothing الكود يقوم بفتح الواتساب بشكل مباشر دون الرجوع الى متصفح الكروم ولكن يواجهني مشكلة اثناء فتج تطبيق الواتساب وهو انه بعد تنفيذ الكود يقوم بفتح برنامج الواتساب ولكن يبقى برنامج الواتساب معلق في شريط المهام ، وعندما اقوم بتصغير الواتساب يقوم بتطبيق الكود بشكل طبيعي واداناه فيديو يوضح المشكلة مرفق ملف الاكسس اذا امكن حل لهذا المشكلة مع جزيل الشكر لكم . Database1.accdb

شكراً جزيلاً اخي ناقل نجخ الامر 🤗

السلام عليكم ورحمة الله وبركاته .. اخواني الأعزاء اذا امكن تعديل هذا الكود للنسخ الاحتياطي لقاعدة بيانات خارجية بحيث يكون اختيار مسار قاعدة البيانات و مسار حفظ النسخ الاحتياطي من خلال مربع النص التي في النموذج الكود المستخدم للنسخ الاحتياطي هو الاتي: Dim DBOld As String Dim DBNew As String Private Sub Form_Load() DBOld = " اختيار المسار الموجود في حقل txtTAB1 " 'اختيار قاعدة بيانات الجداول DBNew = " اختيار المسار الموجود في حقل txtPathToExport " 'اختيار مكان حفظ النسخة End Sub Private Sub ex_Click() Shell "cmd.exe /C copy " & """" & DBOld & """" & " " & """" & DBNew & "\" & "DATA.accdb" & """", 0 DoCmd.Quit End Sub مرفق قاعدة البيانات مع جزيل الشكر لكم 🤗 Database8.accdb

Cap Mohammed استخدم هذا الكود لاستاذ جعفر فهو يعمل بشكل صحيح .

ضع PtrSafe قبل كلمة Function وسوف يحل المشكلة

السلام عليكم اخ محمد هل يمكن تعديل الكود وجعل مسار حفظ الباك اب في كوكل درايف على المجلد ( G:\My Drive ) بدون نقل مجلد البرنامج الرئيسي الى كوكل درايف ؟

شكراً استاذ عبداللطيف .

السلام عليكم اعمل على برنامج لإدارة ديون الزبائن وأريد عمل تنبيه وإظهار الزبائن الذين يتجاوز ديونهم حد معين ( يحدد من قبلي ) في نموذج 1 قمت بمحاولات عديدة ولكن لم اصل الى النتيجة فأرجوا المساعدة مع جزيل الشكر لكم. ديون1.rar