fermeture de formulaire

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

Afficher la suite

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

Votre réponse

Discussions similaires

Newsletters