مشكلة في تنفيذ كود لتغير مصدر الحقول في تقرير

[حاملة المسك]

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

 

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

Public Sub printreport()

If Text61 = 1 Then

 

Me.Text63.ControlSource = "ekhtbar1"

ElseIf Text61 = 2 Then

Me.Text63.ControlSource = "ekhtbar2"

ElseIf Text61 = 3 Then

Me.Text63.ControlSource = "ekhtbar3"

ElseIf Text61 = 4 Then

Me.Text63.ControlSource = "ekhtbar4"

ElseIf Text61 = 5 Then

Me.Text63.ControlSource = "ekhtbar5"

ElseIf Text61 = 6 Then

Me.Text63.ControlSource = "ekhtbar6"

End If

 

End Sub

[عبد الفتاح كيرة]

يظهر الكود من خلال عرض الطباعة فقط

[رمهان]

ممكن ارفاق التقرير فقط ومصدره ؟

[أبو عبدالله الحلوانى]

السلام عليكم

ممكن توضيح ما هو "ekhtbar"

اذ كانت قيمة نصية فبالامكان أن نكتب الكود هكذا

If txet61 =1 then

Text17 = "ekhtbar1"o

End if

[علي المصري]

يمكنك اختي الفاضلة من كتابة الكود بالطريقة التالية

if term = 1 then 
Forms("Data").Controls("Text1").ControlSource = "Test1"
elseif term = 2 then
Forms("Data").Controls("Text1").ControlSource = "Test2"
elseif term = 3 then
Forms("Data").Controls("AText1).ControlSource = "Test3"
End if





 

حيث  Data هو اسم النموذج

و Text1 هو اسم مربع النص

 

وهذه الطريقة استخدمتها في برنامج خاص بدرجات  التقويم الخاص بي وهو موجود على  الموقع

في الموضوع التالي

 

http://www.officena.net/ib/index.php?showtopic=55122&hl=%2B%D8%AF%D8%B1%D8%AC%D8%A7%D8%AA+%2B%D8%A7%D9%84%D8%AA%D9%82%D9%88%D9%8A%D9%85

 

 

[رمهان]

هذه فكرة بديلة لكودك السابق

Me.Text63.ControlSource = eval("ekhtbar"&text61)

[حاملة المسك]

اساتذتي الافاضل جزاكم الله خيرا جميعا

 أ / عبد الفتاح كيرة 

انا فعلا بانتظر نتيجة الكود في print privew    ولكن لا يعمل معي

 

 

أ/ أبو عبدالله الحلوانى

 

ekhtbar1 هو قيمة حقل موجود في الاستعلام المبني عليه التقرير والمطلوب هو عندما يتغير قيمة text61  ان يتغير مصدر الحقل text63   ليكونekhtbar1 , ektbar2 or ekhtbar3 حسب قيمة التكست61

 

 

 

أ / علي المصري

جزاك الله خيرا سأجرب الكود وأخبرك بالنتيجة سريعا ان شاء الله

وبالطبع انا استفدت من برنامج حضرتك كثيرا في برنامجي بل  واعذرني ان كنت اقتبصت كثيرا من تصميمات حضرتك -

 

 

 أ / ramhan

 

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

 

اولا سأحاول ارفاق البرنامج

ثانيا سأجرب إن شاء الله الكود سريعا وسأخبرك بالنتيجة

 

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

[حاملة المسك]

السلام عليكم

اولا عذرا على التأخير في الرد لانشغالي بالامتحانات

 

جزاكم  الله خيرا اساتذتي الكرام على مساعدتكم لي

ولكني جربت الاكواد الخاصة بالاستاذ علي المصري والاستاذ Rahman ولكن للأسف لم تتغير النتيجة

 

 

ولكن وجدت ان المشكلة حلت عندما نقلت الكود لحدث تحميل التقرير ON LOAD  

 

فقد كنت كتبت الكود في الصفحة الخاصة بكود التقرير 

 

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