A voir également:
- [access et vba]
- Access appdata - Guide
- Excel compter cellule couleur sans vba - Guide
- Acer quick access - Forum logiciel systeme
- Find vba - Astuces et Solutions
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
4 réponses
blux
Messages postés
26823
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
30 avril 2025
3 337
12 avril 2007 à 15:52
12 avril 2007 à 15:52
Salut,
on peut le mettre sur des évènements d'un formulaire, par exemple : un bouton appuyé, un choix dans une liste...
on peut le mettre sur des évènements d'un formulaire, par exemple : un bouton appuyé, un choix dans une liste...
Utilisateur anonyme
12 avril 2007 à 16:38
12 avril 2007 à 16:38
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
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
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
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
Utilisateur anonyme
12 avril 2007 à 16:42
12 avril 2007 à 16:42
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
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
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
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
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
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 & "')")
Utilisateur anonyme
12 avril 2007 à 16:59
12 avril 2007 à 16:59
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
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
12 avril 2007 à 15:58
Private Sub Commande168_Click()
et je mets directement une formule sql
end sub
ça ne marche pas non?
merci pour t précisions
12 avril 2007 à 16:12
12 avril 2007 à 16:22
Merci