مساعدة في عرض بيانات محددة في التقرير

كود :

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

كود :

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