السلام عليكم ورحمة الله وبركاته.....
إخواني واجهت مشكلة في عرض بيانات في تقرير Data Report
حيث كانت المشكله في عدم ظهور البيانات نهائيا ويظهر التقرير فارغ تماما .
تكمن المشكله في أني أستعلم عن سجل من نوع نص
وإذا كان الإستعلام عن رقم يكون كل شئ من أحسن ما يكون
قمت بعمل استعلام بشرط اسم ورقم في نفس الجدول . ورجعت المشكله مره أخرى .
وقد استخدمت الكود التالي باستخدام أداة DAO واستخدمت الأداة ADOBC وأيضا لم تحل المشكلة :
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
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
ـــــــــــــــــــــــــــــــــــــــــــــــــــــوالملف المرفق يوضح المشكلة بالضبط ..... لمن أراد الاطلاع إليه والإفادة
ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــ
وهناك مشكلة أخرى أواجهها في التقرير هي أن رأس التقرير أو رأس الصفحة لا تقبل إدراج حقول من قاعدة البيانات بها
والتي تقبل فقط هي جسم التقرير
.......................................
أرجو منكم إيجاد حل لمشكلتي وأسأل الله لنا ولكم التوفيق
محبكم