[DAO]Parcourir une table Access en VB / Pb niveau débutant

Version imprimable

23/04/2007, 01h30
EtienneG

[DAO]Parcourir une table Access en VB / Pb niveau débutant

Salut à Tous,

c'est mon premier post sur ce forum.
Après avoir fait un petit tour sur le site, je félicite tout le monde pour l'ambiance et le contenu du site.

Je vais décrire mon problème du mieux possible; je précise que je suis un ancien développeur DOS/Windows 3.11 qui essaye de reprendre du service... ;)

-J'ai une Base de Données Access 2007 (Personnes.mdb)
-Dans cette base, j'ai une table "Fiches" qui a au moins les champs suivant :
.Code_Postal : qui est un numérique
.Ville : qui est un champ texte

Ce que je souhaite faire, c'est écrire une fonction Visual Basic (je DOIS le faire en visual basic, sinon ça ne collera pas avec la résolution de mon problème), qui parcourt la table "Fiches" et qui trouve le nom de la ville associée à un code postal.

Mon problème est, me semble-t-il, plutôt syntaxique, car je connais peu Visual Basic dans Access. Ce n'est donc pas la peine de chercher quelque chose de compliqué, je souhaite seulement trouver une ville en fonction de son code postal.

Je précise que j'ai fait pas mal de lien sur le site, et que je n'ai pas trouvé de page qui résolve mon problème. Si une telle page existe, il va de soi que je me contenterais du lien vers cette page.

Voilà pour ma question, je vous dis à tous encore un :king:
23/04/2007, 01h35
adil_suptem

salut
vous avez une idée sur le dataenvirenment ou non ?
23/04/2007, 01h51
EtienneG

Non, je n'ai pas d'idée sur le "dataenvirenment"; d'ailleurs, je ne sais pas ce qu'est un "dataenvirenment"...
23/04/2007, 02h05
adil_suptem

Bon en effet c'est un outil sous vb6 qui permet de gérer l'accés au base de donneés
http://jacma.developpez.com/premierspasdatabase/
Dans ce lien tu trouvera un PDF interessant qui explique les étape pour utiliser DataEnvironment si t'as besoin de plus d'info contact moi sur mon email
je peux meme discuter ca avec toi sur msn ( adil635@hotmail.com )
23/04/2007, 02h29
EtienneG

Merci adil_suptemn

je regarde le lien que tu m'as donné, et je te tiens au courant...
23/04/2007, 09h10
Domi2

Bonjour,

Bienvenue sur le forum.

Citation:

-J'ai une Base de Données Access 2007 (Personnes.mdb)
-Dans cette base, j'ai une table "Fiches" qui a au moins les champs suivant :
.Code_Postal : qui est un numérique
.Ville : qui est un champ texte

Dans la mesure où tu ne feras pas d'opération sur le code postal, je te conseille plutôt d'en faire un champ de format Texte également.

Ici, un lien vers une base exemple (plutôt au bas de la page).

Domi2
23/04/2007, 09h44
jean-paul lepetit

Salut,

A ton code postal correspond une seule ville ou plusieurs ?

Si tu n'as qu'une seule ville et que code_postal soit bien du numérique(ce qui m'étonne.... )
Txt_ville et Txt_CodePostal étant des zones de texte de formulaire

Code:

Txt_Ville=Dlookup("Ville","Personnes","Code_Postal=" & Txt_CodePostal)

Sinon si code_postal est en texte

Code:

Txt_Ville=Dlookup("Ville","Personnes","Code_Postal='" & Txt_CodePostal & "'")

Merci à vous trois, adil_suptem, Domi2 et jean-paul lepetit,

mon problème est résolu.
Est-ce à moi de cliquer sur le bouton "Résolu" ou bien est-ce un admin qui s'en charge ?

J'ai utilisé l'indication donné par Domi2 pour élaborer ma solution :)

J'ai suivi vos conseils en transformant Code_Postal en texte.

Mais (il y a un mais), je ne sais toujours pas écrire le code tel que j'aurais aimé le faire.

Je donne l'algorithme que j'aurais aimé utiliser pour résoudre le problème. Je l'écris en pseudo-code, en fonction de mes connaissances actuelles :
Code:

1 2 3 4 5 6 7 8 9 Ouvrir la table "Fiches" de "Personnes.mdb" Me positionner au premier enregistrement Trouve = faux Tant que PAS Fin Table "Fiches" ET pas Trouve si le <Code_Postal> courant est <Le code postal recherché> Alors {<Ville_recherchée> prend la valeur <Ville_courante>; Trouve=vrai} Passer à l'enregistrement suivant Fin Tant que Si Trouve alors Afficher(Ville_Recherchée) Sinon Afficher("Ville non trouvée")
Voilà, j'espère que mon pseudo-code n'est pas trop "pourri", je l'ai écris en fonction de différents langages que je connais, le Visual Basic n'étant pas forcément de ceux-là.

Est-ce que quelqu'un peut me traduire ça en Visual Basic (à l'intérieur d'une base de données Access) ???

Merci à Tous :king:

24/04/2007, 09h17
jean-paul lepetit

La fonction DlookUp que je t'ai citée plus haut fait exactement ce que tu veux

Code:

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
 
Dim db As DAO.Database, rs As DAO.Recordset
Set db = Currentdb
Set rs = db.OpenRecordSet("Fiches",dbOpenDynaset)
With rs
   If .RecordCount <> 0 Then
      .MoveFirst
      Trouve = False
      Do While Not .EOF AND Not Trouve
         If .Fields("Code_Postal") = "code posta recherché" Then
            Ville = .Fields("Ville_courante")
            Trouve = Vrai
         End If
         .MoveNext
      Loop
   End If
End With
Si Trouve Then
   Msgbox Ville
Else
   Msgbox "Ville non trouvée"
End If
rs.Close
Set rs = Nothing
Set db = Nothing

25/04/2007, 05h35
EtienneG

Merci à Tous !

Merci Mahefasoa, merci jean-paul lepetit,

à toi Mahefasoa pour t'être donné la peine de traduire mon pseudo-code. J'ai pu mettre en oeuvre grâce à toi la solution EXACTE à mon problème. :lahola:

A toi jean-paul lepetit car j'ai fait fonctionner aussi cette fonction DlookUp et je dois avouer qu'elle "déchire" pas mal !!!:lefou:

Merci à vous tous qui avez pris le temps de m'aider à résoudre mon problème...:king: :merci: :love: ce forum...