الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

[ تمت الإجابة ] طباعة التقرير حسب العنوان

بدأه الباشق1 في 6 يناير 2009 · 8 رد · 528 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم وكل عام وانتب بالف خيررررررر

اخوتي عندي مشكله في طباعة ختياريه حسب العنوان

مثال عندما يكون عنوان بيان 1 يطبعلي التقرير1 واذا كان بيان2 يطبعلي تقرير 2 واذا كان بيان3 يطبعلي بيان 3

وهذا كود نجح معي في طباعة البيان الاول والثاني ام الثالث مانجح معي

Dim stDocName As String

Combo0.SetFocus

If Combo0.Text = "بيان1" Then

stDocName = "تقرير1"

ElseIf Combo0.Text = "بيان2" Then

stDocName = "تقرير2"

End If

DoCmd.OpenReport stDocName, acPreview

Exit_Command7_Click:

Exit Sub

Err_Command7_Click:

MsgBox Err.Description

Resume Exit_Command7_Click

#2

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

اخي الكريم لماذا لا تستخدم الامر Case

وهذا مثال تقبل تحياتي

db3.rar

27169617.gif
#3

اخي الباشق

اليك التعديل 

Dim stDocName As String
If Combo0.Value = "بيان1" Then
stDocName = "تقرير1"
ElseIf Combo0.Value = "بيان2" Then
stDocName = "تقرير2"
ElseIf Combo0.Value = "بيان3" Then
stDocName = "تقرير3"
End If

DoCmd.OpenReport stDocName, acPreview

Exit_Command7_Click:
Exit Sub

Err_Command7_Click:
MsgBox Err.Description
Resume Exit_Command7_Click

بالتوفيق

معذرة اخي ابو عدنان .. رايت ردك بعد ادراج ردي .. سباق الى الخير دائماً

بارك الله فيك

تم تعديل هذه المشاركة بواسطة يوسف احمد في 6 يناير 2009 في 07:51

#4

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

#5

تسلم اخي يوسف وافقك الله ولكن لماذا تم تغيير Text في هذي Value نجح الكود خيووووووووووو

وكل عام وانت بالف خيرررررررررر

#6

بارك الله بك اخي يوسف وجزاك الله الف خير وما في فرق ان شاء الله

تفضل اخي الملف بعد التعديل

db3_up.rar

27169617.gif
#7

جزاك الله الف خيرررررر خيووووووووو وفقك الله كلها تفي بالغرض

#8

بارك الله فيكم اخواني جميعاً وكل عام وانتم بخير وعافية

اخي الباشق

كما يقولون كل الطرق تؤدي الى روما

Text و Value هي خصائص لمربع التحرير والسرد وكما هو مبين من ترجمتها فالاولى هي ( نص ) اي النص الذي يظهر بمربع التحرير والسرد

الثانية ( قيمة ) وهي القيمة التي تظهر بمربع التحرير السرد

وكما تلاحظ بعد التغيير فقد تم حذف السطر الخاص بنقل التركيز الى مربع التحرير والسرد المسمى Combo0

Combo0.SetFocus

والسبب في ذلك يعود الى ان قراءة خاصية Text لعنصر تحكم ما غير ممكنة ما لم يتم نقل التركيز اليه

بالتوفيق

#9

تسلم خيووو وفقك الله

مواضيع مشابهة