-
Posts
1,871 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
50
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
كل منشورات العضو Moosak
-
تصميم واجهة مستخدم ، وواجهة تغيير كلمة المرور
Moosak replied to بسام المبروك القيلوشي's topic in قسم الأكسيس Access
هذا الملف قالب جاهز لنموذج صفحة دخول وتغيير بيانات المستخدم والتحكم بالمستخدمين 🙂 كلمة المرور لجميع المستخدمين : 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")
-
هدية (نموذج رسائل sms احترافي) + مساعدة
Moosak replied to Mohameddd200300's topic in قسم الأكسيس Access
تم حذف المرفقات .. -
شريط تقدم للوقت الفعلي المستغرق لاستعلام اكسيس
Moosak replied to mohamedmas's topic in قسم الأكسيس Access
يمكن مزامنة الشريط مع الاستعلام عندما تكون هناك حلقة تكرارية في الأغلب .. ضع مثالك ليطبق عليه الإخوان 🙂 -
هل من الممكن عمل تقرير اكسس بالمؤشرات المتواجده بتقرير الاكسل المرفق
Moosak replied to أمير ادم's topic in قسم الأكسيس Access
أستاذنا البرناوي .. عمل جميل ومميز ماشاء الله .. 😊 ياليتك تشرح لنا فكرة الكود؟ .... وهل لوضعية معاينة قبل الطباعة خاصية خاصة لتطبيق الكود؟ 🙂 -
درس كيفية عمل قوائم ديناميكية متحركة :: طريقة مبتكرة بأقل كمية أكواد vba 🙂
Moosak replied to Moosak's topic in قسم الأكسيس Access
شكرا لكم جميعا 🙂🌷 الحمدلله أن الاهتزاز غير ملاحظ .. -
المساعدة فى جعل مجموعة حقول تعرض قائمة باسماء النماذج
Moosak replied to elghoultk's topic in قسم الأكسيس Access
-
شوقتنا نعرف تفاصيل أكثر عن البرنامج ؟ 😊
-
طريقة الفرز بحروف الأبجدية في الجدول وفي النموذج الفرعي
Moosak replied to سامي سامي الجزائر's topic in قسم الأكسيس Access
وعليكم السلام ورحمة الله وبركاته .. 🙂 في خصائص النموذج .. والنتيجة : وفي خصائص التقرير كذلك .. والنتيجة : ترتيب حسب اللقب.accdb -
هل من الممكن ان اضع نموذج مستمر داخل نموذج مستمر
Moosak replied to Elsayed A Eldiasty's topic in قسم الأكسيس Access
حسب تجربتي خلي النموذج المستمر الفرعي في الفوتر Footer للنموذج المستمر الأب .. واربط بينهم بحقل ال ID مثلا .. وبتلقى أنه النموذج المستمر الفرعي تتغير بياناته كلما انتقلت من سجل لآخر في النموذج المستمر الأب .. 🙂 -
الحل الأسهل ممكن تمد حقل العنوان على عرض التقرير وتنسق النص على (توسيط) .. بيجي معاك في النص دائما 🙂
-
يمكنك التحايل على هذه المشكلة بزرع ملف نصي في الجهاز يكتب فيه تاريخ التنصيب مثلا .. وتكتب أكواد لقراءته والبحث عنه 🙂
-
وعليكم السلام ورحمة الله وبركاته 🙂 لا أعلم طريقة لتكبير الخط .. ولكن كمقترح يمكنك بناء نموذج خاص بك لعرض الرسائل وتتحكم فيه بالحجم والشكل والألوان كما تحب 🙂
-
كود او طريقة لتغيير شكل زوايا مربع النص في تقرير أكسس
Moosak replied to rashed7's topic in قسم الأكسيس Access
وهذا درس يشرح طريقة عمل الشكل البيضاوي في التقرير 🙂 -
دوال برمجية تظليل كلمات البحث في النص الغني Rich Text
Moosak replied to AbuuAhmed's topic in قسم الأكسيس Access
بوركت @AbuuAhmed بقي لك أن تتخلص من رسائل التحديث المزعجة عند كل تحديث يحصل 🙂 وتغيرر هاتين من Long إلى LongPtr لكي تعمل الدالة على النواة 64 بت :- 18 replies
-
- 1
-
كود او طريقة لتغيير شكل زوايا مربع النص في تقرير أكسس
Moosak replied to rashed7's topic in قسم الأكسيس Access
لا تثريب عليك أخي العزيز @أبو إبراهيم الغامدي 😄✋🏻 بالعكس استفدت من طريقتك وتعلمت أسلوب جديد 👍🏼😁 -
دوال برمجية تظليل كلمات البحث في النص الغني Rich Text
Moosak replied to AbuuAhmed's topic in قسم الأكسيس Access
سلمت يمناك أبو أحمد 🙂 استوقفتني هذه الجملة وقد مررت سابقا بموقف مشابه ، والآن مع وجود الذكاء الاصطناعي سألته يعطيني دالتين للتحويل بين أكواد ال 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- 18 replies
-
- 2
-
كود او طريقة لتغيير شكل زوايا مربع النص في تقرير أكسس
Moosak replied to rashed7's topic in قسم الأكسيس Access
لم أجد .. ولم يمر علي سابقا 🙂 حتى الذكاء الاصطناعي عجز عنها 😅 -
كود او طريقة لتغيير شكل زوايا مربع النص في تقرير أكسس
Moosak replied to rashed7's topic in قسم الأكسيس Access
-
تفضل أخي العزيز .. ولزيادة الخير وضعت لك أكواد جميع الإجراءات الأساسية : الإجراءات الإعتيادية للسجلات ( حفظ - جديد - حذف - إضافة - تكرار - التالي - السابق - الأول - الأخير - .....) '===================================== حفظ السجل والذهاب لسجل جديد Private Sub SaveRecBtn_Click() On Error GoTo Err_SaveRecBtn_Click DoCmd.RunCommand acCmdSaveRecord DoCmd.GoToRecord , , acNewRec Exit_SaveRecBtn_Click: Exit Sub Err_SaveRecBtn_Click: MsgBox Err.Description Resume Exit_SaveRecBtn_Click End Sub '===================================== حذف السجل Private Sub DeleteBtn_Click() On Error GoTo Err_DeleteBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit_DeleteBtn_Click: Exit Sub Err_DeleteBtn_Click: MsgBox Err.Description Resume Exit_DeleteBtn_Click End Sub '===================================== إضافة سجل جديد Private Sub AddNewBtn_Click() On Error GoTo Err_AddNewBtn_Click DoCmd.GoToRecord , , acNewRec Exit_AddNewBtn_Click: Exit Sub Err_AddNewBtn_Click: MsgBox Err.Description Resume Exit_AddNewBtn_Click End Sub '===================================== السجل التالي Private Sub NextBtn_Click() On Error GoTo Err_NextBtn_Click DoCmd.GoToRecord , , acNext Exit_NextBtn_Click: Exit Sub Err_NextBtn_Click: MsgBox Err.Description Resume Exit_NextBtn_Click End Sub '===================================== السجل السابق Private Sub PreviousBtn_Click() On Error GoTo Err_PreviousBtn_Click DoCmd.GoToRecord , , acPrevious Exit_PreviousBtn_Click: Exit Sub Err_PreviousBtn_Click: MsgBox Err.Description Resume Exit_PreviousBtn_Click End Sub '===================================== السجل الأول Private Sub FirstBtn_Click() On Error GoTo Err_FirstBtn_Click DoCmd.GoToRecord , , acFirst Exit_FirstBtn_Click: Exit Sub Err_FirstBtn_Click: MsgBox Err.Description Resume Exit_FirstBtn_Click End Sub '===================================== السجل الأخير Private Sub LastBtn_Click() On Error GoTo Err_LastBtn_Click DoCmd.GoToRecord , , acLast Exit_LastBtn_Click: Exit Sub Err_LastBtn_Click: MsgBox Err.Description Resume Exit_LastBtn_Click End Sub '===================================== البحث عن سجل Private Sub FinedRecBtn_Click() On Error GoTo Err_FinedRecBtn_Click Screen.PreviousControl.SetFocus DoCmd.RunCommand acCmdFind Exit_FinedRecBtn_Click: Exit Sub Err_FinedRecBtn_Click: MsgBox Err.Description Resume Exit_FinedRecBtn_Click End Sub '===================================== تكرار السجل Private Sub DublicateRecBtn_Click() On Error GoTo Err_DublicateRecBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdCopy DoCmd.RunCommand acCmdRecordsGoToNew DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPaste Exit_DublicateRecBtn_Click: Exit Sub Err_DublicateRecBtn_Click: MsgBox Err.Description Resume Exit_DublicateRecBtn_Click End Sub '===================================== حفظ السجل Private Sub SaveRecBtn_Click() On Error GoTo Err_SaveRecBtn_Click DoCmd.RunCommand acCmdSaveRecord Exit_SaveRecBtn_Click: Exit Sub Err_SaveRecBtn_Click: MsgBox Err.Description Resume Exit_SaveRecBtn_Click End Sub '===================================== طباعة السجل الحالي Private Sub PrintRecBtn_Click() On Error GoTo Err_PrintRecBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.PrintOut acSelection Exit_PrintRecBtn_Click: Exit Sub Err_PrintRecBtn_Click: MsgBox Err.Description Resume Exit_PrintRecBtn_Click End Sub '===================================== التراجع عن التسجيل Private Sub UndoRecBtn_Click() On Error GoTo Err_UndoRecBtn_Click DoCmd.RunCommand acCmdUndo Exit_UndoRecBtn_Click: Exit Sub Err_UndoRecBtn_Click: MsgBox Err.Description Resume Exit_UndoRecBtn_Click End Sub '===================================== فتح التقرير وطباعة السجل المحدد بدلالة الرقم التسلسلي Private Sub Print_Click() On Error GoTo Err_OpenReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acViewReport, , "ID =" & Me.ID DoCmd.RunCommand acCmdPrintPreview DoCmd.RunCommand acCmdPrint Exit_OpenReportBtn_Click: Exit Sub Err_OpenReportBtn_Click: If Err.Number = 2501 Then Resume Exit_OpenReportBtn_Click 'print cancelled MsgBox Err.Number & vbCr & Err.Description Resume Exit_OpenReportBtn_Click End Sub '===================================== طباعة تقرير Private Sub PrintReportBtn_Click() On Error GoTo Err_PrintReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acNormal Exit_PrintReportBtn_Click: Exit Sub Err_PrintReportBtn_Click: MsgBox Err.Description Resume Exit_PrintReportBtn_Click End Sub '===================================== معاينة تقرير Private Sub VeiwReportBtn_Click() On Error GoTo Err_VeiwReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acPreview Exit_VeiwReportBtn_Click: Exit Sub Err_VeiwReportBtn_Click: MsgBox Err.Description Resume Exit_VeiwReportBtn_Click End Sub '===================================== فتح تقرير Private Sub OpenReportBtn_Click() On Error GoTo Err_OpenReportBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OpenReport stDocName, acViewReport Exit_OpenReportBtn_Click: Exit Sub Err_OpenReportBtn_Click: MsgBox Err.Description Resume Exit_OpenReportBtn_Click End Sub '===================================== حفظ تقرير بصيغة Private Sub SendReportToBtn_Click() On Error GoTo Err_SendReportToBtn_Click Dim stDocName As String stDocName = "ReportName" DoCmd.OutputTo acReport, stDocName Exit_SendReportToBtn_Click: Exit Sub Err_SendReportToBtn_Click: MsgBox Err.Description Resume Exit_SendReportToBtn_Click End Sub
-
دروب مبرمج أهلا بك في فريق الخبراء..
Moosak replied to أبو إبراهيم الغامدي's topic in قسم الأكسيس Access
أهلا بك أخي @دروب مبرمج في قائمة الخبراء ، تستحقها بجدارة 🙂 🌹 أنت البركة وحلت عليك البركات تلو البركات ☺️