[es] - Kako upisati podatke iz frm u tbl

Rakitno

Član broj: 115946
Poruke: 12
82.193.208.*

Profil

^{19.08.2008. u 21:40 - pre 190 meseci}

Molim nekog ko ima strpljenja da pomogne početniku rješiti ovo.
Imam 3 text boxa u formi i pored svakog polja po jedan command button.
Kad se aktivira command button želim da s podaci iz pripadajućeg text boxa
upišu u tabelu koja ima samo jedno polje. Hvala

Odgovor na temu

Scelle
Slavko Šćekić
Student, Računarski fakultet
Beograd

Član broj: 151761
Poruke: 174
*.crnagora.net.

Profil

Re: Kako upisati podatke iz frm u tbl

^{20.08.2008. u 02:32 - pre 190 meseci}

Može li se znati koja te potreba navela da uradiš nešto ovakvo?

Tvoj zahtjev se može isputniti, svakako, ali sam siguran da možemo naći i neki drugi način.

"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."

Ivo Andric

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Kako upisati podatke iz frm u tbl

^{20.08.2008. u 07:08 - pre 190 meseci}

Na on klik dugmeta bi ubacio kod

Dim d As Database
Set d = CurrentDb
Dim ev As Recordset

' tu dolje čitaš tvoju tablicu s nekim uvjetom,
Set ev = d.OpenRecordset("select * from radnici where sif_radnika=" & sifradnika)

If ev.EOF() Then
ev.AddNew ' ako ne postoji dodaš novi slog
Else
ev.Edit ' ako postoji mjenjanje postoječeg
End If

' polja u tablici izjednašiš s poljem iz forme

ev.Fields("sif_radnika") = sifradnika
ev.Fields("ime_radnika") = imeradnika

ev.Update
ev.Close

Set d = Nothing

eto to ti je to

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Kako upisati podatke iz frm u tbl

^{20.08.2008. u 09:17 - pre 190 meseci}

Nije lepo na pitanje odgovoriti pitanjem, ali o ovome bi mogao razmisliti :

Zašto tabela ima samo jedno polje, što ne bi napisao neki Union Query da ta tri polja stočiš u jedno ?

Da li imaš potrebu da edituješ kroz formu podatke sačuvane u tabeli ? Ako imaš kako da znaš u kom ćeš textboxu na formi prikazati sačuvan podatak ?

Ozbiljan i odgovoran mladić

Odgovor na temu

Rakitno

Član broj: 115946
Poruke: 12
82.193.208.*

Profil

Re: Kako upisati podatke iz frm u tbl

^{20.08.2008. u 20:02 - pre 190 meseci}

Nažalost izgleda da nisam dobro objasnio što mi treba, evo jednostavno
u tabeli imam polje naziva broj_str, a na formi text box čiji je control source nema naziv broj_str nego
neki drugi naziv, a aktiviranjem command butona bi trebalo da se podatak iz text boxa zaista upiše
u polje naziva broj_str. Ne treba mi editovanje podataka. Šta me natjera na to, dobro pitanje scelle.

Odgovor na temu

Miro35
Miroslav Čondrić
BiH

Član broj: 63672
Poruke: 122
*.tel.net.ba.

Sajt: Tel.net.ba

+3 Profil

Re: Kako upisati podatke iz frm u tbl

^{21.08.2008. u 09:47 - pre 190 meseci}

Može li ti pomoć ovaj primjer

miro

Prikačeni fajlovi

PrimjerRakitno.rar - 18.81k

Odgovor na temu

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.

+8 Profil

Re: Kako upisati podatke iz frm u tbl

^{21.08.2008. u 13:26 - pre 190 meseci}

Rakitno , nisi pogledao onaj gore moj post

S njim upišeš taj tvoj txtbox u tvoju tablicu
samo moraš prmjeniti naziv tablice i naziv polja u onom momgore kodu

Odgovor na temu

domaci_a_nas
PHP developer

Član broj: 42333
Poruke: 524
*.dynamic.sbb.rs.

+8 Profil

Re: Kako upisati podatke iz frm u tbl

^{21.08.2008. u 17:54 - pre 190 meseci}

Evo probaj ovo Trletovo, samo malo detaljnije.

Code:
Private Sub Command1_Click
SnimiPodatak Text1
End Sub

Private Sub Command2_Click
SnimiPodatak Text2
End Sub

Private Sub Command3_Click
SnimiPodatak Text3
End Sub

Private Sub SnimiPodatak(KojaKontrola As Control)
Dim d As Database
Set d = CurrentDb
Dim ev As Recordset

' tu dolje čitaš tvoju tablicu s nekim uvjetom,
Set ev = d.OpenRecordset("select * from radnici where sif_radnika=" & sifradnika)

If ev.EOF() Then
ev.AddNew ' ako ne postoji dodaš novi slog
Else
ev.Edit ' ako postoji mjenjanje postoječeg
End If

' polja u tablici izjednašiš s poljem iz forme

ev.Fields("sif_radnika") = KojaKontrola.Value

ev.Update
ev.Close

Set d = Nothing
End Sub

Ozbiljan i odgovoran mladić

Odgovor na temu