Sécurisation des "ComboBox" et "TextBox" Résolu/Fermé

Question

Bonjour.

Je voudrais sécuriser ma base de données, pourriez-vous me dire si :

- Est-il possible (et si oui comment) de bloqué un "ComboBox" à la liste déroulante ? car dans ma base de 
  données, les miens ne le sont pas et je peux entrer le texte que je veux.
- Est-il possible (et si oui comment) de rendre un "TextBox" comme champ obligatoire et de mettre au 
  moment de la sauvegarde un message d'erreur si ce champ n'est pas rempli ? (TextBox "CPV").   En effet 
  dans ma base de donnée, si je saute un champ, cela ne m'empêche pas de valider mon  formulaire.

Merci pour votre aide.

https://mon-partage.fr/f/uEnNFcNM/

ThauTheme · Answer

Bonjour Steph, bonjour le forum,

Nom des contrôles à adapter à ton cas...
Pour la ComboBox essaie comme ça :
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
With Me.ComboBox1
    If .ListIndex = -1 Then
        MsgBox "Cette Donnée n'est pas valable ! Veuillez choisir un élément de la liste."
        .SelStart = 0
        .SelLength = Len(.Value)
        Cancel = True
    End If
End With
End Sub 

Pour la TextBox obligatoire, ça se fait sur le bouton qui enregistre les données en début de code :
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
    MsgBox "Vous devez remplir ce champ !"
    TextBox1.SetFocus
    Exit Sub
End If
End Sub

ThauTheme · Answer

Re,

Normalement tu ne peux pas sortir de la Combobox tant que tu n'as pas choisi un élément de sa liste. Mais si tu veux verrouiller tu fais comme pour la TextBox en adaptant...
Private Sub CommandButton1_Click()
If Me.TextBox1.Value = "" Then
    MsgBox "Vous devez remplir ce champ !"
    TextBox1.SetFocus
    Exit Sub
End If
If Me.ComboBox1.Value = "" Then
    MsgBox "Vous devez remplir ce champ !"
    ComboBox1.SetFocus
    Exit Sub
End If
If Me.ComboBox1.ListIndex = -1 Then
    MsgBox "Cette Donnée n'est pas valable ! Veuillez choisir un élément de la liste."
    ComboBox1.SetFocus
    Exit Sub
End If
'... la suite de ton code
End Sub

Sécurisation des "ComboBox" et "TextBox"

2 réponses

Discussions similaires