jjafferr

في الجدول ، ما عندك امكانية تغييره برمجيا (ممكن ولكن باكواد طويلة ومعقدة) ، لذا ، فنحن نستعمل هذا الطريقة في النموذج للكمبوبوكس 🙂 . جعفر

يا اخي ، لو قلت هالكلام من قبل ، كنت بتلقاني متابع بصمت الى ان الله سبحانه وتعالى يفرجها عليك برجوعه ، لأني اعرف انك معذور في الحيرة 🙂 جعفر

هذا اللي لاحظته من مجريات السؤال 🙂 اجمع افكارك ، علشان السؤال التالي يكون متكامل ان شاء الله 🙂 جعفر

استاذ فايز ، اذا تعديل أخير ويخلص مشروعك ، فتوكل على الله وتابع جعفر

وعليكم السلام 🙂 اتفق مع اخوي خالد 100% ، والميزة هي انك تقدر تحسب النتائج بسهولة بهذه الطريقة 🙂 بس هل لاحظت ان علاقاتك خطأ !! . جعفر عفوا ، ما انتبهت انك عامل Lookup في الجداول ، وهذه احد الشعلات اللي اتجنبها 100% في برامجي !!

السلام عليكم 🙂 الاستاذ فايز ، يقول المثل: اذا حبيبك عسل لا تلحسه كله (مع الاعتذار لأخوي حسين) 🙂 صحيح ان اخوي حسين ما يقصر وما يرد لك طلب ، ولكن اللي اشوفه ان سؤالك صار مشروع رجاء مراعاة قوانين المنتدى ، سؤال لكل موضوع 🙂 جعفر

السلام عليكم 🙂 ايش رأيكم نتحكم في مسافات الرقم من اعدادات التنسيق فقط 🙂 جعفر

الاستاذ بلال ، رجاء ارفاق الحجم الصحيح ، لأن كلمة "تصغير" لا معنى لها !!

وعليكم السلام 🙂 المنتدى مليء بمثل هذه المواضيع ، استخدم خاصية البحث وستجد المطلوب ان شاء الله 🙂 جعفر

وعليكم السلام 🙂 لا تستخدم دوال Dsum, Dlookup, Dcount ..... في الاستعلام ، فأنت تكون قد حكمت على الاستعلام بالبطئ الشديد !! اعمل اول استعلام ، يكون استعلام مجاميع واجمع فيه (بدل Dsum) ، ثم اعمل استعلام آخر ، يكون احد مصدر بياناته هو استعلام المجاميع اعلاه ، ومصادر البيانات الاخرى ، واعمل بينهم علاقة حتى تكون السجلات صحيحة 🙂 جعفر

وعليكم السلام 🙂 هذا الرابط به الجواب على طلبك جعفر

السلام عليكم 🙂 معلومات اضافية عن هذا الموضوع جعفر

السلام عليكم أخي الاستاذ حسين 🙂 انت اكبر من ان تسعك مثل هذه الكلمات ، ويشرفني ان ازف اليك شكر وتقدير مني شخصيا 🙂 وشكر وتقدير من ادارة الموقع لجميع المساهمين في نشر العلم في هذا الموقع 🙂 جعفر

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

