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

على الرغم ان استاذ جعفر عمل المطلوب لكن انا اريد ان اشرح قصدي كان قصدي في جملة استاذ جعفر اي يعني سيكون الكود كالتالي =IIf(IsError([تابع15]![نص13]);0;[تابع15]![نص13])

تفضل ، المرفق بطريقة اخي رمهان جعفر 724.1.55.accdb.zip

تفضل تم الاستغناء عن كود xsql بالكامل ، واستخدام الاستعلام Qry_T1 بدلا عنه جعفر 722.1.up.accdb.zip

شكرا اخي رمهان بالفعل ، يمكن الاستغناء عن الكود ، واستعمال المعادلة التاليه في الحقل مباشرة: =IIf(IsError([تابع15]![نص13]),0,[تابع15]![نص13]) جعفر

تفضل جعفر 722.1.up.accdb.zip

مشاركة مع اخي جعفر لي محاولة هنا هي شبيهه لماتريد وباختصار : عمل مربع رديف واستخدام الدالة iserror تحياتي للجميع

السلام عليكم الطريقة التي اقترحتها لم تفلح ، لذا استخدمت الكود التالي لعمل اللازم Private Sub Sub_Values() On Error GoTo err_Sub_Valuest Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From [مساعد يوميه]") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount 'a pause is required PauseTime = 0.5 Start = Timer Do While Timer < Start + PauseTime DoEvents Loop If RC > 0 Then Me.نص130 = Me.[تابع15]![نص13] Me.نص228 = Me.[تابع15]![نص23] Me.نص28 = Me.[تابع15]![نص17] Me.نص132 = Me.[تابع15]![نص29] End If rst.close: Set rst = Nothing Exit Sub err_Sub_Valuest: If Err.Number = 3021 Then 'No Records in SubForm Me.نص130 = 0 Me.نص228 = 0 Me.نص28 = 0 Me.نص132 = 0 ElseIf Err.Number = 3061 Then 'parameter required Set db = CurrentDb Set qdf = db.QueryDefs("[مساعد يوميه]") For Each prm In qdf.Parameters prm.Value = Eval(prm.name) Next prm Set rst = qdf.OpenRecordset(dbOpenDynaset) Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub . ونناديها مرتين ، مرة في الحالي للنموذج الرئيسي ، ومرة عند تغيير التاريخ: Private Sub Form_Current() Me.[تابع15].Requery Call Sub_Values End Sub Private Sub n2_Exit(Cancel As Integer) Call cmd_Search2_Click Call Sub_Values End Sub . جعفر 724.55.accdb.zip

الكود صحيح 100% ويعمل بكفاءة عالية ومجرب في أكثر من موضع وهذا ملف بسيط للتجربة وموافاتي بالنتيجة حتى نتوصل لأسباب عدم عمل البرنامج مع الأستاذ شيفان كما هو مطلوب check internet.rar

ربما كان المطلوب Extract_num_Or_letters.rar

السلام عليكم هذا ما تقصده اخي الكريم اليس كذلك

وهذا مثال انشاء الله يكون المطلوب افتح forms2 وحدد السجلات التي تريده وبعد ذالك اضغط علي زر الامر الموجدود باعلي الفورم sss.rar

بعد إذن حبيبنا شيفان يمكن استعمال المعادلة الآتية DSum("Field", "Table", "Field > 0") حيث table اسم الجدول و field اسم الحقل الموجود به الأرقام

اخي الكريم في مشاركتي السابقة انا عملت استعلامين ... اي استعلام عادي وحفظت واحد باسم q1 والاخر حفظت باسم q2

بس راح تكتب بدل اسماء الجداول اسماء الاستعلام لكن لازم حقل اي دي مش مكررة بين الاستعلامين هذا والله اعلم شوف عملنا استعلامين باسم Q1 و Q2 والكود بيكون هكذ select * from Q1 UNION select * from Q2; شوف القاعدة test.rar

اليك صورين الاول عملنا استعلام توحيدي اي يونيون والخطوات كما مبينة بالصورة وبعدين عملنا استعلام ابيند اي اضافة في الاول ضغطنا على Append اي استعلام اضافة وبعدين حددنا الجدول نريد ان يضيف له البيانات بعدين حددنا الحقول اللي نريد ان يضيف الى جدول تابل 3 وفي الاسفل ابيند تو حددنا الحقول جدول تابل 3 اي امام كل حقل من استعلام توحيد "دمج" وشوف الصور الادناه تحياتي