Discussion :

[milielf]

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

[marot_r]

Te souviens-tu du message ?

Sinon le code est correct, il est normal qu'il ouvre le formulaire sans message d'erreur.

Avais-tu défini la propriété Valide Si de Modifiable34 à <>"" quand tu avais le message.

Accessoirement Modifiable34 c'est pas très significatif, un truc du genre ChoixProduit est beaucoup plus parlant losrque tu regarde ton code (propriété Nom dans onglet Autres).

A+

[milielf]

merci de ton aide...


je n'avais pas défini cette propriété.

par contre j'ai résolu mon probleme d'une autre manière, j'ai trouvé ça