envoi vers table

Bonjour

Peut-être :

Private Sub autr_AfterUpdate()
CurrentDb.Execute "insert into evenement(invitant) " _
& "select '" & me.autr & "';"
End Sub

@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Bauwens François" <francois.bauwens@cfwb.be> a écrit dans le message de
news:eutrollyFHA.2072@TK2MSFTNGP14.phx.gbl...

Salut à tous,

Je suis toujours dans mes histoires de liste déroulante. Je voudrais que
la

valeur sélectionnée dans ma liste s'inscrive dans le champ "invitant" de
ma

table "evenement".

J'ai essayé

Private Sub autr_AfterUpdate()
CurrentDb.Execute "insert into evenement(invitant)"
End Sub

mais ce n'est pas la bonne grammaire...

j'ai aussi tenté plus simplement

Private Sub autr_AfterUpdate()
evenement(invitant) = autr
End Sub

marche pas non plus. Donc je cherche... un truc qui fonctionne

Merci ;o)

Salut

Tu devrais essayer ça :

Private Sub autr_AfterUpdate()
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tbl_evenements (Invitant) VALUES ('" & Replace(zdlInvitants.Column(1), "'", "''") & "';"
DoCmd.SetWarning True
End Sub

Explications :
Je pense que tu souhaite juste afficher le nom de l'invitant dans ta table : je suppose que le nom se trouve en colonne 1 de ta zone de liste. S'il est ailleurs, indiques juste le bon numéro de colonne (la 1ere colonne de ta zone de liste est numérotée 0).
Si tu veux par contre insérer l'Id de l'invitant dans ta table tbl_evenements alors la chaine devient :
"INSERT INTO tbl_evenements (IdInvitant) VALUES (" & zdlInvitants & ");"
Vérifies bien que la colonne liée de ta zone de liste contient bien l'Id de l'invitant.

Ouala
Bye
Buddy

Bauwens François wrote:

Salut à tous,

Je suis toujours dans mes histoires de liste déroulante. Je voudrais que la
valeur sélectionnée dans ma liste s'inscrive dans le champ "invitant" de ma
table "evenement".

J'ai essayé

Private Sub autr_AfterUpdate()
CurrentDb.Execute "insert into evenement(invitant)"
End Sub

mais ce n'est pas la bonne grammaire...

j'ai aussi tenté plus simplement

Private Sub autr_AfterUpdate()
evenement(invitant) = autr
End Sub

marche pas non plus. Donc je cherche... un truc qui fonctionne

Merci ;o)