[fermeture de formulaires sous VB]
Résolu
Utilisateur anonyme
-
Suddenci -
Suddenci -
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
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
A voir également:
- [fermeture de formulaires sous VB]
- Vb - Télécharger - Langages
- Sytadin fermeture - Télécharger - Transports & Cartes
- Forcer fermeture application windows - Guide
- Formulaire de réclamation facebook - Guide
- Formulaire en ligne de meta - Guide
7 réponses
il fallais préciser que tu travaillais sous Access et non pas Visual Basic 6
tu dois remplacer stFormName par ton nom de form
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
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"
"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"
"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"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question