06-03-20, 09:38 PM
الحمد لله والفضل لله جل وعلا توصلت الى الحل وهذا هو الكود :
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB
atabase Password=123; Data Source=" & App.Path & "\compny.mdb"
If Text4.Text = "" Then
Report1.DataControl1.Source = "Select * From [tbl1]"
Else
Report1.DataControl1.Source = "Select * From [tbl1] WHERE [IDnum] = " & Trim(Text4.Text)
End If
Report1.Show
Unload Report1
Report1.DataControl1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB
atabase Password=123; Data Source=" & App.Path & "\compny.mdb"If Text4.Text = "" Then
Report1.DataControl1.Source = "Select * From [tbl1]"
Else
Report1.DataControl1.Source = "Select * From [tbl1] WHERE [IDnum] = " & Trim(Text4.Text)
End If
Report1.Show
