dans le code suivant, comment faire pour ..

Bonjour,
dans le code suivant, comment faire pour que mon champ "mailyesno" passe à
"yes":

Public Sub AjouteContact(Lettre As String)
If Me!lstContact.ListIndex = -1 Then Exit Sub
Dim i As Integer
Dim j As Integer
Dim Str As String
Dim Frm As Form
Dim ctl As CONTROL
Dim varElt As Variant
Dim SelectString As String
Dim MyArray() As Variant

Set Frm = Forms!frmlistecontact
Set ctl = Frm!lstContact

i = 0
For Each varElt In ctl.ItemsSelected
i = i + 1
ReDim Preserve MyArray(i)
SelectString = ctl.ItemData(varElt) & ";" & DLookup("Courriel",
"Qtblcontact", "Contact='" & ctl.ItemData(varElt) & "'")
Me("lst" & Lettre).RowSource = Me("lst" & Lettre).RowSource &
IIf(Estvide(Me("lst" & Lettre).RowSource), "", ";") & SelectString
MyArray(i) = SelectString
Next varElt

For j = 1 To i
Me!lstContact.RowSource = EnleveListe(Me!lstContact.RowSource,
MyArray(j))
Next
End Sub

le formulaire est basé sur une query "qcontact" danq laquelle le champ"
mailyesno" doit passer à "yes" qund je click sur le bouton "To"



D'avance merci



Frédéric

Bonjour Frédéric.

quelle est la relation entre ton bouton qui doit faire passer la valeur
d'un champ à oui et tout le code que tu nous affiches ? si tu changes
uniquement la valeur du champ par le bouton pourquoi tout ce code ?

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"fth" <frederic.thiriauxSPAM!@matloc.be> a écrit dans le message de news:
%23gv1t5fWFHA.3220@TK2MSFTNGP10.phx.gbl...

Bonjour,
dans le code suivant, comment faire pour que mon champ "mailyesno" passe
à "yes":

Public Sub AjouteContact(Lettre As String)
If Me!lstContact.ListIndex = -1 Then Exit Sub
Dim i As Integer
Dim j As Integer
Dim Str As String
Dim Frm As Form
Dim ctl As CONTROL
Dim varElt As Variant
Dim SelectString As String
Dim MyArray() As Variant

Set Frm = Forms!frmlistecontact
Set ctl = Frm!lstContact

i = 0
For Each varElt In ctl.ItemsSelected
i = i + 1
ReDim Preserve MyArray(i)
SelectString = ctl.ItemData(varElt) & ";" & DLookup("Courriel",
"Qtblcontact", "Contact='" & ctl.ItemData(varElt) & "'")
Me("lst" & Lettre).RowSource = Me("lst" & Lettre).RowSource &
IIf(Estvide(Me("lst" & Lettre).RowSource), "", ";") & SelectString
MyArray(i) = SelectString
Next varElt

For j = 1 To i
Me!lstContact.RowSource = EnleveListe(Me!lstContact.RowSource,
MyArray(j))
Next
End Sub

le formulaire est basé sur une query "qcontact" danq laquelle le champ"
mailyesno" doit passer à "yes" qund je click sur le bouton "To"



D'avance merci



Frédéric

Bonjour Raymond,
Pierre m'avait donné une adresse ou j'ai pu trouver une petite appli pour
envoyer des mails.
ça fonctionne super bien mais j'ai besoins, après envoi du ou des mails,
de cocher une case ( faire -1) pour chaque contact. J'ai depuis contourné
le probleme mais ne suis que moyennement satisfait
Tout ça pour dire que le code joint correspond au bouton d'ouverture de la
liste des contacts dispo pour l'envoi et je me demandais qi qq un pouvait
me dire comment insérer de quoi faire passer mon champ à -1.
Voila

NB: l'adresse ou j'ai téléchargé la petite appli (pas la version MAPI)
http://www.logicielappui.com/tips/

Bonne fin de journée,
Frédéric