[ Rakitno @ 19.08.2008. 21:40 ] @
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
[ Scelle @ 20.08.2008. 02:32 ] @
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.
[ Trtko @ 20.08.2008. 07:08 ] @
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
[ domaci_a_nas @ 20.08.2008. 09:17 ] @
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 ?
[ Rakitno @ 20.08.2008. 20:02 ] @
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.
[ Miro35 @ 21.08.2008. 09:47 ] @
Može li ti pomoć ovaj primjer
[ Trtko @ 21.08.2008. 13:26 ] @
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

[ domaci_a_nas @ 21.08.2008. 17:54 ] @
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