السلام عليكم ورحمة الله وبركاته.....
إخواني واجهت مشكلة في عرض بيانات في تقرير Data Report
حيث كانت المشكله في عدم ظهور البيانات نهائيا ويظهر التقرير فارغ تماما .
تكمن المشكله في أني أستعلم عن سجل من نوع نص
وإذا كان الإستعلام عن رقم يكون كل شئ من أحسن ما يكون
قمت بعمل استعلام بشرط اسم ورقم في نفس الجدول . ورجعت المشكله مره أخرى .
مع العلم أني أستخدم أداة DAO لربط الفورم مع قاعدة البيانات .
وقد استخدمت الكود التالي :
Dim db1 As DAO.Database
Dim rec1 As DAO.Recordset, rec As DAO.Recordset
Dim sql As String, sql2 As String
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Form_Load()
Set db1 = DBEngine.Workspaces(0).OpenDatabase("data\db.mdb")
Set rec = db1.OpenRecordset("stds", dbOpenDynaset)
' هذا الكود يقوم بإحضار أسماء ووضعها في أداة كومبو في حدث تحميل الفورم .
sql2 = "select distinct name from stds"
Set rec1 = db1.OpenRecordset(sql2, dbOpenDynaset)
rec1.MoveFirst
Do
Combo2.AddItem rec1(0)
rec1.MoveNext
Loop Until rec1.EOF
End Sub
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Private Sub Command1_Click()
' هذا الكود يقارن ما تم اختياره من الكومبو بقيم الجدول STDS فإذا تساوت قام بفتح التقرير معتمدا على استعلام نصي
rec.MoveFirst
Do Until rec.EOF
If Combo2.Text = rec(0) Then
sql = "select * from stds where name = ( ' " & Combo2.Text & " ' ) "
DataEnvironment1.Commands(1).CommandType = adCmdText
DataEnvironment1.Commands(1).CommandText = sql
DataEnvironment1.Commands(1).Execute
DataReport1.Show
Exit Sub
Else
rec.MoveNext
End If
Loop
End Sub
ـــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــوهناك مشكلة أخرى أواجهها في التقرير هي أن رأس التقرير أو رأس الصفحة لا تقبل إدراج حقول من قاعدة البيانات بها
والتي تقبل فقط هي جسم التقرير
.......................................
أرجو منكم إيجاد حل لمشكلتي وأسأل الله لنا ولكم التوفيق
محبكم
ملاحظه : أخشى أني خالفت قوانين المنتدى بطرحي سؤالين في موضوع واحد
أرجو منكم المعذره ولكن لاعتقادي أن الموضوعين مترابطين بعضهما البعض . ودمتم