hosslom قام بنشر مارس 17 مشاركة قام بنشر مارس 17 السلام عليكم اخوتي الكرام عندي مشكله في كود داله dlookup ومرفق مثال علي المشكله عندي معادله قسمه داخل حقل في جدول وعندي مربع نص داخل نموذج وزرار عند الضغط علي الزر يعطي الناتج في المربع النصي المشكله اني اذا وضعت كود الزر نص المعادله مباشره يعطي ناتج رقمي اما اذا وضعت كود للبحث اولا عن نص المعادله ثم اظهار الناتج في المربع النصي لايعطي ناتج مرفق المثال وشكرا جزيلا لكم اخوتي واسف علي الاطاله error.accdb رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر مارس 17 مشاركة قام بنشر مارس 17 وعليكم السلام تفضل اخي التعديل على الكود حسب ما فهمت Private Sub Command0_Click() Dim Result As Variant Result = DLookup("feq", "test_tbl") If Len(Result & "") = 0 Then MsgBox "Equation not found or is empty.", vbExclamation Else If IsNumeric(Result) Then Me.E = Result Else Me.E = DLookup("result", "test_order_tbl", "[tcode] = 17") / DLookup("result", "test_order_tbl", "[tcode] = 16") End If End If End Sub بالتوفيق رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر مارس 17 الكاتب مشاركة قام بنشر مارس 17 (معدل) شكرا اخي علي اهتمامك ارفقت لك مثال للتوضيح اكثر لماذا عند الضغط علي الزر يعطي رساله خطا المفروض يعطي الناتج رقم 3 error.accdb تم تعديل مارس 17 بواسطه hosslom رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر مارس 19 مشاركة قام بنشر مارس 19 أخي انت لم تستخدم الكود الذي ذكرته لك وحتى لم تكلف نفسك بتجربته على العموم نفس الكود اعلاه يعمل. فقط كلف نفسك وانقله الى ملفك يعني نسخ ولصق . وهذا ملفك مع نفس الكود اعلاه error (1).accdb 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.