Foksh

تأكد من المكتبات اخي الكريم أولاً .

أخي الكريم ، أعتقد أن المشكلة في عدم اتباع الخطوات التالية :- أختيار Customize - مخصص ، ثم قم بتفعيل الإختيار الذي عليه إشارة X

أعتقد أن هذا يعتمد على مشاركاتك ومساهماتك في المنتدى ، فكلما زادت يزداد التقييم والتصنيف الخاص بعضويتك ، وبالتالي ميزاتك ستكون أكبر 😊 نتمنى للجميع أعلى المراتب في دينهم وعلمهم .

برنامج "Access Runtime" هو نسخة من Microsoft Access تم تصميمها لتشغيل تطبيقات قواعد البيانات التي تم إنشاؤها باستخدام Microsoft Access بدون الحاجة إلى وجود نسخة كاملة من Microsoft Office على الكمبيوتر الذي يقوم بتشغيل التطبيق. فهو يمكّنك من تشغيل مشاريع Access دون الحاجة إلى تثبيت نسخة كاملة من Microsoft Office على جهاز الكمبيوتر . ويعتبر هذا خياراً مفيداً إذا كنت ترغب في توزيع تطبيق Access لمستخدمين لا يحتاجون إلى تحرير التصميم أو الإنشاء. ومع ذلك، يجب أن تكون النسخة من "Access Runtime" متوافقة مع إصدار الـ Access الذي تم إنشاء التطبيق به. بمعنى آخر، إذا كانت قاعدة البيانات الخاصة بك تم إنشاؤها باستخدام Access 2016، عليك استخدام Access Runtime 2016 أو إصدار أحدث لتشغيل التطبيق. وبالطبع يُذكر أن "Access Runtime" تُستخدم فقط لتشغيل التطبيقات ولا توفر إمكانيات التصميم أو التحرير

وبارك بك أخي الكريم ،

استبدل الكود في زر الحفظ بهذا الكود ، تم انشاء المتغير حسب طلبك . Private Sub ad_Click() On Error Resume Next If IsNull(Me.xc) Then MsgBox "الرجاء إدخال البيانات", vbCritical, "خطأ في الإدخال" Me.Undo Else Dim Date_P As Variant Date_P = dats.Value Dim Foksh As Variant Foksh = Date_P Me.da_d = Me.qqs Me.kk = 1 On Error Resume Next DoCmd.SetWarnings False DoCmd.RunCommand acCmdSaveRecord DoCmd.RefreshRecord DoCmd.OpenQuery "car_b", acViewNormal DoCmd.OpenQuery "car_c", acViewNormal DoCmd.OpenQuery "dell_subcar", acViewNormal DoCmd.OpenQuery "dman_rly", acViewNormal DoCmd.RunCommand acCmdSaveRecord MsgBox "تم حفظ السجل بنجاح", vbInformation, "نجاح العملية" Me.dats.Value = Format(DateAdd("d", 1, Date_P), "dd/mm/yyyy") DoCmd.Close DoCmd.OpenForm "enar_dman", acNormal Forms("enar_dman").Controls("dats").Value = Format(DateAdd("d", 1, Foksh), "dd/mm/yyyy") End If End Sub

وعليكم السلام ورحمة الله وبركاته ، جرب هذا التعديل أخي الكريم . طبعاً تم اجراء بعض التعديلات والإستغناء عن استعلام التحديث وتحويله إلى SQL في زر الحفظ ASD.accdb

جرب هذا المرفق يا صديقي 182.accdb

تمام هيك 😅 ابشر ، بس خلني أخلص من الشغل

العفو منك اخوي الغالي ، كل الاحترام لك يا صديقي

نرجو الإهتمام بصحة الروابط الخارجية يجب طلب الإذن بالوصول

بالنسبة لي عدة نقاط منها :- تجنب ارفاق المرفقات داخل قاعدة البيانات . تجنب المسميات للحقول والمكونات والعناصر باللغة العربية ( ودي الحاجة اللي انا شخصياً تأكدت منها عن تجربة شخصية وقعت فيها ) . تكرار الاكواد . إجبار قاعدة البيانات على العمل بما يسبب ضغطها ( كوظائف تتعلق بتغيير اعدادات نظام الويندوز ..... إلخ ) بفضل استخدام تقسيم قاعدة البيانات للجداول بحيث يكون تخزين البيانات منفصل عن النماذج والتقارير .... إلخ ، لتخفيف الضغط مستقبلاً عند تضخم حجم البيانات . نقاط كثيرة قد يذكرها أساتذتنا في المنتدى .. هذا من وجهة نظري

