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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only