Flere tilføjelser til tabel, men kun en godkendelse

Dim msg, Style, Title, Help, Ctxt, Response, MyString
msg = "Er du sikker på du vil tilføje"    ' Define message.
Style = vbYesNo + vbCritical + vbDefaultButton2    ' Define buttons.
Title = "tilføj"    ' Define title.
'Help = "DEMO.HLP"    ' Define Help file.
'Ctxt = 1000    ' Define topic
        ' context.
        ' Display message.
Response = MsgBox(msg, Style, Title)
If Response = vbYes Then    ' User chose Yes.
    MyString = "Yes"    ' Perform some action.
docmd. setwarnings = false
"kør dine forsprøgelser her
docmd. setwarnings = true
else
end if

Tak.. !~)

welcome