17-09-20, 02:37 PM
أرجو التعديل على كود التقرير التالي
والتعديل في هذا الجزء بحيث يتضمن عرض البيانات في التقرير حسب التصنيف المحدد من الكومبوكس Combotasnif2
كود :
If Trim(Combotasnif2.Text) = "" Then
MsgBox "íÌÈ ÇÎÊíÇÑ ÊÕäíÝ ÇáßÊÈ ÇæáÇ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÍÇáÉ ÇáÇÌÑÇÁ"
Combotasnif2.SetFocus
Exit Sub: End If
Call Connect_DataBase
If RS.State = adStateOpen Then RS.Close
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic
If RS.RecordCount <= 0 Then
MsgBox "ÚÝæÇð ... áã íÊã ÇáÚËæÑ Úáì Ãí ßÊÇÈ ãõÚÜÇÑ", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading, "ÊäÈíÜå"
Combotasnif2.SetFocus
Exit Sub
End If
Dim x As String
x = Combotasnif2.Text
Unload Raliieara2
If cn.State = 1 Then cn.Close
Raliieara2.DataControl1.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Initial Catalog=library ;Data Source=" & ServerName
RS.CursorLocation = adUseClient
If RS.State = 1 Then RS.Close
Raliieara2.DataControl1.Source = "Select * From Tab_aliieara Where tasnif_BooK='" & Trim(Combotasnif2.Text) & "' order by IDCod"
Raliieara2.Showوالتعديل في هذا الجزء بحيث يتضمن عرض البيانات في التقرير حسب التصنيف المحدد من الكومبوكس Combotasnif2
كود :
RS.Open "SELECT * FROM [Tab_aliieara] ", cn, adOpenStatic, adLockOptimistic