ابو جودي

هاهاهاها وانا كما يخيل الي أني رأيت هذا الكود من قبل ☝️ ... وعلى فكرة عرفت حضرتك انه عجبتنى الفكرة انت ضيف ex انا تعبت يلا كمل شغل على اكوادك بطل دلع انا بس كنت احتاج لدمج ترجمة الازرار مع فكرتك يعنى ووضعت التاتش بتاعى هاهاهاهاها وبعدين ناوى افكر فى شئ تانى يلا انت اكمل الهدية

السلام عليكم ورحمة الله تعالى وبركاته كل عام وانتم بخير وصحة وسعادة واسال الله تعالى ان يبلغني واياكم شهر رمضان واساله تعالى لى ولكم القبول هدية متواضعة اتمنى ان تنال رضاكم ( امساكية شهر رمضان ) طبعا تتم تغيير المواعيد او التواريخ وفقا لكل دولة التقويم المستخدم والمواعيد طبقا لمدينة القاهرة - جمهورية مصر العربية 147525677_.zip

العفو منكم سيدى يكفينى انها نالت رضاكم

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

السلام عليكم كل عام وانتم الى الله اقرب التطبيق يحتوى على عدد 2 جدول الاول : tblMassagesSetting به اسماء الأزرار والتى يمكن ترجمتها الى اى لغة يريدها المصمصم الثانى : tblMassages وهو الجدول الذى يمكن للمصمم اضافة الرسائل به ليسهل تغير محتوى الرسائل او تعديلها دون الدخول الى وضع التصميم تعريف لمحتويات الجدول tblMassages ( جدول الرسائل ) الحقل IDMasg : معرف الرسالة هنا يتم وضع كود لا يقبل التكرار لكل رسالة ليتم استدعاء الرسالة داخل صندوق الرسائل من خلاله الحقل MasgPrtOne : نص الرسالة (السـطر الأول) هنا يتم كتابة السطر الأول من الرسالة الحقل MasgPrtTow : نص الرسالة (السـطر الثانى) هنا يتم كتابة السطر الثاني من الرسالة الحقل MasgPrtThree : نص الرسالة (السـطر الثالث ) هنا يتم كتابة السطر الثالث من الرسالة الحقل MasgHead : عنوان الرسالة هنا يتم كتابة عنوان الرسالة الحقل MasgType : معرف رمز الرسالة هنا يتم كتابة رقم رمز التى تريد ظهورها مع الرسالة والتى تدل على نوع الرسالة الحقل MsgBtn :معرف عدد الأزرار هنا يتم كتابة رقم عدد الأزرار التى تريد لها الظهور فى صندوق الرسائل يتم استدعاء الرسالة بالسطر الاتى مع تغيير معرف الرسالة الى الرقم الدال عليها MakeMsg (معرف الرسالة) اترككم مع الاستمتاع بتجربـة المرفق full control arabic Message Box 32x,64x .mdb

اضف هذا السطر من الكود الى حدث الوقت txtClock = Format(Now, "HH:nn:ss am/pm") واضف الى النموذج مربع نص وغير اسمه الى txtClock

