[access et vba]

Bonjour,

comment integrer du sql dans vba access merci de vos réponses
Configuration: Windows XP
Internet Explorer 7.0

4 réponses

  1. Modérateur
    Salut,

    on peut le mettre sur des évènements d'un formulaire, par exemple : un bouton appuyé, un choix dans une liste...
    0
    1. ok mais par ex :
      Private Sub Commande168_Click()
      et je mets directement une formule sql

      end sub
      ça ne marche pas non?

      merci pour t précisions
      0
    2. Modérateur
      Ben non, il faut dire à ACCESS que c'est du SQL et l'exécuter...
      0
    3. @bluxcomment fait on?

      Merci
      0
  2. bonjour
    tu dois creer la table correspandante
    par ex:
    Private Sub CmdAppliquer_Click()
    DoCmd.RunSQL ("INSERT INTO (nom de la table) VALUES ('" & Me.variable & "','" & Me.variable & "')")
    On Error GoTo Err_CmdAppliquer_Click
    0
    1. ok cependant
      Private Sub CmdAppliquer_Click()
      DoCmd.RunSQL ("INSERT INTO (nom de la table) VALUES
      Me.variable -> champ du formulaire
      ou j'indique le champ de la table?

      g essayé ça marche pas
      DoCmd.RunSQL ("INSERT INTO clients VALUES ('" & Me.texte40 & "')")
      mais il faut que j'indique le champ dans la table clients

      Merci pour ta réponse
      0
  3. bonjour
    tu dois creer la table correspandante ensuite tu rajoute le code suivant
    par ex:
    Private Sub CmdAppliquer_Click()
    DoCmd.RunSQL ("INSERT INTO (nom de la table)(les champs de la table) VALUES ('" & Me.variable & "','" & Me.variable & "')")
    On Error GoTo Err_CmdAppliquer_Click
    0
    1. ok je t'embete

      mais g un message d'erreur d'execution 3134

      Private Sub Commande100_Click()
      DoCmd.RunSQL ("INSERT INTO (CLIENTS)(num_client) VALUES ('" & Me.texte140 & "')")
      On Error GoTo Err_Commande100_Click

      y'a un truc qui je crois créer le problème en fait le champ num_client de la table CLIENT et relié au champ num_client de la table ACHAT (relation 1 à plusieurs) et normalement ça devrait s'incrémenté tout seul non?

      merci
      0
    2. @celinenon je crois pas
      je pense pas mais il faut faire attention pour la rêquete sur vb car on l'ecris comme ca
      tu peux le faire sans les champs de la tables

      par exemple

      DoCmd.RunSQL ("INSERT INTO Ports VALUES ('" & Me.Numero_Port & "','" & Me.Etat & "','" & Me.Brassage & "','" & Me.Nom & "','" & Me.IP & "','" & Me.Code_port & "','" & Me.IP_Switch & "')")
      0
  4. rebonjour

    tu dois creer la table correspandante ensuite tu rajoute le code suivant
    par ex:
    Private Sub CmdAppliquer_Click()
    DoCmd.RunSQL ("INSERT INTO (nom de la table)(les champs de la table) VALUES ('" & Me.variable & "','" & Me.variable & "')")
    On Error GoTo Err_CmdAppliquer_Click
    0