Pomoć za Event Procedure ( Command Buton )
Pozdrav
Imam na formi dugme koji mi izveze podatke iz tablice.
Tablica ima polja po redu:Id,Prezime,Ime,Adresa,Grad,Telefon Fiksni,Telefon Mobilni
Private Sub Command0_Click()
Dim DB As Database
Dim rs As Recordset
Dim txt As String
Set DB = CurrentDb
Set rs = DB.OpenRecordset("kontakt lista")
Open "C:\imena.csv" For Output Shared As #1
txt = "Id;Prezime;Ime;Adresa;Grad;Telefon Fiksni;Telefon Mobilni"
Print #1, txt
Do While Not rs.EOF
txt = rs.Fields(0) & ";" & rs.Fields(1) & ";" & rs.Fields(2) & ";" & rs.Fields(3) & ";" & rs.Fields(4) & ";" & rs.Fields(5) & ";" & rs.Fields(6)
Print #1, txt
rs.MoveNext
Loop
rs.Close
Close #1
End Sub
Kako da izmjenim ovaj Event Procedure jer želim podatke na preskok znači samo iz tabele polja Prezime,Adresa,Telefon Mobilni
Hvala
 |  |
 |
