>1 °Présentation de la table.
>Table de code postaux comportant
>un champ avec les codes un autre avec les noms des localités
>ps: plusieurs enregistrements de la table reprennent le même code pour des noms de localités différentes.
>Je desire utiliser issus de cette table saisir un code postal afin d'extraire le
>nom des localités lors d'une saisie dans un textBox,ceci afin de
>remplir une liste déroulante avec tout les noms des localités correspondant à ce code
>postal.
>voici mon code.
>On Error Resume Next
>Dim rsCodePostal As Recordset
>Dim strCodePostal As String
>Dim lCode As Long
>lCode = TextCodePostal
>strCodePostal = "select Distinct[Code Postal],[Libelle]from[Code
>Postaux]where CodePostal = " & CStr(lCode)
>Set rsCodePostal = Bd.OpenRecordset(strCodePostal, dbOpenDynaset)
>ComboVille.Clear
> While Not rsCodePostal.EOF
> ComboVille.AddItem rsCodePostal![Libelle]
> rsCodePostal.MoveNext
>Wend
>rsCodePostal.Close
>Après cette tentative de création de "Recordset" VB se bloque je suis
>obligé de sortir par"ctrl+alt+del"; également dans cette boîte de dialogue
>de fin de tâches ,dans la liste je remarque chaque fois une ligne
>suplémentaire portant la mention.
>VB API declaration loader

Ne serait-il pas préférable de convertir la valeur contenue dans TextCodePostal avant de l'affecter dans lCode? Il se pourrait probablement que ceci fait en partie part de ton problême. Aussi, si ton champs [CodePostal] (mème que [Code Postal] avec l'espace?) est un champs de type "text" (J'assume que ceci est en Access), je crois que tu as besoin d'apostrophe autour de ta variable, alors la chaine SQL se terminerait ..."where CodePostal =" & chr(39) & CStr(lCode) & chr(39)" puisque Chr(39) te donne l'apostrophe.

Hugo Dahl