If IsNull(Me.odano) Or Me.odano = "" Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub
satırındaki me.odano ="" olan bölümü me.odano= 0 olarak değiştiriniz.yani kod bu şekilde olacak
If IsNull(Me.odano) Or Me.odano = 0 Then: MsgBox "Odano boş.": Me.odano.SetFocus: Exit Sub