J'ai ce bout de code qui fonctionnait bien sous Access 97 :
-----------------------
Dim STRSEND As String
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
STRSEND =3D Shell("net send " & Liste1.ItemData(I) & " " & Text1)
Next I
MsgBox Text1 & "!", vbInformation, "Texte envoy=E9"
-----------------------
Or, sous access 2003 cela ne fonctionne pas. Pouvez-vous me dire
pourquoi ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ze_titi
Bonjour,
quel est le message d'erreur ?
-- Cordialement,
ze_titi
Access 2003 sous XP
J'ai ce bout de code qui fonctionnait bien sous Access 97 : ----------------------- Dim STRSEND As String
Dim I As Variant For Each I In Me.Liste1.ItemsSelected STRSEND = Shell("net send " & Liste1.ItemData(I) & " " & Text1)
Next I MsgBox Text1 & "!", vbInformation, "Texte envoyé" ----------------------- Or, sous access 2003 cela ne fonctionne pas. Pouvez-vous me dire pourquoi ?
Merci par avance.
Luis
Bonjour,
quel est le message d'erreur ?
--
Cordialement,
ze_titi
Access 2003 sous XP
J'ai ce bout de code qui fonctionnait bien sous Access 97 :
-----------------------
Dim STRSEND As String
Dim I As Variant
For Each I In Me.Liste1.ItemsSelected
STRSEND = Shell("net send " & Liste1.ItemData(I) & " " & Text1)
Next I
MsgBox Text1 & "!", vbInformation, "Texte envoyé"
-----------------------
Or, sous access 2003 cela ne fonctionne pas. Pouvez-vous me dire
pourquoi ?
J'ai ce bout de code qui fonctionnait bien sous Access 97 : ----------------------- Dim STRSEND As String
Dim I As Variant For Each I In Me.Liste1.ItemsSelected STRSEND = Shell("net send " & Liste1.ItemData(I) & " " & Text1)
Next I MsgBox Text1 & "!", vbInformation, "Texte envoyé" ----------------------- Or, sous access 2003 cela ne fonctionne pas. Pouvez-vous me dire pourquoi ?
