Foksh

لا تنسى ، اذا انتهت المشكلة و لله الحمد ، فقط اختر الإجابة كأفضل إجابة

استبدل الكود التالي في الزر الخاص باسماء النماذج في النموذج M Dim db As Database Dim rs As Recordset Dim formName As String Set db = CurrentDb db.Execute "DELETE * FROM Frm_Nams" Set rs = db.OpenRecordset("Frm_Nams") For Each frm In Application.CurrentProject.AllForms formName = frm.Name rs.AddNew rs.Fields("Frm_Namo").Value = formName rs.Update Next frm rs.close Set rs = Nothing Set db = Nothing MsgBox "تم إضافة أسماء النماذج بنجاح", vbInformation

يجب طلب الإذن بالوصول

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

استاذة @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]