A voir également:
- [access et vba]
- Acer quick access - Forum logiciel systeme
- Désinstaller ACER QUICK ACCESS - Forum Logiciels
- Access appdata - Guide
- Quick Access service ✓ - Forum PC portable
- Excel compter cellule couleur sans vba - Guide
4 réponses
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...
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
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 & "')")
Private Sub Commande168_Click()
et je mets directement une formule sql
end sub
ça ne marche pas non?
merci pour t précisions
Merci