Moosak

وهذه محاولة لتقليص حجم الكود أيضا 🙂 Dim x As Integer For x = 1 To 8 Me("txt" & x).Visible = False Me("txtm" & x).Visible = False Next x Me.txtmst.Visible = False Me.txtstrorag.Visible = False Me.txtID.Enabled = False Me.txtitems.Enabled = False Me.txtmag.Enabled = False If Me.commanfaz = "منفذ1" Then Me.txt1.Visible = True Me.txtm1.Visible = True ElseIf Me.commanfaz = "منفذ2" Then Me.txt2.Visible = True Me.txtm2.Visible = True ElseIf Me.commanfaz = "منفذ3" Then Me.txt3.Visible = True Me.txtm3.Visible = True End If

تفضل أخي @jo_2010 🙂 هذا شكل الكود في الموديول : Public Sub PrintOut(pname As String, ID As Long) Screen.ActiveForm.Refresh If MsgBox("هل ... تريد طباعة التقرير الخاص بــ " & pname & " ؟ ", vbQuestion + vbMsgBoxRight + vbYesNo, Default_Title) = vbYes Then DoCmd.OpenReport "ss", acViewPreview, , "[id]=" & ID DoCmd.PrintOut DoCmd.Close acReport Else DoCmd.OpenReport "ss", acViewPreview, , "[id]=" & ID End If End Sub وتستدعيه بهذه الطريقة لأنه صار يستقبل معاملين هذه المرة ( الــ ID ، واسم الموظف ) Call PrintOut(pname.Value, Me.ID) Code.accdb

نعم ممكن طبعا 🙂 ولكنك هذه المرة ستدخل pname كمعامل للدالة لأنه يتغير كل مرة لكل مريض .. فستكون الصياغة بهذا الشكل ( عدل انت عليه لاحقا كما تشاء ) : Public Sub PrintOut(pname as string) If MsgBox (" التقرير الخاص بــ تريد طباعة مل" & pname & " ", vbQuestion + vbMsgBoxRight + vbYesNo, "") vbYes Then DoCmd.PrintOut Else Me.Undo End If End Sub

تابع هذا الموضوع وستفهم إن شاء الله 🙂

الله .. الله .. الله .. أيه الحلاوة دي كلها أفندينا .. 🤗🌹🌼🌷 تجاوزت حدود المفاهيم العتيقة عن الأكسس .. وفتحت آفاق جديدة 😊

تفضل أخي @Abdelaziz Osman 🙂 جعلته حقل محسوب غير مرتبط بالجدول وذلك لكي يعدل الترقيم نفسه حتى لو تم حذف السجلات .. وهذه قيمة الحقل : =IIf(IsNull([معرف]);"";DCount("*";"[Talabat]";"[معرف]<=" & [معرف])) ترتيب الترقيم.accdb

تنشئ حقل محسوب في الاستعلام وتغير البيانات حسب كل استعلام أو جدول :

الثورة الحالية هي في كيفية كتابة ال Prompt ( الطلب ) بشكل سليم للتعامل مع أدوات الذكاء الاصطناعي ، وهناك الآن مواقع مخصصة تساعدك على كتابته بشكل مناسب، فكلما كان توصيف الطلب بشكل سليم كانت النتائج أدق 🙂 شخصيا استفدت كثيرا من هذه الأدوات في كتابة العديد من الأكواد ( البسيطة أو المعقدة ) ، ولا غنى بالذكاء عن تعلم الأساسيات .. 🙂

تفضل مرفقك أخي @Hamtoooo بعد تطبيق تعليمات معلمنا العود @ابوخليل 🙂 نفس الرسائل والأزرار .. وألق نظرة على محتويات الوحدة النمطية وكذلك جرب تغيير النصوص فيها ولاحظ الفرق في النموذج .. وهذا محتوى الوحدة النمطية : Option Compare Database Option Explicit Public Function Default_MSGBOX() 'الرسالة الموحدة MsgBox "هذه الرسالة موحدة", , Default_Title End Function Public Function Default_Title() As String ' العنوان الموحد Default_Title = "( اوفيسنا | الاصدار 3.8 )" End Function Public Function Default_Text() As String ' نص ثابت يكتب في الوحدة النمطية Default_Text = "هذا النص تم استدعائه من الوحدة نمطية" End Function Public Function DeleteBtn_Click() 'أمر عام يوضع على أزرار الحذف لحذف السجلات On Error GoTo Err_DeleteBtn_Click DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdDeleteRecord Exit_DeleteBtn_Click: Exit Function Err_DeleteBtn_Click: MsgBox Err.Description Resume Exit_DeleteBtn_Click End Function استدعاء الاكواد.accdb

