hosslom قام بنشر مارس 15 مشاركة قام بنشر مارس 15 السلام عليكم اخوتي الكرام طلب بسيط محتاج عند الضغط علي زر يظهر هذا الكود" كنص" في المربع تماما كما هو مرفق مثال DLookup("result", "test_order_tbl", "[test] = ' & T & ' And [ID] = [Forms]![visit_frm]![ID]") شكرا جزيلا New Microsoft Access Database.accdb رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر مارس 16 أفضل إجابة مشاركة قام بنشر مارس 16 جرب هذا الكود التالي:- 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 للعدم تواجدي أمام الكمبيوتر حالياً ، استبدل اسم الزر واسم مربع النص في نموذجك 😊 2 رابط هذا التعليق شارك More sharing options...
ازهر عبد العزيز قام بنشر مارس 16 مشاركة قام بنشر مارس 16 5 ساعات مضت, Foksh said: جرب هذا الكود التالي سوال استاذ لماذا لم يقبل الكود بعد ادخال علامة التنصيص وملاخظة الى الاخ السائل بدل YourTextBox ضع Text3 اسم مربع النص لديك رابط هذا التعليق شارك More sharing options...
Foksh قام بنشر مارس 16 مشاركة قام بنشر مارس 16 4 ساعات مضت, ازهر عبد العزيز said: سوال استاذ لماذا لم يقبل الكود بعد ادخال علامة التنصيص لقد استخدمت علامة التنصيص الغير صحيحة > ' . والصحيح استخدام علامة التنصيص هذه " New Microsoft Access Database.accdb 1 رابط هذا التعليق شارك More sharing options...
hosslom قام بنشر مارس 16 الكاتب مشاركة قام بنشر مارس 16 جزاك الله خيرا اخي الكريم FOKSH فعلا كودك اتم المطلوب علي اكمل وجه شكرا جزيلا وجزاك الله خيرا علي تعبك 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.