Discussion :

[vinkey_33]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

Merci

[micniv]

Bonjour,

...Reponse = MsgBox(Message, Titre) ...

La première chose : Msgbox renvoie un numérique quand utilisé comme une fonction
donc il faudrait plutôt écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
dim R as integer
R = MsgBox(Message, vbyesno,Titre)

Mais surtout que veux-tu faire via cette ligne de code ?

CDLT

[vinkey_33]

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