Discussion :

[Gatsu_67]

Bonjour, je vouos explique mon problème, quans j'utilise l'un de mes formulaire pour mettre à jour un element d'une de mes tables, dès que je fini ma MAJ il retourne sur le premier element de cette table alors que je souhaiterais qu'il reste sur l'élement modifier. Quelqu'un pourrais t'il m'aider s'il vous plait. Je ne sais pas si je me suis bien fait comprendre ^^, merci de votre aide.

[5GPCISAS1]

Bonjour,

Ceci est une question qui doit se trouver sur le forum IHM et pas dans celui des conceptions.

Essaies les propriétés du champ de MAJ dans ton formulaire et vas dans la feuille "autre".
Tu y verra une option "Tab Index".
Mets-la sur 0.

[Gatsu_67]

Bonjour,

Excuse moi de ne pas t'avoir répondu avant j'avais fini de travailler quand tu a repondu, et excuse moi également d'avoir poster au mauvais endroit.

Par contre j'ai essayer la solution que tu m'a proposer mais ça ne marche pas, car la mise a jour se fait automatiquement via une macro, c'est peut-être pour cela que j'ai ce problème?

Edit: je voulais simplement savoir si un admin ou un modérateur peut deplacer le sujet dans la section qu'il convient?

[5GPCISAS1]

Bonjour,

Apparament, je n'ai pas bien compris ton problème.
Peux-tu donner plus de précision; nom de la table, du champ, du formulaire, macro,code employé, sur quelle action (bouton?),...

Merci

[Gatsu_67]

je peut vous envoyer ces informations par MP?
et vous pouvez me préciser ce que doit mettre pour:
nom du code employer
sur quelle action

[5GPCISAS1]

Reste sur le forum; d'autres peuvent te répondre.

car la mise a jour se fait automatiquement via une macro

Sur quoi est placé la macro (click bouton, ouverture formulaire,...)
Est-ce une macro prédéfinie ou du code vba?

[Gatsu_67]

c'est une macro crée qui est pacée "Sur changement" dans le formulaire

[5GPCISAS1]

Si tu as un champ auto number dans ta table, tu peux faire dépendre ton formulaire d'une requête reprenant ta table.
Dans cette requête, tu mets le champ auto number en "sort descending" et ton formulaire s'ouvrira sur le dernier enregistrement rentré.

[Gatsu_67]

Je travail sous access 2003 donc je vais peut-etre poser des questions tres bête vu que je suis novice sur access mais queque tu entend par "champ auto number" et "sort descending"? Désolé je doit passer pour un boulet

[Pierre Fauconnier]

Bonjour

Il serait intéressant, à ce stade, d'avoir le bout de code qui réalise la mise à jour.

A priori, si le formulaire est dépendant d'une base de données, il n'y a pas besoin de macro pour la mise à jour. Si celle-ci est nécessaire à la vérification des données, par exemple, elle ne doit pas mettre à jour le jeu d'enregistrements sous-jacent. Or, il semblerait qu'elle le modifie.

[Gatsu_67]

en fait il n'y a aucuns module sur cette base de donnée les "mises a jours" permettent juste de recalculer des dates dans une base de donnée et donc dans le formulaire de façon automatique grâce a une macro.

[Pierre Fauconnier]

S'il y a une macro, il y a du code dans un module... => Merci de donner le code de la macro qui met les dates à jour

[Gatsu_67]

je peut vous envoyer la macro convertie en vb par MP?

[Pierre Fauconnier]

Sur le forum, en l'encadrant par des balises de code (bouton # de l'éditeur de messages), c'est mieux parce que plusieurs contributeurs pourront répondre...

[Gatsu_67]

Voila ce que j'obtient en convertissant ma macro en visual basic:

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
19
20
21
22
23
24
25
26
27
28
29
30
31
Option Compare Database
 
'------------------------------------------------------------
' MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME
'
'------------------------------------------------------------
Function MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME()
On Error GoTo MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME_Err
 
    DoCmd.Requery ""
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Mise à jour des durées de validitées", acViewNormal, acEdit
    Call Shell("", 1)
    DoCmd.SetWarnings False
    DoCmd.Close acQuery, "Mise à jour des durées de validitées"
    DoCmd.Requery ""
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Mise à jour date prochain contrôle dans ECME", acViewNormal, acEdit
    Call Shell("", 1)
    DoCmd.SetWarnings False
    DoCmd.Close acQuery, "Mise à jour date prochain contrôle dans ECME"
 
 
MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME_Exit:
    Exit Function
 
MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME_Err:
    MsgBox Error$
    Resume MAJ_durée_de_validité___date_prochain_contrôle_dans_ECME_Exit
 
End Function