[ Access ] VB & OpenRecordSet

VB & OpenRecordSet [ Access ] - Programmation

Marsh Posté le 06-11-2001 à 16:28:44    

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...

Reply

Marsh Posté le 06-11-2001 à 16:28:44   

Reply

Marsh Posté le 06-11-2001 à 17:14:59    

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

Reply

Marsh Posté le 07-11-2001 à 16:00:22    

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+

Reply

Marsh Posté le 07-11-2001 à 16:06:30    

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...

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed