Discussion :

[clao260]

Bonjour a tous,

Voila je vous explique j'utilise le code ci dessous avec un bouton dans un formulaire pour selectionner un enregistrement et qu'il s'ouvre dans un nouveau formulaire.

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
 
Private Sub OuvFiche_Click()
On Error GoTo Err_OuvFiche_Click
 
Dim stLinkCriteria As String
stLinkCriteria = "[N° PDC]=" & Me![N° PDC]
DoCmd.OpenForm "FormPDC", , , stLinkCriteria
Me.AllowAdditions = False
Me.AllowDeletions = True
 
Exit_OuvFiche_Click:
Exit Sub
Err_OuvFiche_Click:
MsgBox Err.Description
Resume Exit_OuvFiche_Click
 
End Sub

Le probleme qui se pose est que lorsque j'appuie sur le bouton en question, j'ai un msgbox qui s'ouvre en disant "L'action OpenForm a été annulée."
Je ne comprends pas d'ou viens ce probleme et comment le résoudre.

Merci a tous par avance

[marot_r]

Comme cela je ne vois pas de pb.

Le plus simple est de neutraliser le OnError en le mettant en commentaire, Access va s'arréter sur la ligne qui pose un pb et tu vas pouvoir vérifier tes variables.

A+