Discussion :

[jlp65]

Bonjour,
j'essaye de remplir une zone de liste "Code postal" en fonction de la saisie dans une zone de liste "Communes". Pour cela, je souhaite utiliser le résultat d'une requête SQL.
Le code ci-dessous me renvoie l''erreur "Incompatibilité de type". La dernière ligne du "If" est en commentaire car elle me renvoie l'erreur "Membre de méthode ou de données introuvable".
En résumé, rien ne fonctionne !

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub ComboBoxCommune_Change()
 
If Not IsNull(ComboBoxCommune) Then
    ComboBoxCP.RowSourceType = "Table/Query"
    Dim sqlString As String
    sqlString = "select code_postal from cp_communes where commune = " & ComboBoxCommune.Value
    ComboBoxCP.RowSource = sqlString
    'ComboBoxCP.Requery
End If
 
End Sub

Merci pour votre aide !

[jimbolion]

jlp65,

si commune est de type texte alors ta chaîne devient comme çà :

sqlString = "select codepostal from T_CodesPostaux where commune = '" & ComboBoxCommune.Value & "';"

Ceci dit il faut également vérifier que la valeur codePostal issue du select correspond bien au type de données dans lequel tu souhaites enregistrer ta valeur (le sourcecontrol doit correspondre au type de champ de ton select). Autrement dit si tu stockes dans un id (entier long), un codepostal de type text, çà va générer une erreur.

JimBoLion

[jlp65]

Merci pour la petite correction pour le code SQL.

Pour le reste, mon code postal est de type texte dans ma table ...

[jimbolion]

jlp65,

La requête fonctionne t'-elle ?
et tu stockes ta valeur récupérée dans un champ de type ?

JimBoLion

[jlp65]

La requête ne fonctionne pas car le code bloque avant son exécution (au niveau de la première ligne dans le bloc "If"). Message : "Incompatibilité de type" et j'ai aussi : "ComboBoxCP.RowSourceType = <Membre introuvable>"

[jlp65]

Sinon, pour répondre à ta question, il me semble que les zones de liste reçoivent automatiquement des données de type Texte ...

[jimbolion]

jlp65,

Sinon, pour répondre à ta question, il me semble que les zones de liste reçoivent automatiquement des données de type Texte ...

Oui et en réception dans la table destination ? (texte également ou entier) - Envoyer un texte dans un id ne fonctionnera pas Mais de toute façon la ligne indiquant l'erreur n'est pas assujettie à ce problème de type de données.

Je pense que le problème est lié plus aux noms des contrôles que de ton code (qui lui semble cohérent)

Je t'envoie une base exemple reprenant le même code pour que tu puisses corriger ton erreur

JimBoLion

[jlp65]

Euh ... je suis un peu perdu, là ! Il n'y a pas de table de destination. Je veux juste modifier une zone de liste en y mettant dedans la sortie d'un SELECT. Le problème est que je ne maîtrise pas vraiment Access et ses "objets" (formulaires, états ...). Je suis parti au départ d'une macro Excel et j'aurais voulu la transposer sur Access pour accélérer les recherches de code postal (sur Excel, je faisais une recherche "manuelle", mais avec l'ensemble des codes postaux français c'est un peu long)

Quoi qu'il en soit, j'ai examiné ta table et j'ai été un peu surpris que le SELECT que tu mets pour la zone de liste de code postal ne mentionne pas la commune (juste un "SELECT codepostal" et pas de "WHERE commune = ..."). Mais, encore une fois, je n'ai pas l'habitude d'Access ... Je crois qu'une auto-formation s'impose !

Par rapport au formulaire VBA, ce qui est un peu dommage, c'est que le code (en supposant qu'il n'y en ait qu'un correspondant) ne s'affiche pas automatiquement (il faut cliquer sur le contrôle pour qu'il s'affiche).

Merci pour ton aide !

[jimbolion]

jlp65,

Si regarde bien le code VBA de l'evenement on clic.

C'est n'est que copie conforme de ton code. Tu peux oublier le stockage dans la table. Ce n'était qu'un exemple car je n'avais pas eu réponse à mes différentes questions.Dans la boîte liste je choisi le code postal exclusivement car à quoi sert de sélectionner une commune si celle ci est déjà intégrée dans la première boîte liste ?

JimBoLion

[jlp65]

Oui. Je suis OK avec ça. Si ça ne marchait pas chez moi, c'est peut-être que mon "formulaire" était en fait un formulaire importé depuis Excel VBA.

jlp65,

Si regarde bien le code VBA de l'evenement on clic.

C'est n'est que copie conforme de ton code. Tu peux oublier le stockage dans la table. Ce n'était qu'un exemple car je n'avais pas eu réponse à mes différentes questions.Dans la boîte liste je choisi le code postal exclusivement car à quoi sert de sélectionner une commune si celle ci est déjà intégrée dans la première boîte liste ?

JimBoLion

[ClaudeLELOUP]

Bonjour,

Pour ce genre de problème, voyez aussi le tutoriel de Pierre Fauconnier Sélection d'une donnée par l'une ou l'autre de ses propriétés.

[jimbolion]

Claude,

Toujours le bon tuto à portée de main

Jm