'Il te faut un champs "RéfCATALOGUE" en n°auto et clé primaire dans ta table catalogue
'Crée un formulaire attaché à la table "CATALOGUE" dans lequel tu mettras un bouton que tu
'appelleras "CommandeNouvelEnregistrement" et auquel tu associes en évènement "Sur Click" cet procédure
Private Sub CommandeNouvelEnregistrement_Click()
On Error GoTo Err_CommandeNouvelEnregistrement_Click
Dim MaBase As Database, rst As Recordset
Dim strTitre As String, strMsg As String, strNouvelleDonnée As String
Set MaBase = CurrentDb
Set rst = MaBase.OpenRecordset("CATALOGUE", dbOpenDynaset)
strTitre = "Nouvelle donnée" ' A titre d'exemple
strMsg = "Entre la nouvelle donnée" ' A titre d'exemple
strNouvelleDonnée = InputBox(strMsg, strTitre) ' A titre d'exemple
With rst
.AddNew
![nom_catalogue] = strNouvelleDonnée
strMsg = "[réfCATALOGUE] = " & ![réfCATALOGUE] 'Pour aller à cet enregistrement + tard
.Update
.Close
End With
Set MaBase = Nothing
Me.Requery 'Nécessaire Me.RecordsetClone.FindFirst strMsg 'Pour aller à cet enregistrement
Me.Bookmark = Me.RecordsetClone.Bookmark
Exit_CommandeNouvelEnregistrement_Click:
Exit Sub
Err_CommandeNouvelEnregistrement_Click:
MsgBox "Erreur n°" & Err.Number & Chr(10) & Err.Description & Chr(10)
Resume Exit_CommandeNouvelEnregistrement_Click
End Sub