Moosak

@ابوخليل نعم الملف لا يفتح في الإصدارات 64 بت .. 🙂

أنظر هنا 🙂 :

وعليكم السلام ورحمة الله وبركاته أخي رضوان 🙂 على نهج مصمم البرنامج كتبت لك دالة ترجع لك رقم المستوى للمستخدم الحالي : يمكنك من خلالها تحديد ما هي الأوامر التي تريد أن تعطيها للبرنامج بناءا على مستوى المستخدم الحالي .. مثال : PasswordLogin_RC4_v5.6 (1).accdb

تفضل 🙂 DLookUp("[المسافة]";"[Table1]";"[city1] ='"& [Forms]![Form1]![city1] &"' And [city2] ='"& [Forms]![Form1]![city2] &"' ") test.rar

وعليكم السلام ورحمة الله وبركاته 🙂 أخي @ابو فتحى .. أرفق الكود الذي تستخدمة للإرسال ..

أحسنت وبارك الله فيك باش مهندس @أ / محمد صالح .. 🌹😊 إضافة جميلة جدا للموضوع والمنتدى .. جعلها الله شفيعة لك يوم الحساب 🙂 مقترح : هل يمكن ضم المشاركات في البحث ؟ لأن الكثير من العناوين لا تدل على محتواها .. والمشاركات تحتوي على الكثير من الدرر وأغلب الفوائد موجودة فيها .

وعليكم السلام ورحمة الله الله وبركاته 🙂 باستخدام دالة Sleep نفسها المستخدمة للإنتظار في كود الواتسأب ضع هذه الأسطر من ضمن كود الإرسال لديك ( يفضل أن يكون تحت جملة For مباشرة ) : Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If وهذا مثال للتجربة : Sub SendToWhatsApp() Dim x As Integer For x = 1 To 50 Dim W As Long ' المتغير يعد الأشخاص الذين تم الإرسال لهم If W = 10 Then ' حدد عدد الذين تريد الإنتظار بعدهم Debug.Print "================================(إنتظار)" Sleep 15000 ' مدة الإنتظار (كل ألف يساوي ثانية) W = 1 Else W = W + 1 End If ' هنا كود إرسال الواتسأب Debug.Print "جار الإرسال للمستخدم رقم: ", x Sleep 500 DoEvents Next x End Sub والنتيجة :

شكر لك أخي @عبد اللطيف سلوم 🙂

والثالثة : أن تضيف حقل من نوع (نعم/لا) وتجعل هذا السجل (نعم) وتستثنيه من الحذف عند التفريغ .. 🙂

شكر لك أخي @kanory بالفعل هناك تحديث قادم بإذن الله 🙂 .. وهذه صورة تشويقية .. وسأذكر المميزات الجديدة في حينها إن شاء الله ..😊 وربما يصعب إدراج النماذج الفرعية هنا لأن المكان صاير زحمة 😅🖐🏼️

وعليكم السلام ورحة الله وبركاته 🙂 1- أكمل الدالة .. لأنك حاط اسم العميل في النموذج الفرعي ستظهر لك أسماء النماذج الفرعية فقط .. اختر اسم النموذج الفرعي 2 - يجب إضافة هذا السطر يدويا لكي يتم الوصول لحقل رقم العميل . 3- إضغط على زر فحص التعديلات ( يجب أن يكون النموذج مفتوح لترى النتيجة مباشرة ) 4- هنا ستظهر النتيجة الدالة كاملة حسب المعطيات (نفس اللتي في الصورة) : DSum("[المتحصل من العميل]","[customer account sub dollar]","[اسم العميل] ='"& [Forms]![customer_account_$22]![customer_account_main $].FORM![Customer_Name] &"'")

أخي عمر جرب تنزيل هذا التطبيق في هاتفك الأندرويد .. يقوم بنفس العمل 🙂 https://play.google.com/store/apps/details?id=com.poe.android&pli=1

لا .. للأسف ..

يعمل بكفاءة 👍🏼🙂

افتح البرنامج بالضغط على زر الشفت shift هذا وظيفته تكون بعدما يتم تقسيم البرنامج .. 🙂

هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 123 للتحميل : 🙂 قالب جاهز لنموذج تسجيل الدخول وتغيير كلمة المرور.accdb

كود لعمل ترقيم متسلسل للسجلات في النموذج المستمر أو المفرد في حقل غير منظم شرح الكود: يوضع في موديول منفصل .. ثم في حقل المسلسل في النموذج ويكون حقل غير منظم يكتب في مصدر بياناته هكذ : =RowNum([Form]) الكود: Public Function RowNum(frm As Form) As Variant On Error GoTo Err_RowNum 'Purpose: Numbering the rows on a form. 'Usage: Text box with ControlSource of: =RowNum([Form]) With frm.RecordsetClone .Bookmark = frm.Bookmark RowNum = .AbsolutePosition + 1 End With Exit_RowNum: Exit Function Err_RowNum: If Err.Number <> 3021& Then 'Ignore "No bookmark" at new row. Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description End If RowNum = Null Resume Exit_RowNum End Function طريقة الاستدعاء (الاستخدام): =RowNum([Form])

أستاذنا العزيز 🙂 كأن الدالة تبدأ بحساب الأيام اعتبارا من اليوم التالي لليوم المختار .. أم أن هناك فكرة لم أستوعبها ؟

بارك الله فيك أبا أحمد @AbuuAhmed جهد مبارك وعمل مشكور 🙂 جربتها قبل التعديل .. فوجدتها تحسب يوم الجمعة كيوم عمل .. هل لها ضبط آخر لتحديد أيام العمل من الأحد إلى الخميس ؟

هذا الكود لفتح ملف أو صورة وطباعتها مباشرة يوضع في موديول وينادى كما هو واضح بالاسفل الكود: Option Compare Database Option Explicit Private Const SW_HIDE = 0 Private Const SW_MINIMIZE = 6 Private Const SW_RESTORE = 9 Private Const SW_SHOW = 5 Private Const SW_SHOWMAXIMIZED = 3 Private Const SW_SHOWMINIMIZED = 2 Private Const SW_SHOWMINNOACTIVE = 7 Private Const SW_SHOWNA = 8 Private Const SW_SHOWNOACTIVATE = 4 Private Const SW_SHOWNORMAL = 1 #If Win64 Then Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #Else Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ ( _ ByVal hwnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _ ByVal nShowCmd As Long _ ) As Long #End If Public Function PrintFile(ByVal strPathAndFilename As String) Call ShellExecute(Application.hWndAccessApp, "print", strPathAndFilename, vbNullString, vbNullString, 0) End Function طريقة الاستدعاء (الاستخدام): PrintFile ( "d:\Folder1\Folder2\File.jpeg")

تم حذف المرفقات ..

يمكن مزامنة الشريط مع الاستعلام عندما تكون هناك حلقة تكرارية في الأغلب .. ضع مثالك ليطبق عليه الإخوان 🙂

أستاذنا البرناوي .. عمل جميل ومميز ماشاء الله .. 😊 ياليتك تشرح لنا فكرة الكود؟ .... وهل لوضعية معاينة قبل الطباعة خاصية خاصة لتطبيق الكود؟ 🙂

شكرا لكم جميعا 🙂🌷 الحمدلله أن الاهتزاز غير ملاحظ ..

السلام عليكم ورحمة الله وبركاته 🌹 درسنا اليوم عن طريقة عمل قوائم ديناميكية متحركة بأقل عدد من الأكواد وطريقة مبتكرة . 🙂 النتيجة النهائية : الشرح : تحميل الملف : Dynamic Menus.accdb