[ Access ] VB & OpenRecordSet

Recherche :

Dernière réponse

Sujet : [ Access ] VB & OpenRecordSet

FLY LM

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

Votre réponse

Nom d'utilisateur

Pour poster, vous devez être inscrit sur ce forum .... si ce n'est pas le cas, cliquez ici !

Le ton de votre message

Votre réponse

Smilies

Liste des smilies perso
Wiki smilies
Chercher un smiley

Options

Activer votre signature
Désactiver les smilies
Activer la notification par email du sujet

Aperçu

Vous avez perdu votre mot de passe ?

Vue Rapide de la discussion

FLY LM

sylderon a écrit a écrit :

Citation :

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

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

Sylderon

Citation :

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

FLY LM

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

FLY LM

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