bonjour j'ai un petit soucis pour mettre un titre a mon msgbox voici le code:
Merci
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
Partager