Czy może ktoś sprawdzić dlaczego w podformularzu
Poniższy kod w afterupdate nie czyści kolejnych pól w rekordzie formularza?
"
Private Sub strIndeks_AfterUpdate()
Me.Dirty = False
If DLookup("[indeks]", "mg00imni", "[indeks] ='" & Me.strIndeks & "'") = "" Then
Me.strIndeks = ""
Me.strNazwaInd = "Sprawdz!"
Me.strNrPartii = ""
Me.sngDlugosc = ""
Me.sngSzer = ""
Me.sngIlosc = ""
Me.sngWagapoz = ""
Me.Lp.SetFocus
Me.Dirty = False
Else
Me.strNazwaInd = DLookup("[inazwa]", "mg00imni", "[indeks] ='" & Me.strIndeks & "'")
End If
Me.Dirty = False
End Sub
"
Proszę o pomoc!
Dawno nie korzystałem z MS Access.