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

مشكلة في طباعة التقرير

مغلق
بدأه layan في 17 يوليو 2006 · 13 رد · 954 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

عندي مشكلة عويصة

يوجد لدي فورم وبة MSHFlexGrid1 و TextBox و زرين أمر واحد للبحث داخل الـ MSHFlexGrid1 لتحديد السجل

والزر الثاني لطباعة مايظهره الزر الأول ( زر البحث )

مثال عندما اكتب في الـ TextBox محمد واضغط على الزر بحث يظهر جميع السجلات التي تبداء بكلمة ( محمد ) وبشكل جيد طبعاً هذا ما أريده

ولكن لكن لكن لكن لكن

عند الضغط على الزر طباعة من المفترض ان يظهر في التقرير جميع السجلات التي تبداء بكلمة ( محمد )

ولكن المشكلة هي ظهور هذه الرسالة وعدم ظهور المطلوب

الصورة في المرفقات

الصورة في المرفقات

الصورة في المرفقات

الصورة في المرفقات

الصورة في المرفقات

أخواني وأعزائي أريد حلاً لهذه المشكلة حيث ان مشروعي متوقف على طباعة التقرير المحدد

والف الف شكر لكم جميعاً

post-83188-1153154005_thumb.jpg

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#2

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

ضع الكود هنا

460.gif

#3

بعد أذن اخي المتميز

هذا مثال للأخ هيثم القلاف فيه ماتريد

واذا كنت تريد معرفة الخطأ ضع الكود هنا كما قال لك الاخ المتميز

Find_Print.rar

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

شكراً لكم جميعاً

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

وكذلك قمت بتطبيقة على مشروع جديد نجح

ولكن على مشروعي لم ينجح وتظهر الرسالة المذكورة أعلاه

عموماً هذا هو الكود كاملاً

كود زر البحث

Private Sub Command9_Click()
On Error Resume Next
 If Not Trim(Text17) <> "" Then _
	Exit Sub
'
 If rs.State = adStateOpen Then _
	rs.Close
'
	rs.Open "SELECT * FROM [tabel] WHERE [a2] LIKE '%" & Trim(Text17.Text) & "%'", db, adOpenStatic, adLockReadOnly


'

'

كود زر الطباعة بعد البحث

 Set DataReport1.DataSource = rs
	 DataReport1.Show 1

كود الفورم

	db.Close
'
 db.CursorLocation = adUseClient
 db.Provider = "Microsoft.JET.OLEDB.4.0;"
 db.Open App.Path & "\rodah.mdb"
'
 If rs.State = adStateOpen Then _
	rs.Close

	rs.Open "[tabel]", db, adOpenStatic, adLockReadOnly

هذه هي الأكواد ولا اعلم إن كانت هي المطلوبة أم لا أي شئ تريدونه قولوا لي

تم تعديل هذه المشاركة بواسطة layan في 18 يوليو 2006 في 16:36

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#5

أخواني لقد اضفت الكود ولا احد يرد

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#6

ارجو الرد عاجلاً

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#7

ارجو الرد

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#8

:angry: :angry: :angry: :angry: :angry: :angry:

:angry: :angry: :angry: :angry: :angry: :angry:

:angry: :angry: :angry: :angry: :angry: :angry:

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#9

تراني مقفل نسبة تحت

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#10

الفزعة يا شباب

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#11

لااله الاالله محمد رسوال الله

اللهم ارزقني بمن يجيب على سؤالي

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#12

سبحان الله وبحمده سبحان الله العظيم

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#13

اللهم صلي وسلم على نبينا محمد

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

#14

استغفر الله

كلمات اتعبت الملائكة في كتابة الأجر فذهبوا وشكوا إلى ربهم .... ماذا يفعلون

فقال لهم سبحانه وتعالى اطووها بصحائفها وضعوها تحت عرشي فتبقى حسناتها إلى يوم القيامة الله اكبر

(( اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك))

هذا الموضوع مغلق.

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