Discussion :

[ROUSSIGNE]

Bonjour à l'ouverture d'un formulaire j'ai mis en place cet évenement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Form_Open(Cancel As Integer)
 
If IsNull(Me.N°ACTIVITE.Value) Then
SonMultimédia "c:/WINDOWS/MEDIA/REPETERACTIVITE.wav"
Sendkeys "{ENTER}"
Sendkeys "{ENTER}"
 
ElseIf (Me.N°ACTIVITE.Value) <> "" Then
SonMultimédia "c:/WINDOWS/MEDIA/" & Me.N°ACTIVITE & ".wav"
 
End If
End Sub

je souhaiterai dans le cas ou le "N°ACTIVITE" n'est pas null et qu'il ni a pas de fichier N°ACTIVITE.wav associée que le code lance un autre fichier wav par defaut "pasdefichier.wav" par exemple

merci d'avance

salutation

[naphta]

Bonjour,

Si tu distribues une appli tu dois fournir les fichiers qui sont en dur dans l'appli. !

En général, en dessous du répertoire où ce situe le frontal on a une arborescence avec des dossiers contenant l'aide, un autre avec les icones ou les images,(par exemple).

Tu fais un dossier "son" dans lequel tu mets tes wav à toi, tu peux même tester l'existence du fichier avec la fonction "Dir" d'access et là t'es peinard.
C'est un peu lourd mais faut ce qui faut, parfois 70% du dev. c'est de la sécu.

a+