Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    avril 2016
    Messages
    263
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2016
    Messages : 263
    Points : 76
    Points
    76

    Par défaut Problème sur l'excution SQL (Insere)

    Bonjour, j'ai un petit souci, j'ai créé trois menus déroulants pour insérer les éléments des listes déroulantes vers la table Temps envoie SAV, j'ai une requête SQL (insert) qu'il m’inserré tout les enregistrement et j'aimerais au qu'il m'inserré une ligne 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
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    Private Sub Validé_SAV_Click()
    Dim MyDate As Date
    Dim RunMysql As String
    Dim strmysql As String
    Dim Or_Affectation As String
    Dim EMEI As String
    Dim anc_EMEI As String
    DoCmd.SetWarnings False
    Société = Me.Société.Column(0)
    Adresse = Me.Société.Column(1)
    Code_Postal = Me.Société.Column(2)
    Ville = Me.Société.Column(3)
    Service = Me.Société.Column(4)
     
    Société_2 = Me.User.Column(1)
    Nom = Me.User.Column(2)
    Adresse_2 = Me.User.Column(3)
    Code_Postal_2 = Me.User.Column(4)
    Ville_2 = Me.User.Column(5)
    Nom_utilisateur = Me.User.Column(6)
    Email = Me.User.Column(7)
    Num_Tel = Me.User.Column(8)
     
    EMEI = Me.EMEI.Column(0)
    Num_ligne = Me.EMEI.Column(1)
    Marque = Me.EMEI.Column(2)
    Modele = Me.EMEI.Column(3)
     
    RunMysql = RunMysql & " INSERT INTO [Temps envoie SAV] ( [Société (destinataire)], [Adresse (destinataire)], [Code Postal (destinataire)], [Ville (destinataire)], [Service (destinataire)], "
    RunMysql = RunMysql & " Société, Nom, Adresse, [Code Postal], Ville, [Nom de l'user], [Email (user)], [Numéro ligne (user)], [Numéro ligne du terminal (pann)], Marque, Modele, IMEI )"
    RunMysql = RunMysql & " SELECT """
    RunMysql = RunMysql & Société
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Adresse
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Code_Postal
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Ville
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Service
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Société_2
    RunMysql = RunMysql & ""","""
    RunMysql = RunMysql & Nom
    RunMysql = RunMysql & ""","""
    RunMysql = RunMysql & Adresse_2
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Code_Postal_2
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Ville_2
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Nom_utilisateur
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Email
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Num_Tel
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Num_ligne
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Marque
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & Modele
    RunMysql = RunMysql & """, """
    RunMysql = RunMysql & EMEI
    RunMysql = RunMysql & """"
    RunMysql = RunMysql & " FROM [Adresse de retour], [Coordonnés Client], Modèle INNER JOIN (Equipement INNER JOIN "
    RunMysql = RunMysql & " (Abonnements INNER JOIN Affectation ON Abonnements.Num_SIM = Affectation.Num_SIM) ON Equipement.Num_EMEI = Affectation.Num_EMEI) ON Modèle.Modele = Equipement.Modele"
    RunMysql = RunMysql & " where [Coordonnés Client].Nom =" & Me.User.Column(2) & ";"
     
     DoCmd.RunSQL RunMysql
    End Sub
    Merci de votre attention

  2. #2
    Membre expérimenté Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 070
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 070
    Points : 1 637
    Points
    1 637

    Par défaut

    Salut,
    Tes listes déroulantes sont dans un formulaire ? Si oui quel source ? tbl ou req ?
    Pourquoi déclarer
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim MyDate As Date
    Dim strmysql As String
    ?
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  3. #3
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    avril 2016
    Messages
    263
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2016
    Messages : 263
    Points : 76
    Points
    76

    Par défaut

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Dim MyDate As Date
    Dim strmysql As String
    sont en trop je les ai déclarées au cas où

    J'ai créé un formulaire avec ses trois listes déroulantes, deux listes viennent d'une table et une liste déroulante vient de quatre tables en relation.
    Voici une image pour mieux comprendre
    Nom : Capture.PNG
Affichages : 31
Taille : 31,8 Ko

  4. #4
    Membre expérimenté Avatar de hyperion13
    Homme Profil pro
    Calot120 - Enseignant Post Bac
    Inscrit en
    octobre 2007
    Messages
    1 070
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France

    Informations professionnelles :
    Activité : Calot120 - Enseignant Post Bac
    Secteur : Enseignement

    Informations forums :
    Inscription : octobre 2007
    Messages : 1 070
    Points : 1 637
    Points
    1 637

    Par défaut

    Une raison particulière pour traiter votre INSERT INTO en vba ?
    Pourquoi 3 listes déroulantes pour 3 critères et n'appeler qu'un seul des 3 dans votre clause WHERE ?

    Autant créer une req graphique avec les champs qu'il vous faut afin de pouvoir insérer les valeurs dans votre tbl Temps envoie SAV et de placer dans la ligne critères les contrôles de votre form.
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    GMT+4 - 21°19'18" S - 055°25'32" E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse est pertinente. N'oubliez pas svp de clôturer le sujet en cliquant sur

  5. #5
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    avril 2016
    Messages
    263
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 28
    Localisation : France, Essonne (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : avril 2016
    Messages : 263
    Points : 76
    Points
    76

    Par défaut

    Merci pour le conseille sa fonctionne
    excusez moi pour le temps de réponse

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème sur l'excution SQL (update)
    Par vinkey_33 dans le forum Requêtes et SQL.
    Réponses: 3
    Dernier message: 22/02/2018, 23h15
  2. Problème sur l'excution SQL
    Par vinkey_33 dans le forum Access
    Réponses: 4
    Dernier message: 10/11/2017, 11h53
  3. Problème sur une requête SQL
    Par juju05 dans le forum Langage SQL
    Réponses: 1
    Dernier message: 20/06/2010, 19h20
  4. Petit problème sur une requete sql
    Par adibou666 dans le forum Langage SQL
    Réponses: 5
    Dernier message: 22/01/2009, 12h57
  5. Problème sur une requête SQL (PL/SQL)
    Par goofyrocks dans le forum Langage SQL
    Réponses: 5
    Dernier message: 13/01/2009, 18h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo