VB & OpenRecordSet [ Access ] - Programmation
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
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+
Marsh Posté le 07-11-2001 à 16:06:30
sylderon a écrit a écrit :
|
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...
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...