Moosak

إضافة إلى ملف أخي سامي .. وتطبيق خاصية البحث بأي جزء من القائمة المنسدلة .. ثم إحضار رقم الملف : هنا الأكواد : Private Sub Combo0_AfterUpdate() Me.ReText = Me.Combo0 Me.Combo0.Requery Me.FileNumTxt = Me.Combo0.Column(1) End Sub Private Sub Combo0_Change() Me.ReText = Me.Combo0 End Sub Private Sub SearckBtn_Click() Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub Private Sub ShowAllBtn_Click() Me.ReText = "" Me.Combo0.SetFocus Me.Combo0.Requery Me.Combo0.Dropdown End Sub والملف المرفق : kids (1).accdb

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

وعليكم السلام ورحمة الله وبركاته.. 🙂 للأسف ليس لدي فكرة عن ما تريده ..

جرب وضعه عند الفتح في ال Main Form

تم التطبيق على ملفاتك أخي @ahmus في حال الاتصال يفتح لك النموذج الرئيسي على طول . وفي حال عدم الاتصال يظهر لك : لا : يغلق لك البرنامج . نعم: يفتح لك مستعرض الملفات وتختار منه ملف الجداول : ثم بعدها تظهر لك رسالة النجاح ... ويفتح لك النموذج الرئيسي : اثناء انقطاع الشبكة - 3.rar

بالصدفة وأنا أتجول في المنتدى وجدت هذا 🙂

إذا حاط هذا الكود في نفس الفورم اللي موجود فيه الزر اللي هوه [MainForm] مثلا .. أكتبه بهذي الطريقة : Me.Command12.Visible = False

ومشاركة مع أستاذنا أبا جودي ، يمكنك عملها بهذه الطريقة عند فتح الفورم الذي به الزر .. If [Forms]![Login]![IsAdmin] = True Then Me.Botton.Visible = True Else Me.Botton.Visible = False End If ويختلف الأمر باختلاف الطرق التي تم تعيين الصلاحيات بها .

ياسلام ياسلام عليك يا معلم @jjafferr .. حطيت يدك على الجرح 😅😋🍝🍜🍲🍛 حسيت بطعم التشبيه في بطني 😂 فعلا الأدوات موجودة .. والأفكار تتمايز وتختلف .. وكلنا نكمل بعضنا البعض 👍😉

للأسف لا أعرف كيف أحولها لك للـ 2003 .. لعل أحد المختصين يجود علينا بذلك 🙂

المهندس الرائع @jjafferr 😊 ورجل المستحيل @ابو جودي 😁 دائما أجدكما متقدمان في كل شيء 😅 بالفعل اللغة العربية تعتبر إضافة رائعة .. لو أنها تتوفر بدون إنترنت 🙂 لكما جزيل الشكر والتقدير .. 🌷

سعدت بمروركم أساتذتي الأفاضل .. 😊 ومنكم نتعلم 🌷

السلام عليكم ورحمة الله وبركاته درسنا اليوم عبارة عن فكرة فريدة وهي أن تجعل الأكسس يقرأ أي عبارة تريدها ، هذه الميزة تعمل مع النصوص الإنجليزية، وللأسف لا تعمل على النصوص العربية، ولعل هناك طريقة أخرى لا أعلمها فليفدنا من له علم بذلك 🙂 ولا تنسوني من صالح دعواتكم .. ونصائحكم وتوجيهاتكم .. 🙂 ومع ملف الشرح للتطبيق : الأكسس يتكلم.accdb

حول لغة قوائم البرنامج للإنجليزية أخي حافظ .. هي موجودة ولكن أتوقع أنها تظهر لديك باللغة التي تعمل عليها .. 🙂

أعتقد من خلال جواب الأخ نبيل @nabilalibibo أن الحل يكمن في تقسيم قاعدة البيانات كما ذكر الأخ عمر @Amr Ashraf . وهناك الكثير من المواضيع التي تحدثت عن هذا الموضوع يمكن الرجوع إليها ..

حاولت أسويها وحدي ولو بشكل (مشي حالك ) .. لكن الظاهر حتى أنا قهوتي ما ضاربة في المخيخ 😆 خلاصة ما أريد توصيله لك : تحويل الكود إلى دالة . 🙂 شي من جنس هذي مثلا : Public Function DateFromTable(myDate As Date, Taqweem As String, WhatDatePart As String) As Date Select Case WhatDatePart Case Is = "Weekday" DateFromTable = DLookup(Taqweem, "tbl_Months", "[Months_Number]=" & Weekday(myDate)) Case Is = "Month" DateFromTable = DLookup(Taqweem, "tbl_Months", "[Months_Number]=" & Month(myDate)) DateFromTable = Day(myDate) & " " & DateFromTable & " " & Year(myDate) End Select End Function

