Commande boutons pour supprimer

Bonjour je viens vers vous car j'ai un petit souci J'ai un uther forme qui me permet De pouvoir modifier Ou de supprimer Une ligne Dans mon tableau artiste J'ai voulu mettre ce code sur le bouton supprimer l'artiste Mais il me met un message d'erreur au niveau de la ligne If Me.Controls("Tbx & I").Visible = True Then

Je n'arrive pas à comprendre d'où ça vient pouvez-vous m'aider s'il vous plaît je vous remercie d'avance

Private Sub CbnSupprimerficheartiste_Click()
    Dim ligne As Long
    Dim I As Integer

    'Supprime la ligne de L'artiste
    If MsgBox("Confirmez-vous la suppression de ce contact ?", vbYesNo, "Demande de confirmation de suppression") = vbYes Then
        If Me.CbxCivilité.ListIndex = -1 Then Exit Sub
        ligne = Me.CbxCivilité.ListIndex + 2
        For I = 1 To 7
        If Me.Controls("Tbx & I").Visible = True Then

    End If
    Next I
    End If

Unload Me
FrmModificationficheartiste.Show

End Sub

Salut dubarre,

essaie comme ca

If Me.Controls("Tbx" & I).Visible = True Then

@++

Rechercher des sujets similaires à "commande boutons supprimer"