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

  FORUM HardWare.fr
  Programmation

  [ Access ] VB & OpenRecordSet

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[ Access ] VB & OpenRecordSet

n°70021
FLY LM
Posté le 06-11-2001 à 16:28:44  profilanswer
 

Voilà je viens de touchailler à Access et déjà quelques soucis.
 
Je souhaite utiliser un formulaire pour effectuer un nouvel enregistrement dans ma base au niveau de la table "Client"
 
Dans ce formulaire, j'utilise un bouton qui doit lancer la procédure d'enregistrement lorsque l'on clique dessus.
 
Jusque là, rien de compliquer, sauf que cela ne marche pas !!!
 
Voilà la procédure :
------------------------------------------------------
 
Private Sub Commande11_Click()
 
Dim db As Database // là je l'ai supprimer, Access ne comprend pas ce type de variable...
 
Dim RST As Recordset
Dim critere As String
   
     
    If IsNull(Me![Texte7].Value) Or IsNull(Me![Modifiable9].Value) Then
        MsgBox ("Remplissez tous les champs..." )
    Else
         
        Set RST = CurrentDb.OpenRecordset("Client", dbOpenDynaset)
//-> C'est la l'erreur : Argument non valide...
 
        RST.AddNew
        RST("Nom_Client" ).Value = Me![Texte7].Value
        RST("Ref_Cat" ).Value = Me![Modifiable9].Value
        RST.Close
         
        DoCmd.Close
         
    End If
         
End Sub
 
------------------------------------------------------
Ca doit pas être très compliqué, mais j'ai pas l'aide d'installer et le MSDN est trop vague...
J'oubliais, j'utilise Access XP mais le format de la base est celui de Access 2000.
 
Merci de votre aide...

mood
Publicité
Posté le 06-11-2001 à 16:28:44  profilanswer
 

n°70044
FLY LM
Posté le 06-11-2001 à 17:14:59  profilanswer
 

J'ai trouvé plus court :
 
Private Sub Commande11_Click()
 
Dim Query As String
   
    If IsNull(Me![Texte7].Value) Or IsNull(Me![Modifiable9].Value) Then
        MsgBox ("Remplissez tous les champs..." )
    Else
         
        Query = "INSERT INTO Client (Nom_Client, Ref_Cat ) VALUES ('" & Me![Texte7].Value & "', '" & Me![Modifiable9].Value & "';)"
        DoCmd.RunSQL Query
        DoCmd.Close
         
    End If
         
End Sub

n°70363
Sylderon
Posté le 07-11-2001 à 16:00:22  profilanswer
 

Citation :

Dim db As Database // là je l'ai supprimer, Access ne comprend pas ce type de variable...  


Alors là j'hallucine !
C'est quoi comme version de Access et comment tu utilisais ta variable db ? Paske ça ne doit pas poser de pb.
 
Sinon ton code est effectivement + efficace dans sa dernière version.
 
A+

n°70367
FLY LM
Posté le 07-11-2001 à 16:06:30  profilanswer
 

sylderon a écrit a écrit :

Citation :

Dim db As Database // là je l'ai supprimer, Access ne comprend pas ce type de variable...  


Alors là j'hallucine !
C'est quoi comme version de Access et comment tu utilisais ta variable db ? Paske ça ne doit pas poser de pb.
 
Sinon ton code est effectivement + efficace dans sa dernière version.
 
A+  




 
J'ai trouvé, il n'y avait pas de référence VB sur la Librairie Microsoft DAO 3.6
 
Maintenant Database est un type reconnu...


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation

  [ Access ] VB & OpenRecordSet

 

Sujets relatifs
J'adore le compactage d'Access !Access? nettoyer la base?
[BDD Windows] à part Access ???[Access/SQLServer] Fonctions equivalentes a DATEDIFF() et GETDATE() ?
[VB + Access ] debutant avec ADO ... " un objet est requis"Access : paramétrer les propriétés d'un formulaire via VB
question sur ACCESS et le webAccess, asp et requete SQL qui deconne....
lien permanent entre un fichier excel et base access ?Access & ASP
Plus de sujets relatifs à : [ Access ] VB & OpenRecordSet


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