jjafferr

وليش يكون يخدم نموذج واحد ، ممكن استخدمه لأكثر من نموذج في البرنامج ، ودائما فيه مجال للتعديل والاضافات وتجنب بعض الاخطاء ، فالافضل وجود الكود في مكان واحد ، وحل واحد يخدم جميع النماذج 🙂 طبعا نقطتك في محلها كذلك ، بحيث ان لكل نموذج اكواده والسلام 🙂 جعفر

لن يخدمك هذا ، اذا نقلت الكود الى وجدة نمطية ، وفي نظري ، طريقة اباجودي اكثر مرونة ، بحيث كل زر له حدث خاص به ، فيكون الكود واصح ونظيف 🙂 جعفر

وعليكم السلام 🙂 انا اعطيتك هذا الكود ، جعفر

وعليكم السلام 🙂 رجاء تعطينا الخطوات ، واسماء النماذج ، واسماء الازرار ، لأني دخلت في برنامجك ولم اعرف وين اروح !! جعفر

تحية شكر وإجلال لك اخوي اباجودي ، في الواقع العمل اكثر مما كنت اتوقع 🙂 طريقة عملك لكل زر كحدث مستقل ، شيء ابهرني ، لأنه الآن وبكل بساطة يمكن لأي مستخدم ان يستفيد من عملك 🙂 عملت تعديل بسيط على الكود ، حتى تعم الفكرة بشكل اوسع ، وحتى يعرف المستخدم انه غير مربوبط بالنماذج الفرعية فقط: Sub DocmdMnu10() Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" End Sub Sub DocmdMnu11() Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Sub Public Function BtnClick() On Error GoTo err_BtnClick ClkBtn GoDo (Me.ActiveControl.Name) Me.frmSub.Visible = True Exit_BtnClick: Exit Function err_BtnClick: If Err.Number = 2467 Then 'when closing the Form, cant have the frmSub visible 'so ignore Resume Exit_BtnClick 'or if want to go to the next line: 'resume next Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_BtnClick End If End Function . والمدالية اللي فيها اسمي ، لقيتها منين ، انا من زمان ادوّر عليها 🙂 وشكر خاص على المدالية 🙂 جعفر ShowHideSideBareRight (2) Modified.zip

وعليكم السلام 🙂 ماهي رسالة الخطأ ؟ جعفر

الآن توكل على الله واخذ الخطوة التالية ، واطرح سؤالك وقت تدوخ 🙂 جعفر

عمل جميل اباجودي ، شكرا جزيلا 🙂 بس ياريت تضيف مجموعة نماذج ، علشان لما يتم النقر على زر ، يتم فتح النموذج الخاص به ، فليس كل الاعضاء محترفين مثلك 🙂 ومرة بعد اخرى ، نرى ان الاكسس مرن كفاية لعمل "تقريبا" كل شيء يجي على البال 🙂 اكيد عنده الادرينالين مرتفع ، وننتظر نتائجها 🙂 جعفر

الظاهر في شيء ينطبخ وانت تدري عنه 😁 القصد ، ان اخونا waheidi اخذ الفكرة من هناك ، فلو ان الاجابة كانت كذلك هناك ، فلا يكون حاجة الى موضوع جديد ، واذا الفكرة ما كانت من هناك ، فالافضل ان ندمج هذه الفكرة مع بقية الافكار ، فتكون في مكان واحد 🙂 جعفر

لاحظ نفس طلبك هنا جعفر

وعليكم السلام 🙂 اهلا وسهلا بك في المنتدى ، وللإستفادة الكاملة من المنتدى ، رجاء قراءة قوانين المنتدى: اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة هذا القسم من المنتدى هو لتبادل الاراء والافكار ، ومد يد العون للمبرمج. فإذا اردت الخوض في البرمجة وتعثرت ، فيمكنك وضع سؤالك في النقطة التي بها مشكلة ، ليساعدك الاعضاء في حلها ، اما اذا اردت ان يقوم احد الاعضاء بعمل البرنامج لك ، وبمقابل ، فرجاء وضع مشاركتك هنا : إعلانات شخصية بأجر للاعضاء جعفر

وعليكم السلام 🙂 تفضل رد من الاستاذ الغائب @رمهان جعفر

عفوا اباجودي ، بس علشان تكون مركز ، انا جعفر ، وانت في منتدى اوفسينا 🙂 طلبات ايه واحلام ايه وتوجيهات ايه واوامر ايه ، انت عاوز تودينا في ستين داهية 😮 🤣🤣🤣🤣🤣

السلام عليكم 🙂 @Moosak و @ابو جودي ياريت تضعون اجابتكم في الموضوع الاصل ، حتى يصبح ذلك الموضوع متكامل (مع مراعاة هذا مستقبلا كذلك 🙂 شكرا) : جعفر

وعليكم السلام اخوي ابو خليل 🙂 نعم ، انا كذلك اخذت الوقت حين قراءة اول مشاركة وبحثت ، وتوصلت الى المعلومة من فم الاسد : https://support.microsoft.com/en-us/office/set-the-field-size-ba65e5a7-2e6f-4737-8e72-36b93f966a33 . فتم قطع الشك باليقين 🙂 جعفر

