Naime, imam tri tabele Korisnici, Racuni i Seminari i Glavnu formu a u njoj jos dve forme RCN i SEM koje se otvaraju klikom na dugme. Glavna forma se odnosi na Korisnike, Druge dve se odnose na Tabele Racuni i Seminari. Zanima me kako da povezem forme RCN i SEM sa Glavnom formom tako da kada upisujem u njih to bude vezano iskljucivo za korisnika koji je odabran u glavnoj formi, tj.kako bi otprilike trebalo da glasi kod za vezivanje glavne forme i ostale dve.. Tabele su OK vezane, 1-vise.
Forma i Podforma?
Zaključano
Zakačeno
Za ovo će ti trebati pisanje VBA koda. Bilo bi dobro da pogledaš primer br. 12. "Kako dinamički sinhronizovati dve forme korisničkim kodom."
Primer se nalazi na adresi http://office.microsoft.com/en-gb/help/HA011201381033.aspx gde treba skinuti
Database of Access 2000 sample forms ----- FrmSampl.mdb 15.5 MB
Malo je veći ali ima oko tridesetak dobrih primerčića oko formi.
Primer se nalazi na adresi http://office.microsoft.com/en-gb/help/HA011201381033.aspx gde treba skinuti
Database of Access 2000 sample forms ----- FrmSampl.mdb 15.5 MB
Malo je veći ali ima oko tridesetak dobrih primerčića oko formi.
Na tasteru glavne forme gdje otvaras neku od ovih formi upises na on klik:
vo vjerovatno imas upisano.
docmd.openform "ImeForme"
dodas jos ovo:
Forms!ImeForme!ImepoljakojeIDOdOdnosnoSekKljucIztabeleimena.DefaultValue=me.PrimKljucIzGlavnetabele
Ovo polje u toj novootvorenoj tabeli moze biti zakljucano ili pak i nevidljivo jer ce se podatak sam upisivati.
vo vjerovatno imas upisano.
docmd.openform "ImeForme"
dodas jos ovo:
Forms!ImeForme!ImepoljakojeIDOdOdnosnoSekKljucIztabeleimena.DefaultValue=me.PrimKljucIzGlavnetabele
Ovo polje u toj novootvorenoj tabeli moze biti zakljucano ili pak i nevidljivo jer ce se podatak sam upisivati.
Potpis
zxz
Ako nekome zatreba, evo kod-a.
Na OnClick upisati:
Private Sub Command201_Click()
On Error GoTo Err_Command201_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "forma koju otvaramo"
stLinkCriteria = "[ID forme koju otvaramo]=" & Me![ID aktivne forme iz koje pozivamo]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command201_Click:
Exit Sub
Err_Command201_Click:
MsgBox Err.Description
Resume Exit_Command201_Click
End Sub
Na OnClick upisati:
Private Sub Command201_Click()
On Error GoTo Err_Command201_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "forma koju otvaramo"
stLinkCriteria = "[ID forme koju otvaramo]=" & Me![ID aktivne forme iz koje pozivamo]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command201_Click:
Exit Sub
Err_Command201_Click:
MsgBox Err.Description
Resume Exit_Command201_Click
End Sub