ابو البشر

معليش من اي ناحية الواتس متخلف رغم ان الواتس يقوم بارسال رسائل سواءا عادية او مرفقات بانواعها جميعا ...

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

كيف يتم فقده وهو مسجل في جدول ؟؟؟

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

مشاركة مع استاذي كانوري

لأن مربع النص الخاص بالسعر غير مرتبط بجدول الحفظ وانما مرتبط بجدول الاصناف

انقل العناوين كما في الصورة من رأس الصفحة الى رأس التقرير .... انظر ....

مع العلم ان طريقتك لم اقتنع بها لان البيانات اساسا تخزن دون الحاجة الى الضغط على حفظ ..... لكن تفضل ملفك .... supertest.accdb

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

اذن بارك الله فيك عدل افضل اجابة

جرب هذا ....... source.rar

هل جربت الكود يا اخ محمد ليس الجميع بل يقوم بتحديث الحقل حسب رقم البيان في الجدول tag1 تمع في الكود

زيادة في الاثراء ... انظر هنا

شكرا جزيلا لكما .... كتب الله اجركما ....

اشكرك اخي الكريم .... بارك الله فيك ...

الطريقة هذه جربتها من قبل .... ولغيت العمل بها لانها تظهر المتصفح امام المستخدم ... جزاك الله خيرا .... وايضا هذه الطريقة تظهرها ... غير مرغوب فيها .... Dim IEE As Object Set IEE = CreateObject("InternetExplorer.Application") 'Create object IEE IEE.navigate "https://wa.me/" & txtNumbers

ظهرت هذه الرسالة .....

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

اشكرك على الرد ...... بارك الله فيك لكن يفتح لي متصفح الاكسبلورر .... المفروض يفتح موقع الواتس

كيف يتم التطبيق على هذا الارتباط ...... ABO.mdb

كما هو واضح من السؤال كيف يمكن ايقاف هذه الرسالة ؟؟؟ بارك الله فيكم ....

جرب استخدم هذا ....................... Function ClearClipboardData_clt() As Boolean On Error GoTo err_ClearClipboardData_clt Dim lngTemp As Long ' If clt_OpenClipboard(0&) <> 0 Then ' lngTemp = clt_EmptyClipBoard() ' lngTemp = clt_CloseClipboard() ' End If ClearClipboardData_clt = True exit_ClearClipboardData_clt: Exit Function err_ClearClipboardData_clt: ClearClipboardData_clt = False Resume exit_ClearClipboardData_clt End Function

جرب الملف .... 1.rar

اصنع مثل هذا افضل للمستخدم .....