Discussion :

[Arola78]

Bonjour,
J'ai 2 questions à poser :
1) dans un formulaire j'ai 2 listes déroulantes :
- une qui sélectionne un nom de client
- l'autre un prénom
La 1ère liste est alimentée par un SELECT DISTINCT NOM FROM CLIENTS ORDER BY NOM, la 2e par le prénom du client sélectionné dans la 1ère liste, ça devrait donner qqchose comme : SELECT DISTINCT PRENOM FROM CLIENTS WHERE NOM = "celui choisi dans la liste1" ORDER BY PRENOM.
Comment écrire ce Select ?
2) En cliquant sur un bouton "VALIDER" comment enregistrer dans une table PARAMETRES le couple NOM/PRENOM sélectionné dans les 2 listes précédentes ? Suis-je clair ?
Merci de consacrer qq minutes à ces problèmes. MERCI

[micniv]

A ce que je comprend, tu cherches à terouver le prénom automatiquement si tu as déjà une fiche avec ce nom -prénom.
Je propose de faire simplement 1 liste sur le nom avec 2 colonnes :
La rq : "SELECT DISTINCT NOM, PRENOM FROM CLIENTS ORDER BY NOM, PRENOM "
et sur l'evt _afterUpdate du NOM tu mets le code :

Code :

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

1
2
3
4
 
if not isnull(lst_NOM.column(1)) then
  PRENOM=lst_NOM.column(1)
end if

Voilà

[cafeine]

Hello,

1- pense à consulter la FAQ :
http://access.developpez.com/faq/?re...te+deroulantes
(2 eme résultat)

2- Avec une requête ajout si ton formulaire est indépendant (non lié à une source de données)

[Arola78]

Merci pour vos réponses,
Je penses pouvoir me débrouiller pour le 1)
C'est pour le 2) que je ne sais pas coder l'INSERT : comment lier les colonnes NOM et PRENOM de ma table avec les champs du formulaire

[micniv]

Faut chercher un peu : FAQ : par ex. sur les "not in list"

[Mahefasoa]

Salut,
1) Le code pour la requête Sélection

Code :

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

1
2
3
4
5
 
En VBA
"SELECT DISTINCT PRENOM FROM CLIENTS WHERE NOM Like '" & Me.Modifiable0 & "' ORDER BY PRENOM;"
ou dans le QBE
"SELECT DISTINCT PRENOM FROM CLIENTS WHERE NOM Like [Forms]![NomFormulaire]![Modifiable0] ORDER BY PRENOM;"

2)Le code ou la requête Ajout

Code :

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

1
2
3
4
5
6
7
8
9
10
 
En VBA
"INSERT INTO PARAMETRE (NOM, PRENOM) VALUES ('" & Me.Modifiable0 & "', '" & Me.Modifiable2 & "');"
ou
"INSERT INTO PARAMETRE (NOM, PRENOM) SELECT '" & Me.Modifiable0 & "' AS N, '" & Me.Modifiable2 & "' AS P FROM PARAMETRE;"
 
ou dans le QBE
"INSERT INTO PARAMETRE (NOM, PRENOM) VALUES ([Forms]![NomFormulaire]![Modifiable0], [Forms]![NomFormulaire]![Modifiable2]);"
ou
"INSERT INTO PARAMETRE (NOM, PRENOM) SELECT [Forms]![NomFormulaire]![Modifiable0] AS N, [Forms]![NomFormulaire]![Modifiable2] AS P FROM PARAMETRE;"

Ces codes te conviennent-ils?

[Arola78]

Merci Mahefasoa pour tes réponses,
Pour le Select s'est OK.
Par contre j'ai remplacé l'Insert par un Update (ça m'économise un Delete préalable). J'ai codé mon Update comme ceci :

Code :

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

1
2
3
4
5
6
7
Private Sub Sélection_Click()
     Dim SQL As String
     SQL = "UPDATE Paramètres SET Libl1 = '" & [Forms]![Ecran Choix]![Index] & "'"
     SQL = SQL & ", SET Libl2 = '" & [Forms]![Ecran Choix]![Titre] & "'"
     SQL = SQL & ", SET Maj = date() WHERE Article = 'QUERY' ;"  
     DoCmd.RunSQL SQL
End Sub

J'obtiens un code 3174 (je crois ?) qui semble être une erreur de synthase.
J'ai bien tout vérifié les ' et les ". Rien trouvé

[soltani1]

Bonjour,

Elimine les Set (garde le premier Set seulement)

A+

[Mahefasoa]

Oui, je confirme. Pour un UPDATE, il la clause qui introduit la mise à jour, c'est SET et comme WHERE, ORDER BY, etc, il ne se répète qu'une fois à l'intérieur d'une instruction SQL. Je ne parles pas des sous-requêtes.

[Arola78]

Bonjour,
Nickel Tout comme il faut.
Merci à tous