Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Pomoć za Event Procedure ( Command Buton )

[es] :: Access :: Pomoć za Event Procedure ( Command Buton )

[ Pregleda: 2362 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

dendi

Član broj: 88305
*.adsl.net.t-com.hr.



Profil

icon Pomoć za Event Procedure ( Command Buton )21.02.2009. u 20:47 - pre 152 meseci
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
 
Odgovor na temu

mkaras
Marko Karas
Beograd

Član broj: 66087
Poruke: 427



+19 Profil

icon Re: Pomoć za Event Procedure ( Command Buton )21.02.2009. u 21:46 - pre 152 meseci
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
 
Odgovor na temu

galac1968
Poljoprivrednik/seljak
Pozega

Član broj: 180810
Poruke: 219
*.eunet.yu.



+4 Profil

icon Re: Pomoć za Event Procedure ( Command Buton )21.02.2009. u 22:16 - pre 152 meseci
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.
 
Odgovor na temu

dendi

Član broj: 88305
*.adsl.net.t-com.hr.



Profil

icon Re: Pomoć za Event Procedure ( Command Buton )22.02.2009. u 08:09 - pre 152 meseci
Hvala mkarasu i galac 1968
Prvome za rješenje a drugome za savjet.
Pozdrav
 
Odgovor na temu

[es] :: Access :: Pomoć za Event Procedure ( Command Buton )

[ Pregleda: 2362 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.