ابو جودي

اضف هذا السطر من الكود الى حدث الوقت 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

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

دى فكرة ع السريع ممكن تلافى حلول افضل واحلى من كده طبعا ياريت بعد كده تضع مرفق مبسط مع السؤال ماتنساش ماشى 😡

وعليكم السلام يا هندسة اتفضل ☺ بعد إذن استاذى الجليل ومعلمى القدير الاستاذى @د.كاف يار وبعد إذن الاستاذ الفاضل استاذ @ناقل اسمح لى انا اللى اكوون ناقل منك المره دى لان راح انقل فكرتك لكن بطريقتى وطبعا لان انا اللى فكرت فى المرفق اشتغل بمزاجى يا باش مهندس ملاحظة هامة : النموذج لا يظهر موضوعات استطلاعات الرأى لاى تاريخ قبل تاريخ اليوم الجدول tblVotingResources يتم اضافة موضوعات استطلاعات الراى به مع وضع تاريخ نهاية موعد ظهور الاستطلاع الجدول tblVotingHistory يتم اضافة الاستطلاع اليه حسب ال ID الخاص بالاسطلاع مع الـ ID الخاص بالمستخدم الذى قام بالتصويت او الاعجاب كما يتم حذف التصويت منه كذلك بنفس الالية Vote.mdb Vote.zip

طيب أستاذ @jjafferr ممكن سؤال هل لو قمت بتغير نظام التشغيل للجهاز الخادم الذى يحتوى قاعدة الجداول من ويندوز 10 الى ويندوز سيرفر يساهم فى حل المشكلة ؟ وان كان كذلك اى نسخى ويندوز سيرفر افضل لانى لم اتعامل معهم من قبل ؟!

للاسف نفس المشكلة

لا خالص لأنى اعلم أنه قد تتلف القاعدة بسببه كما اشار أستاذى الجليل الاستاذ @jjafferr جزاكم الله خيرا وسوف اقوم إن كتب لنا الله الحياة بما أرشدنى إليه معلمى وأوافيكم بالنتيجة بأمر الله