كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف goldenman100 في الأربعاء سبتمبر 25, 2013 12:08 pm

السلام عليكم ورحمة الله وبركاته
اريد تنسيق الــ 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


avatar
goldenman100
عضو شرفى
عضو شرفى

تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف السنى في الأربعاء سبتمبر 25, 2013 1:46 pm


لو حضرتك ترفع مثال يكون افضل للاجابة
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

المثال مرفق

مُساهمة من طرف goldenman100 في الأربعاء سبتمبر 25, 2013 3:04 pm

جزاك الله كل خير

اريد عند تحقيق الشرط وهو ان رقم الفاتورة يساوي 7692 مثلا ان يجعل الـ Back Color  للــ    Text
يتغير للون معين

http://www.mediafire.com/download/t7xkac5w8ye6yga/Ahmed.rar
avatar
goldenman100
عضو شرفى
عضو شرفى

تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف المبرمج الطموح في الخميس سبتمبر 26, 2013 12:46 pm


اخى الكريم انا جربت الكود التالى على حقل 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
لكن عندما جرب الكود على حقل Invo_ID دايما يظهر اللون الازرق فى حالة تحقيق او عدم تحقيق الشرط ....لكن لم اصل لحد الان لسبب ذلك اكيد فى شىء ما
avatar
المبرمج الطموح
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 117
النقاط : 213
التقيم : 6
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف goldenman100 في الخميس سبتمبر 26, 2013 2:43 pm

جزاك الله كل خير

ساتبع الكود اللي حضرتك قلتلي عليه

ولعل السبب في ذلك  ان حقل الــ Invo_ID من النوع Number
avatar
goldenman100
عضو شرفى
عضو شرفى

تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف السنى في الخميس سبتمبر 26, 2013 4:45 pm

المشكلة ليست لا فى نوع الحقل و لا حتى فى الاكواد ....فكلا الكودين سواء الذى كتبه الاخ goldenman100 و الاخ المبرمج الطموح واحد ....فكليهما يقومان بمقارنة الشرط بأول قيمة أو سجل فى الحقل Invo_ID ...فان كان صحيح يقوم بتغير اللون وان كان غير صحيح يقوم بوضع لون أخر ....

المشكلة تمكن لو كانت قيمة المقارنة و ليكن الرقم 7692 ليس أول سجل فى الحقل  Invo_ID  .....لذلك لحل تلك المشكلة نريد كود للمرور على كافة سجلات وقيم الحقل   Invo_ID و مقارنته بقيمة الشرط

على أى حال سأحاول فعل ذلك
avatar
السنى
.......
.......

تاريخ التسجيل : 18/02/2011
المساهمات : 186
النقاط : 346
التقيم : 18
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: كيفية تنسيق الــ Text بداخل الــ Data Report بناءً على شرط معين ؟؟

مُساهمة من طرف goldenman100 في الخميس سبتمبر 26, 2013 11:10 pm

جزاكم الله كل خير

انا فعلا حاولت كتير جدا في ايجاد الطريقه الصحيحه ولكن لم اصل الى الحل حتى الان
avatar
goldenman100
عضو شرفى
عضو شرفى

تاريخ التسجيل : 09/08/2012
المساهمات : 27
النقاط : 46
التقيم : 1
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى