bonjour à tous,
j'ai un formulaire, dans lequel l'utilisateur doit choisir un nom sur une liste déroulante, puis un nouveau formulaire s'ouvre en fonction de la valeur dans cette liste.
d'habitude, lorsque la valeur de cette liste est nulle, un message d'erreur s'affiche, et le second formulaire ne s'ouvre pas... dans ce cas là, le message ne s'affiche pas, et le formulaire2 s'ouvre sur une page vide .
je vous met donc le code de la commande (créé par l'assistant, je suis pas assez douée pour le VB) en espérant que vous pourrez m'aider à trouver l'erreur, ou me conseiller autre chose encore!!!!
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 Private Sub Commande36_Click() On Error GoTo Err_Commande36_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "2Cons_parc_GLOBAL" stLinkCriteria = "[nom]= " & "'" & Me![Modifiable34] & "'" DoCmd.OpenForm stDocName, , , stLinkCriteria Exit_Commande36_Click: Exit Sub Err_Commande36_Click: MsgBox err.Description Resume Exit_Commande36_Click End Sub
merci d'avance
Partager