Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3143 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide sure les recordset dans ACCESS

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

aide sure les recordset dans ACCESS

n°1328220
Profil sup​primé
Posté le 19-03-2006 à 12:20:48  answer
 

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.

mood
Publicité
Posté le 19-03-2006 à 12:20:48  profilanswer
 

n°1328222
Profil sup​primé
Posté le 19-03-2006 à 12:21:52  answer
 

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

n°1328224
Profil sup​primé
Posté le 19-03-2006 à 12:32:44  answer
 

PLEASE HELP

n°1328236
Profil sup​primé
Posté le 19-03-2006 à 13:20:35  answer
 

personne connait les recordset?

n°1328249
Profil sup​primé
Posté le 19-03-2006 à 13:56:40  answer
 

up

n°1328300
Profil sup​primé
Posté le 19-03-2006 à 15:39:16  answer
 

UP

n°1334689
Little kev​in
Posté le 29-03-2006 à 16:15:08  profilanswer
 


 
'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


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  aide sure les recordset dans ACCESS

 

Sujets relatifs
recherche dans une chaine de caractères. un peu d'aide SVP[VBA] Chronomètre faussé en VB sous access
Entity Relationship Diagram sous AccessTable Access Liée à SQL Server par ODBC
Entity Relationship Diagram sous Accessbesoin d'aide css
besion d'aide sur un tuto de tomcat avec jndi [resolu][VBA] fichier d'aide compilé
Besoin d'aide pour lister contenu d'un dossierMa base Access grossit ... et ne maigrit jamais
Plus de sujets relatifs à : aide sure les recordset dans ACCESS


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR