Moosak

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

افتح البرنامج بالضغط على زر الشفت 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

تفضل أخي @elghoultk 🙂 OpenFormFromCombo.accdb

شوقتنا نعرف تفاصيل أكثر عن البرنامج ؟ 😊

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

حسب تجربتي خلي النموذج المستمر الفرعي في الفوتر Footer للنموذج المستمر الأب .. واربط بينهم بحقل ال ID مثلا .. وبتلقى أنه النموذج المستمر الفرعي تتغير بياناته كلما انتقلت من سجل لآخر في النموذج المستمر الأب .. 🙂

الحل الأسهل ممكن تمد حقل العنوان على عرض التقرير وتنسق النص على (توسيط) .. بيجي معاك في النص دائما 🙂

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

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

وهذا درس يشرح طريقة عمل الشكل البيضاوي في التقرير 🙂

بوركت @AbuuAhmed بقي لك أن تتخلص من رسائل التحديث المزعجة عند كل تحديث يحصل 🙂 وتغيرر هاتين من Long إلى LongPtr لكي تعمل الدالة على النواة 64 بت :

لا تثريب عليك أخي العزيز @أبو إبراهيم الغامدي 😄✋🏻 بالعكس استفدت من طريقتك وتعلمت أسلوب جديد 👍🏼😁

سلمت يمناك أبو أحمد 🙂 استوقفتني هذه الجملة وقد مررت سابقا بموقف مشابه ، والآن مع وجود الذكاء الاصطناعي سألته يعطيني دالتين للتحويل بين أكواد ال RGB وال Hex فما قصر وأعطاني التالي ( بدون تجربة ) 🙂 : '=================== (To convert RGB to Hex:) Function RGBToHex(ByVal red As Integer, ByVal green As Integer, ByVal blue As Integer) As String RGBToHex = "#" & Right("0" & Hex(red), 2) & Right("0" & Hex(green), 2) & Right("0" & Hex(blue), 2) End Function '=================== (To convert Hex to RGB:) Function HexToRGB(ByVal hexCode As String) As Variant Dim red As Integer, green As Integer, blue As Integer If Left(hexCode, 1) = "#" Then hexCode = Right(hexCode, Len(hexCode) - 1) End If red = Val("&H" & Mid(hexCode, 1, 2)) green = Val("&H" & Mid(hexCode, 3, 2)) blue = Val("&H" & Mid(hexCode, 5, 2)) HexToRGB = Array(red, green, blue) End Function '=================== (Here's an example of how you can use these functions:) Sub TestColorConversion() Dim red As Integer, green As Integer, blue As Integer Dim hexCode As String Dim rgbResult As Variant ' Convert RGB to Hex red = 255 green = 0 blue = 128 hexCode = RGBToHex(red, green, blue) Debug.Print "Hex Code: " & hexCode ' Convert Hex to RGB hexCode = "#00FF00" rgbResult = HexToRGB(hexCode) red = rgbResult(0) green = rgbResult(1) blue = rgbResult(2) Debug.Print "RGB: (" & red & ", " & green & ", " & blue & ")" End Sub

لم أجد .. ولم يمر علي سابقا 🙂 حتى الذكاء الاصطناعي عجز عنها 😅

وعليكم السلام ورحمة الله وبركاته 🙂 أنظر هنا :