Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > IHM
IHM Ce forum est dédié aux questions relatives à la création de formulaires et d'états, avec ou sans code VBA, et macros.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 27/08/2011, 18h57   #1
Invité régulier
 
Homme Marc
Gestionnaire
Inscription : avril 2010
Messages : 15
Détails du profil
Informations personnelles :
Nom : Homme Marc
Localisation : France

Informations professionnelles :
Activité : Gestionnaire
Secteur : Administration - Collectivité locale

Informations forums :
Inscription : avril 2010
Messages : 15
Points : 7
Points : 7
Par défaut mise à jour à l'ouverture de formulaire continu

Bonjour à tous

J' ai formulaire en mode continu qui doit afficher pour un produit (idProd) un historique ses mouvements (Données basées sur une table tblHisto; idProd,idMvt,DateMvt).

Je souhaiterais qu'à l'ouverture du formulaire Historique, mon application récupére à partir de idMvt le libellé du mouvement dans une table où sont stockées tous les types de mouvement (idMvt,txtMvt) et les affichent dans un champ indépendant placé dans la zone détail avec les autres controles de mon formulaire Historique, permettant de suivre les mouvements d un produit
Malheureusement ,je n'arrive pas à mettre à jour le champ indépendant de tous les enregistrements affichés.Seul, le champ du premier enregistrement est mis à jour et répéter pour tous les autres enregistrements suivants (ce qui évidement ne réprésente rien d'exploitable).

Ma question est : Avec quel évemenent du formulaire et sur quel zone de celui_çi dois-je placer mon petit bout de code pour arriver au résultat?
Code :
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Load()
 
Dim rs2 As DAO.Recordset
On Error GoTo Fin
Set rs2 = CurrentDb.OpenRecordset("SELECT T_Mvt.* FROM T_Mvt WHERE T_Mvt.[idMvt] = " & Me.[idMvt] & ";")
Debug.Print Me.[id_rappel]
Me.txtMvtHisto = rs2("txtMvt")
rs2.Close: Set rs2 = Nothing
Exit Sub
Fin:
Call MsgBox("Pas d'historique disponible pour ce produit", vbExclamation + vbOKOnly, "Historique des mouvements")
End Sub
Merci pour les réponses
Cordialement
Markuus

ps: j'ai lu le tuto qui concerne les images sur formulaire continu , mais ca m'a pas aidé.
markuus est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/08/2011, 20h11   #2
Rédacteur
 
Avatar de LedZeppII
 
Homme
Maintenance données produits
Inscription : décembre 2005
Messages : 3 939
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France, Yvelines (Île de France)

Informations professionnelles :
Activité : Maintenance données produits
Secteur : Distribution

Informations forums :
Inscription : décembre 2005
Messages : 3 939
Points : 6 278
Points : 6 278
Bonjour,

Dans un formulaire en mode continu, les contrôles indépendants posent souvent ce type de problème.

Tu peux tenter de remplacer le code VBA par une expression dans la source du contrôle.
Par exemple :
Code :
=RechDom("txtMvt"; "T_Mvt"; "idMvt=" & [idMvt])
Ou bien, tu peux remplacer la source de ton formulaire par une requête sur les tables tblHisto et Mvt.
Ainsi le champ txtMvt fait partie de la source de données et peut être intégré au formulaire.

A+
LedZeppII est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 27/08/2011, 23h35   #3
Invité régulier
 
Homme Marc
Gestionnaire
Inscription : avril 2010
Messages : 15
Détails du profil
Informations personnelles :
Nom : Homme Marc
Localisation : France

Informations professionnelles :
Activité : Gestionnaire
Secteur : Administration - Collectivité locale

Informations forums :
Inscription : avril 2010
Messages : 15
Points : 7
Points : 7
Bonsoir LedZepp

Merci pour les solutions.

J'ai opté pour la requête source du formulaire. Ca fonctionne super bien.
La première n' a pas donné le résultat escompté.J'ai pas eu le reflexe d'utiliser les requêtes pour alimenter mon formulaire .

A+
Markuus
markuus est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 14h25.


 
 
 
 
Partenaires

Hébergement Web