[ steve87 @ 09.02.2013. 14:28 ] @
Imam formu sa nekoliko combo-boxova, kod za dugme za cuvanje mi je sledeci 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 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 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? |