Centar za edukaciju-BiH

Predmet:Re: update podatka na combo boxu

---

zbog ovoga:
Private Sub Form_Current()
' Dim blnNewRecord As Boolean
' blnNewRecord = Me.NewRecord
' Me.chkNew = blnNewRecord
'Me.lblNew.FontBold = blnNewRecord
'Me.Caption = DLookup("korisnik", "korisnik", "korisnik=[Forms]![plataP]![plata]![korisnik]") & " - uposlenici"
'DoCmd.SetWarnings False
'DoCmd.OpenQuery "dodajradniku", acViewNormal
'DoCmd.SetWarnings False
'Check if form contains any records
If Not (Me.RecordsetClone.BOF And Me.RecordsetClone.EOF) Then
'Move to last record in order to get correct record count
Me.RecordsetClone.MoveLast
Me.RecordsetClone.MoveFirst
End If

---

Predmet:Re: update podatka na combo boxu

---

Malo objasni kako bi to trebalo raditi?
Kažeš da je prva forma koja se otvara 'FRMPLATA' i na njoj imaš List Box 'korisnik' . Click na taj List Box otvara formu 'plataP'.
Koji podaci trebaju biti prikazani u toj formi?

---

Predmet:Re: update podatka na combo boxu

---

samo korisnik ili firma koju si odabrao u frm plata
poslije se otvara forma plata koja ima polja godine ,mjeseca i datumaa

combo box je na formi detalji a to je poslijednja forma

Predmet:Re: update podatka na combo boxu

---

otvori formu frmplata duplim klikom i pokušaj na radnikid =label ime i prezime uposlenika
unositi podatke
na dupli klik otvaraš formu radnik
po povratku u forme platap.plata.detalji.radnikid ostaje nepromjenjen što znači da zadnji podatak koji je unesen u tabelu radnika nije prisutan u kombo boxu

Predmet:Re: update podatka na combo boxu

---

Mučim se već dugo sa ovim tvojim formama i nikako na zelenu granu. Tu ti nešto nije u redu sa dizajnom formi ili u nekom kodu (kojeg ima dosta nepotrebnog) nešto zeza. Previše si zakomplicirao stvar.
Nemoj tablicama i formama davati ista imena.
Ja sam napravio primjer na temelju tvojih tablica i to sve radi kako treba.

Prilozi:

---

Predmet:Re: update podatka na combo boxu

---

FINO HVALA NA SUGESTIJI
TO JE TO

POZDRAV