ابو جودي

اتفضل 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 جزاكم الله خيرا وسوف اقوم إن كتب لنا الله الحياة بما أرشدنى إليه معلمى وأوافيكم بالنتيجة بأمر الله

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الكرام تحية طيبى عطرة اولا مشكلتى تحدث فى قواعد البيانات الأمامية والخلفية كذلك ثانيا قواعد البيانات موجوده على شبكة محلية اعانى منذ اكثر من شهر تقريبا من تلك المشكلة Error 3343: Unrecognized Database Format على الرغم من أن قاعدة البيانات هذه موجوده ونعمل بها يوميا لما يقارب من الخمس سنوات دوان اى مشاكل للعلم قمت بعمل الأتى - ضغط واصلاح - عمل قاعدة بيانات جديدة لكل من القاعدتين الخلفية والأمامية وإستيراد الجداول والكائنات من القواعد القديمة - تجربـة قاعدة بيانات أستاذى الجليل @jjafferr عندما يعطي برنامج الاكسس اخطاء - النسخة رقم 4 + عمل نسخ احتياطية - صفحه 3 - قسم الأكسيس Access - أوفيسنا (officena.net) كل ذلك دون اى جدوى والان قد تحدث تلك المشكلة تقريبا بمعدل كل 10 دقائق هل من حل بارك الله فيكم وما السبب الذى أدى الى ذلك فجأه

فى الكود تبعك ابحث عن السطر التالى ShortPath = DBPath & FDName وقم بتغييره الى هذا السطر ShortPath = DBPath & "اسم المجلد" & FDName مع استبدال اسم المجلد طبعا حسب الاسم الذى تريدعلى ان يكوم نفس اسم المجلد بنفس مسار قاعدة البيانات موجود

بشركم الله تعالى بكل الخيــــــــر جزاكم الله خيـــــرا

يا سلام لو تكمل جميلك بمرفق صغنون كده علشان تسهل الأمر لطلاب العمل وانا منهم

لا لا لا لا لا لا لا 🥵 هو غش منى الحل ماليش دعوة 😭 ههههههههههه بس انا غشيت منه فكرة الرسائل اللى ارفقتها ومش عجباك يعنى الموضوع كله راجع الفضل فيه بعد رب العباد سبحانه الى استاذى الجليل @أبو عبدالله الحلوانى ومن قبله استاذنا الجليل ومعلمنا القدير الأستاذ @jjafferr

بخصوص تتبع التعديلات راجع هذه المواضيع ان شاء الله تجد فيها ضالتك او تستلهم منها افكار اظهار التغيرات التي تحدث في السجلات - قسم الأكسيس Access - أوفيسنا (officena.net) تعديل كود متابعة التعديلات على السجلات - قسم الأكسيس Access - أوفيسنا (officena.net)

انا تمام جربت Microsoft Windows 10 Pro V. 20H2 64-bit operating system Microsoft Office 2019 Pro Plus 32-bit v2012 Build 13530.20440 لا يوجد أى مشاكل الحمد لله

لا لا لا لا لا كده الموضوع اختلف خالص بص الاحسن انك تعمل حقل تانى تكتب فيه الاختصاارات اللى انت عاوزها

انا مش فاهم يعنى ايه ؟