وعليكم السلام 🙂 في اعتقادي كل اللي تحتاج له هو: . حذف هذا الجدول من الاستعلام . جعفر

السلام عليكم 🙂 اسمح لي ان اصحح هذه المعلومة: هي 255 حرف ، وليس 255بت ، الاكسس يستخدم ذاكرة بحجم البيانات المُدخلة ، ويتغاضى عن بقية الطول الذي تكتبه لهذا الحقل ، اما حجم الحقل ، فالاكسس لا يسمح لك بإضافة حروف اكثر مما تكتبه في هذه الاعدادات 🙂 وهنا تم مناقشة بعض النصائح المهمة جعفر

السلام عليكم 🙂 اخي الفاضل canary2522 ، في المرات القادمة ، رجاء مراعاة قوانين المنتدى : اضغط هنـــــــــامن فضلك لقراءة القواعد كاملة و بصفة خاصة نؤكدعلى ما يلي 1- يمنع منعا باتا نشر أية مواد تخالف حقوق الملكية الفكرية و يرجى الابلاغ عن المشاركات المخالفة من خلال زر تقرير اسفل المشاركة 2-يجب استخدام خاصيةالبحث قبل طرح السؤال توفيرا للوقت و الجهد. 3-ضرورة كتابة عنوان واضح للموضوع يدل على محتواه ويعطي وصفاً مختصرا للسؤال. 4-ممنوع منعا باتاً كتابة عناوين سينمائية مثل عاجل ، نداء الي فلان ، الي الخبراء ، طلب مساعدة ، أريد حلا..... 5-يمكن استعجال الرد باستخدام تعبير -للرفع- و غير مسموح بالالحاح او اللوم فجميع الاعضاء يشاركون تطوعا طبقا لسعة وقتهم. ومخالفة ذلك تعرض الموضوع للحذف جعفر

اخي قاسم 🙂 جميع المشاركات اعلاه ترد على سؤالك ، رجاء اخبرنا الخطوات التي لم تستطع القيام بها ، حتى نستطيع مساعدتك 🙂 جعفر

وعليكم السلام 🙂 اخي بلال ، لا توجد بيانات كافية لطلبك ، انت تطلب منا ان نخمن ، ولما نعطيك الاجابة ستقوم باعطاء معلومات اكثر علشان توصل للحل الذي في بالك !! الاستعلام هذا يقوم بالعمل ، وتلاحظ اني استعملت حقل "الموسم المدرسي" كمعيار ، فيجب عليك بعد اضافة البيانات ، باضافة حقل المكان او المدرسة كمعيار آخر يشير الى مربع التحرير والسرد في النموذج ، . حاليا وضعت الكود التالي على حدث "تحميل النموذج" ، ولكن عليك وضع الكود على حدث "بعد تحديث" مربع التحرير والسرد ، واكمال بقية الحقول (طبعا بعد ان تضيفها للاستعلام) : Private Sub Form_Load() Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From qry_Sums") rst.MoveFirst Me.Male = rst!Male Me.Female = rst!Female Me.Certificate_L = rst!Certificate_L Me.Certificate_M = rst!Certificate_M rst.Close: Set rst = Nothing End Sub . والنتيجة . جعفر 1437.موسسة1.accdb.zip

السلام عليكم 🙂 انا متابع الموضوع من البداية ، ونصيحة الاخوان في مكانها ، وبقية النصائح هنا: . كما عندي هذه الملاحظات في الكود: 1. لا تستخدم On Error Resume Next إلا في حالات جدا خاصة ، وانما استعمل رقم الخطأ وتعامل معاه: Private Sub Form_Load() On Error GoTo err_Form_Load Me.TNO.SetFocus DoCmd.FindRecord Forms!FRM_01!TNO, , , , , , True No_FRM: 'continue code here Exit_Form_Load: Exit Sub err_Form_Load: If Err.Number = 1234 Then 'ignore, Resume Next ElseIf Err.Number = 2145 Then 'ignore, No proper value from incoming Form Resume No_FRM Else MsgBox Err.Number & vbCrLf & Err.Description Resume Exit_Form_Load End If End Sub . 2. ولو انك تقدر تستخدم فلتر النموذج هكذا : myCriteria = "" myCriteria = myCriteria & "(" myCriteria = myCriteria & "[BRANDS]= '" & Me.cmbBRANDS.Column(1) & "'" myCriteria = myCriteria & ")" Debug.Print myCriteria Me.Filter = myCriteria Me.FilterOn = True . وهذه نصائح على استعماله: . ولكني انصحك بإستخدام فلتر النموذج عن طريق الاستعلام : . 3. لا تستخدم Dim بدون ان تُعرّف نوع المتغير ، يعني اذا استخدمت (Dim i) فهذا معناه Dim i as Variant 4. لما تستعمل الامر Set rs = CurrentDb.OpenRecordset ، فإنك تضع جميع البيانات الجدول/الاستعلام في ذاكرة الكمبيوتر Ram ، فيجب عليك حذف هذه البيانات في نهاية الكود ، هكذا: rst.close: set rs = nothing جعفر

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

