Discussion :

[vinkey_33]

bonjour j'ai fais un formulaire avec des zone liste déroulante et je voudrais créez une nouvelle ligne dans une table a partir des choix que j'ai sélectionné dans les liste déroulante, voici le code qui ne fonctionne pas :

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
Private Sub créer_Affectation_3_en_1_Click()
 
Dim MySQL As String
Dim Recherche_Employé As String
Dim Liste_Abonnemen As String
Dim Liste_Equipement As String
Dim AutresInformation0 As String
Dim AutresInformation1 As Integer
 
PIN_Terminal = AutresInformation.Column(0)
PIN_SIM = AutresInformation.Column(1)
Commentaire = AutresInformation.Column(2)
EMEI = AffectationNumEMEI
 
RunMySQL = "INSERT INTO Affectation ( USER_ID, Statut, PIN_Terminal, PIN_SIM, Commentaire )"
RunMySQL = RunMySQL & " SELECT Recherche_Employé, Liste_Abonnemen, #"
RunMySQL = RunMySQL & PIN_Terminal
RunMySQL = RunMySQL & "#, #"
RunMySQL = RunMySQL & " PIN_SIM"
RunMySQL = RunMySQL & "#,"
RunMySQL = RunMySQL & " Commentaire"
RunMySQL = RunMySQL & " [Equipement].[Num_EMEI] ='" & EMEI & "';"
 DoCmd.RunSQL RunMySQL

[madefemere]

Bonjour,

Quel est le message d'erreur ?

Vérifies les valeurs des paramètres que tu mets dans tes variables ! Dans une requête, les dates sont mis entre # et les textes entre ' ou ". Par contre une valeur numérique n'a pas besoin d'être entre des quôtes.
Donc, dans le code posté :
1- PIN_Terminal est il une date ?
2- PIN_SIM est-il une date ?
3- Commentaire est du texte, donc doit être mis entre '
4- D'où tu as la valeur de Recherche_Employé et Liste_Abonnemen si tu utilises un SELECT mais sans le nom de la table avec un FROM.

Pour rappel, dans une requête insertion,
1- Si les valeurs proviennent d'un table, l'instruction sera :

Code :

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

"INSERT INTO LaTableDestination (Champ1,Champ2,Champ3,....ChampN) SELECT ChampDep1,ChampDep2,ChampDep3,...,ChampDepN FROM TableDepart"

2- Si les valeurs proviennent de diverses contrôles d'un autre objet, l'instruction sera :

Code :

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

"INSERT INTO LaTableDestination (Champ1,Champ2,Champ3,....ChampN) VALUES (" & Controle1 & "," & Controle2 & "," & Controle3 & ",...," & ControleN & ")"

Cordialement.

[vinkey_33]

Terminal et sim sont des integer et les autre des string, j'avais mal écrit le code,
j'ai amélioré le code mais il fonctionne toujours pas, 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
Private Sub créer_Affectation_3_en_1_Click()
 
Dim MySQL As String
Dim PIN_Terminal, PIN_SIM As Integer
Dim Commentaire, USER_ID, Statut As String
 
USER_ID = Me.Recherche_Employé.Column(0)
Statut = Me.Liste_Abonnemen.Column(0)
PIN_Terminal = Me.AutresInformation.Column(0)
PIN_SIM = Me.AutresInformation.Column(1)
Commentaire = Me.AutresInformation.Column(2)
 
RunMySQL = "INSERT INTO [Affectation] (" & USER_ID & ", " & Statut & ", " & PIN_Terminal & ", " & PIN_SIM & ", " & Commentaire & " )"
RunMySQL = RunMySQL & " SELECT USER_ID, Statut, PIN_Terminal, PIN_SIM, Commentaire"
 DoCmd.RunSQL RunMySQL

[madefemere]

Bonsoir,

J'ai du mal à voir la ressemblance de ton code avec les 2 modèles que je proposais !
En plus tu utilises les mêmes mots et pour tes variables et pour tes noms de champs de tables, on s'y perd !
Il faut typer chaque variable dans une déclaration énumérée.
Ton code ressemblerait à :

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
Private Sub créer_Affectation_3_en_1_Click()
 
Dim RunMySQL As String
Dim VrPIN_Terminal As Integer, VrPIN_SIM As Integer
Dim VrCommentaire As String, VrUSER_ID as String, VrStatut As String
 
VrUSER_ID = Me.Recherche_Employé.Column(0)
VrStatut = Me.Liste_Abonnemen.Column(0)
VrPIN_Terminal = Me.AutresInformation.Column(0)
VrPIN_SIM = Me.AutresInformation.Column(1)
VrCommentaire = Me.AutresInformation.Column(2)
 
RunMySQL = "INSERT INTO [Affectation] (USER_ID,Statut,PIN_Terminal,PIN_SIM,Commentaire)"
RunMySQL = RunMySQL & " VALUES ('" &  VrUSER_ID & "','" & VrStatut & "'," &  VrPIN_Terminal & "," & VrPIN_SIM & ",'" VrCommentaire & "')"
 DoCmd.RunSQL RunMySQL

Cordialement.

[vinkey_33]

Bonjour, merci sa fonctionne, mais maintenance que j'ai comme problème, quand j'appuie sur le bouton, il active et me demande confirmation de l'ajout de la ligne tout va bien, après il m'affiche un mot en me disant Violations de règles de validation alors que le champ appartient a la même table, je ne comprend plus rien

[madefemere]

Bonjour,

1- Le message de validation est normal quand on utilise la syntaxe avec

Code :

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

Docmd.RunSQL SQLExpression

C'est comme quand on exécute une requête action simplement.
Pour y remédier, il faut inhiber les messages d'avertissement avec un

Code :

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

Docmd.SetWarnings FALSE

Et les remettre à TRUE après l'exécution de la requête.

2- Le message 2 de "Violation..." est généré lorsqu'on "viole" les règles de validation des champs de ta table. souvent, c'ets parce que ta table a un index unique et tu veux rajouter le même index avec ta requête. A vérifier !

Cordialement.