كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
السلام عليكم ورحمة الله وبركاته
اريد تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين
مثلا اريد البحث عن رقم فاتورة وعند البحث عنها يتم تنسيق الـ Text بداخل الــ Data Report وجعل الــ الـ Back Color للــ Text التي تحمل رقم الفاتورة هذا فقط يظهر بلون معين
استخدمت الكود التالي ولكن يظهر الــ Text بداخل Data Report كلها بالتنسيق الموجود في الكود سواء انطبق عليه الشرط او لم ينطبق
فما هو الكود الصيحيح ليظهر الـ Text الموجود به رقم الفاتورة بالتنسيق المشروط في الكود
اريد تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين
مثلا اريد البحث عن رقم فاتورة وعند البحث عنها يتم تنسيق الـ Text بداخل الــ Data Report وجعل الــ الـ Back Color للــ Text التي تحمل رقم الفاتورة هذا فقط يظهر بلون معين
استخدمت الكود التالي ولكن يظهر الــ Text بداخل Data Report كلها بالتنسيق الموجود في الكود سواء انطبق عليه الشرط او لم ينطبق
فما هو الكود الصيحيح ليظهر الـ Text الموجود به رقم الفاتورة بالتنسيق المشروط في الكود
- الكود:
Dim SQL6 As New ADODB.Recordset
SQL6.CursorLocation = adUseClient
If SQL6.State = 1 Then Close
SQL6.Open " select Invo_ID From CustomersDebits where CustomerID = '" & Combo2.Text & "' ", Cn, adOpenDynamic, adLockOptimistic
If SQL6.Fields(0) = 7692 Then
DataReport1.Sections("section1").Controls("Shape1").BackColor = &HC000&
Else
DataReport1.Sections("section1").Controls("Shape1").BackColor = &HFFFFFF
End If
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
لو حضرتك ترفع مثال يكون افضل للاجابة
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
المثال مرفق
جزاك الله كل خير
اريد عند تحقيق الشرط وهو ان رقم الفاتورة يساوي 7692 مثلا ان يجعل الـ Back Color للــ Text
يتغير للون معين
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
اريد عند تحقيق الشرط وهو ان رقم الفاتورة يساوي 7692 مثلا ان يجعل الـ Back Color للــ Text
يتغير للون معين
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
اخى الكريم انا جربت الكود التالى على حقل CustomerName فاذا كان هذا الحقل يحتوى على الاسم احمد يتم تلوين صف رقم الفاتورة باالون الاخضر غير ذلك يتم تلوين الفاتورة باللون الازرق ....
- الكود:
Private Sub Command1_Click()
Dim SQL As New ADODB.Recordset
SQL.CursorLocation = adUseClient
If SQL.State = 1 Then Close
SQL.Open " select CustomerName , Invo_ID , ActionDate , DebitAmount , CreditAmount, Action_Type From CustomersDebits where CustomerID = '" & Combo2.Text & "' ", Cn, adOpenDynamic, adLockOptimistic
Set DataReport1.DataSource = SQL
' اسم العميل
DataReport1.Sections("section2").Controls("Label10").Caption = SQL.Fields(0)
' الشرط
If SQL.Fields(0).Value = "احمد" Then
DataReport1.Sections("section1").Controls("text1").BackColor = &HC000&
Else
DataReport1.Sections("section1").Controls("text1").BackColor = &HFF0000
End If
DataReport1.Show
End Sub
المبرمج الطموح- الاشراف
- تاريخ التسجيل : 18/02/2011
المساهمات : 207
النقاط : 368
التقيم : 17
الدولة :
الجنس :
رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
جزاك الله كل خير
ساتبع الكود اللي حضرتك قلتلي عليه
ولعل السبب في ذلك ان حقل الــ Invo_ID من النوع Number
ساتبع الكود اللي حضرتك قلتلي عليه
ولعل السبب في ذلك ان حقل الــ Invo_ID من النوع Number
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
المشكلة ليست لا فى نوع الحقل و لا حتى فى الاكواد ....فكلا الكودين سواء الذى كتبه الاخ goldenman100 و الاخ المبرمج الطموح واحد ....فكليهما يقومان بمقارنة الشرط بأول قيمة أو سجل فى الحقل Invo_ID ...فان كان صحيح يقوم بتغير اللون وان كان غير صحيح يقوم بوضع لون أخر ....
المشكلة تمكن لو كانت قيمة المقارنة و ليكن الرقم 7692 ليس أول سجل فى الحقل Invo_ID .....لذلك لحل تلك المشكلة نريد كود للمرور على كافة سجلات وقيم الحقل Invo_ID و مقارنته بقيمة الشرط
على أى حال سأحاول فعل ذلك
المشكلة تمكن لو كانت قيمة المقارنة و ليكن الرقم 7692 ليس أول سجل فى الحقل Invo_ID .....لذلك لحل تلك المشكلة نريد كود للمرور على كافة سجلات وقيم الحقل Invo_ID و مقارنته بقيمة الشرط
على أى حال سأحاول فعل ذلك
السنى- ........
- تاريخ التسجيل : 18/02/2011
المساهمات : 249
النقاط : 464
التقيم : 25
الجنس :
رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟
جزاكم الله كل خير
انا فعلا حاولت كتير جدا في ايجاد الطريقه الصحيحه ولكن لم اصل الى الحل حتى الان
انا فعلا حاولت كتير جدا في ايجاد الطريقه الصحيحه ولكن لم اصل الى الحل حتى الان
goldenman100- عضو شرفى
- تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد