cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009
-
16 août 2007 à 09:57
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009
-
20 août 2007 à 11:27
Bonjour, je travaille sous VB6, et je dois réaliser une application pour la rentrée.
Sur un formulaire je dispose de 7 labels, 7 textBox d'un combobox et de plusieurs boutons notamment un bouton supprimer.
Je souhaiterai savoir comment faire poour réactualiser ma combo quand je supprime un enregistrement
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 16 août 2007 à 11:14
Ma combo possède des valeurs a partir d'une table située sous access.
Dans les propriétés de ma combo au niveau du champ contenu j'ai effectué une requete SQL "SELECT * FROM tAdresse"
Quand je supprime un enregistrement de cette table par le biais de mon application (bouton supprimer), ma combo m'affiche mes enregistrements non effacés mais aussi une ligne #Supprimé.
Je souhaiterai que cette ligne disparaisse car elle fait planter mon programme si je clic dessus.
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 17 août 2007 à 11:12
Quand je supprime par exemple le nom TOTO, toutes les infos de cet enregistrement se supprime. Dans la combo à la place de TOTO il y a bien #Supprimé qui se met sans aucunes manip de ma part
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 17 août 2007 à 11:18
Je vous montre mon code :
Private Sub CmdSupprimer_Click()
Dim lsSql As String
Dim rsAdresse As Recordset
If (IsNull(Me.ComboAdresse)) Or Me.ComboAdresse = "" Then
MsgBox "Vous n'avez pas sélectionné d'enregistrement." & vbNewLine & _
"La suppresion ne pourra pas s'effectuer" & vbNewLine & _
"Veulliez en sélectionner un.", vbExclamation, "Suppression impossible"
Else
If vbYes = MsgBox("Vous êtes sur le point de supprimer cet utilisateur." & vbNewLine & _
"Voulez-vous continuer ?", vbExclamation Or vbYesNo, "Suppression d'un utilisateur") Then
CurrentDb.Execute "DELETE * FROM tAdresse WHERE Nom = '" & ComboAdresse.Text & "'"
End If
'Remet les textbox à blanc pour montrer que l'enregistrement a bien été effacé
Me.txtIdent = ""
Me.txtNomUser = ""
Me.txtService = ""
Me.txtTel = ""
Me.txtFax = ""
Me.txtEmetteur = ""
Me.txtService2 = ""
Me.ComboAdresse = ""
'Réactualise la comboBox pour afficher le nouveau utilisateur
lsSql = "SELECT * FROM tAdresse"
Set rsAdresse = CurrentDb.OpenRecordset(lsSql)
rsAdresse.MoveFirst
Do Until rsAdresse.EOF
Me.ComboAdresse = Trim(rsAdresse.Fields("Nom"))
rsAdresse.MoveNext
Loop
Set rsAdresse = Nothing
'Message d'information pour signaler que l'enregistrement a bien été supprimé
MsgBox "L'enregistrement a été supprimé avec succès", vbInformation, "Suppression des enregistrements"
End If
End Sub
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 17 août 2007 à 12:28
modifis minims, essentiellement pour être sûr que la suppression se fasse sur le bon item (chaine, pas long) et que le refresh soit correct aussi (uniquement SI suppression, et par additem)
Private Sub CmdSupprimer_Click()
Dim lsSql As String
Dim rsAdresse As Recordset
If LenB(Me.ComboAdresse.Text) = 0 Then
MsgBox "Vous n'avez pas sélectionné d'enregistrement." & vbNewLine & _
"La suppresion ne pourra pas s'effectuer" & vbNewLine & _
"Veuillez en sélectionner un.", vbExclamation, "Suppression
impossible"
Else
If MsgBox("Vous êtes sur le point de supprimer
cet utilisateur." & vbNewLine & _
"Voulez-vous continuer ?", vbExclamation Or vbYesNo, "Suppression d'un
utilisateur") = vbYes Then
CurrentDb.Execute "DELETE * FROM
tAdresse WHERE Nom = " & Me.ComboAdresse.Text
'Remet les textbox à blanc pour montrer que
l'enregistrement a bien été effacé
Me.txtIdent.Text = ""
Me.txtNomUser.Text = ""
Me.txtService.Text = ""
Me.txtTel.Text = ""
Me.txtFax.Text = ""
Me.txtEmetteur.Text = ""
Me.txtService2.Text = ""
Me.ComboAdresse.Clear
'Réactualise la comboBox pour afficher le nouveau
utilisateur
lsSql = "SELECT * FROM tAdresse"
Set rsAdresse = CurrentDb.OpenRecordset(lsSql)
rsAdresse.MoveFirst
Do Until rsAdresse.EOF
Me.ComboAdresse.AddItem Trim$(rsAdresse.Fields("Nom"))
rsAdresse.MoveNext
Loop
Set rsAdresse = Nothing
'Message d'information pour signaler que
l'enregistrement a bien été supprimé
MsgBox "L'enregistrement a été supprimé
avec succès", vbInformation, "Suppression des
enregistrements"
Else
MsgBox "Suppression annulée", vbInformation, "Suppression des
enregistrements"
End If
End If
Set rsAdresse = Nothing
End Sub
çà donne quoi?
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
cs_monaco63
Messages postés76Date d'inscriptionvendredi 12 novembre 2004StatutMembreDernière intervention15 juin 2009 17 août 2007 à 14:25
Je fais des efforts mais aucune présence de .clear et .cls, je cherche sur internet également mais rien.
Je débute sur VB donc je ne connais pas encore tout sur tout