تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] اظهار التقرير بشرط وجود رقم الهاتف
#1
السلام عليكم

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

ده كود زر اظهار التقرير
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
الرد }}}}
تم الشكر بواسطة:
#2
جرب كدا
كود :
.Open "select * from [cl] where [Mobile phone] like " & Text1.Text & ""
الرد }}}}
تم الشكر بواسطة:
#3
تسلم ايدك اختى الغاليه بس المشكله الان
ان لو رقم 0 مكتوب فى بدايه رقم المحمول مثل 012XXXXXXX التقرير يظهر صفحه بيضاء انما لو مكتوب بدون الصفر مثل 12XXXXX التقرير يظهر سليم
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

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

الثاني :-
ضع هذا الكود في حدث عند الخروج من Text اسم الحدث Text1_LostFocus

PHP كود :
If Left$(Text1.Text1) = "0" Then
   Text1
.Text Mid(Text1.Text2Len(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
--------------------------------------

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

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#5
بجد تسلم ايدك على الحل الجميل ده

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

وحطيت فيه الكود
PHP كود :
Private Sub Text22_Change(Index As Integer)
If 
Left$(Text22(0).Text1) = "0" Then
   Text22
(0).Text Mid(Text22(0).Text2Len(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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية اظهار التاريخ الهجري في البرنامج allobaed 5 117 29-11-16, 02:20 PM
آخر رد: allobaed
  [سؤال] اظهار بيانات Combo1 في Text iisys 3 173 07-11-16, 06:16 AM
آخر رد: AL_BRNS
  اظهار الرقم في textعند اختيار الاسم من combobox haniblack 2 110 02-11-16, 08:31 AM
آخر رد: haniblack
Question [vb6.0] لماذا تظهر هذه الرساله المرفقه عند فتح التقرير ؟؟ Microformt 1 102 20-09-16, 07:26 PM
آخر رد: Amir_alzubidy
  [سؤال] مامعنى هذه الرسالة تظهر عند تنصيب المشروع في حال وجود ويندور 7 ويندوز 10 فاضل الحمود 2 174 01-08-16, 02:21 PM
آخر رد: فاضل الحمود
  تقرير اكتيف ريبورت : كيفية عرض Textbox في التقرير تكون Datafield له text في الفورم haiderkh 3 175 21-07-16, 11:22 PM
آخر رد: Amir_alzubidy
  نسخ وعدم اظهار رسالة تأكيد استبدال فاضل الحمود 6 176 01-07-16, 09:34 PM
آخر رد: فاضل الحمود
  سؤال حول طباعة النتيجة ( ناجح او راسب ) في التقرير haiderkh 2 251 24-04-16, 04:38 PM
آخر رد: haiderkh
Question [سؤال] برنامج دليل الهاتف programmer_ayman 2 258 30-03-16, 01:04 PM
آخر رد: programmer_ayman
  [vb6.0] التحقق من وجود نص فى التكست بوكس norhan 21 958 01-03-16, 12:57 AM
آخر رد: norhan

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم