Voilà ce que j'obtiens lorsque j'execute l'outil de traduction de ma macro (ouvrirformulaire et définirValeur) en VBA :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| BACNOM_NotInList
'
'------------------------------------------------------------
Private Sub BACNOM_NotInList(NewData As String, Response As Integer)
On Error GoTo BACNOM_NotInList_Err
DoCmd.OpenForm "W BAC_DBN", acNormal, "", "", acAdd, acNormal
Forms![W BAC_DBN]!BAC_NOM = Forms![Parcelle cadastrale]![BACNOM]
BACNOM_NotInList_Exit:
Exit Sub
BACNOM_NotInList_Err:
MsgBox Error$
Resume BACNOM_NotInList_Exit
End Sub |
ensuite, c'est vrai que je ne sais pas vraiment où placer le code suivant
Response = acDataErrContinue
pour que le message d'erreur n'apparaissent plus.
Partager