Ukoliko budeš radio sa bazom podataka, ovaj primjer ti može pomoći.
Dim dbAdresar As Database
Dim rsAdresa As Recordset
Dim red, sql As String
Dim k As Integer
Dim Uslov As String
Dim Prezime, Ime, Naziv, Adresa, Mjesto, Telefon, Mobitel As String
Dim a As String
Set dbAdresar = OpenDatabase(App.Path & "\Adresar.mdb")
With MSFlexGrid1
.Cols = 12
.TextMatrix(0, 0) = "RB"
.TextMatrix(0, 1) = "Prezime"
.TextMatrix(0, 2) = "Ime"
.TextMatrix(0, 3) = "Datum kontakta"
.TextMatrix(0, 4) = "Telefon"
.TextMatrix(0, 5) = "Mobitel"
.TextMatrix(0, 6) = "Email"
.TextMatrix(0, 7) = "Napomena"
.TextMatrix(0, 8) = "Naziv preduzeća"
.TextMatrix(0, 9) = "Funkcija"
.TextMatrix(0, 10) = "Adresa"
.TextMatrix(0, 11) = "Mjesto"
End With
Uslov = Combo1.ListIndex
Print Uslov
Prezime = Text1.Text
Ime = Text3.Text
Naziv = Text8.Text
Adresa = Text10.Text
Mjesto = Text11.Text
Datum = Text2.Text
Telefon = Text5.Text
Mobitel = Text6.Text
Email = Text7.Text
Select Case Uslov
Case 0
sql = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.RecordSource = "Select * from [Adre] Where [Prezime]='" & Prezime & "'"
Data1.Refresh
Set rsAdresa = dbAdresar.OpenRecordset(sql, dbOpenDynaset)
With rsAdresa
k = 0
Do While Not .EOF
k = k + 1
red = !Redni_broj & vbTab & !Prezime & vbTab & !Ime & _
vbTab & !Datum & vbTab & !Telefon & vbTab & !Mobitel _
& vbTab & !Email & vbTab & !Napomena & vbTab & !Naziv _
& vbTab & !Funkcija & vbTab & !Adresa & vbTab & !Mjesto
MSFlexGrid1.Cols = 12
MSFlexGrid1.AddItem red, k
.MoveNext
Loop
Print k
If k = 0 Then
a = MsgBox("Traženi podatak nije pronađen", vbOKOnly, "OBAVJEST")
End If
End With
End select
steve585