Foksh

أخي الكريم @سيد رجب ، انت ما شاء الله 03 عضو مميز ، برأيك هل الجملة التي شرحت بها طلبك كافية و واضحة لمن سيقرأ ويلقي نظرة على ملفك ؟؟ أكرمك الله أن لا تبخل علينا بشرح وافي وكافي ، وتحديد اين تكمن المشكلة ( النموذج أو الاستعلام ... إلخ ) كونك ارسلت ملف المشروع كامل ( على ما اعتقد ) .

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

بما أنه هناك جزء قد تحقق ، فإننا ندور حول الحل المناسب ، لأنني خارج العمل حالياً وبعيد عن الكمبيوتر ، سنتابع بأقرب وقت

طيب ، جرب تعديل بسيط كالآتي .. Me.Lblt9e = Nz(DCount("EmployeeID", "(SELECT DISTINCT EmployeeID FROM tbl_Loans WHERE Year([Auto_Date]) = " & Me.txtYear - 1 & " And [Loan_ID] > 0)", ""), 0) أو لنجرب الحل الثاني استخدام Recordset مع DISTINCT .. Dim MySQL As String Dim rst As DAO.Recordset MySQL = "SELECT DISTINCT EmployeeID FROM tbl_Loans WHERE Year([Auto_Date]) = " & Me.txtYear - 1 & " And [Loan_ID] > 0" Set rst = CurrentDb.OpenRecordset(MySQL) Me.Lblt9e = rst.RecordCount أو الحل الثالث مع الدالة DSum .. Me.Lblt9e = Nz(DSum("IIF([Loan_Made] - [Payment_Made] = 0, 1, 0)", "tbl_Loans", "Year([Auto_Date]) = " & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) ما لم تقم بالتجربة لجميع الحلول ، فلن تصل إلى الحل والهدف 🤗

وعليكم السلام ورحمه الله وبركاته ،، انا لو كنت مكانك ، أولا سأتأكد من وجود قيم صحيحة في الحقول المستهدفة في الشرط وعدم التكرار ، لربما تحتوي سهواً على قيم فارغة أو غير صحيحة. ثانياً سأجرب على سبيل المثال استعلام مباشر لتجربة النتيجة بدون تحديد الشروط من مصدر كمربع نص ، بل داخل الاستعلام نفسه SELECT DISTINCT(Employeeid) FROM tbl_Loans WHERE Year([Auto_Date]) = 2024 And [Loan_ID] > 0 ثالثاً وقد تكون لها الأولوية قبل النقطة السابقة ، استخدم جملة تتبع النتيجة بجملة Vba ثم اضغط Ctrl+G وتفحص النتيجة العائدة من الاستعلام Debug.Print MySQL لا ضرر أيضاً من متابعة شكل كتابة الاستعلام النحوية من وجود مسافات زائدة أو ناقصة .... الخ . وبخصوص الدالة DCount فأعتقد أنها لا تدعم بشكل مباشر حساب السجلات الفريدة (دون تكرار) بناءً على حقل معين . ويمكن استخدامها مع استعلام فرعي .. كمثال :- Me.Lblt9e = Nz(DCount("EmployeeID", "(SELECT DISTINCT EmployeeID FROM tbl_Loans WHERE Year([Auto_Date]) = " & Me.txtYear - 1 & " And [Loan_ID] > 0)", ""), 0) وأيضاً كحل شاذ يمكن استخدام DSum لجمع السجلات الفريدة حسب الجملة الشرطية ، كما يلي كمثال :- Me.Lblt9e = Nz(DSum("IIF([Loan_Made] - [Payment_Made] = 0, 1, 0)", "tbl_Loans", "Year([Auto_Date]) = " & Me.txtYear - 1 & " And [Loan_ID] > 0"), 0) مع العلم أنني أفضل الحل الثاني لأنه سيكون أسرع من الدالة DCount . وجهة نظري غير ملزمة في النهاية 😇

أخي العزيز @عربي عالمي ، العبارة هذه تدل على انك تستخدم آخر إصدار ، تستطيع تغييرها كيفما تريد . سأقوم ان شاء الله غداً بجعل الاصدار في التحديث = الاصدار في الملف المرفق لتتوضح لك الصورة عند عدم وجود تحديث

بتأييدي لإجابتكم معلمنا الفاضل @أبو إبراهيم الغامدي ، أدعم ما ترونه مناسباً باختياركم وتوجيهاتكم ما دام ذلك يصب في مصلحة المنتدى وأسرته 😇

ما شاء الله أخي @tiger wanted ، عمل جميل وفكرة جميلة .. اسمح لي بإبداء رأيي المتواضع . 1. عند تحريك النموذج ونقل مكانه من المفترض ان يتم تحريك السكرول بار معه لا ان يبقيا في مكانهما . 2. لا يسعني إلا أن أقوم بداية طيبة ، وقد نرى منك أفكاراً جميلة كهذه ومشاريع رائعة أبدعت ..

وعليكم السلام ورحمة الله وبركاته .. اخي العزيز من باب التوضيح ، هل الفترة التي تقصد بها في مثالك = التاريخ ؟؟؟؟؟؟؟ اذا كان جوابك نعم ، فإليك المرفق بعد التعديل باضافة طريقتين ، الأولى استعلام من خلال كود VBA والثانية استعلام SQL SKL.accdb

زبدة الكلام هنا .. وطبعاً هذا على افتراض ان العلاقة التي ذكرها بين الجداول لها علاقة بالمطلوب !!!!!

أخي الكريم أنت هنا تريد جلب قيم من مربعات نص الى مربعات نص في نموذج آخر يتم فتحه من التفاصيل ، صحيح ؟؟ لم استوعب ما علاقة العلاقات بالمطلوب !!!!! إلا إذا كان الهدف شيء آآآآآخر وإن كان هناك حل في مخيلتك فاشرحه لنا ، أو لا تبخل على نفسك وعلينا بالشرح لمطلوبك ، فالنوايا لا يعلمها إلا الله .

لا شك في ذلك يا صديقي ، ولهذا السبب ارجو ان تنسب افضل إجابة للمشاركة التي حلت المشكلة وليس تعليقك السابق

اعتذر منك ، أخي الكريم ، كنت اتابع من الجوال ، ولم اتمعن فعلاً في المشكلة اعتقد هذا طلبك .. جرب Database1.accdb

بعد أذن صاحب السعادة .. مشاركة جانبية ، لكنها ليست بحجم مشاركة الهندسة @ابو جودي .. جرب هذا الكود مع الدالة :- Private Sub Date1_AfterUpdate() Date2 = DateAdd("yyyy", 1, Date1) Dim expirationDate As Date Dim randomString As String expirationDate = DateAdd("yyyy", 1, Me.Date1.Value) Me.Date2.Value = expirationDate randomString = GenerateRandomString(8) Me.random_number = randomString Me.Dirty = False End Sub Private Function GenerateRandomString(length As Integer) As String Dim chars As String Dim i As Integer Dim result As String chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789" result = "" For i = 1 To length result = result & Mid(chars, Int((Len(chars) * Rnd) + 1), 1) Next i GenerateRandomString = result End Function وجرب غير السنة في الحقل تاريخ الاصدار New.accdb

وعليكم السلام ورحمة الله وبركاته جرب هذا الاقتراح DoCmd.OpenForm "DetailsFrm", , , "id = " & Me.sn

أخونا الكريم @zero1111330566 ، وجب عليك ان تنسب أفضل إجابة للأستاذ @kkhalifa1960 صاحب الإجابة التي ناسبتك وحلت لك المشكلة ، وليس لك يا صديقي

شافاكم الله وعافاكم أستاذ @Eng.Qassim

وأنا أدعم كلام الأستاذ @kkhalifa1960 ، للحصول على حلول أسرع ، يفضل طرح كل مشكلة في موضوع مستقل . لا أن يقوم صاحب الموضوع بطلب 10 طلبات في موضوع واحد ضمن موضوعه . ولا أتحدث عن صاحب الموضوع بوجه التحديد بل بشكل عام . كل الإحترام والتقدير لأخونا العزيز @zero1111330566

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

يسعدني نجاح الفكرة بعد تجربتها بأكثر من مستخدم ، أشكرك مهندسنا

إحنا نروح الشرطة

سيتم تحديث الملف الذي يتم تنزيله من التحديث بين فترة وأخرى ، لضمان أن الفكرة تعمل بدون مشاكل

1. حجم قاعدة البيانات الخلفية ( الجداول ) أكثر من 20 ميجا ، وهي تحتوي فقط 7 جداول . يجب أولاً عمل ضغط و إصلاح لمشروعك . 2. قاعدة البيانات الرئيسية اشتغلت معي على اصدار 32 ما في مشكلة ، المشكلة التي ستواجهك عند تحويل المشروع الى Accde 3. من الناحية البرمجية ، وجدت ما يلي في أكواد الـ VBA :- في النموذج VPA ، لديك مشاكل في عدم العثور على بعض العناصر ، مثل :- ( في الحدث Ctl1_GotFocus :- العنصر Ctl1 غير موجود وما يتبعه في الجملة الشرطية ) ( في الحدث أمر4_Click :- العنصر أمر4 غير موجود ايضاً وما يتبعه في الجملة الشرطية ) المشكلة التي قد تواجهك حالياً في مديول اخفاء واجهة آكسيس لديك ، حاول استبدل الكود السابق بهذا التعديل ، وقم بتجربته . Option Compare Database Option Explicit Global Const SW_HIDE = 0 Global Const SW_SHOWNORMAL = 1 Global Const SW_SHOWMINIMIZED = 2 Global Const SW_SHOWMAXIMIZED = 3 #If VBA7 Then Private Declare PtrSafe Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hWnd As LongPtr, _ ByVal nCmdShow As Long) As Long #Else Private Declare Function apiShowWindow Lib "user32" _ Alias "ShowWindow" (ByVal hWnd As Long, _ ByVal nCmdShow As Long) As Long #End If Function fSetAccessWindow(nCmdShow As Long) Dim loX As Long Dim loForm As Form On Error Resume Next Set loForm = Screen.ActiveForm If Err <> 0 Then loX = apiShowWindow(hWndAccessApp, nCmdShow) Err.Clear End If If nCmdShow = SW_SHOWMINIMIZED And loForm.Modal = True Then MsgBox "Cannot minimize Access with " _ & (loForm.Caption + " ") _ & "form on screen" ElseIf nCmdShow = SW_HIDE And loForm.PopUp <> True Then MsgBox "Cannot hide Access with " _ & (loForm.Caption + " ") _ & "form on screen" Else loX = apiShowWindow(hWndAccessApp, nCmdShow) End If fSetAccessWindow = (loX <> 0) End Function وهذه نسخة محفوظة من إصدار 32 بت ، جربه sader warid- form 32x.zip هذا رأيي وغير ملزم ، والله أعلم

للسير وفق قوانين المنتدى ، أنصحك بفتح موضوع مستقل للمشكلة الثانية ، وان شاء الله ستجد الحل الذي يناسبك .

امامك عدة حلول ، 1. تحويل البرنامج ليعمل على إصدار 32 بت بأن تقوم بحفظ النسخة الجديدة من اصدار 32 بت . 2. تعديل الأكواد لتكون متوافقة مع الإصدارين 32 و 64 . 3. تثبيت نسخة 64 بت على الأجهزة الثانية . 4. وهناك حل آخر وهو استخدام Access Runtime (32 بت) ، بأن يتم تثبيته على الاجهزة التي تريدها .