Discussion :

[sylvaindenisbe]

Bonsoir,

J'ai un formulaire dans lequel j'ai des champs "liste de données" : UF

je possède un autre champ 'DebPer1' qui a partir d'une requete affiche la donnée correspondante au champ liste de données.

le probleme est : quand je selectionne une autre données dans UF
que cela change également dans DebPer1.

J'ai fait un test avec DebPer1 comme liste de donnée mais des que je le mets en tant que textbox je n'ai plus rien qui s'affiche.

En liste de donnée quand je clique sur la fleche j'ai bien la donnée qui s'affiche en dessous. Ce serait bien d'avoir la donnée qui se reactualise.


Pouvez vous m'aider ? Merci

Sylvain

[Heureux-oli]

Tu dois faire un requery de UF sur l'évènement après mise à jour de DebPer1.

Code :

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

1
2
3
4
 
Sub DebPer1_AfterUpDate()
Me.UF.Requery
End Sub

[sylvaindenisbe]

Merci mais je ne vois pas comment cela fonctionne

Je vais expliquer plus clairement

J'ai une zone de liste déroulante UF01

J'ai un champ Texte DebPer1

La requete fonctionne bien car quand je teste DebPer1 en zone de texte deroulante j'ai la donnée qui change mais seulement dans mes choix mais pas la donnée principale.

J'ai bien fait le requery mais rien ne se passe

voici le code sur ma page j'en ai peut etre trop mis ou pas assez

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub DebPer1_AfterUpdate()
Me.DebPer1.Requery
End Sub
 
 
Private Sub UF01_AfterUpdate()
Me.UF01.Requery
End Sub
 
Private Sub UF01_Change()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
End Sub

peux tu m'aider

merci

[sylvaindenisbe]

voila a force de cherche j'ai trouver

pour info voici le code que j'ai trouve. Je ne sais pas si il est correct mais en tout cas cela fonctionne

la requete du bouton DebPer1

Code :

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

1
2
 
SELECT InscripUF.DebPer1, InscripUF.Intitule FROM InscripUF WHERE InscripUF.Intitule=UF01.value;

Le code VB:

Code :

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

1
2
3
4
5
6
Private Sub UF01_Change()
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
Dim SQL As String
SQL = "SELECT InscripUF.DebPer1, InscripUF.Intitule FROM InscripUF WHERE InscripUF.Intitule=UF01.value;"
Me.DebPer1.Requery
End Sub

Merci pour votre aide


Sylvain