خطأ في كود الطباعة بعد قيامي لعملية البحث

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

خطأ في كود الطباعة بعد قيامي لعملية البحث

مُساهمة من طرف ???? في الإثنين أبريل 02, 2012 6:07 pm

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

Private Sub cmdRpt_Click()
If rs.RecordCount = 0 Then
MsgBox "لا يوجد سجلات بالجدول!!", vbExclamation, " الجدول فارغ"
Exit Sub
End If
On Error Resume Next
db.Execute "DROP VIEW c1Reco"
db.Execute "CREATE VIEW c1Reco AS SELECT * FROM data1 WHERE id=" & rs!id
Dim rs1R As New ADODB.Recordset

If rs1R.State = 1 Then rs1R.Close: Set rs1R = Nothing
rs1R.Open "c1Reco", db, adOpenStatic, adLockReadOnly
If rs1R.RecordCount = 0 Then
MsgBox "لا توجد سجلات بالجدول , لذا لا يمكن الطباعة !", vbExclamation, "انتبــــه"
Set rs1R = Nothing
Exit Sub
End If
Set DRpt.DataSource = rs

DRpt.Show


rs1R.Close: Set rs1R = Nothing
End Sub
تحياتي للجميع

????
زائر


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

رد: خطأ في كود الطباعة بعد قيامي لعملية البحث

مُساهمة من طرف أحمد مناع في الثلاثاء أبريل 03, 2012 7:01 am

صباح الخير الاخت الكريمة Very Happy



أرجوا منك أن تقومى بوضع مثال .....كما أرجوا ما هو الخطأ الذى يحدث عند أستخدام الكود وذلك طبعا بعد وضع مثال

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

رد: خطأ في كود الطباعة بعد قيامي لعملية البحث

مُساهمة من طرف أحمد مناع في الأربعاء أبريل 04, 2012 10:21 am

أختى الكريمة ....اليك رابط المثال بعد التعديل ....و أرجوا أن تلاحظى ما الفرق بين الاثنين و تعرفى سبب الخطأ بنفسك ......



و إن لم تستطعى أن تتوصلى للخطأ بنفسك سأقوم بتوضح ما هو الخطأ الذى وقعتى فية ....لكنى متأكد أنك ستلاحظين هذا الخطأ بنفسك بعد المقارنة بين المثال الذى تم إرفاقة وبين الذى تم التعديل عليه وهو على الرابط التالى :



http://www.filetolink.com/4b8b6c2f

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

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

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


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