Skrivanje subforme u zavisnosti od vrednosti polja u glavnoj formi

Private Sub Form_Current()
If IsNull(Me.BrojFakture) Then
Me.FakturaArtikli.Enabled = False
Else
Me.FakturaArtikli.Enabled = True

End If
End Sub
Private Sub BrojFakture_AfterUpdate()
Dim BrFak
BrFak = Me.BrojFakture

If Format$(BrFak) <> "" Then
Me.FakturaArtikli.Enabled = True
End If

End Sub

Atomatski unos (Idfaktura) se postavlja kod na default value.
Nevalja na bilo koji drugi dogadjaj jer onda ostaju u bazi fakture koje nemaju artikle ako se operator predomisli.

Ako hoces prvo unostiti atikle onda napravi jos jednu tabelu tmpartikli sa istim poljima pa od nje napravi formu.
Pri izllazu iz te forme podizi formu za unos faktura te kad se unesu podaci o fakturi na neki taster fakturisi ili na izlaz prenesi podatke iz tem tabele u pravu.
Ako ukines relacijsku vezu izmedju faktura i fakturaartikli onda se to moze i elegantnije rijesiti.

Potpis

zxz

Izonic, ovo Vaše rešenje radi odlično. Hvala, al ja sam ipak odlučio poslušati Gesbija i BiloKoje.
BiloKoje, hvala na pojašnjenju. Što se tiče nivelacije za ovaj moj primer iskoristio sam primer korisnika Zoran.Eremija iz teme Update podataka u tabeli iz neke druge tabele ili upita i odlično radi. Jedina mi je greška što sam od istog gospodina našao i login formu koja je preteška za mene i nekoliko dana izgubih da je prilagodim. Da se ne gubi smisao otvoriću novu temu za login form. Hvala još jednom.

Ponovo ja. Postaviću pitanje ovde jer se radi o zaključavanju i program je od FoX028. Kako npr. da se zaključa određena faktura, npr pod brojem 1 a da pod brojem 2 ostane otključana. Dodao sam kolonu zaključano tipa yes/no u tabeli faktura. Na formi imam dugmad oključaj i zaključaj koja postavljaju vrednost na true i false.
Dodao sam i sledeći kod

i ne radi.

Ovaj kod stavi na OnCurent forme i prebaci End if, na karaj, ispred End Sub. Ovako kako si napisao Forma se zaključava ako je Chech38 na True i odmah se otključava jera za deo koda posle End if nema nikakvog uslova.

Hvala. Ovo end if ni sam ne znam kako se tu našlo. Na OnCurent forme radi, samo ne radi trenutni. Npr. ako trenutno radim sa fakturom br 2 i zaključam je, izmene su moguće sve dok je ne napustim. Verovatno treba posle klika na dugmad staviti Me.Refresh.

>