Discussion :

[copainvince]

bonjour (ou bonsoir si vous passer a table lol),

je vais essayer d'être le plus clair possible sans trop rentrer dans les détail de mon projet:

je voudrais utiliser, dans un formulaire et via un bouton de commande, une macro qui permette d'enregistrer dans une table, une donnée présente sur le formulaire a l'enregistrement surlequel je me suis arrêté ... aie aie j'ai pas l'impression que ce soit clair

je vais essayer de faire un exemple simple:

j'ouvre un formulaire, (pour faire simple admettons que la table a laquelle il se réfère ne comporte qu'un seul champs : ref_nb )
si je voyage parmis les différents enregistrements grâce aux petites flèches en dessous, mon ref_nb change suivant l'enregistrement surlequel je me trouve, ok?
j'aimerais, lorsque je me suis arrêté sur l'enregistrement voulu, que lorsque j'appuie sur un bouton de contrôle, le ref_nb correspondant soit enregistré dans une table à part (et qui servirait en quelque sorte de table tampon)


est ce qu'il existe une macro toute faite avec accesse ou est-ce qu'il faut que je chercher cela sur internet

merci

[Heureux-oli]

Pas clair

[ft035580]

Salut copainvince,

De toute façon Heureux-oli ne fait pas d'effort

enregistrer dans une table, une donnée présente sur le formulaire a l'enregistrement surlequel je me suis arrêté ...

J'imagine donc que tu as une table nommée TableTemporaire.

Pourquoi ne pas passer par une requête dans laquelle tu préciserais que l'enregistrement en cours de ton formulaire doir s'ajouter à ta Table temporaire.

Ce qui donnerait:

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
INSERT INTO TaTableTemporaire ( TonChamp )
SELECT TaTable.Tonchamp
FROM TaTable
WHERE (((TaTable.Tonchamp)=[Forms]![TonFormulaire]![TonChampDeRéférence]));

[Pierre Fauconnier]

Salut ft050380

La requête sl ne pourrait-elle pas être simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim RequeteSQL as string
 
RequeteSQL = "insert into tabletemporaire (ref_nb) valules('" & NomControle.value & "'"
DoCmd.RunSql RequeteSQL

Je ne comprends pas l'utilité de passer par un SELECT

[Faw]

Et en une ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "insert into tabletemporaire (ref_nb) values (" & Me.ref_nb & ")"

si ref_nb est numérique.
tabletemporaire existe à ce niveau du traitement bien sûr.

[Pierre Fauconnier]

Ah, la concision... J'aime...

J'oublie souvent ce Currentdb.execute...

Merci du rappel

[ft035580]

Je ne comprends pas l'utilité de passer par un SELECT

c'est vrai....

Préfère,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "insert into tabletemporaire (ref_nb) values (" & Me.ref_nb & ")"

Pas pensé

[GIPPE]

Bonjour à toutes et à tous,
Ma question est : Quelle est la différence et donc l'avantage entre ce que propose Pierre:

Salut ft050380

La requête sl ne pourrait-elle pas être simplement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim RequeteSQL as string
 
RequeteSQL = "insert into tabletemporaire (ref_nb) valules('" & NomControle.value & "'"
DoCmd.RunSql RequeteSQL

Je ne comprends pas l'utilité de passer par un SELECT

et ft035580

INSERT INTO TaTableTemporaire ( TonChamp )
SELECT TaTable.Tonchamp
FROM TaTable
WHERE (((TaTable.Tonchamp)=[Forms]![TonFormulaire]![TonChampDeRéférence]));

Merci de vos éclaircissement.

[Heureux-oli]

La différence si situe à l'endroit où cette requête sera effectuée.
La requête de Pierre est pour le VBA alors que celle de ft050380 est pour le SQL.
Du moins en très gros.

[Tofalu]

De plus, le values spécifie des valeurs saisie par l'utilisateur (ou une macro), le select puise ses données dans une table

[Faw]

C'est surtout qu'on travaille sur l'enregistrement courant d'un form dépendant.
Donc les données sont disponibles sans avoir à refaire un accès par SELECT...

[Tofalu]

C'est surtout qu'on travaille sur l'enregistrement courant d'un form dépendant.
Donc les données sont disponibles sans avoir à refaire un accès par SELECT...

A la différence que le select va tenir compte que :

- l'enregistrement existe encore,
- qu'il n'a pas été modifié

Il peut se passer plein de choses entre l'affichage de l'info sur le formulaire et la validation de la requête

[Faw]

Oui bien sûr, le contexte peut être plus complexe...ça s'analyse avant

[copainvince]

merci ca marche avec

CurrentDb.Execute "insert into tabletemporaire (ref_nb) values (" & Me.ref_nb & ")"

mais si je veux faire le meme avec un champs qui n'est pas numéric, ca plante ... qu'est ce qu il faut faire pour que ca aille ?

[Pierre Fauconnier]

Bonjour

Il est utile de lire au moins les bases du sql

Il faut encadrer les valeurs avec '

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
CurrentDb.Execute "insert into tabletemporaire (ref_nb) values ('" & Me.ref_nb & "')"

et d'entourer ton code par les balises code (bouton #) pour rendre ton message plus lisible