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

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

dans le code du bouton sur lequel tu clique met:

unload me

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"

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"

encore merci et a bientot pour d autres questions

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é

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