Discussion :

[joe370]

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 :

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

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

[Lourpiop]

ben je crois que les docmd.runsql c just epour les update ou insert mais tu peux pas faire de select

[Invité]

Bonjour,

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

Starec

[joe370]

pouvez vous m'indiquer un lien ou je pourrais trouver mon bonheur svp

[Invité]

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

Starec

[joe370]

pkoi cette requete ne fonctionne pas?

Code :

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

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

[Tofalu]

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

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

[joe370]

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

Code :

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

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??