السلام عليكم
عندى مشكله فى اظهار الداتا ريبورت بشرط رقم التليفون
ده كود زر اظهار التقرير
PHP كود :
Private Sub Command10_Click()
DataEnvironment1.Connection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\cl.mdb" & ";Persist Security Info=False"
With DataEnvironment1.rsCommand1
.Open "select * from cl where [Mobile phone] =" + Text3
End With
DataReport1.Show
Unload DataEnvironment1
Adodc1.Refresh
End Sub
وعند الضغط عليه
يظهر الخطا فى السطر
PHP كود :
Open "select * from cl where [Mobile phone] =" + Text3
اسم قاعده البيانات cl.mdb
اسم الجدول cl
اسم العمود Mobile phone
اسم صندوق ادخال الرقم فى الفورم text3
السلام عليكم ورحمة الله وبركاته
أخي الكريم
يوجد أكثر من حل لهذي المشكلة سأضع لك حلان
الأول :-
تستطيع جعل Text تستقبل أرقام محدده فبتالي سيضطر المستخدم من كتابة الرقم دون رقم 0 في البداية مثلا
تريد من المستخدم كتابة رقم جوال والمعروف ان عدد أرقام الجوال هو 10 ارقام مع رقم 0
يوجد خاصية في Text اسمها MaxLength والقيمة الافتراضية هي 0 قم بجعلها 9 فبتالي سنمنع المستخدم من كتابة
أكثر من 9 ارقام سيضطر المستخدم من حذف رقم صفر حتى يكتمل رقمه
وتستطيع وضع تنوية بجانب Text مكتوب بها ( اكتب رقم جوالك دون كتابة رقم 0 الأول)
الثاني :-
ضع هذا الكود في حدث عند الخروج من Text اسم الحدث Text1_
LostFocus
PHP كود :
If Left$(Text1.Text, 1) = "0" Then
Text1.Text = Mid(Text1.Text, 2, Len(Text1.Text) - 1)
End If
سأشرح لك عمل هذا الكود
السطر الأول
--------------------------------------
If
Left$(
Tex1.Text,
1)
= "0" Then
--------------------------------------
أجلب لي من
Text1 خانة واحدة فقط وأبداء الحسبة من على اليسار ومن ثم قارنه مع رقم 0 هل هو صفر حقا ام لا
السطر الثاني
--------------------------------------
Text1.Text = Mid(
Text1.Text,
2,
Len(Text1.Text) - 1)
--------------------------------------
أجعل قيمة Text1 تساوي النص الموجود في Text1 ولاكن ليس كله ! فقط أقتبس منه مايلي أبدأ من الحرف الثاني حتى عدد الأحرف جميعا الذي في TextBox وانقص منه حرف واحد لانه رقم 0 قمنا بإزالته
السطر الثالث
--------------------------------------
End If
--------------------------------------
انهي الأداء الشرطية
بالتوفيق
