kanory

وهل عرفت السبب ؟؟؟؟؟؟؟ هو هذا حلي الجديد !!!! هههههههه وايضا هناك حل ثالث ؟؟؟ تفضل اولا الحل الثالث باستخدام Private Sub Form_Open(Cancel As Integer) Dim SQL As String SQL = "SELECT Nom_Menha, Menha_ID, ID FROM Qry_menha " & _ "WHERE Menha_ID = '" & Forms!FrmMenah!Etar.Column(1) & "' " & _ "ORDER BY Menha_ID;" Me.Menha_Name.RowSource = SQL End Sub اما الحل الثاني والذي اكتشفته انت اريدك ان تعرفة بنفسك !!! تغير المصدر3.mdb

اخي طاهر ايضا هناك طريقة اخرى وبدون ادراج مربع النص اذا تريدها ارفقها لك ابشر

طيب جرب المرفق التالي تغير المصدر.mdb

االكود شغال وليس فيه مشكلة ..... ممكن تحديد المشكلة ؟؟؟ الان انا اخترت المنح العائلية ماذا تريد ان يظهر في النموذج عند الضغط على فتح نموذج الشرط ؟؟؟ المنح العائلية فقط صحيح ؟؟؟

مكن تصدير الاستعلام الى اكسل وممكن ترقمها تسلسليا بعد النقل الى الاكسل وممكن ترقيمها في الاستعلام ثم تصديرها الى الاكسل

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

🙄 q serial.accdb

اخي @Abdelaziz Osman الطرق كثيرة للترقيم في الاستعلام وانت لم تذكر لنا اسم الجدول .... لكن جرب التعديل على هذا حسب الجدول لديك واسماء الحقول ... لأاني ادرج في الاستعلام اسم حقل واحد فقط SELECT DCount ( "*", "Notes_Table", "[User_FID] <= '" & [User_FID] & "'" ) AS تسلسل, [User_FID] AS Expr1 FROM Notes_Table ORDER BY [User_FID];

اين المرفق ؟؟

ممكن شرح لالية عمل البرنامج حتى نفهم ونساعد

مبارك لك اخي @محب العقيدة نسأل الله لك التوفيق والسداد

تفضل ملفك المعدل <<<<<<<<<<<<>>>>>>>>>>>>> برنامج القوائم اعدادى.accdb

انظر هل هذا هو المطلوب ..... الصف الاول 2026.accdb

ممكن عن طريق كود عند تحميل النموذج يلزم الاكسس استخدام لغة مثلا عربية . السعودية او عربية . عمان وغيرها Private Declare PtrSafe Function LoadKeyboardLayout Lib "user32" _ Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal Flags As Long) As Long Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" _ (ByVal HKL As LongPtr, ByVal flags As Long) As LongPtr Private Sub Form_Load() Dim hkl As LongPtr ' 00000401 = Arabic (101) hkl = LoadKeyboardLayout("00000401", 1) ActivateKeyboardLayout hkl, 0 End Sub

بارك الله فيك وفي عملك اخي @محمود حموده جهد مبارك

اخي الكريم @ابوخليل للاسف لم اعرف السبب او التشخيص ولكن العلاج كان شعبيا بحت كل ما فعلته اضفت رأس للتقرير الفرعي فقط 😀 وجعلته صغيرا جدا حتى لا يظهر لكن يبقى السؤال لما تحدث هذه الظاهرة ؟؟؟؟ اذا ... العلاج شعبي ومسكن فقط 😁

تفضل :::::::: KAN1.accdb

استبدل الكود الموجود لديك بهذا Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer) If Me.txtCount > 12 Then Cancel = True ' يخفي أي سجل أكبر من 12 End If End Sub انظر .... هل هذا هو المطلوب KAN.accdb

تفضل .... غير الشيفرة التي لديك بهذه .... On Error GoTo XYZ If MsgBox("سوف تقوم بحذف الكلية التي ليس لها قسم", vbCritical + vbYesNo, "تحذير") = vbYes Then DoCmd.SetWarnings False DoCmd.OpenQuery "query1" Me.List6.Requery MsgBox "تمت عملية حذف السجلات المطلوب حذفها بنجاح" Else Exit Sub ' خروج فوري إذا المستخدم ضغط "لا" End If Exit Sub ' خروج قبل جزء معالجة الأخطاء '==================== XYZ: MsgBox "حدث خطأ: " & Err.Description

انظر الاستعلام SALESQT قمت بحذف الحقلين وممكن تستخدم عبارة تعبير Expression كما في الصورة

تفضل ...... EL-DATA- T.rar

تفضل ................. EL-DATA.accdb

تعدل هذا cmbType حسب اسم القائمة المنسدلة لديك لو ارفقت مرفقك لكان التعديل عليه افضل لك

جرب بهذه الصورة اذا كنت قد فهمت مطلوبك بالشكل الصحيح Private Sub cmbType_AfterUpdate() ' تعبئة حقل النوع في الجدول Me.نوع = Me.cmbType.Column(1) ' عمود النوع ' تعبئة حقل التصنيف بناءً على النوع Me.تصنيف = Me.cmbType.Column(2) ' عمود التصنيف End Sub

تفضل .................... مثال1.accdb