السلام عليكم ..
أخواني أنا لدي مشكلة في التقارير التي تعرض بعض السجلات تحت شرط معين ..
مثلا هذا الكود يعرض السجلات التي تحمل رقم الملف المدخل ..
Dim x As String
x = InputBox("الرجاء ادخال رقم الملف")
If rs.RecordStatus = 1 Then rs.Close
rs.Open "SELECT * FROM tfreegmlf where fileno=" & x & " ", Cn, 1, 2
If rs.EOF = True Then
MsgBox ("عفواً السجل لم يدخل بعد ولا يمكن طباعته إلا بعد الحفظ"), 64, ("برنامج مؤسسة مكة المكرمة الخيرية")
Else
Set DataReport6.DataSource = rs
DataReport6.Showو الـ
rs
معرفة هكذا
Public rs As New ADODB.Recordset
لكن فيه خطأ و هو
عند
.open
(طريقة أو جزء البيانات لم يتم العثور عليه)
وفقكم الله ..
.
