(09-12-14, 02:23 PM)السيد الغالي كتب : السلام عليكم
في المرفق تجد ما طلبته
تحياتي لك
شكرا جزيلا يا غالي "السيد الغالي"
سيدي الغالي '" & السيد الغالي& " شكرا جزيلا
هل يمكن طباعة محتوى الداتاجريد بعد تعديل الكود التالي شاكرا لك سرعة ردك .متمنيا لك التوفيق
كود :
Private Sub Command4_Click()
Select Case Combo1.Text
Case "الصف"
Dim D, Z
D = Combo3
Z = Combo4
Adodc1.RecordSource = " select * from [Tab1] where [Class] like '" & D & "%' and [Div] like '" & Z & "%'"
Case "الشعبة"
Adodc1.RecordSource = "Select * From Tab1 Where [Div] LIKE '" & Text8 & "%';"
End Select
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub