Et comme ça?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5 With MaBase.OpenRecordset(SQL) If Not .EOF Then [Forms]![SF_ML].txt_mailbox.Value = Replace(CStr(Split(.Fields("mail_box"), "#mailto:")(1)), "#", "") End If End With
Partager