Urgent - une question toute simpleRésolu

Question

Salut &#224; tous, j'esp&#232;re que vous pourrez m'aider.

Mon projet consiste &#224; r&#233;aliser un r&#233;aliser un r&#233;pertoire t&#233;l&#233;phonique qui sera combin&#233; avec un num&#233;rateur t&#233;l&#233;phonique. Le r&#233;pertoire t&#233;l&#233;phonique est d&#233;j&#224; cr&#233;er.

Voici mon probl&#232;me li&#233; &#224; la partie concernant le num&#233;rateur t&#233;l&#233;phonique :

J'ai une form sur lakel ya un data combo, un textbox et d'autre bouton.

Le data combo est reli&#233; &#224; une base de donn&#233;es acc&#232;s 2000.

Ce que je souhate faire, c'est qu'en fonction de la valeur contenue dans le data combo, afficher la valeur correspondante dans le texte box.

Je m'explik, si par exemple dans le datacombo, je choisi le nom toto, alors dans le textbox, on doit me donner le num&#233;ro de t&#233;l&#233;phone de toto.

J'ai utilis&#233; une connexion DAO pour faire le r&#233;pertoire. Et j'ai connect&#233; le datacombo &#224; l'aide d'un data report.

Si quelq'un pouvait m'aider &#224; r&#233;soudre ce petit probl&#232;me, ce sera tr&#232;s aimable de sa part.

Merci

XtremDuke · Accepted Answer

En supposant que ta BD (repertoire) est cette structure : id | nom | tel


Tout d'abord, utiliser un datareport pour remplir ton combo, c'est pas
ce qu'il y a de mieu. Je vai te proposer une solution plus bas.

N'oublie pas de rajouter cette reference : Microsoft DAO 3.6 Object Library



Option Explicit

Dim Bd As Database 'Defini la base de donn&#233;es

Dim Table1 As Recordset 'Defini une table

Dim Requette As String 'Variable qui contiendra une requette

Dim Trequette As Recordset 'Table qui sera le resultat d'une requete



Private Sub Form_Load()



    'Initialisation de la base de donn&#233;es

    Set Bd = OpenDatabase(App.Path & "
om_bd.mdb")



    'declaration de la table repertoire

    Set Table1 = Bd.OpenRecordset("repertoire", dbOpenDynaset)



    'on remplis la combo

    If Table1.EOF True Then 'EOF End Of File (fin de la table)

        MsgBox "La table repertoire est vide !"

    Else

        Do While Table1.EOF = False 'Tant qu'on est pas arriv&#233; &#224; la fin de la table...'

            Combo1.AddItem Table1("nom") 'On implemente le combo du champ nom

            Table1.MoveNext 'Puis on passe &#224; l'enregistrement suivant

       Loop

    End If

End Sub



Private Sub Combo1_Click()
   
    'SQl : on selectionne le champ tel de la table repertoire dont le nom est le text de la combo1
    Requette = "SELECT tel FROM repertoire WHERE nom='" & Combo1.Text & "';"
    Set Trequette = Bd.OpenRecordset(Requette, dbOpenDynaset)



    if NOT(Trequette.EOF) then

        label1.text =  Trequette("designation")
    end if



End Sub


..::DuKe::..

cs_Shany · Answer

Duke, comment te dire mille fois merci

Tu me sauves le vie, effectivement je pref&#232;re de beaucoup utiliser la connexion en DAO vu que je l'ai d&#233;ja utilis&#233; pour faire mon r&#233;pertoire. 

Elle est donc d&#233;j&#224; activ&#233; dans mes R&#233;f&#233;rences !

Je vais de suite tester ta solution. Encore merci.

cs_Shany · Answer

re duke, 

j'ai test&#233; ta salution, et je constate qu'il y a quelque chose ki cloche :

o niveau de : 

if NOT(Trequette.EOF) then
        label1.text =  Trequette("designation")
end if

ke fait cette partie o juste, je ne l'ai pas bien cern&#233;e !?

et ke repr&#233;sente "designation" ?

et oh fait ce n'ai pas un label mais pluto un textbox.

peux tu me r&#233;pondre assez rapidement stp, merci

XtremDuke · Answer

Me suis plant&#233;, remplace label1.text =  Trequette("designation") par text1.text = Trequette("tel")



Cette condition verifie s'il existe vraiment un numero de tel dans la base.

if NOT(Trequette.EOF) then ' signifie : "s'il le resultat de la requette n'est pas vide


..::DuKe::..

cs_Shany · Answer

merci Duke, c'est en partie ce que je me disais en ce ki koncerne le If if NOT(Trequette.EOF) then . J'avais deja remplac&#233; le label1.text par le Text1.text, c'ets juste la partie Trequette(designation) qui clochait !!!

Je vais de se pas arranger tout ca !!

Merci encore et &#224; la prochaine

Urgent - une question toute simple

5 réponses

Discussions similaires