وعليكم السلام 🙂 سيدي الفاضل ، سؤالك مهم ، ولكن صيغة الكود غير صحيحة !! لما نقول ان Dlookup بطيء ، فمقارنته تكون مع نتائج استعلام بدون Dlookup ، اما لما نقول لا تستعملوا Dlookup ، فهو في الاستعلام ، مثل: . اما اذا كانت مقارنتك في الكود بين Dlookup و Recordset : 1. لإستخراج قيمة واحدة فقط ، فطبيعي Recordset تكون ابطأ ، لأنها تعمل نسخة من البيانات وتحتفظه في الذاكرة المؤقته RAM في الكمبيوتر ، فهذه العملية تأخذ وقت ، 2. إستخراج اكثر من قيمة/سجل ، فيكون Recordset اسرع ، لأنه بعد حفظ القيمة في ذاكرة الكمبيوتر ، يكون الحصول على البيانات منها اسرع ، ولكن بشرط ان تعمل الكود بالطريقة الصحيحة (انظر الكود) ، انا عملت نسخة من الجدول test واسميته test2 ، وعملت حقل tst مفهرس، لأنك تستخدمه كمعيار للحصول على النتائج التي تريدها ، ثم ضغط واصلاح للبرنامج حتى يستفيد البرنامج من فهرست الحقل، وعليه ، اصبح جلب النتائج من الجدول الثاني اسرع بكثير !! اليك بعض التجارب التي عملتها للجدولين : Option Compare Database Private Sub Commande0_Click() Dim t, t11, t12, t13, t14, t21, t22, t23, t24 As Single Dim r As Long 'table test '1 Dlookup t = Timer r = Nz(DLookup("id", "test", "tst='mohamed'"), 0) t11 = Timer - t t11 = Format(t11, "#0.0####") '2 qry_test t = Timer r = DCount("*", "qry_test") t12 = Timer - t t12 = Format(t12, "#0.0####") '3 Recordset_1 t = Timer r = fff_1("test", "mohamed") t13 = Timer - t t13 = Format(t13, "#0.0####") '4 Recordset_2 t = Timer r = fff_2("test", "mohamed") t14 = Timer - t t14 = Format(t14, "#0.0####") 'table test2 '1 Dlookup t = Timer r = Nz(DLookup("id", "test2", "tst='mohamed'"), 0) t21 = Timer - t t21 = Format(t21, "#0.0####") '2 qry_test t = Timer r = DCount("*", "qry_test2") t22 = Timer - t t22 = Format(t22, "#0.0####") '3 Recordset_1 t = Timer r = fff_1("test2", "mohamed") t23 = Timer - t t23 = Format(t23, "#0.0####") '4 Recordset_2 t = Timer r = fff_2("test2", "mohamed") t24 = Timer - t t24 = Format(t24, "#0.0####") Debug.Print "Dlookup:" & vbCrLf & _ "table test: " & t11 & vbTab & " test2: " & t21 & vbCrLf Debug.Print "qry_test, test2:" & vbCrLf & _ "table test: " & t12 & vbTab & " test2: " & t22 & vbCrLf Debug.Print "Recordset_1:" & vbCrLf & _ "table test: " & t13 & vbTab & " test2: " & t23 & vbCrLf Debug.Print "Recordset_2:" & vbCrLf & _ "table test: " & t14 & vbTab & " test2: " & t24 MsgBox "Done" End Sub Public Function fff_1(tbl_Name As String, tt2 As String) As Long Dim db As DAO.Database Dim rs As DAO.Recordset Dim rr As Long Set db = CurrentDb Set rs = db.OpenRecordset("Select id, tst From " & tbl_Name) rs.FindFirst "[tst]='" & tt2 & "'" If rs.NoMatch Then fff_1 = 0 Else fff_1 = rs!id End If rs.Close: Set rs = Nothing End Function Public Function fff_2(tbl_Name As String, tt2 As String) As Long Dim db As DAO.Database Dim rs As DAO.Recordset Dim rr As Long Set db = CurrentDb Set rs = db.OpenRecordset("Select id, tst From " & tbl_Name & " WHERE tst='" & tt2 & "'") rs.MoveLast: rs.MoveFirst fff_2 = rs.RecordCount rs.Close: Set rs = Nothing End Function والنتائج من "كمبيوتري القديم" بالثواني واجزاء من الثانية : Dlookup: table test: 0.1875 test2: 0.0 qry_test, test2: table test: 0.375 test2: 0.00391 Recordset_1: table test: 1.19531 test2: 0.17578 Recordset_2: table test: 0.38281 test2: 0.00391 اما اذا وضعنا الدالة Dlookup في استعلام ، وهو الخطأ ، فنتيجة الاستعلام التالي ، والوقت الذي اخذته: والوقت الذي اخذته بالثانية وجزء من الثانية 997.8555 جعفر

وعليكم السلام 🙂 اسهل طريقة ، وبدون انزال المرفق ، اتبع الخطوات التالية : اعمل استعلام جديد ، ومصدر هذا الاستعلام هو الاستعلام الجدولي ، انزل فيه جميع الحقول المطلوبة ، واعمل التصفية والفرز بالطريقة العادية 🙂 جعفر

وعليكم السلام 🙂 طريقة اخوي ابوياسين هي ، اذا كان الحقل نص : اما هذه الطريقة ، فلحقل النص والرقم كذلك : =NZ(DSum("[chemical_element]","Qlaboratory","[typeelement]='active'"),0) جعفر

وعليكم السلام 🙂 Dim X As Integer X = DCount("*", "[TBvirus]", "[virusid]='" & Me.idvirus & "' AND [idlaboratory]=Forms![Flaboratory]![idlaboratory]") If X > 0 Then MsgBox "error87", 48, "error" DoCmd.CancelEvent End If جعفر

شكرا جزيلا لك استاذ صالح 🙂 جعفر

شكرا جزيلا 🙂 جعفر

خلينا نسأل الاستاذ @صالح حمادي ان يضيف هذه الخاصية في برنامجه ، اذا ممكن ؟ جعفر

السلام عليكم اخي حسين 🙂 عندي الجهاز اللي ممكن اجرب عليه ، ولكني لم استطع الحصول على برنامج او طرف خيط !! جعفر

وعليكم السلام 🙂 تفضل : جعفر

وعليكم السلام 🙂 هناك امر لكل جقل اسمه "القيمة القديمة/السابقة" ، هكذا: me.ABC = me.ABC.oldvalue او me.ABC.value = me.ABC.oldvalue والشرط الوحيد في توفر القيمة السابقة هي انك لم تقم بحفظ السجل بعد (او تنتقل الى سجل آخر). جعفر

وعليكم السلام 🙂 نعم يمكن استعمال هذه الطريقة (صحيح انه ليس مكانها ، ولكن مافي مانع) في النموذج ، وفي التقرير في وضع المعاينة (اي ليس وضع الطباعة) ، ولكن بما ان سؤالك كان عن عرض (طباعة) التوقيع في التقرير: فإن الشفافية لن تظهر في التقرير في وضع الطباعة ، اي لما تطبع التقرير على ورق او تصدره الى pdf فلن تظهر الشفافية !! جعفر