Discussion :

[dsimon45]

Voila je suis en train de développer une application access et j'ai besoin d'aide


voila mon pb ,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Modifiable31_BeforeUpdate(Cancel As Integer)
 
    Dim dbb As DAO.Database
    Dim Rec As DAO.Recordset
 
    Dim essai As String
 
    Set dbb = CurrentDb()
    Set Rec = dbb.OpenRecordset("SELECT [numero_lien] FROM [ligne] WHERE [numero_identifiant] ='" & Me.Modifiable31 & "'")
 
    Do Until Rec.EOF
        Rec![numero_lien] = essai 'c'est la que ca marche pas
        Rec.MoveNext
    Loop
        Rec.Close
        dbb.Close
 
End Sub

voila je voudrais récupérer la valeur du recordset dans une liste déroulante de mon formulaire

Merci d'avance
a +

[Invité]

Bonjour

As-tu plusieurs valeurs possibles dans le champ "Numero_Lien" de ta table en fonction de la sélection dans la liste ?
Que veux-tu exactement contrôler dans ta boucle ?

Starec

PS : Pense à entourer ton code avec les balises.

[userB]

J'ai peut etre compris de travers mais ...
De ce que je vois, tu fais une requete qui selectione le numero de lien depuis une table avec comme condition une egalité sur une variable.

Ensuite tu fais une boucle Tant que tu n'as pas parcouru tous les tuples generé par ta requete tu assignes la variable "essai" au champ numero lien ( de la requete que tu viens de faire).

Bon je vois pas trop l'interet surtout que dans ton bout de code je ne vois pas apparaitre ta liste deroulante.

Je connais pas trop la syntaxe de la comboBox en vba mais en pseudo code ca donnerait un truc comme :

Code :

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

1
2
3
4
5
 
While Not Rec.EOF Do
MaComboBox.add = Rec("mon champ qui nourrit ma combo")
Rec.movenext
Wend

ps : mais peut etre que je n'ai rien compris a ce que tu voulais xD

[dsimon45]

non a vrai dire ca m'aide pas trop

en fait dans mon formulaire
j'ai un premier champ qui est une liste déroulante que l'utilisateur va renseigner ce champs s'appelle numero d'identifiant.

ensuite grace au code je recupere la valeur de ce champs et je voudrais dans un deuxieme champs faire apparaitre les numero de lien qui corresponde à ce numero d'identifiant et tous ca dans une liste déroulante

alors j'ai testé pas mal de truc.

la requete en elle meme marche bien
c'est juste que je n'arrive pas à exploiter le résultat
je voudrais donc voir apparaitre ce résultat dans la liste déroulante du deuxieme champs

Gespere avoir était clair

merci
a+

[totofe]

moi j'aurais plutot opter pour utiliser une requète de mise a jour exemple

Code :

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

1
2
3
4
5
 
'permet de ne pas afficher les message de mise a jour
docmd.setwarnings false
docmd.runsql "Update [ligne] set [numero_lien]='essai' WHERE [numero_identifiant] ='" & Me.Modifiable31 & "'"
docmd.setwarnings true

[Tofalu]

Bonjour,

Pour revenir à la question initiale qui est de remplir une zone de liste avec un reocrdset :

Code :

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

1
2
3
Dim oRst As DAO.Recordset
Set oRst = CurrentDb.OpenRecordset("SELECT ID FROM MATABLE")
Set Modifiable0.Recordset = oRst

Une autre possibilité moins élégante consite à boucler sur tous les enregistrements et d'utiliser la méthode AddItem (Access XP et sup)

Code :

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

1
2
3
4
5
6
With oRst
    While Not .EOF
        Modifiable0.AddItem .Fields(0).Value
        .MoveNext
    Wend
End With

Bien entendu, suivant la méthode choisie, il faut définir la propriété OrigineSource de la zone de liste correctement

[dsimon45]

je ne comprend pas ce que tu veux dire par
"il faut définir la propriété OrigineSource de la zone de liste correctement"

merci

[dsimon45]

je viens de chercher un peu et la deuxieme solution que tu me proposais marche tres bien
C'est cool
Ca marche

Merci et