Par défaut erreur d'exécution '424': objet requis (SQL-ACCESS) [Résolu]

vinkey33 77 Messages postés mercredi 9 décembre 2015Date d'inscription 2 janvier 2018 Dernière intervention - 13 nov. 2017 à 10:53 - Dernière réponse : vinkey33 77 Messages postés mercredi 9 décembre 2015Date d'inscription 2 janvier 2018 Dernière intervention
- 22 nov. 2017 à 10:59
bonjour, j'ai réalisé un code mais il ne fonctionne pas je m'explique, si le statut_abo est en "non affecté" mettre "résilié" mais parcontre si il est "affecté" affiché le nom et prénom de l'utilisateur en cour, en sachant que ma table et lié a une autre table qui contient le nom et prenom. le champ lié est "num_sim" voici le code
Private Sub Résiliation_Click()
Dim strmysql As String
Dim RunMySQL As String
Dim Numero_puce As String

Numero_puce = Me.Num_SIM
If Abonnement.Statut_Abo = "Affecté" Then
MsgBox ("Affectation.Nom, Affectation.Prenom")
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

pouvez vous m'aider?
merci
Afficher la suite 

2 réponses

Répondre au sujet
ucfoutu 18028 Messages postés lundi 7 décembre 2009Date d'inscriptionModérateurStatut 20 janvier 2018 Dernière intervention - 13 nov. 2017 à 14:24
0
Utile
Bonjour
Qu'est Abonnement ?
ceci :
Abonnement.Statut_Abo

implique qu'il est :
- soit une variable personnalisée dont l'un des éléments est Statut_Abo
- soit un objet dont l'une des propriété est Statut_Abo
- soit enfin le nom d'un userform dont l'un des contrôles serait nommé Statut_Abo
Et comme tu ne nous en dis rien ... il nous faut interroger Madame Soleil ?
J'observe par ailleurs avec curiosité un Abonnement ici au singulier et là au pluriel ...
J'observe également avec curiosité qu'un Me donne à penser que Me est finalement un userform Abonnements


Tout me parait avoir été écrit de bric et de broc et sans le moindre soin.
Commenter la réponse de ucfoutu
vinkey33 77 Messages postés mercredi 9 décembre 2015Date d'inscription 2 janvier 2018 Dernière intervention - 22 nov. 2017 à 10:59
0
Utile
j'ai résolue le problème
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

Prenom = Me.Prenom
Nom = Me.Nom
abo = Me.Statut_Abo

Numero_puce = Me.Num_SIM
If abo = "Affecté" Then
MsgBox (Nom & " " & Prenom & " " & "est déjà Affecté")
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

désolé pour avoir tardé
Commenter la réponse de vinkey33

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.