Code:
Private Sub Sacuvaj_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec

'ako nije cekiran box
    If Me.cStanje = False Then
'onda je combox prazan
    Me.Stanje = ""
'kako da uradim kad je cekiran da ostane isto stanje koje je bilo a da pritom predje u new record
    End If
End Sub

Code:
Private Sub Izlaz_Click()
On Error GoTo Izlaz_Click_Err

    On Error Resume Next
    DoCmd.SetWarnings False
    DoCmd.RunCommand acCmdUndo
    DoCmd.Close , ""
   DoCmd.OpenForm "frmMeni", acNormal, "", "", , acNormal
    DoCmd.SetWarnings True

Izlaz_Click_Exit:
    Exit Sub

Izlaz_Click_Err:
    MsgBox Error$
    Resume Izlaz_Click_Exit

End Sub