مشكله في كود لايعطي نتيجه رقميه ؟؟

[hosslom]

السلام عليكم اخوتي الكرام

عندي مشكله في كود داله dlookup ومرفق مثال علي المشكله

عندي معادله قسمه داخل حقل في جدول وعندي مربع نص داخل نموذج وزرار

عند الضغط علي الزر يعطي الناتج في المربع النصي

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

اما اذا وضعت كود للبحث اولا عن نص المعادله ثم اظهار الناتج في المربع النصي لايعطي ناتج

مرفق المثال

وشكرا جزيلا لكم اخوتي واسف علي الاطاله

error.accdb

[سامي الحداد]

وعليكم السلام

تفضل اخي التعديل على الكود حسب ما فهمت 

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

بالتوفيق

[hosslom]

شكرا اخي علي اهتمامك

ارفقت لك مثال للتوضيح اكثر

لماذا عند الضغط علي الزر يعطي رساله خطا

المفروض يعطي الناتج رقم 3

 

error.accdb

تم تعديل مارس 17 بواسطه hosslom

[سامي الحداد]

أخي انت لم تستخدم  الكود الذي ذكرته لك وحتى لم تكلف نفسك بتجربته 

على العموم نفس الكود اعلاه يعمل. فقط كلف نفسك وانقله الى ملفك يعني نسخ ولصق .

وهذا ملفك مع نفس الكود اعلاه 

error (1).accdb