Discussion :

[Androalphus]

Bonjour,

J'ai une table source dont la clé principale est "n° de dossier". Cette clé est clé étrangère pour toutes mes autres tables étant donné que chaque information saisie dans les autres tables est propre à un dossier précis.

La saisie dans les champs se fait via des formulaires. Le problème, c'est qu'après avoir recherché un enregistrement dans un formulaire et que soit je le ferme et le rouvre soit j'ouvre un autre formulaire, ceux-ci se retrouvent automatiquement positionnés sur le premier enregistrement et non pas sur celui que j'étais en train de consulter.

J'aimerai donc savoir s'il est possible d'être automatiquement positionné sur le dernier enregistrement consulté en changeant de formulaire, ou en fermant et rouvrant un même formulaire ?

Merci pour votre aide.

[nico84]

Bonjour,

Il suffit pour cela de mémoriser le n° de dossier "courant" dans une variable globale "mondossier" et de filtrer ou pointer sur ce dossier à l'ouverture de n'importe quel formulaire :

Code :

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

1
2
3
4
5
Private Sub Form_Activate() 
if mondossier>0 then Me.Recordset.FindFirst "NoDossier=" & mondossier 'pointer
'ou :
me.filter="NoDossier=" & mondossier 'filtrer
end sub

[Androalphus]

Comment faire pour mémoriser le n° de dossier courant dans une variable globale ?

Je suis tombé sur cet article : http://argyronet.developpez.com/offi...nvention/#L4-1 mais ce n'est pas vraiment clair, je suis plutôt débutant sur Access.

[nico84]

Déclaration à placer dans un module :

Code :

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

public mondossier as long 'ou string selon que le dossier est numérique ou alphanumerique

Ensuite la variable est utilisable n'importe quand... Par exemple dans le formulaire "principal" :

Code :

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

1
2
3
Private Sub Form_Current()
If Recordset.EOF Then mondossier=0 else mondossier = [le nom du dossier dans cette form]
End Sub

[Androalphus]

J'ai bien créé un module "Mondossier" avec le code :

Code :

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

public mondossier as long 'ou string selon que le dossier est numérique ou alphanumerique

J'ai ensuite inséré les deux codes suivants dans un formulaire mais un message d'erreur apparait à chaque fois.

Code :

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

1
2
3
Private Sub Form_Current()
If Recordset.EOF Then mondossier=0 else mondossier = [N° de dossier régional]
End Sub

Code :

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

1
2
3
4
5
Private Sub Form_Activate() 
if mondossier>0 then Me.Recordset.FindFirst "N° de dossier régional=" & mondossier 'pointer
'ou :
me.filter="N° de dossier régional=" & mondossier 'filtrer
end sub

[nico84]

J'ai ensuite inséré les deux codes suivants dans un formulaire mais un message d'erreur apparait à chaque fois.

Et je dois deviner laquelle ?

Par ailleurs pour le 2e code :
- les espaces dans les noms de champs sont vivement déconseillés et obligent à toujours tout entourer de []
- si j'ai écrit 'ou c'est que c'est l'un OU l'autre...

[Androalphus]

Code :

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

1
2
3
Private Sub Form_Current()
If Recordset.EOF Then mondossier=0 else mondossier = [N° de dossier régional]
End Sub

Le message d'erreur relatif à ce code est : "L'expression Sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Nom ambigu détécté : Form_Current.

Code :

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

1
2
3
Private Sub Form_Activate()
me.filter=[N° de dossier régional=] & mondossier
end sub

Affiche : "Erreur de compilation : incompatibilité de type" en surlignant le &.

Code :

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

1
2
3
Private Sub Form_Activate() 
if mondossier>0 then Me.Recordset.FindFirst [N° de dossier régional=] & mondossier
end sub

Affiche : "Erreur de compilation : incompatibilité de type" en surlignant le >.

[Androalphus]

Bonjour,

N'ayant toujours pas réussi à résoudre le problème, je relance le sujet.

J'ai donc créé un module nommé "mondossier" dans lequel figure le code suivant :

Code :

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

1
2
3
Option Compare Database
 
Public mondossier As String

Le blocage persiste au niveau des formulaires, j'obtiens les messages d'erreurs cités auparavant à chaque fois, et je ne comprend pas d'où vient l'erreur.

[accessisgood]

Bonjour,

il existe une solution assez simple qui s'appuie sur les variables temporaires

sur l'evenement OnCurrent de la forme il faut stocker l'identifiant en cours: SetTempVar TV_NoDossier=[NoDossier]
sur l'evenement OnActivate on recherché l'enregistrement avec SearchForRecord Where ="[NoDossier]=" & [TempVars]![TV_NoDossier]

ci joint un exemple
RetrieveRecord.zip

[Androalphus]

Merci pour votre aide !

La solution est effectivement bien plus simple, cependant cela ne fonctionne que lorsque le type de données du N° de dossier est en NuméroAuto.

Y a-t-il un moyen de le faire fonctionner lorsque le N° de dossier est au format texte ?

[accessisgood]

il faut rajouter des apostrophes de part et d'autre

SearchForRecord Where ="[NoDossier]='" & [TempVars]![TV_NoDossier] & "'"

[Androalphus]

Ça fonctionne !

Merci beaucoup !