[ sabacc @ 26.12.2014. 10:31 ] @
Hoću da referenciram polju u formi tako da se to polje u subform ne može popuniti dok se prethodno polje u formi ne popuni.

Stavlje kod na polje u Got Focus subforme

Private Sub Broj_protokola_GotFocus()
If Me.Forms![Prijemno savezni]![Spedicijasav] = "" Then
MsgBox "Unesite prvo Špediciju", vbOKOnly, "OBAVESTENJE"
Me.Forms![Prijemno savezni]![Spedicijasav].SetFocus
Cancel = True
Exit Sub
End If

End Sub
[ sabacc @ 26.12.2014. 11:14 ] @
Probao sam i code, ali ni to mi ne radi, verovatno grešim u referinciranju forme

Dim frm as Form
Set frm = Me.Form![Prijemno_savezni]
If IsNull(frm.[ID_strucno]) Then
Cancel = True
MsgBox "Create a record in the main form first.", vbExclamation, "Required data."
frm.[ID_strucno].SetFocus
End If


[ SLOJ.1973 @ 26.12.2014. 11:21 ] @
Citat:
sabacc: Hoću da referenciram polju u formi tako da se to polje u subform ne može popuniti dok se prethodno polje u formi ne popuni.

Stavlje kod na polje u Got Focus subforme

Private Sub Broj_protokola_GotFocus()
If Me.Forms![Prijemno savezni]![Spedicijasav] = "" Then
MsgBox "Unesite prvo Špediciju", vbOKOnly, "OBAVESTENJE"
Me.Forms![Prijemno savezni]![Spedicijasav].SetFocus
Cancel = True
Exit Sub
End If

End Sub


Trebalo bi if IsNull(Forms![Prijemno savezni]![Spedicijasav]) or IsEmpty (Forms![Prijemno savezni]![Spedicijasav]).Znaci bez Me.
[ sabacc @ 26.12.2014. 11:45 ] @
Ovo radi samo sada imam problem sa
Me.Forms![Prijemno savezni]![Spedicijasav].SetFocus

Izvinjavam se ovo radi.
Pozdrav.

[Ovu poruku je menjao sabacc dana 26.12.2014. u 12:58 GMT+1]
[ Zidar @ 26.12.2014. 18:48 ] @
Pretpostavljam da se naziv te spedicije, [Spedicijasav] nalazi u nekoj tabeli, i nesto mi kaze da je ta tabela izvor podataka za glavnu formu. Umesto pisanja koda, koji moze i ne mora da se startuje, mnogo je jednostavnije na nivou tabele staviti osobinu Required = TRUE za polje [Spedicijasav]. U tom slucaju, necete moci ni da udjete u subformu dok nsu sva Required polja popunjena. Ako slucaj nije ovakav kako sam opisao, onda najverovatnije postoji ozbiljan problem u nacinu koriscenja forme i subforme, ili, jos gore, u dizajnu same baze podataka (tabele, relationships). Najverovatnije je da gotovo sva polja u tabelama imaju Requird = FALSE (sto nikako ne valja) i Allow Zero length String = TRUE, sto je jos gore.

Korisno je proveriti dizajn tabela i ako su podaci neophodni - obavezan unos - to treba regulisati na nivou tabele. I na nivou form za kontrole postoji property Required, koji omogucuju da se izbegne previse koda. Jer brat je brat, a kod je kod i cesce ne valja nego sto valja.

Sreacn rad