zone de liste modifiable + ajout dans la table

**fab44** · 19/10/2004, 09h31

salut,
Je souhaite que les valeurs non présentes dans une zone de liste modifiable puissent s'ajouter à la table lorsque je les saisit. Je sais qu'il faut aller sur l'evenement "pas dans la liste" mais je n'arrive pas a trouver la commande "ajout dans la table" quelqu'un pourrait il me mettre sur la voie?
nb : access 97
Merci.

**Didier L** · 19/10/2004, 09h36

Bonjour,

la commande que tu cherche n'existe pas.

Il faut que tu execute une requête INSERT

**fab44** · 19/10/2004, 10h36

Pour une requête insert, je viens de lire des message à ce sujet et je ne comprend pas trop la démarche a suivre, serait-t-il possible de me donner quelques explications?
merci

**toto14** · 19/10/2004, 10h44

tout d'abord, un petit truc utile qui te suivra toute ta vie de programmeur en vba : la touche F1 !!!
Bon en gros :

Code :

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

insert into table_source select * from table_expression

ou

Code :

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

insert into table_source (champ1, champ2) values (valeur1, valeur2)

ça dépend si les deux tables sont constituées de la même façon.
Si c'est pas super clair, n'hésites pas.
[/code]

**Didier L** · 19/10/2004, 10h48

Code :

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

1
2
 
Currentdb.execute "INSERT INTO Matable (Champ1,Champ2) VALUES (Valeur1,Valeur2)"

Tu remplace Matable par le nom réél de ta table,
Champ1 et champ2 par les nom de tes champs et valeur1 et valeur2 par les valeur que tu veux inserer dans ta table.
Attention si valeur1 ou valeur2 sont des chaine de caractère il faut penser à mettre des cotes simple ' avant et après, et si se sont des dates, tu doit mettre des # avant et après chaque date.

**fab44** · 19/10/2004, 11h01

J'ai entré ce code dans une procédure évenementielle relative a l'evènement "pas dans la liste". Cela ne fonctionne pas, ce n'est peut être pas la procédure a suivre? D'autant que c'est la première fois que je touche au vba. Voici le code de la procédure évènementielle :

Code :

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

1
2
3
4
5
6
Option Compare Database
Option Explicit
 
Private Sub MARQUE_NotInList(NewData As String, Response As Integer)
insert into table_source select * from table_expression
End Sub

**Didier L** · 19/10/2004, 11h47

lit bien tous les posts avant de reposer une question

**fab44** · 19/10/2004, 12h29

Merci je vais essayer de me debrouiller avec ça. Mais le VBA et moi pour le moment ça fais deux.

**Didier L** · 19/10/2004, 12h33

n'hesite pas à poser des questions quand même, mais essaye toutes les solutions.

Et une requête SQL est une chaine de caractère, elle ne fonctionne pas toute seule.

**fab44** · 19/10/2004, 12h50

je ne sais pas si je peux continuer la discussion malgré le fait d'avoir cocher "Résolu", mais d'après vos conseils et ce que j'ai pu essayer, je pense m'être mal exprimé sur le problème.
Car j'ai une table pour "marque fax" avec 1 seul champ (marque), et j'ai une table fax qui reprend ce champ marque, j'ai donc créer un formulaire de saisie pour les fax relatif a la table fax et dans ce formulaire j'ai une zone de liste modifiable pour le champ marque, or toutes les marques de fax n'étant pas répertoriées. J'aimerai donc que lorsque j'en saisit une qui n'est pas dans la liste je puisse la retrouver dans cette liste ensuite.
Donc la requête doit être base sur le nom du controle(la zone de liste modifiable du formulaire)???
Help me !!!

**Demco** · 19/10/2004, 12h57

Donc la requête doit être base sur le nom du controle(la zone de liste modifiable du formulaire)?

Tout à fait.

Je te donne même ceci en prévision de ton prochain message

:
http://access.developpez.com/faq/?page=Requetes#txtQry

NB : merci d'éviter les appels au secours comme "help me"

**Didier L** · 19/10/2004, 13h04

Tu doit avoir pour ta liste la proriété limité à la liste à "Oui"
Ensuite dans tl'événement "Sur absence dans la liste" tu dois avoir un code du style:

Code :

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

1
2
3
4
5
6
7
 
Private Sub MaListe_NotInList(NewData As String, Response As Integer)
Currentdb.execute "INSERT INTO [marque fax] (marque) values ('" & NewData & "')"
Response=0
MaListe.requery
Maliste=NewData
End Sub