Bonjour à tous,
 
J'ai besoin d'aide dans les recordset. Ca fait longtemps que je mis suis mis.
J'ai une table s'appelant CATALOGUE et un unique champs nom_catalogue  
 
J'ai un champ a remplir et un bouton a cliquer. Bien sure, quand on clique, je veux que ca rentre l'enregistrement dans nom_catalogue mais j'ai déjà des problèmes MDR.  
J'ai fait ce code mais rien n'aparait dans ma table!
 
Dim MaBase As Database, rst As Recordset
Set MaBase = CurrentDb
Set JeuEnregistrement = MaBase.OpenRecordset("CATALOGUE" )
With JeuEnregistrement
.AddNew
![nom_catalogue] = "Russell"
.Update
End With
MaBase.Close
 
Avez-vous un code "passe partout" que je pourrais recopier tout le temps?
 
MERCI BEAUCOUP.

en fait "russell" est un exemple. Je sais comment remplacer ce texte par la zone à remplir ;-)

PLEASE HELP

personne connait les recordset?

up

UP

 
'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