fermeture de formulaire Fermé

Question

Bonjours, 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

grdscarabee · Answer

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

mohammed · Answer

salut thomichna,vous voudriez fermer le formulaire avec openDoCmd.OpenForm "Page 1-2", , , filtre?????un macro peur faire le travail.bonne chance.Merci.

thomichna · Answer

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

thomichna · Answer

Ah ok, j'ai utiliser la macro, c'est énorme!!! Ca marche nikel, merci Moha ;) et grdscarabee.

Fermeture de formulaire

4 réponses

Discussions similaires