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.