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
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
a kod za izlaz mi je
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
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
Mozda i u kodu za izlaz gresim. Ne znam da li je moguce da se uradi samo DoCmd.RunCommand acCmdSaveRecord bez DoCmd.GoToRecord , , acNewRec onda bi bilo lakse ili postoji neko drugo resenje?