[مصمم هاوي]

أرجو التعديل على كود التقرير التالي

كود :

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

[مصمم هاوي]

تم بحمد الله تعديل الكود

كود :

RS.Open "Select * From Tab_Books Where tasnif_BooK ='" & Trim(Combotasnif2.Text) & "'", cn, adOpenStatic, adLockPessimistic