العفو منكم استاذى الجليل ومعلمى القدير و والدى الحبيب اسال الله لكم البركة فى العمر والعمل والاهل والولد والرزق

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @ابوخليل اولا وقبل كل شئ كل عام وانتم بخير هذا اول ما خطر على بالى ولكن وجدت مشكلة فى التعديل باضافة النقطه كما تفضلتم استاذى الكود كان مكتوب على اعتبار ان الامتداد .mdb ولكن فى حالة ان الامتداد accdb يعتبر الامتداد ccdb فقط طبقا لذلك الجزء من الكود Right(DBwithEXT, 4 لاحظ الامتداد بعد الوقت pm لذلك قمت بتعديل طفيف حتى يكتب اسم الملف باللاحقة الخاصة بها كيفما كانت

طبعا ممكن تعديل الكود للمرور على الكائنات التى تريدها انت على النموذج المرفق تبعك لم يكن يحتوى على عناصر الا من النوع Label لذلك قمت بعمل الكود تبعا لما بالمرفق

طيب اتفضل فكرة بسرعة كده font (2).accdb

ممكن مرفق على افهم وهل تريد تطبيق حجم الخط على كل الكائنات دفعة واحدة ؟

نعم استاذ قم بعمل استعلام اضافة كما بالمثال المرفق

اعمل جدول لحفظ قيمة الخط حسب التكبير ويتم حفظ القيم مع كل كبسة زر للتكبير وعند الفتح اجعل قيمة الخط تساوى اخر قيمة تم حفظها فى الجدول

اتفضل empoyee - Copie.accdb

اتفضل جرب الكود الاتى Dim StrNew As String Dim StrOld As String Dim DBwithEXT As String Dim NewFile As String Dim CopyMyDB As String StrNew = "D:\LaundrySoftware\" StrOld = CurrentDb.Name DBwithEXT = Dir(StrOld) NewFile = StrNew & "\" & Format(Date, "yyyy-mm-dd") & "-" & Format(Now(), "Hh-Nn-Ss-AMPM" & "-") & DBwithEXT CopyMyDB = "cmd.exe /C copy " & """" & StrOld & """" & " " & """" & NewFile & """" Shell CopyMyDB, 0

yx-2.mdb

طيب وانت زعلان ليه كده اتفضل يا سيدى فى استعلام اهون Split Full Name (2).mdb

اتفضل يا سيدى Split Full Name.mdb

وعليكم السلام ورحمة الله وبركاته طبعا الاستعلام كاستعلام لن يخطى فلن تأتيك منه الا النتائج المنطقية طبقا لأسلوب بنائه ولكن لا تنسى وجود lag network والذى بدوره قد يسبب ظهور الأخطاء خاصة فى كبر حجم البيانات ومعالجتها فى الاستعلامات بالطرق المختلفة .. والله اعلم

جرب هذه المرفقات ولى عودة ان اعحبتكم فكرتى المتواضعة المرفق يحتوى على 3 ملفات 1- Archiving القاعدة الأمامية 2- TablesArchivingDB القاعدة الخلفية 3- Run My App هذا الملف المسؤل عن فتح التطبيق لاحظ الاتى كل من القاعدتان الأمامية والخلفية مفتوحتان مما يسهلان عليك كمبرمج الإضافة أو التعديل على التصميم بأى وقت وكذلك هما محميتان بكلمة مرور عند الفتح على اعلى تقدير يصعب جدا جدا جدا كسرها إن لم يكن من المستحيل كسر تلك الحماية القاعدة الوسيطة ( Run My App ) الخاصة بفتح التطبيق مشفرة الأكواد وتقوم بتمرير كلمات المرور فلا حاجة لنا بفتحها فى وقت لاحق وبذلك لن يتم تفعيل عمل مفتاح Shift كما أنه لن يمكن الحصول على كلمات مرور القاعدتان الامامية والخلفية حماية.zip

طيب جرب الكود ده Function AppShortcut() Dim StrDisplayName As String Dim StrDescription As String Dim StrIconPath As String Dim DesktopPath As String Dim StrHotkey As String Dim Shell As Object Dim link As Object 'StrDisplayName = CurrentProject.Name 'StrDescription = "Official Sponsor: www.officena.net" StrDisplayName = ChrW(1575) & ChrW(1587) & ChrW(1605) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580) StrDescription = ChrW(1608) & ChrW(1589) & ChrW(1601) & ChrW(32) & ChrW(1575) & ChrW(1604) & ChrW(1576) & ChrW(1585) & ChrW(1606) & ChrW(1575) & ChrW(1605) & ChrW(1580) Set Shell = CreateObject("WScript.Shell") DesktopPath = Shell.SpecialFolders("Desktop") Set link = Shell.CreateShortcut(DesktopPath & "\" & StrDisplayName & ".lnk") StrHotkey = "F7" link.Description = StrDescription link.TargetPath = CurrentDb.Name If Dir(CurrentProject.Path & "\Icon\" & "Myicon.ico") <> "" Then link.IconLocation = CurrentProject.Path & "\Icon\" & "Myicon.ico, 0" Else link.IconLocation = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE, 0" End If link.Hotkey = StrHotkey link.WindowStyle = 3 link.Save End Function وطبعا نستدعى الكود كالاتى Private Sub Form_Load() Call AppShortcut End Sub

طيب ممكن تجرب الكود الاتى Public Function DisplayHideNavPane(Optional Visible As Boolean = True) On Error GoTo ErrHandler DoCmd.SelectObject acForm, , True 'Hide ribbon of access window DoCmd.ShowToolbar "Ribbon", acToolbarNo 'select the navigation pange Call DoCmd.NavigateTo("acNavigationCategoryObjectType") 'hide the selected object Call DoCmd.RunCommand(acCmdWindowHide) Exit Function ErrHandler: MsgBox Err.Description, vbCritical, "Error" End Function 'and call it like this: DisplayHideNavPane False

تعديل بسيط بإضافة أزرار التنقل للاستعراض والتنقل Vote.mdb Vote.zip

بل لى عظيم الشرف ان انقل عن اساذتى واخوانى العفو منكم انا اقل طويلب علم وسوف أظل دائما وأبدا اتعلم من كل اساتذتى العظماء واخوانى واحبابى