Discussion :

[niamo]

Bonjour tout le monde, un de mes formulaires étant encore en construction j'ai voulu effectuer un remplissage dans une zone de texte lors d'un clique sur une autre zone de texte, lorsque je veux enregistrer ça me met le message d'erreur suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Erreur de compilation:
Attendu :Fin d'instruction

et mon code est celui ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub texte_num_cmd_Click()
Dim strSQL As String
strSQL = "Select TblCOMMANDES.ID_COMMANDE & vbCrLf & _
         "FROM TblCOMMANDES"& vbCrLf & _
         "WHERE TblCOMMANDES.NUM_COMMANDE = texte_num_cmd.Value;"
texte_id_cmd.Value = strSQL
End Sub

[SSJconsult]

Bonjour,

Un SELECT ne retourne jamais une donnee utilisable telle quelle en VBA.

Il faudrait remplace le code par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub texte_num_cmd_Click()
texte_id_cmd.Value = DLookup("ID_COMMANDE", "TblCOMMANDES", "NUM_COMMANDE = " & Me.texte_num_cmd.Value)
End Sub

Notez qu'en version francaise, DLookup donne RechDom

[niamo]

dsl je ne connais pas encore bien le vba, je travail d'habitude avec d'autre langages et je ne connaissais pas la fonction qui permettais de faire ça justement, elle me semble correcte mais elle ne marche pas :s ça n'affiche rien dans la zone de texte...

[niamo]

enfaite vu que j'ai une version française d'office, j'utilise la fonction RechDom mais ça me met : Sub ou fonction non définie. Avec DLookup ça me met a jour le textebox mais il n'y a rien dedans, comme si il n'arrivait pas a afficher. Car le teste conditionnel

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
"NUM_COMMANDE = " & Me.texte_num_cmd.Value)
End Sub

est bien respecté puisque lors de la saisie d'une donnée incorrecte il me dit : "Type de données incompatible dans l'expression du critère".
Aurais tu une idée du pourquoi cela n'affiche rien dans ma zone de texte ?

[Tofalu]

Quelque soit la langue, en VBA, la fonction est DLookup.

De quel type est le champ NumCommande ? L'évènement Clic est bien l'évènement désiré ?

[niamo]

le champ NUM_COMMANDE est de type alfa-numérique, et pour ce qui concerne l'evenement click j'ai ajouter un bouton afin de pouvoir réaliser des tests.

[SSJconsult]

Si le champ est alpha-numerique, il faut faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub texte_num_cmd_Click()
texte_id_cmd.Value = DLookup("ID_COMMANDE", "TblCOMMANDES", "NUM_COMMANDE = '" & Me.texte_num_cmd.Value & "'")
End Sub

[niamo]

Merci à vous, ça marche parfaitement c'est génial

[niamo]

une dernière question : connaissez vous la fonction permettant de regarder quelle valeur est la plus grande dans une table ? (pour une valeur "numérique")

[SSJconsult]

Tu peux utiliser DMax exactement de la meme maniere que DLookup.

[niamo]

merci beaucoup, mais tu sais ou je peux trouver de la doc sur toutes ces fonctions ? parce que je vais avoir besoin d'autres fonctions, comme pour ajouter une occurrence dans la base.

[SSJconsult]

Quand tu es en VBA, utilise l'aide d'Access, c'est la que j'ai trouve 95% des reponses dont j'ai eu besoin.

[Tofalu]

http://starec.developpez.com/tuto/fonctionsdomaines/

[niamo]

Merci =)

[niamo]

Je viens de regarder le tuto
"http://starec.developpez.com/tuto/fonctionsdomaines/"

et dites moi si je me trompe, mais il n'y a aucune fonction qui permete d'effectuer une insertion dans une base de donnée (style requete insert into)?
alors comment faire ?

[Tofalu]

Avec une requête Insert justement où bien alors avec un recordset.

Une fonction, par définition, retourne un résultat, elle ne réalise pas d'action (sauf exception)