Soucis pour mettre un titre dans msgbox

Résolu

vinkey33 Messages postés 92 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021 - 2 janv. 2018 à 10:58
jordane45 Messages postés 37722 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 septembre 2023 - 2 janv. 2018 à 14:55

bonjour j'ai un petit soucis pour mettre un titre a mon msgbox voici le code:

Dim strmysql As String
Dim RunMySQL As String
Dim Numero_puce As String
Dim Prenom As String
Dim Nom As String
Dim Texte As String
Dim Message As String
Dim Titre As String
Dim Reponse As String
Dim Mytring As String
 
Prenom = Me.Prenom
Nom = Me.Nom
abo = Me.Statut_Abo
Num_ligne = Me.Num_ligne
Message " Le numéro " & " " & Num_ligne & " " & " de " & " " & Nom & " " & Prenom & " " & "est déjà Affecté"
Titre = "Gestion Abonnement"
Reponse = MsgBox(Message, Titre)
If abo = "Non Affecté" Then
Mytring = Reponse
Else
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Résilié"""
    strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
    strmysql = strmysql & """);"
    Me.Statut_Abo = "Résilié"
    DoCmd.RunSQL strmysql
End If
End Sub

j'aimerais que quand il y a (non affecté) sur le champ abo qu'il message d'erreur avec le titre et le contenu. le contenue j'arrive a l'affiché mais quand je veux mettre un titre sa beug
et je voudrais un bouton (ok)
Merci d'avance

A voir également:

Soucis pour mettre un titre dans msgbox
Msgbox vbs - Conseils pratiques -Visual Basic / VB.NET
Msgbox c# - Forum C# / .NET
Vba msgbox yes no - Forum PHP
Barre de titre excel - Forum Visual Basic 6
Vba msgbox retour à la ligne ✓ - Forum Visual Basic 6

1 réponse

Réponse 1 / 1

jordane45 Messages postés 37722 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 septembre 2023 342
2 janv. 2018 à 11:06

Bonjour,

Déjà... ta question concerne le langage VB et non SQL.
Je déplace donc ta question dans le bon forum.

Ensuite.. pour l'ajout d'un titre et d'un bouton.... regarde ici : https://www.excel-pratique.com/fr/vba/boites_de_dialogue.php

Tu as mal utilisé les paramètres de la fonction msgbox...

vinkey33 Messages postés 92 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021
Modifié le 2 janv. 2018 à 11:48

merci sa fonctionne le seul problème, c'est quand je clique sur le else "abo=non affecté", le if se déclenche or quand je clique sur else j'aimerais l’exécution que du else

Message = " Le numéro " & " " & Num & " " & " de " & " " & Nom & " " & Prenom & " " & "est déjà Affecté"
Titre = "Gestion Abonnement"
Reponse = MsgBox([Message], vbOKOnly, [Titre])
If abo = "Non Affecté" Then
Mytring = Reponse
Else: abo = "Affecté"
    strmysql = "UPDATE Abonnements SET Abonnements.Statut_Abo = ""Résilié"""
    strmysql = strmysql & " WHERE (Abonnements.Num_SIM = """
    strmysql = strmysql & """);"
    Me.Statut_Abo = "Résilié"
    DoCmd.RunSQL strmysql

jordane45 Messages postés 37722 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 24 septembre 2023 342 > vinkey33 Messages postés 92 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021
2 janv. 2018 à 12:05

Quand tu cliques sur "else" ???
C'est à dire ?
A quel endroit effectues tu ce clic ?
Que veux tu dire par le IF est executé ?
Pourquoi avoir ajouté les ":" après ton ELSE ?

vinkey33 Messages postés 92 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021
2 janv. 2018 à 12:38

j'aimerais que quand je clique sur le bouton, si dans le champ (statut_abo) il y a "affecté", qu'il m'affiche le msgbox et s'il y a "non affecté" mettre dans "statut_abo" résilié hors quand je sélectionne une ligne non affecté il m'affiche comme même le msgbox

Tu as placé ta MSGBOX avant ton IF .. donc normal qu'il l'ouvre à chaque fois...

vinkey33 Messages postés 92 Date d'inscription mercredi 9 décembre 2015 Statut Membre Dernière intervention 23 janvier 2021
2 janv. 2018 à 14:23

merci sa fonctionne

Discussions similaires

Msgbox en premier plan

MsgBox "" ,vbYesNo

MsgBox Yes No question

VbYesNo

Bouton par défaut des msgbox

Votre réponse

Discussions similaires