Foksh

استاذة @safaa salem5 اتمنى أن يكون هذا طلبك 🙄 Lab ( Edited ).accdb

تفضل اخي الكريم صلاحيات المستخدمين.accdb

lab (1) (1).accdb فيديو مرفق 20231209_223538.zip

تفضل أخي الكريم ، التقرير Query1 new1.accdb

أستاذة صفاء ، جربي هذا المرفق تفضلي lab (1) (1).accdb

تفضلي استاذة صفاء ، هذه تجربتي البسيطة مع بعض التعديلات البسيطة ,, lab (1) (1).accdb

مشاركه خارجية ،، Private Sub CountRecordsInTable() Dim tableName As String Dim fieldToCount As String Dim recordCount As Long Dim strSql As String ' تعيين اسم الجدول tableName = "اسم_الجدول" ' تعيين اسم الحقل الذي ترغب في حساب عدد سجلاته fieldToCount = "اسم_الحقل" ' بناء استعلام SQL لحساب عدد السجلات strSql = "SELECT Count(" & fieldToCount & ") AS RecordCount FROM " & tableName ' استخدام استعلام SQL لاحتساب النتيجة recordCount = DCount(fieldToCount, tableName) ' عرض النتيجة MsgBox "عدد السجلات في الجدول " & tableName & " هو: " & recordCount, vbInformation, "نتيجة العدد" End Sub جرب هذا الكود مع تغيير اسم الجدول والحقل.

أخي الكريم ، هل لك أن ترسل مرفق بسيط ؟ مع العلم أن التعديل هو فقط على الاستعلام الأول فقط

تم تعديل المرفق بالتعليق الأول

مرفق ملف نصي TXT يتضمن باقي التعديلات ، حسب ما تصورت طبعاً Union Query.zip تم تعديل الملف ، يحتوي الاستعلام الأول كتجربة ,,

تفضل هذا المرفق واعطيني النتيجة Give.accdb

هذه فكرة قد تجد فيها الحل ، New Microsoft Access Database.accdb

اخي الكريم من باب التوضيح ، هل تقصد بأنك مثلاً تريد البحث عن قيمة موجودة بين رقمين ( كفكرة البحث بين تاريخين ) ؟؟ فسر أكثر رحم الله والديك و والدينا 😊

لعدم توافر سيرفر عندي ، جرب هذا المرفق Server Connect.accdb

تفقد هذا الملف قد يفيدك في حل مشكلتك ، لكنه بطريقة غير التي اعتمدتها في مرفقك. Whatsapp Sender.accdb

هذا ملافق مثال ، تفضل vdata.accdb

If IsNull(TextBox.Value) Then MsgBox "يرجى تعبئة الحقل", vbExclamation, "" TextBox.SetFocus End If

اخي الكريم ، تم تصحيح الكود Private Sub kind_Res_AfterUpdate() If IsNull(DLookup("[txtdatay]", "Valueco", "[txtdatay] = '" & Me.kind_Res & "'")) Then MsgBox "تعبير غير صحيح", , "" End If End Sub

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

أستاذي ومعلمي @عمر ضاحى ، مداخلة Private Sub kind_Res_BeforeUpdate(Cancel As Integer) If Me.kind_Res <> DLookup("[txtdatay]", "[Valueco]", "[txtdatay]='" & Me.kind_Res & "'") Then MsgBox "تعبير غير صحيح" Cancel = True End If End Sub جرب هذا التعديل

توقيف هذا السطر ID = x(0)! واستبداله بهذا السطر [Forms]![visit_frm]![ID] = [ID]

بعد اذن استاذي @عمر ضاحى تفضل الملف بما قام به الأستاذ vdata.accdb

ارسل رابط او النسخة التجريبية من هذا البرنامج لتفقده 😅

بداية هل النسخة التجريبية قاعدة بيانات آكسيس ؟؟ وارسل النسخة التجريبية التي تتحدث عنها لتجربتها إن كانت هناك آلية لتعديلها ، مع العلم أن هناك بالمنتدى نسخة محدثة من الأخ والاستاذ @Moosak تجدها في هذا الرابط

تفضل اخي الكريم نسخة ١ نسخة ٢