kanory

🤐

ابحث عن السطر الموجود في الصورة واوقف عمله بوضع الفاصلة كما في الصورة ثم شغل البرنامج وارسل رسالة البريد ثم اذهب الى المجلد الموجود بجوار البرنامج والمسمى بالشهادات هل فيها ملف 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

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

بعد اذن أخي الكريم @ابو البشر اسمح لي ان اقتنص شكل نموذجك المقترح واكمل عليه المطلوب ...... ملاحظة :::: - يجب تنصيب اخر نسخة من الواتس في الجهاز - يجب تفعيل الامان في بريدك الخاص بالجي ميل - يجب الضغط على الضبط اول مرة فقط لتسجيل بريدك في الجي ميل والباس بعد تفعيل الامان فيه - يجب اولا لارسال رسائل الواتس تشغيل برنامج الواتس ثم الضغط على زر ارسال رسائل الواتس جرب واعلمنا بالنتيجة ............................ مجلد جديد (3).rar

ابسط طريقة هو عمل استعلام تحديث اذا لم تعرف تطبقها ضع مثال مبسط للتنفيذ

ما شاء الله تبارك الله جاري التجربة .... ولكن هل يمكن توسيط بيانات هذا الحقل المدمج . ؟؟؟؟

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

اقرأ هنا <><><><><><><><>

وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @TQTHAMI

انشأ وحدة نمطية وضع فيها هذا الكود .............. Public Sub CreateDesktopShortcutWithIcon() Dim WshShell As Object Set WshShell = CreateObject("Wscript.Shell") Dim strDesktop As String strDesktop = WshShell.SpecialFolders("Desktop") Dim oShellLink As Object Dim fil, fil1 As String Set oShellLink = WshShell.CreateShortcut(strDesktop & "\" & DLookup("[nsh]", "[tblsho]") & ".lnk") oShellLink.TargetPath = CurrentProject.Path & "\" & CurrentProject.Name oShellLink.WindowStyle = 1 oShellLink.IconLocation = DLookup("[pc]", "[tblsho]") oShellLink.Description = DLookup("[nsh]", "[tblsho]") oShellLink.WorkingDirectory = strDesktop oShellLink.Save End Sub تحت الزر الموجود في النموذج ضع هذا الاستدعاء ............. Call CreateDesktopShortcutWithIcon جرب وأعلمنا بالنتيجة <<<<<>>>>>>

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

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

طيب جرب كده ........................... Database31.rar

هل جميع البيانات بهذه الصيغة أم تختلف ................

العفو منك دكتورنا @الحلبي الحبيب منكم نتعلم بارك الله فيك

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

او استخدم IF في حدث عند التحديث لمربع النص ..... If Me.m1.Column(1) = "رقم فاتورة الشراء" Then Me.m2.RowSource = "SELECT master.masterinvoice FROM master;" ElseIf Me.m1.Column(1) = "اسم المورد" Then Me.m2.RowSource = "SELECT master.countname FROM master;" ElseIf Me.m1.Column(1) = "اسم الصنف" Then Me.m2.RowSource = "SELECT master.categoryname FROM master;" ElseIf Me.m1.Column(1) = "كود الصنف" Then Me.m2.RowSource = "SELECT master.catcod FROM master;" End If