السلام عليكم 🙂 يمكن متابعة الموضوع من موقع مايكروسوفت مباشرة: https://support.microsoft.com/en-us/office/error-in-access-when-opening-a-database-on-a-network-file-share-6cbc1560-62c2-46e7-9980-d079a46f5acc او من المنتدى الذي تشارك به مايكروسوفت: https://answers.microsoft.com/en-us/msoffice/forum/all/lock-file-problems-with-access-1601380121086/9cb70637-7d21-4e1e-941e-11b1c9e217c6 او من الموقع الذي يتابع الموقعين اعلاه ويعطيك الخلاصة: https://www.devhut.net/access-lock-file-issues/ حسب آخر المعلومات الموجودة: التحديثات اللي عملت المشكلة هي : KB5002104 for Office 2013 KB5002099 for Office 2016 Office 2019 Version 1808, build 10381.20020 revert to 10380.20037 Office LTSC 2021 Version 2108, build 14332.20204 revert to 14332.20176 and for Microsoft365 users, the build numbers of concern are: Current Channel Version 2111, build 14701.20248 revert to 14701.20226 Monthly Enterprise Channel Version 2110, build 14527.20340 revert to 14430.20342 Monthly Enterprise Channel Version 2109, build 14430.20380 revert to 14430.20342 Semi-Annual Enterprise Channel (Preview) Version 2108, build 14326.20692 revert to 14326.20600 Semi-Annual Enterprise Channel Version 2102, build 13801.21086 revert to 13801.21050 Semi-Annual Enterprise Channel Version 2008, build 13127.21842 revert to 13801.21050 . التحديثات التي عملت المشكلة ، هي للاوفيس وليست للوندوز ، ولدينا الحلول التالية: هناك تحديث صدر . ولكن التحديث اصلح الاوفيس 2019 فقط ، ولا تزال المشكلة في الاصدارات التالية: الاوفيس 2013 ، الاوفيس 2016 MSI ، الاوفيس LTSC 2021 فإذا كنت من اصحاب الوندوز التي تنتظر تحديث آخر يحل المشكلة ، يمكنك عمل التالي للتخلص من المشكلة: قم بإزالت وحذف هذه التحديثات ، هكذا : https://docs.microsoft.com/en-us/office/troubleshoot/installation/ability-to-uninstall-office بالنسبة لمسار قاعدة البيانات الخلفية (الجداول) ، استخدم اسم مسارها ولا تختصره بحرف ، يعني استعمل Server_01\myDB\ABC.accd\\ ، ولا تستعمل الاختصار z:\myDB\ABC.accd ، اوقف تحديثات الوندوز ، لأنك لو لم توقفها ، فسيقوم الوندوز بتنصيب هذه التحديثات مرة اخرة ، وتحصل لك المشكلة مرة اخرى. او قمت بإزالت الاوفيس ، وتركيب الاوفيس 2019 (الافيس 2010 لم يتأثر بالتحديث ، لأن التحديث لا يخصه). رجاء من الاخوة الذين يعانون من هذه المشكلة ، ان يخبرونا بالجديد ، حتى يستفيد الجميع 🙂 جعفر

1. استخدامي الامر Len طريقتي في التعرف على ان المتغير: my_info المتغير ليس فاضي my_info = "" وليس فيه قيمة isNull(my_info)= true يعني بدل if my_info="" or isnull(my_info)= true then استعمل if len(my_info & "")=0 then . 2. لماذا استخدمت if لما الكود يقرأ الدالة لأول مرة ، فقيمة المتغير my_info هو "" (لأننا اعلنا ان string ، بينما لو كان المتغير رقم / مثل integer او Double او .. فتكون قيمته 0) ، فيقوم الكود بالذهاب الى الجدول مرتين (مرة لكل Dlookup) (مع انك تستطيع الذهاب الى الجدول مرة واحدة وقراءة قيمة الحقلين مرة واحدة ) ، ولما تقرأ الدالة مرات اخرى ، فيقوم الكود بالذهاب الى الجدول مرتين ، بينما لما استخدمت الامر if في الدالة ، فالدالة لما تجد ان المتغير my_info فيه قيمة (اي انه ذهب للجدول سابقا واحضر القيمتين) ، فلا تذهب للجدول ، وانما تعطي/تظهر القيمة مباشرة 🙂 جعفر

ولا يهمك ، تفضل Private Sub b_emp_add_Click() On Error Resume Next If Forms![LoginFourm]![Delete] = 0 Then MsgBox خطأ .. ليس لديك صلاحيات اصدار أذن", 0 + 16 + 1048576", fMy_Msgs Else DoCmd.OpenForm "Permission_add", , , , acFormAdd End If End Sub . والدالة option comapre database option explicit dim my_info as string public function fMy_Msgs() as string if len(my_info & "")=0 then my_info = DLookup("[name_pro]", "[info]") & " | " & DLookup("[Version_pro]", "[info]") end if fMy_Msgs = my_info end function جعفر