Access, SQL

Question

Bonjour,

Je suis en train de d&#233;velopper un petite base de donn&#233;es, et je me trouve devant un probl&#232;me. Un formulaire me permet de selectionner un enregistrement, et soit de le modifier ou de le supprimer (ce qui fait ouvrir un 2e formulaire)
Cepandant dans mon code VBA, j'ai une erreur qui intervient au niveau de la requete SQL...

QQN peut-il m'aider ?

Merci

Dim dbs As DAO.Database
Dim donnees As DAO.Recordset
Dim Formulaire As Form
  Set dbs = CurrentDb
  Set Formulaire = Forms![Order_selection]  Set donnees dbs.OpenRecordset("SELECT * FROM [Orders] WHERE [Cmd_id] " & Num)
  If Not IsNull(Num) Then
      If Not (donnees.EOF) Then
        Formulaire![id] = donnees("Cmd_id")
        Formulaire![name] = donnees("Cmd_name")
        Formulaire![date] = donnees("Cmd_date")
      End If
    End If
    donnees.Close
End Function

voilhes · Answer

Il te suffit de modifier la source de donn&#233;es de ton deuxi&#232;me formulaire:

SELECT * FROM [Orders] WHERE [Cmd_ID]=Formulaires!NomFormulaire1!Cmd_id

-Francis-

leubaa · Answer

Merci pour votre reponse, mais je crois avoir mal formul&#233; mon probl&#232;me. J'ai une liste de commande (un objet liste) et lorsque je clique sur une de ces commandes, je veux que les parametres de la commande selectionn&#233; passe dans le champ (meme formulaire) ensuite on peut soit modifier ou supprimer la commande. Lorsque je clique sur l'&#233;l&#233;ment de la liste (Num = Liste) j'ai le message d'erreur suivant :

erreur d'ex&#233;cution 3464
"Type de donn&#233;es incompatible dans l'expression du crit&#232;re"

Ce qui est bizarre c'est que cela fonctionne dans d'autres cas !!!

faboun1 · Answer

Bonjour,

Le paramètre num du test est-il défférent de null ?

1ère piste : la valeur de num j'aurais remonté d'une ligne le contrôle isnull
--> ... If Not IsNull(Num) Then
Set donnees dbs.OpenRecordset("SELECT * FROM [Orders] WHERE [Cmd_id] " & Num)...

autre piste : affectation de la date
-->...Formulaire![date] = cdate(donnees("Cmd_date"))

commentaire : avant eof, je me positionne toujours sur le premier enregistrement par movefirst --> donnees.movefirst

Fab

Access, SQL

3 réponses

Discussions similaires