منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] اظهار التقرير بشرط وجود رقم الهاتف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [كود] اظهار التقرير بشرط وجود رقم الهاتف (/showthread.php?tid=2229)

اظهار التقرير بشرط وجود رقم الهاتف - eng_elsawy - 13-03-14

السلام عليكم

عندى مشكله فى اظهار الداتا ريبورت بشرط رقم التليفون

ده كود زر اظهار التقرير
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

RE: اظهار التقرير بشرط وجود رقم الهاتف - نظريه - 14-03-14

جرب كدا
كود :
.Open "select * from [cl] where [Mobile phone] like " & Text1.Text & ""


RE: اظهار التقرير بشرط وجود رقم الهاتف - eng_elsawy - 14-03-14

تسلم ايدك اختى الغاليه بس المشكله الان
ان لو رقم 0 مكتوب فى بدايه رقم المحمول مثل 012XXXXXXX التقرير يظهر صفحه بيضاء انما لو مكتوب بدون الصفر مثل 12XXXXX التقرير يظهر سليم


RE: اظهار التقرير بشرط وجود رقم الهاتف - Easy4ever - 14-03-14

السلام عليكم ورحمة الله وبركاته

أخي الكريم
يوجد أكثر من حل لهذي المشكلة سأضع لك حلان
الأول :-
تستطيع جعل Text تستقبل أرقام محدده فبتالي سيضطر المستخدم من كتابة الرقم دون رقم 0 في البداية مثلا
تريد من المستخدم كتابة رقم جوال والمعروف ان عدد أرقام الجوال هو 10 ارقام مع رقم 0
يوجد خاصية في Text اسمها MaxLength والقيمة الافتراضية هي 0 قم بجعلها 9 فبتالي سنمنع المستخدم من كتابة
أكثر من 9 ارقام سيضطر المستخدم من حذف رقم صفر حتى يكتمل رقمه Rolleyes
وتستطيع وضع تنوية بجانب 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
--------------------------------------

انهي الأداء الشرطية

بالتوفيق

RE: اظهار التقرير بشرط وجود رقم الهاتف - eng_elsawy - 14-03-14

بجد تسلم ايدك على الحل الجميل ده

بس انا استخدمت الكود بطريقه تانيه
عملت تكست جديد Text22 وربطه على جدول قاعده البيانات فى عمود جديد

وحطيت فيه الكود
PHP كود :
Private Sub Text22_Change(Index As Integer)
If Left$(Text22(0).Text, 1) = "0" Then
   Text22(0).Text = Mid(Text22(0).Text, 2, Len(Text22(0).Text) - 1)
End If
End Sub 

وجيت فى الحدث Text3_LostFocus

حطيط الكود ده

PHP كود :
Private Sub Text3_LostFocus()
Text22(0).Text = Val(Text3.Text)
End Sub 

بحيث اول لما اعمل مغادره Text3 الى مكتوب فيه رقم الهاتف 012ْْْْXXXXXXXX يتنسخ الى موجود فيه فى text22 .
وtext22 الكود الى موجود فيه بيحذف الصفر بيبقى 12XXXXXX
وخليت استعلام التقرير مبنى على text22
وبكده التقرير بيشتغل تمام وبيظهر فيه رقم الهاتف مظبوط 012XXXXXXXX



ايه رائيك
 Heart