probleme avec sql

Version imprimable

probleme avec sql

bonjour,
je dispose d'une table client, j'ai créé un formulaire me fournissant des infos sur ces clients
je voudrai que lorsque je rentre un code client existant dans le controle approprié il me mette son nom dans un controle nommé generique
j'essai donc de passer par une requete sql mais sans succès
Code:

1 2 3 4 5 6 7 8 Private Sub CodeClient_Exit(Cancel As Integer) Dim SQL As String SQL = "Select Generique From Client Where CodeClient = '" & [CodeClient].Value & "'" DoCmd.RunSQL SQL End Sub
1- lors de l'execution une erreur s'affiche me disant que une action executerSQL necessite un argument consistant en une instruction sql
2- pourriez vous m'aider a compléter le code de façon a pouvoir réaliser ce que je vous ai décrit précedemment
Merci d'avance

30/05/2007, 10h31
Lourpiop

ben je crois que les docmd.runsql c just epour les update ou insert mais tu peux pas faire de select
30/05/2007, 10h32
Invité

Bonjour,

Il y'a plus simple, utilise la fonction DLookup :f1:, et fait une recherche sur le forum, il y'a des exemples.

Starec
30/05/2007, 11h06
joe370

pouvez vous m'indiquer un lien ou je pourrais trouver mon bonheur svp:oops:
30/05/2007, 11h09
Invité

Un peu de recherche et on tombe sur cela, sujet traité hier.

Starec

pkoi cette requete ne fonctionne pas?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Option Compare Database
Option Explicit
 
 
Private Sub CodeClient_Exit(Cancel As Integer)
 
    Dim SQL As String
    SQL = "Select Client.Generique From Client Where Client.CodeClient = '"Forms.Client.CodeClient.Value"' "
    DoCmd.RunSQL SQL
 
End Sub

30/05/2007, 12h34
Tofalu

Il manque l'opérateur de concaténation avant Forms.

PS : la prochaine fois, merci d'utiliser un titre précis ;)

J'ai reussi ce que je voulais faire grace au code suivant

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Private Sub CodeClient_Exit(Cancel As Integer)
 
    Dim X As Variant
    X = DLookup("[Generique]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [Generique].Value = X
 
    X = DLookup("[Adr1]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [Adr1].Value = X
 
    X = DLookup("[Adr5]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [Adr5].Value = X
 
    X = DLookup("[Adr6]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [Adr6].Value = X
 
    X = DLookup("[CodeCentrale]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [CodeCentrale].Value = X
 
    X = DLookup("[CodeSecteur]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [CodeSecteur].Value = X
 
    X = DLookup("[Tech]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [Tech].Value = X
 
    X = DLookup("[CodeMDR]", "Client", "[CodeClient]='" & [CodeClient].Value & "'")
    [CodeMDR].Value = X
 
End Sub

Ce qui est, je l'admet un peu lourd
1- j'aimerai savoir s'il y a moyen de faire plus cour
2- peut-on faire un formulaire qui ne modifie pas la table affecté au formulaire??