Fermeture de formulaire
Bonjours,
J'avaus mis un code pour fermer le formulaire automatiquement sur un click mais ça ne marche plus :
Voila mon code :
Y a t-il un probleme ?? Merci
J'avaus mis un code pour fermer le formulaire automatiquement sur un click mais ça ne marche plus :
Voila mon code :
Private Sub Commande46_Click()
On Error GoTo Err_Commande46_Click
Dim filtre As String
filtre = "[Date]=" & CLng(Me![Date])
DoCmd.OpenForm "Page 1-2", , , filtre
stDocName = "Page 1-2"
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Commande46_Click:
Exit Sub
Err_Commande46_Click:
MsgBox Err.Description
Resume Exit_Commande46_Click
End Sub
Y a t-il un probleme ?? Merci
4 réponses
-
Salut,
Je me trompe peut être parceque j'y connais pas grand chose au VB, mais est-ce qu'il ne manquerait pas des parenthèses pour la partie :
DoCmd.OpenForm "Page 1-2", , , filtre
DoCmd.OpenForm stDocName, , , stLinkCriteria
ça me parait un peu léger au niveau de la syntaxe ;)
GrdScarabe
Learn with the best, teach the others -
salut thomichna,
vous voudriez fermer le formulaire avec open
DoCmd.OpenForm "Page 1-2", , , filtre
?????
un macro peur faire le travail.
bonne chance.
Merci. -
Merci de vos reponse et excusez moi de ne pas avoir répondu avant. Pour les parenthèsde, je ne sais pas...je n'y connaias malheureusement rien en VB et pour la macro, je n'en ai jamais fait....alors si vous avez un petit coup de pouce à me donner. Merci
-
Ah ok, j'ai utiliser la macro, c'est énorme!!! Ca marche nikel, merci Moha ;) et grdscarabee.
