1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29
|
Private Sub N°_individu_NotInList(NouvellesDonnées As String, Réponse As Integer)
Dim entNouvInd As Integer, entTronqueNom As Integer, chTitre As String, entmsgDialogue As Integer
' DoCmd.RunCommand acCmdUndo
'
' "Ajouter un individu" est ouvert un acDialog, très bien:
'
DoCmd.OpenForm "Ajouter un individu", acNormal, , , acAdd, acDialog, NouvellesDonnées
'
' donc ici forcément "Ajouter un individu" est fermé, donc NouvellesDonnées a été enregistré.
'
' Annuler modification d'abord:
Me.undo
'
' maintanant je peux .Requery sans souci:
Me.[N° Individu].Requery
'
' je peux ensuite assigner la nouvelle valeur:
Me.[N° Individu].value = NouvellesDonnées
'
' je communique avec ACCESS:
'
Réponse = acDataErrAdded
End Sub |
Partager