Admin
Admin
المساهمات : 188
تاريخ التسجيل : 03/04/2008
 | موضوع: :Data control setting  السبت يوليو 26, 2008 5:09 pm | |
| أظهار شاشة أدخال الأسم المتعلم عنة من قبل ال user المستخدم وذلك من خلال :
الأسم المستعلم عنة فى الأستدعاء لابد أن يكون بين single qoution سنجل كوتشن نصى طالما string ولكى لا يقتصر ال command على نادين وممكن بدل من الكود السابق للبحث عن نادين
Dim x as string
'"نادين'" = X هذا كود 1 فى dim
مثال مهم :
'"& Data1.recordset.findfirst"name = '"&X تكملة الكود لو مكنش موجود مسجل هتظهر رسالة بذلك
"X = "ahmed
Msgbox x هيطبع قيمة x
"Msgbox "xهيطبع المحصور بين""
Msgbox "x" & x هيطبع x و قيمة x
كود 2 فى dim x
الكود القديم
| لكى لا يقتصر ال button على نادين | Dim x as string
'"نادين'" =x
Data1.recordset.findfirst"name ="&x
شرط عدم وجود الأسم وظهور الرسالة
ممكن بدل من '"نادين'"=x
"'"+x="'"+x
| X= inputbox ("أدخل الأسم")
أو
"'"+X="'"+x
Data1.recordset.findfirst "name = "&x
أو
'""&name = '"&x"
أو
'""+name = '"+x"
|
| أو الأتى | أدخل الكود | Dim x as string
Dim y as string
("أدخل الأسم")x= inputbox
"'"+Y = "name ='"+x
Msgbox نادين هجيب رسالة "'نادين'" جرب هتخسر أية
Data1.recordset.findfirsty
If data1.recordset.nomatch then
Msgbox
"عفوا الأسم غير مسجل"
End if
| Dim x as string
("أدخل الأسم")x = input box
"'"+Data1.recordset.findfirst"name= '"+x
If data1.recordset. "nomatch then
"عفوا الأسم غير مسجل"msgbox
End if
دة أفضل طريقة
| المشروع المطلوب بيانات الطلبة فى الكلية بدل الكود رقم الجلوس بدل الأسم أسم الطالبButton أستدعاء بالكود غير أستدعاء بالأسم
| |
|
الرئيسية 