[fermeture de formulaires sous VB]Résolu/Fermé

Question

Re bonjourComment puis je fermer un formulaire apres avoir cliqué sur bouton qui ouvre un autre formulaire?Quel est le code sous VB pour faire ça?Merci

sam3000 · Accepted Answer

il fallais préciser que tu travaillais sous Access et non pas Visual Basic 6

tu dois remplacer stFormName par ton nom de form

Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Nom_Prenom_Num"

stLinkCriteria = "[CODE_SALARIE]=" & "'" & Me![CODE_SALARIE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria


DoCmd.Close acForm, strFormName, acSaveYes
Exit Sub


Exit_Commande8_Click:
Exit Sub

Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

End Sub

sam3000 · Answer

dans le code du bouton sur lequel tu clique met:unload me

oreilledelest · Answer

Ok mais je met ça ou?

"Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Nom_Prenom_Num"

stLinkCriteria = "[CODE_SALARIE]=" & "'" & Me![CODE_SALARIE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande8_Click:
Exit Sub

Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

End Sub"

oreilledelest · Answer

Ok mais je met ça ou?

"Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Nom_Prenom_Num"

stLinkCriteria = "[CODE_SALARIE]=" & "'" & Me![CODE_SALARIE] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Commande8_Click:
Exit Sub

Err_Commande8_Click:
MsgBox Err.Description
Resume Exit_Commande8_Click

End Sub"

oreilledelest · Answer

encore merci et a bientot pour d autres questions

dmquik · Answer

slt  moi aussi  j un problem  un  Erreur en Unload mais  en Vb 2005
l'erreur et Erreur	1	Le nom 'Unload' n'est pas déclaré

Suddenci · Answer

Merci à toi Sam3000, 2 ans et demi après ta réponse m'a servi à moi aussi !!! Thx ! :)

[fermeture de formulaires sous VB]

7 réponses

Newsletters