[ dendi @ 21.02.2009. 20:47 ] @
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
[ mkaras @ 21.02.2009. 21:46 ] @
Code:
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 = "Prezime;Adresa;Telefon Mobilni"
Print #1, txt
Do While Not rs.EOF
txt = rs.Fields(1) & ";" & rs.Fields(3) & ";" & rs.Fields(6)
Print #1, txt
rs.MoveNext
Loop
rs.Close

Close #1
End Sub
[ galac1968 @ 21.02.2009. 22:16 ] @
Da,bas kao sto ti je Mikaras odgovori . A ti druze pokusaj da sada ovaj kod za Event razlozis i napises komentare pa ces videti sta ti je ciniti sledeceg puta kad naidjes na kod koji ti nije jasan.
[ dendi @ 22.02.2009. 08:09 ] @
Hvala mkarasu i galac 1968
Prvome za rješenje a drugome za savjet.
Pozdrav