لله درك من سبّاق 🙂 قصدت لك يا معلمنا الكود الموجود في مشاركتك الأولى .. في حال أردت وضع تاريخ معين على أي حقل أو استعلام مثلا ( طبعا بطريقة الجدول ) .. نريد أن نحضر القيمة من الجدول عن طريق دالة بهذه الصيغة مثلا : 'Function syntax: DateFromTable(MyDate as Date,Taqweem as String, DatePart as String, Format as String) as Date 'Call it like this: DateFromTable(Me.MyDate, "Georgian", "Month", "MMMM") طبعا كل ما تراه هو مقترح لمبتدئ وأنت أدرى بالصواب 😅

أيش رايك مهندس جعفر @jjafferr تحول الكود لدالة بها متغيرات تضاف بعد اسم الدالة يختار منها المستخدم نوع التقويم والفورمات المطلوب للتاريخ ليسهل طلبها .. بدل التعديل على الكود في كل مرة .. 🙂

علميا ممكن إن شاء الله عن طريق الاستعلامات وال VBA ... ولكن لاختبار ذلك عمليا نحتاج انموذج للتطبيق عليه 🙂

اللهم آمين .. وإياكم أخي @ahmus لا تنسى التأشير على أفضل إجابة لتسهل على الآخرين الوصول إليها 🙂

المدير الجديد يتكلم .. 😄 شرفت وآنست 😁

هذا تطبيق على برنامجك : عند الاتصال : وعند انقطاع الاتصال : ولا تنسى أن تمر على الكود التالي لوضع الأمر الذي يناسبك في حالة الاتصال أو الانقطاع : Public Function Autoexec(TableName As String) On Error GoTo errorHandler Dim Result As Boolean Result = TableLinkOkay(TableName) If Result = True Then MsgBox "القاعدة متصلة بالجداول" 'هنا تضع الأوامر التي تريدها إذا كانت القاعدة متصلة كفتح النموذج الرئيسي مثلا ElseIf Result = False Then MsgBox "القاعدة غير متصلة بالجداول" 'هنا تضع الأوامر التي تريدها إذا كانت القاعدة غير متصلة كالخروج من البرنامج مثلا أو إعادة الإتصال End If AutoexecOutDone: Exit Function errorHandler: MsgBox "Error #" & Err.Number & ": " & Err.Description, vbCritical Resume AutoexecOutDone End Function في الموديول التالي : ولتغيير اسم الجدول المراد فحصه تفتح ماكروا ال Autoexec في وضع التصميم وتغير اسم الجدول من هنا : اثناء انقطاع الشبكة.rar

تضع اسم الجدول هنا فقط : Private Function TableLinkOkay(strTableName As String) As Boolean أو عندما تنادي الدالة هكذا : TableLinkOkay("LinkedTableName") ويمكنك وضع الكود على حدث عند الفتح لأول نموذج يفتح في قاعدة البيانات ... أو كما أفضل أن تضعه على ماكرو RunCode وتحفظه بـاسم : Autoexec ليعمل لكل بشكل مباشر عندما تفتح ملف الأكسس .

ربما يمكنك إظهار القيمة التي تريدها في الحقل الغير منظم لسجلات معينة دون الأخرى بجعل هذه القيمة في جملة شرطية IF مثلا .. بحيث تكون مبنية على قيمة أخرى في حقل منظم في نفس السجل .. مثال : تكون قيمة الحقل الغير منظم هكذا : إذا كان المجموع أكبر من 10 تكتب " مرتفع " وإلا فتكتب "" .. (أي يبقى فارغاً).

استخدم الدالة التالية : Private Function TableLinkOkay(strTableName As String) As Boolean 'Function accepts a table name and tests first to determine if linked 'table, then tests link by performing refresh link. 'Error causes TableLinkOkay = False, else TableLinkOkay = True Dim CurDB As dao.Database Dim tdf As TableDef Dim strFieldName As String On Error GoTo TableLinkOkayError Set CurDB = DBEngine.Workspaces(0).Databases(0) Set tdf = CurDB.TableDefs(strTableName) TableLinkOkay = True If tdf.Connect <> "" Then '#BGC updated to be more thorough in checking the link by opening a recordset 'ACS 10/31/2013 Added brackets to support spaces in table and field names strFieldName = CurDB.OpenRecordset("SELECT TOP 1 [" & tdf.Fields(0).Name & "] FROM [" & tdf.Name & "];", dbOpenSnapshot, dbReadOnly).Fields(0).Name 'Do not test if nonlinked table End If TableLinkOkay = True TableLinkOkayExit: Exit Function TableLinkOkayError: TableLinkOkay = False GoTo TableLinkOkayExit End Function وتستدعيها بهذه الطريقة : TableLinkOkay(LinkedTableName) 'داخل () تكتب اسم أحد الجداول المرتبطة وبه يتم فحص الاتصال وسترجع لك الدالة بـ True إذا كانت متصلة ، و بـ False إذا كانت غير متصلة .. وعليها ستبني الأمر الذي تريده ..