[fermeture de formulaires sous VB]
Résolu/Fermé
A voir également:
- [fermeture de formulaires sous VB]
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Forcer la fermeture d'un programme - Guide
- Sytadin fermeture - Télécharger - Transports & Cartes
- Annuler fermeture onglet chrome - Guide
7 réponses
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
18 mai 2005 à 15:49
18 mai 2005 à 15:49
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
sam3000
Messages postés
1225
Date d'inscription
mercredi 22 décembre 2004
Statut
Membre
Dernière intervention
13 juin 2005
144
18 mai 2005 à 15:27
18 mai 2005 à 15:27
dans le code du bouton sur lequel tu clique met:
unload me
Utilisateur anonyme
18 mai 2005 à 15:32
18 mai 2005 à 15:32
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"
Utilisateur anonyme
18 mai 2005 à 15:39
18 mai 2005 à 15:39
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
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é
l'erreur et Erreur 1 Le nom 'Unload' n'est pas déclaré