A voir également:
- [access et vba]
- Access runtime ✓ - Forum Access
- Vba attendre 1 seconde ✓ - Forum VB / VBA
- Acer quick access - Forum Logiciels
- Access appdata - Guide
- Mkdir vba ✓ - Forum VB / VBA
4 réponses
blux
Messages postés
26531
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
16 décembre 2024
3 317
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