Discussion :

[LeMin]

Bonjour à tous,

pour me positionner dans un endroit précis du formulaire, j'utilise une fonction que j'ai trouvée il y a quelques temps dans le forun

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
Public Function ChercherEnregistrementFormulaire( _
    frm As Access.Form, _
    StrCritere As String) _
    As Boolean
' se positionne au bon endroit dans un formulaire ou sous formulaire
On Error GoTo ErreurDetectee
 
    ' Variables
    Dim Rst As dao.Recordset
    Dim blnResultat As Boolean
 
    ' Le Recordset
    Set Rst = frm.Recordset
 
    ' Chercher l'enregistrement
    blnResultat = False
    Rst.FindFirst StrCritere
    If Not Rst.NoMatch Then
        frm.Bookmark = Rst.Bookmark
        blnResultat = True
    End If

Et je l'appelle ainsi

Code :

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

1
2
3
4
StrCritere = "[Niveau2]= '.'"
   If Not ChercherEnregistrementFormulaire(Me.[DQENiv2 Sous-formulaire1].Form, StrCritere) Then
        MsgBox "Positionnement impossible !", vbExclamation
   End If

De temps en temps (1 fois sur 50), l'appel plante et ma base Data se retrouve en vrac.
Je suis obligé de faire une réparation.

1) avant de mettre le ON ERROR dans la fonction, l'erreur est sur

Code :

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

Set Rst = frm.Recordset

L'expression comporte une référence non valide à la propriété Recordset
2) avec le ON ERROR
J'ai une erreur=3420
Et obligé de faire une réparation.

Merci pour vos lumières

[loufab]

Bonjour,

On ne voit pas la fin de la fonction. Peux-tu la poster en entier ?

Cordialement,

[LeMin]

Bonjour Loufab: merci de intéresser à mon pb.

La voici

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
32
33
Public Function ChercherEnregistrementFormulaire( _
    frm As Access.Form, _
    StrCritere As String) _
    As Boolean
' se positionne au bon endroit dans un formulaire ou sous formulaire
On Error GoTo ErreurDetectee
 
    ' Variables
    Dim Rst As dao.Recordset
    Dim blnResultat As Boolean
 
    ' Le Recordset
    Set Rst = frm.Recordset
 
    ' Chercher l'enregistrement
    blnResultat = False
    Rst.FindFirst StrCritere
    If Not Rst.NoMatch Then
        frm.Bookmark = Rst.Bookmark
        blnResultat = True
    End If
    GoTo FinF
 
ErreurDetectee:
MsgBox "Erreur:" & Err
blnResultat = False
 
FinF:
    ' Libérer les objets
    Set Rst = Nothing
    ChercherEnregistrementFormulaireOLD = blnResultat
 
End Function

Et pour savoir si c'est vraiment cette fonction qui fait planter (et pas ce que je fais avant), j'ai remplacé cette fonction par

Code :

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

   Forms![DQENiv2 Sous-formulaire]![DQENiv2 Sous-formulaire1].Form.Recordset.FindFirst "[Niveau2]= '.'"

Chez moi, les 2 appels marchent de la même façon.
Le client va tester dans son environnement, mais je n'ai pas encore de retour.

[micniv]

Bonjour,

Une idée, utiliser de préférence recordsetclone

Code :

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

Set Rst = frm.RecordsetClone

Cdlt

[LeMin]

Bonjour,
alors voilà le résultat.
Avec ma nouvelle méthode de positionnement

Code :

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

Forms![DQENiv2 Sous-formulaire]![DQENiv2 Sous-formulaire1].Form.Recordset.FindFirst "[Niveau2]= '.'"

le client n'a plus d'erreur.

Donc, je laisse en place cette méthode.
Mais, je ne vois pas pourquoi la 1ere méthode marchait de façon aléatoire chez le client.

Vous avez un début d'idée ?

Bon WE à tous