Discussion :

[fuzcrew]

bonjour a tous !!

Voila j'ai une zone de texte (texte9) dans un formulaire qui reprend des données numériques. J'ai établi une requête permettant de trouver le nom en fonction du numéro présent dans texte9.

Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
'connexion à la base
Dim connexion As New ADODB.Connection
Dim command As New ADODB.command
Dim requete As New ADODB.Recordset
 
connexion.Open "provider = microsoft.jet.oledb.4.0. ;data source = \\Serveur\sauvegarde\BASE SETREL.mdb"
Set command.ActiveConnection = connexion
command.CommandType = adCmdText
'definition de la requete et execution
command.CommandText = "select nom_responsable from responsable where num_responsable=' & Forms!choix_resp_imput!Texte9.Value & ' "
Set requete = command.Execute
'affichage des resultats dans les zones de texte appropriées
      Texte19 = requete.Fields("nom_responsable").Value

Le message d'erreur est : type de données incompatible dans l'expression du critère. (le débogeur bloque sur l'exécution de la requête)
num_responsable est bien sur numérique dans ma table

J'ai enlevé les "" et j'ai même essayé d'insérer la fonction cv(...) et cela ne fonctionne pas non plus... si vous avez une idée .. merci d'avance

[SnakeCharmer]

Je viens juste d'avoir le même pb !

essaye ceci :

Code :

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

 ' "& Forms!choix_resp_imput!Texte9.Value &" '

[fuzcrew]

j'ai essayé ce que tu m'a dit mais pas de changement :

Code :

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

command.CommandText = "select nom_responsable from responsable where num_responsable=' " & Forms!choix_resp_imput!Texte9.Value & " ' "

[SnakeCharmer]

:/ dsl ça avait marché chez moi (mais je c'était avec une variable, pas un appel a un champ de formulaire)

[LedZeppII]

Bonjour,

comme num_responsable est de type numérique, il ne faut pas le comparer à quelque chose encadré par des quotes simples (').
En résumé il faut retirer les '

Code :

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

command.CommandText = "select nom_responsable from responsable where num_responsable=" & Forms!choix_resp_imput!Texte9.Value

A+

[fuzcrew]

ok merci LedZeppII !! jute a enlever les ' et le dernier &

Code :

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

command.CommandText = "select nom_responsable from responsable where num_responsable=" & Forms!choix_resp_imput!Texte9.Value

merci encore