Discussion :

[Robin14]

Bonsoir,

Tout d'abord je m'excuse si mon problème est très simple à résoudre, et encore plus si la réponse était facile à trouver via la fonction rechercher...

Je travaille sur un projet nécessitant beaucoup de mises à jour instantanée (J'entends par là, sans utiliser le bouton "actualiser tout"). J'ai bien compris le principe du Requery et du chemin à lui faire parcourir, malheureusement, j'ai beaucoup de mal à le "placer".

Mon problème actuel est le suivant :

Un bouton a pour fonction de sortir un enregistrement d'une zone de liste, via une macro incorporée activant une requête de mise à jour en cas de click. Malheureusement, je ne peux plus y rajouter un code VBA pour actualiser la zone de liste concernée...

J'ai bien essayé de convertir ma macro en VBA, mais visiblement access ne veut pas (peut-être à cause d'une condition "Si EstNull(MaZoneDeListe) Message" Sinon ExecuterRequeteMAJ).

Je suis à votre écoute,
Merci d'avance,

Robin

[madefemere]

Bonjour,

Il n'y a plus d'action "Actualiser" sur 2016 ? Normalement dans les macros cette action permet d'actualiser un contrôle.

Cordialement.

[Robin14]

Bonjour,

Lorsque dans ma macro je sélectionne la commande "Actualiser", en cas d'application, une fenêtre s'affiche :

La commande ou l'action "Actualiser" n'est pas disponible pour l'instant.
*Vous êtes peut-être dans un base de donnée en lecture seule, ou une base de données non converties d'une version antérieure à Microsoft Access.
*Le type d'objet auquel s'applique l'action n'est pas sélectionné actuellement ou ne se trouve pas dans le mode activé.

Edit : Même chose avec la commande "ActualiserEnregistrement", même si je ne la trouvais pas adaptée.
Je ne pense pas mal intégrer cet événement dans ma macro (à la suite de l’événement ouvrir la requête de mise à jour)...

Merci de ta réponse

[madefemere]

Donc, je pense que même la commande VBA "Requery" ne te donnerait pas la solution.
Il doit y avoir un problème de chronologie d'évènements dans ce que tu fais.

Peut-on voir la suite d'actions en question ? Et le code de la requête suppression (qui est appelée j'imagine).

Cordialement.

[Robin14]

Si j'enlève ma Macro Incorporée et que je mets le code VBA avec Me.[ListePatientsDesactives].Requery, ça fonctionne parfaitement... Mais je n'ai plus l'ouverture de ma requête, ni ma vérification de patient sélectionné dans la liste.

Ma macro donne :

Si EstNull([ListePatientsDesactives])
Zone Message

Sinon
Ouvrir Requête (ReactiverPatient, affichage en feuille de donnée, Mode données : Modification)

C'est tout, mais je ne peux pas la convertir en VBA, l'option est grisée...
Edit : Voilà ma requête de mise à jour.

[madefemere]

Bonjour,

Voici une solution pour modifier ton macro incorporé en VBA : http://www.developpez.net/forums/d14...ro-incorporee/

Sinon, ton code en VBA ressemblerait à :

Code :

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

1
2
3
4
5
6
7
8
9
10
If IsNull(Me.[ListePatientsDesactives])
     MsgBox ("Ton message!")
Else
     Docmd.OpenQuery ("ReactiverPatient")
'ou directement en SQL
     strSql =  "UPDATE BasePatients SET Actif = Yes WHERE RefPatient=" & Me.ListePatientsDesactives 'Si RefPatient est numérique
     strSql =  "UPDATE BasePatients SET Actif = Yes WHERE RefPatient='" & Me.ListePatientsDesactives  & "'" 'Si RefPatient est du string
     Currentdb.Execute strSql,DbFailOnError
End If
Me.ListePatientsDesactives.Requery

Cordialement.

[Robin14]

Eh bien Madefemere ! Un grand merci à toi, car plus qu'une solution, tu m'en as donné deux !

Je vais essayer la manipulation du post que tu me recommandes, mais je pense aussi m'intéresser un minimum au code VBA que tu m'as fourni, même si certains éléments me sonnent inconnus !

Edit : Après avoir essayer, les deux méthodes fonctionnent parfaitement. J'ai donc envie de mettre des Requery pour tous mes autres ZoneDeListe, mais elles sont dans un autre formulaire, le formulaire Accueil. Je pense qu'il faut que j'oublie le "Me.Requery" pour m'orienté sur le chemin "Accueil.Requery" mais il me manque sûrement l'expression exacte afin de pouvoir mettre le focus sur le bon formulaire... Même chose que précédemment, les termes que j'emploie dans ma recherche n'aboutissent pas ! Promis, après cette question, je mets ce topic en "résolu" !

[madefemere]

Content pour toi !

Le mot Me fait référence à l'objet en cours, en l'occurrence le formulaire où se trouve ton code.
Pour faire référence à des contrôles dans un autre formulaire, il faut utiliser l'appel des containers d'objets de formulaire Forms!. Tu as donc Forms!Accueil.Lecontrole.

Cordialement.

[Robin14]

Encore merci !