نجوم المشاركات

شكلي ما وضحت لك فكرة الكود بالشكل المطلوب 😅 كتبته بسرعة بدون تفاصيل ، وهذا كان المقصود ( روتين واحد لكل السورس أوبجكت ) : Sub DocmdMnu(FrmName As String) Me.frmSub.SourceObject = FrmName End Sub Sub GoDo(ByRef ActiveControlName As String) Select Case Nz(ActiveControl.Name, "") Case Is = "cmdMnu1": DocmdMnu ("frmEmployees") Case Is = "cmdMnu2": DocmdMnu ("Table.tblStudents") Case Is = "cmdMnu3": DocmdMnu ("Table.tblAdministrativeforms") Case Is = "cmdMnu4": DocmdMnu ("Table.tblStudentOffenses") Case Is = "cmdMnu5": DocmdMnu ("Table.tblStatements") Case Is = "cmdMnu6": DocmdMnu ("Table.tblRecords") Case Is = "cmdMnu7": DocmdMnu ("Table.tblDataimport") Case Is = "cmdMnu8": DocmdMnu ("Table.tblCertifications") Case Is = "cmdMnu9": DocmdMnu ("Table.tblPhoneBook") Case Is = "cmdMnu10": Me.frmSub.SourceObject = "" '"Table.tblSystemConstants" DoCmd.OpenForm "frmEmployees" Case Is = "cmdMnu11": Me.frmSub.SourceObject = "" ': Me.frmSub.Visible = False: MsgBox "Welcome to our world of www.officena.net" DoCmd.Close acForm, Me.Name End Select End Sub تم التعديل في المرفق التالي : إبداعات أبا جودي.rar

السلام عليكم ورحمة الله اجعل الكود هكذا Sub ADD_DESCRIPTION() Dim ws As Worksheet, LR As Long, C As String Dim x As Byte Set ws = Sheets("DEFINITIONS") LR = ws.Range("D" & Rows.Count).End(xlUp).Row C = Me.TextBox1.Value x = WorksheetFunction.CountIf(ws.Range("D2:D" & LR), C) If x > 0 Then MsgBox "هذا البيان موجود ولا يجب تكرار إضافته" Exit Sub Else: ws.Range("D" & LR + 1) = C MsgBox "تم إضافة البيان الجديد بنجاح" Range([d2], [d2].End(xlDown)).Select Selection.Sort [d2], xlAscending Range("A1").Select TextBox1 = "" TextBox1.SetFocus End If End Sub

تشكر أستاذ جعفر .. 🙂 🌹 ولكن سؤال يراودني .. ليش ننقل الكود في وحدة نمطية ما دام أنه يخدم نموذج واحد ؟

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

انظر هذا المرفق ربما توضح لك بعض التصورات من هنا

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

ايه ده دا الجمال ده التحدى الجديد لهذا الموضوع هو نقل كل الاكواد الى وحدة نمطية ليسهل استدعاؤها بكل بساطة الى النموذج بعدد قليل جدا جدا من اسطر الاكواد

هذه الكلمات بمثابة وسام بالنسبة لى استاذى الجليل ومعلمى القدير و والدى الحبيب استاذ @jjafferr جزاكم الله خيرا انا بصراحة كنت تعبان ومرهق جدا مكنتش قادر افكر تانى فى اى حاجة 🤭 شكرا على لمساتكم التى هى دائما بمثابة النكهة التى لا غنى عنها

رووووووووووووووعة ما شاء الله عليك يا @ابو جودي 😊 أقترح عليك تخلي أسم الفورم كمتغير مع اسم الدالة هكذا : Sub DocmdMnu(FrmName As String) Me.frmSub.SourceObject = FrmName End Sub '___________________________________________________ Sub GoDo(ByRef ActiveControlName As String) Select Case Nz(ActiveControl.Name, "") Case Is = "cmdMnu1": DocmdMnu ("FormName") Case Is = "cmdMnu2": DocmdMnu ("FormName") Case Is = "cmdMnu3": DocmdMnu ("FormName") Case Is = "cmdMnu4": DocmdMnu ("FormName") Case Is = "cmdMnu5": DocmdMnu ("FormName") Case Is = "cmdMnu6": DocmdMnu ("FormName") Case Is = "cmdMnu7": DocmdMnu ("FormName") Case Is = "cmdMnu8": DocmdMnu ("FormName") Case Is = "cmdMnu9": DocmdMnu ("FormName") Case Is = "cmdMnu10": DocmdMnu ("FormName") Case Is = "cmdMnu11": DocmdMnu11 End Select End Sub

تحية شكر وإجلال لك اخوي اباجودي ، في الواقع العمل اكثر مما كنت اتوقع 🙂 طريقة عملك لكل زر كحدث مستقل ، شيء ابهرني ، لأنه الآن وبكل بساطة يمكن لأي مستخدم ان يستفيد من عملك 🙂 عملت تعديل بسيط على الكود ، حتى تعم الفكرة بشكل اوسع ، وحتى يعرف المستخدم انه غير مربوبط بالنماذج الفرعية فقط: 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

بعد اذن الاستاذ ابراهيم الحداد جزاه الله خيرا تم العمل بمعادلة ROUND متوسط الاول+.xlsx

وعليكم السلام تفضل اسماء.xlsx

والان المرفق بعد ربط الازرار بالاكواد بناء على طلب واومر استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr احس حالى باختبار وانتظر النتيجة ShowHideSideBareRight (2).zip

طيب جرب واعلمنا بالنتيجة ..................... s.rar

السلام عليكم ورحمة الله ضع هذه المعادلة فى شيت ديسمبر الخلية D7 ثم اسحب يسارا و للاسفل =MAX(اكتوبر!D7;نوفمبر!D7) اما المعادلة التالية فى شيت المتوسط فى الخلية D7 ثم اسحب يسارا وللاسفل =AVERAGE(اكتوبر!D7;نوفمبر!D7;ديسمبر!D7)

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

أختنا و معلمتنا الكريمة الغالية علينا جميعاً زهرة جزاك الله كل خير أخي الكريم رضوان

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

هي عضوة نشطة وموهوبة في عالم الأكسس ما شاء الله على أختنا زهرة الفاضلة النبيلة ونشكر لك يا أخي رضوان على لمسة الوفاء أيها النقي