Discussion :

[manutazounet]

Bonjour,

J'ai un formulaire de recherche avec en dessous un sous formulaire pour afficher le résultat. Cela fonctionne bien. Le soucis est que lorsque je veux double cliquer sur le résultat dans le sous formulaire pour qu'il m'affiche la fiche il me marque erreur d'éxecution 2137. Le plus étrange c'est qu'il y a quelques années de ca je l'avais fait sur un autre fichier et j'ai repris le même code pour faire celui la qui ne fonctionne pas et je ne vois pas ou se trouve mon erreur surtout que le même code fonctionne très bien sur l'autre fichier (tester aujourd'hui)

Mon code sur double click :

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
Private Sub AfficherPbResidence()
        DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
        DoCmd.OpenForm "RequeteParcAuto"
 
        If Me![Num] > 0 Then
            DoCmd.GoToControl "Num"
            DoCmd.FindRecord Me![Num]
 
        End If
 
 
Exit_AfficherPbResidence:
    Exit Sub
 
Err_AfficherPbResidence:
    MsgBox Err.Description
    Resume Exit_AfficherPbResidence
End Sub
 
Private Sub Immatriculation_DblClick(Cancel As Integer)
AfficherPbResidence
End Sub
 
Private Sub Form_DblClick(Cancel As Integer)
 
End Sub

Num= Numéro auto de la fiche ou se trouve la clé primaire
RequetePArcAuto= le formulaire a ouvrir pour voir la fiche
Immatriculation= champ dans le sous formulaire en cliquant dessus la fiche correspondante doit s'ouvrir

Merci pour vôtre aide

[ClaudeLELOUP]

Bonjour,

Si tu postes une version Access2000 de ta db, j'essaierai de voir d'où vient l'erreur.