Private Sub Masa_AfterUpdate()
If IsNull(Me.Sifrata) Or Me.Masa = "" Then
MsgBox "Nemate Vneseno Kelner", vbCritical, "Greska"
Exit Sub
End If
If Me.Masa.Value = (DLookup("Masa", "Tbl_Masi_Arhiva", "Masa='" & Me.Masa & "'")) And (Me.Masa <> "afad") Then
DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
Else
DoCmd.OpenForm "For_Smetki", , , "Masa = '" & "" & Masa & "" & "'", acFormEdit
DoCmd.GoToRecord , , acNewRec
End If
End Sub
a kod ovaj kod gde je greska?
viktorce