مساء الخير
المرجو من سيادتكم تصحيح الكود التالي بعد استخدمي لأداة 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
تحياتي للجميع

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



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

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



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



[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]