شكرا لك عمي @ابو جودي على الفكرة والطرح .. 🙂 أنا فعلا عندي معاناة في السرعة حتى لما أعمل دالة وأدخل فيها عائلة ال D .. فبجرب نفس الدوال بس بال Recordset وأشوف الفرق .. على فكرة أستاذ @jo_2010 الإجابة المباشرة على سؤالك كانت في هذا الرد 😅☝

أنا عملت عليه أكواد معقدة للاستيراد من الأكسل للأكسس مثلا وبشروط معقدة ومتداخلة ونجحت في الحصول على البنية الأساسية للكود ولكني عدلت عليه عدة أمور لحد ما وصلت لحاجتي .. هو أنت في النهاية فعلا لازم تكون فاهم أيضا مش حافظ وبس علشان تعرف كيف تحصل اللي تريده 🙂

شكرا لك يا عمي المعقد 😅✋🏻 يعني في كل مكان أريد فيه استجلاب قيمة من الجداول ( في الحقول الغير منضمة) كبديل لدالة DSum مثلا يحتاج أعمل له دالة خاصة بيه بالشكل ذا !!!!؟؟؟ ليه كل التعقيد ده يا عم الناس 😅🌼

ليس دائما .. في أغلب الأحيان النتيجة تعتمد على كيفية كتابتك للسؤال أو الطلب .. وأحيانا بسبب أن الموضوع معقد بالنسبة للأكسس أو يعتمد على مكتبات خارجية .. وفي كثير من الأحيان يعطيك أكواد متقنة 🙂

تفضل 🙂 Database31.accdb

طيب يا عم @ابو جودي الجميل .. 🙂 .. السؤال الأهم كان هو ذا 😁☝ إجابتك على هذا السؤال أهم من السؤال السابق 😄🌼

وعليكم السلام ورحمة الله وبركاته .. 🙂 الطرق كثييييييييييييييرة جدا .. الأفضل أن ترفق ملفك الخاص للتطبيق عليه مباشرة .. 👍

حبيبنا @ابو جودي شكرا لك على هذا التنبيه .. 🙂🌹 ولزيادة الإفادة : كيف تستخدم جمل SQL كمصدر لحقل غير منظم في النموذج ؟ ..... أو كحقل محسوب في الاستعلام ؟ أليست دوال DLookup وأخواتها عبارة عن جمل SQL مبسطة على شكل Function في الواقع ؟

تشريف من صاحب الأفكار العبقرية المجنونة .. والعقلية الفذة 😊🌹 روووح ياشيخ ربنا يفتحلك أبواب العلوم والأرزاق 😇🤲🏼 ومن ثم أيه المكتبة المعمورة دي مش عارفها 🙃😁✌

في نفس المكان أكتب : 50 and 80 مع الأخذ في الإعتبار نصيحة شايبنا الكريم @شايب 🙂

ضع هذا السطر أول الأوامر في زر الحذف : If Me.Admin = true Then Exit Sub 🙂

شكرا لك دكتور جمال 🙂 هدية مقبولة ، وبرنامج شامل ، فيه الكثير من الفوائد 🌹🌷

كل عام وأنت بخير أختي صفاء 🙂 🌷

أرى أن جبهات أخرى فتحت .. 😅 .. الفرار .. الفرار لا تستعجلوا الحكم 😅😎✋🏻

أما أنا الفكرة ضربت في راسي وسنبدأها إن شاء الله .. خليك مستعد 😏💪🏻

الحبيب والرفيق الجميل @ابو جودي 😊 دخلتني في منافسة أنا غير مستعد لها .. وجئتني على حين غرة 😂 لااااااااااا .. وبعد أنت الحكم !!! 😜 ولكن أيش رايك تعمل لنا منافسة شريفة وتفتح موضوع منفصل يكون فيه تحدي معين .. ومدة تنفيذ محددة ( علشان يمدينا نذاكر كويس 😁 ) ويكون عمنا @ابوخليل هو الحكم 😎؟؟ قلت أيييييييييييه ؟؟ 😏