Discussion :

[llulu24]

Bonjour,

je voudrais ouvrir un formulaire qui porte le nom "µdJ SUR PAGE 435" via un autre formulaire nommé "Listes Dépeches" avec un champ numérique qui porte le nom "Page 400-1" et des que je rentre le chiffre 435 le formulaire "µdJ SUR PAGE 435" s'ouvre afin de pouvoir rentrer des données supplémentaire.
je voudrais le faire en code sur l'evenement apres mise a jour, mais je ne connais pas du tous le VB, et je n'ai rien trouvé sur le forum

[MC2]

Code :

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

1
2
3
4
5
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "µdJ SUR PAGE " & Me.[Page 400-1]
    DoCmd.OpenForm stDocName, , , stLinkCriteria

[llulu24]

Sa ouvre bien le formulaire quand je rentre le nombre 435, mais quand je met rien ou un autre nombre sa bug.

[Jeannot45]

Bonjour,

tu pourrais compléter ta procédure par un contrôle sur la saisie

Code :

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

1
2
3
4
5
6
7
8
9
   Dim stDocName As String
   Dim stLinkCriteria As String
 
If Cint(Me.[Page 400-1]) = 435 then
    stDocName = "µdJ SUR PAGE " & Me.[Page 400-1]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
    Msgbox "Le numéro saisi ne correspond pas à un N° de page", vbInformation
End if

[MC2]

il faut le dire qu'il y en a d'autres...
C'est évident qu'il faut contrôler la valeur saisie et aussi tester que le formulaire existe mais ça demande plus de code.

[llulu24]

desole je connais pas du tout le VB donc je suis passé par une macro en conversion et je viens de trouver

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Page_400_1_AfterUpdate()
 
Dim stDocName As String
Dim stLinkCriteria As String
If (Forms![Listes Dépeches]![Page 400-1] = "435") Then
    stDocName = "µdJ SUR PAGE " & Me.[Page 400-1]
    DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
End Sub

merci pour votre aide