kontrola unosa u subform na osnovu vrednosti polja u formi

kontrola unosa u subform na osnovu vrednosti polja u formi 26.12.2014. u 11:31 · pre 144 meseca #1

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

Re: kontrola unosa u subform na osnovu vrednosti polja u formi 26.12.2014. u 12:14 · pre 144 meseca #2

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

Re: kontrola unosa u subform na osnovu vrednosti polja u formi 26.12.2014. u 12:21 · pre 144 meseca #3

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.

Potpis

Jednog dana...

Re: kontrola unosa u subform na osnovu vrednosti polja u formi 26.12.2014. u 12:45 · pre 144 meseca #4

Ovo radi samo sada imam problem sa
Me.Forms![Prijemno savezni]![Spedicijasav].SetFocus

Izvinjavam se ovo radi.
Pozdrav.

Re: kontrola unosa u subform na osnovu vrednosti polja u formi 26.12.2014. u 19:48 · pre 144 meseca #5

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

Forum kao aplikacija na telefonu

Srodne teme