🤣 الصحيح أنا مش تفاجئت ، أنا صُعقت لإني ما فهمت 😂 يعني لو جعلت التاريخ يدوي في الجهاز مثلاً يكون 1/1/2024 ، وفتحت النموذج ستجد حقل التاريخ بالتاريخ نفسه ، ولو عملت إدخال البيانات وحفظ سيقوم بالحفظ وفتح سجل جديد بتاريخ اليوم التالي ،أي 2/1/2024 ؛ دون الحاجة للفتح والإغلاق 🧐 صح ولا أنا لسه مصدوم بجد ومش بنطق ولا عارف أرُد 😅

اسمح لي بمداخلة سريعة اخي الكريم @Bshar 🤗 اولاً ما الهدف من إغلاق النموذج وإعادة فتحه بعد إتمام عملية الحفظ ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ الحل:- تم الاستغناء عن الاستعلام الذي انشأته ، وإجراء بعض التعديلات الخفيفة ، مع إيقاف إغلاق وإعادة فتح النموذج ( لأنه هو سبب المشكلة لديك ) تفضل التعديل في المرفق. 181.accdb

كمثال ، جرب هذا الكود:- Private Sub value2_AfterUpdate() ' التأكد من أن القيمة في الحقل الأول (value1) ليست صفر If Nz(Me.value1, 0) <> 0 Then ' حساب النسبة المئوية وتحديث الحقل الثالث (percentage) Me.percentage = (Me.value2 / Me.value1) * 100 & " %" Else ' يمكنك تنفيذ إجراء آخر إذا كان الحقل الأول يحتوي على صفر أو لا يتم التعامل معه بشكل آخر End If End Sub

جرب وإذا تكرمت اعطيني النتيجة حتى يتم تصنيف الملف في مكتبتي

بالنسبة لكلمة المرور في القاعدة المحمية .. الكود ده بعد التعديل في زر ( اختيار قاعدة البيانات المصدر ) Private Sub CmdChosePath_Click() On Error GoTo ErrHandler Dim fDialog As Office.FileDialog Dim filepath As String Dim db As DAO.Database Dim tdf As DAO.TableDef Dim password As String Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .TITLE = "Please select one Item" .Filters.Clear .Filters.Add "All Files", "*.*" .Filters.Add "Access Database Files", "*.accdb;*.mdb" If .Show = True Then filepath = .SelectedItems(1) password = InputBox("Enter the database password:", "Password") Me.MdbPath = filepath Set db = OpenDatabase(filepath, False, False, ";PWD=" & password) DoCmd.OpenForm "List_Tables" [Forms]![List_Tables]![MdbPath] = Me.MdbPath [Forms]![List_Tables]![Lst_Tables].RowSource = "" For Each tdf In db.TableDefs If Left(tdf.name, 4) <> "MSys" Then [Forms]![List_Tables]![Lst_Tables].AddItem tdf.name End If Next tdf db.Close End If End With Exit Sub ErrHandler: MsgBox "You clicked Cancel in the file dialog box." Me.MdbPath = "" End Sub

ما فهمتنيش ,, قصدي في النسخة اللي ارفقتها وعدلتلك عليها في مشاركتي ؟

ده بيحصل معاك في أي نسخة ؟

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

هذه الفكرة سأقوم بالتعديل حسب المطلوب ، ولكن استحملني بالوقت بسبب العمل

هذه مشاركتي البسيطة أخي @سامر محمود VACATIONS223.zip

في إحدى التجارب لي على ما تم طرحه في الموضوع ، قمت بتجربة لتجربة سابقة لي في التعامل مع ملفات الـ Dll الوهمية ( الملفات المُعاد تسمية لاحقتها 😅 ) . فمثلاً بعد تطبيق المسميات للعناصر باللغتين ( العربية ، الإنجليزية ) داخل ملفات Arabic.txt و English.txt قمت بتغيير لاحقة الملفين من txt إلى dll وحتى من داخل الأكواد في المديول في هذين السطرين :- ليصبحا بهذا التغيير :- GetLanguageFilePath("Arabic.dll") enFile = GetLanguageFilePath("English.dll") وقد كانت التجربة ناجحة 😀 بأن تم قراءة ترجمة المكونات المستهدفة لهذه الوظيفة . قد تكون الفكرة لغير المهتمين غير مجدية ؛ إلا أنها فكرة لحماية الملفات مؤقتا من أيدي العابثين 😅. إلا أنني وددت مشاركتكم أصوات ( بنات أفكاري ) . ودمتم بخير 🤗

المشكلة عندك كما أخبرتك هي في إصدار نسخة الآكسيس الـ 2019 ، جرب الإصدار 2016 وإن شاء الله تنحل مشكلة ظهور الصور في التقرير . أو قبل ذلك جرب إنشاء ملف آكسيس جديد ، ثم قم بإستيراد المكونات ( نماذج ، جداول ، تقارير... إلخ ) إليها ، مع التأكد من إضافة المكتبات الغير موجودة إلى النسخة الجديدة. وأخبرنا بالنتيجة 😊 .

هل جربت الإجماليات من داخل الاستعلام ؟