الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ارجو المساعدة في هذا الكود

بدأه SUPERWOOFER في 8 أكتوبر 2013 · 2 رد · 540 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

If Text1.Text = "1" Then

Data1.DatabaseName = "C:\Documents and Settings\MO\My Documents\db2.mdb"
Data1.RecordSource = "ta1"

End If

 

اريد الربط بشرط كتابة رقم داخل text

عند وضع هذا الكود بدون قاعدة if في form يعمل ولاكم عند تنفيذ if بواسطة text لا تعمل مش عارف ايه السبب

#2

وصلت للحل الحمد لله شكرا

#3

If Text1.Text = "1" Then
Data1.DatabaseName = "C:\Documents and Settings\MO\My Documents\db2.mdb"
Data1.RecordSource = "ta1"
Data1.Refresh
Set Text2.DataSource = Nothing
Text2.DataField = "NA1"
End If
If Text1.Text = "2" Then
Data1.DatabaseName = "C:\Documents and Settings\MO\My Documents\db2.mdb"
Data1.RecordSource = "ta2"
Data1.Refresh
Set Text2.DataSource = Nothing
Text2.DataField = "NA2"

End If

مواضيع مشابهة