طلب بسيط لإظهار كود كنص في مربع كما هو ؟؟

[hosslom]

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

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

مرفق مثال

 DLookup("result", "test_order_tbl", "[test] =  ' & T & '   And [ID] = [Forms]![visit_frm]![ID]")

شكرا جزيلا

New Microsoft Access Database.accdb

[Foksh]

جرب هذا الكود التالي:-

Private Sub YourButton_Click()
    ' الكود الذي تريد عرضه
    Dim codeText As String
    codeText = "DLookup(""result"", ""test_order_tbl"", ""[test] =  ' & T & '   And [ID] = [Forms]![visit_frm]![ID]"")"
    
    ' عرض الكود في مربع النص
    Me.YourTextBox.Value = codeText
End Sub

للعدم تواجدي أمام الكمبيوتر حالياً ، استبدل اسم الزر واسم مربع النص في نموذجك 😊

[ازهر عبد العزيز]

5 ساعات مضت, Foksh said:

جرب هذا الكود التالي

سوال استاذ لماذا لم يقبل الكود بعد ادخال علامة التنصيص 

وملاخظة الى الاخ السائل 

بدل 

YourTextBox

ضع 

Text3

اسم مربع النص لديك

[Foksh]

4 ساعات مضت, ازهر عبد العزيز said:

سوال استاذ لماذا لم يقبل الكود بعد ادخال علامة التنصيص 

 

لقد استخدمت علامة التنصيص الغير صحيحة > ' . والصحيح استخدام علامة التنصيص هذه "

New Microsoft Access Database.accdb

[hosslom]

جزاك الله خيرا اخي الكريم FOKSH

فعلا كودك اتم المطلوب علي اكمل وجه

شكرا جزيلا وجزاك الله خيرا علي تعبك