Discussion :

[psykodumarteau]

Bonjour,

Je sais qu'il n'est pas possible de supprimer un formulaire lors de sa fermeture. Mais existe-t-il un moyen détourne pour y parvenir (ouvrir un formulaire avec un timer...).

Cordialement

[Jean-Philippe André]

Bonjour,
il me semble qui si on passe par un code qui ouvre le formulaire et ensuite le supprime c'est possible :
à essayer donc (sur un formulaire bidon pour commencer )

Code :

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

1
2
3
4
Sub Test()
Docmd.OpenForm "Test", AcNormal
DoCmd.DeleteObject acForm,"Test"
End Sub

[psykodumarteau]

Merci jpchek

J'ai résolu mon probleme en passant pour un autre formulaire avec une textBox qui supprime au bout de deux secondes le formulaire dont le nom est dans la texBox.

Voici le code du formulaire à supprimer

Code :

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

1
2
3
4
5
6
7
 
Private Sub Form_Close() 
DoCmd.DeleteObject acQuery, Me.RecordSource
DoCmd.DeleteObject acQuery, Mid(Me.RecordSource, 1, 16)
DoCmd.OpenForm "SUPPR_FORM", , , , , acHidden
Forms("SUPPR_FORM").TxtSupprForm = Me.Name
End Sub

et celui du formulaire qui le supprime

Code :

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

1
2
3
4
5
 
Private Sub Form_Timer()
DoCmd.DeleteObject acForm, Me.TxtSupprForm.Value
DoCmd.Close acForm, Me.Name, acSaveNo
End Sub

Cordialement