[access et vba]

celine -
aghiad - 12 avr. 2007 à 17:31

Bonjour,

comment integrer du sql dans vba access merci de vos réponses

Configuration: Windows XP
Internet Explorer 7.0

Afficher la suite

4 réponses

Réponse 1 / 4
blux Messages postés 5035 Date d'inscription Statut Modérateur Dernière intervention 3 455

Salut,

on peut le mettre sur des évènements d'un formulaire, par exemple : un bouton appuyé, un choix dans une liste...
0
1. celine
  
  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. blux Messages postés 5035 Date d'inscription Statut Modérateur Dernière intervention 3 455
  
  Ben non, il faut dire à ACCESS que c'est du SQL et l'exécuter...
  
  0
  1. celine > blux Messages postés 5035 Date d'inscription Statut Modérateur Dernière intervention
    
    comment fait on?
    
    Merci
    
    0
Réponse 2 / 4
aghiad

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. celine
  
  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
Réponse 3 / 4
aghiad

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. celine
  
  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
  1. aghiad > celine
    
    non 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
Réponse 4 / 4
aghiad

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

[access et vba]

4 réponses

Discussions similaires

Newsletters