anvendelse af fejlkoder

Private Sub Form_Error(DataErr As Integer, Response As Integer)

If DataErr = 3022 Then

    MsgBox "Error 3022"

    Response = accDataErrorContinue

End If


End Sub

Hej Terry

Jeg har følgende kode til en kommandoknap, som jeg bruger til at lukke formularen med. Så snart linien "DoCmd.RunCommand acCmdRefresh" køres kommer fejlmeddelelsen. Jeg har prøvet at lægge din kode ind efter dette, men det virker ikke. Hvor skal jeg placere koden?


Private Sub LukFormular_Click()
On Error GoTo Err_LukFormular_Click

    DoCmd.RunCommand acCmdRefresh
    DoCmd.Close
    DoCmd.GoToControl "projekt_navn"
    DoCmd.RunCommand acCmdRefresh
    DoCmd.GoToControl "aktivitetunderformular"
    DoCmd.GoToControl "a_titel"
   
Exit_LukFormular_Click:
    Exit Sub

Err_LukFormular_Click:
    MsgBox Err.Description
    Resume Exit_LukFormular_Click
   
End Sub

when the error occurs does the error event get performed (Err_LukFormular_Click:)?

What puzzles me is you say in your original question that it happend when you entered a new record with a duplicate index. But the code example you show now is in a butten event!

I'll take a look if you send the dB

NOSPAMeksperten@santhell.dkNOSPAM

You need to remove NOSPAM

Private Sub LukFormular_Click()
On Error GoTo Err_LukFormular_Click

    DoCmd.RunCommand acCmdRefresh

    DoCmd.Close

    DoCmd.GoToControl "projekt_navn"
    DoCmd.RunCommand acCmdRefresh
    DoCmd.GoToControl "aktivitetunderformular"
    DoCmd.GoToControl "a_titel"
   
Exit_LukFormular_Click:
    Exit Sub

Err_LukFormular_Click:

    If Err.Number = 3022 Then
        MsgBox "Aktivitets-id anvendes i forvejen. Find på et nyt"
      Me.a_tekst.SetFocus
    Else
        MsgBox Err.Number & " - " & Err.Description
   
    End If
   
    Resume Exit_LukFormular_Click
   
End Sub

and the forms min+max and close buttons are disabled to force the user to close using the button!

remember to close the question tville :o)

tak :o)