اذهب الي المحتوي
أوفيسنا

kanory

الخبراء
  • Posts

    2331
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    138

كل منشورات العضو kanory

  1. عادة مفاتيح الدول ثلاث ارقام معليش اي دولة انت ... الدولة مصر صحيح اذن 022 مع حذف الصفر الموجود في الرقم
  2. هل مفتاح الدولة لديك هو 201 اذا كان نعم احذف الصف الذي على اليسار انظر صورة من جهازي بعد الارسال ...
  3. هل صيغة الرقم مكتوب بهذا الشكل 966555555555 وبدون الصفر
  4. للاسف ميكروسوفت لم تهتم كثيرا بمحرر الاوفيس باضافة اوامر حسب متطلبات العصر وكن نتوقع منها ذلك لكن .... واعتقد هي سخرت امكاناتها لتطوير لغات اخرى لديها
  5. اخي @ابو فتحى هل برنامج Adobe Acrobat Reader منصب لديك في الكمبيوتر .......... ؟؟؟؟ بالنسبة لأولا بسيطة هذه ... بالنسبة لثانيا :::: هل فتح برنامج الواتس قبل الارسال ؟؟؟ اذا كانت الاجابة نعم حاول مرة اخرى ولكن بعد الضغط على الارسال مباشرة اجعل شاشة الواتس هي الظاهرة على الشاشة .... واعلمني بالنتيجة
  6. استدل السطر كاملا بهذا .................. #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
  7. تابع الموضوع اعلاه .............
  8. بعد اذن أخي الكريم @ابو البشر اسمح لي ان اقتنص شكل نموذجك المقترح واكمل عليه المطلوب ...... ملاحظة :::: - يجب تنصيب اخر نسخة من الواتس في الجهاز - يجب تفعيل الامان في بريدك الخاص بالجي ميل - يجب الضغط على الضبط اول مرة فقط لتسجيل بريدك في الجي ميل والباس بعد تفعيل الامان فيه - يجب اولا لارسال رسائل الواتس تشغيل برنامج الواتس ثم الضغط على زر ارسال رسائل الواتس جرب واعلمنا بالنتيجة ............................ مجلد جديد (3).rar
  9. ابسط طريقة هو عمل استعلام تحديث اذا لم تعرف تطبقها ضع مثال مبسط للتنفيذ
  10. ما شاء الله تبارك الله جاري التجربة .... ولكن هل يمكن توسيط بيانات هذا الحقل المدمج . ؟؟؟؟
  11. هههههه .... ابد بعض ما عندكم سيدي جعفر ..... فقط شويت تذكر لبعض المواضيع الموجودة في المنتدى وعملية البحث عنها ...
  12. اقرأ هنا <><><><><><><><>
  13. وعليكم السلام ورحمة الله وبركاته ولك بمثل مادعوت اخي @TQTHAMI
  14. انشأ وحدة نمطية وضع فيها هذا الكود .............. 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 جرب وأعلمنا بالنتيجة <<<<<>>>>>>
  15. اخي حمدي وعليكم السلام ورحمة الله وبركاته من المعروف أن مثل هذه الشركات تقوم بتحديث برمجها باستمرار لذلك بعض المواضيع الموجودة في المنتدى تحتاج تعديل بعض الاكواد فيها لكي تتلائم مع تحديث البرنامج الخاص بالواتس والله اعلم ..............
  16. وعليكم السلام ورحمة الله وبركاته اهلا بك مالك استخدم خاصية البحث تجد العديد من الموضوعات ذات الصلة ... وان لم تجد ما تحتاجه ارفق مثالك مع التوضيح للمطلوب
  17. طيب جرب كده ........................... Database31.rar
  18. هل جميع البيانات بهذه الصيغة أم تختلف ................
  19. العفو منك دكتورنا @الحلبي الحبيب منكم نتعلم بارك الله فيك
  20. طيب من مبدأ علمني كيف اصطاد .............. اخي الكريم جملة select في غالبها هي استعلام .... اذن انسخ الجملة ثم اضفها في محرر الاستعلام وعدل كما في الصور ........
  21. او استخدم 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
  22. وعليكم السلام ورحمة الله وبركاته .... استخدم مثلا Select Case Me.m1.Column(1)
  23. استخدم هذا لمصدر عتصر التحكم لمربعات النص الثلاث مع تعديل العبارة حاضر الى غائب و متأخر ....... للحضور =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='حاضر' ") للغياب =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='غائب' ") للتأخر =DCount("[a1]";"[استعلام1]";"[name1] ='" & [Forms]![الرئيسي]![name1] & "' And [a1] ='متأخر' ")
  24. في مربع النص numboerx في حدث بعد التحديث استخدم هذا الكود ............................ Dim D As Object Dim x As Integer Set D = CurrentDb.OpenRecordset("q1") x = Me.Numberx DoCmd.RunCommand acCmdSaveRecord With D Do While Not (.EOF) .Edit .Numberx = x .Update x = x + 1 .MoveNext Loop End With Set D = Nothing
  25. وعليكم السلام .... يمكن عمل برنامج التجميع بشرط تماثل الجداول و عدم وجود مفتاح في جداول برنامج التجميع .... والله اعلم ...
×
×
  • اضف...

Important Information