Argument optionnel de type Form avec valeur par défautRésolu

Question

Bonjour, j'aimerais bien faire une fonction qui prend pour param&#232;tre optionnel un formulaire et pouvoir d&#233;tecter si ce param&#232;tre est utilis&#233; ou non. J'ai donc fait &#231;a:
Public Function Ouvrir_video(Optional formvid As Form = Form1) As String
if form = form1 then
msgbox "l'argument n'a pas &#233;t&#233; rentr&#233; en param&#232;tre"
end if
end function

sousoulebarbu · Accepted Answer

C'es bon, CanisLupus vient de me donner la technique:

Pour un objet, c'est diff&#233;rent d'une variable simple de type integer,
string, double, .... on ne peut pas lui octroyer une valeur par d&#233;faut
de la m&#234;me mani&#232;re.

La m&#233;thode a employer dans ce cas est :

Function test(Optional formvid As Form)

If formvid Is Nothing Then
  Set formvid = Form1 ' si form1 existe bien s&#249;r
End If

'ton code, par exemple :
formvid.Show

End Function

Encore merci &#224; lui

sousoulebarbu · Answer

Excusez-moi , j'ai appuy&#233; sur le bouton envoyer sans faire attention
et donc il me met comme erreur "constante requise" lors de la compilation en surlignant Form1
Comment m'en sortir

saharbiahmed · Answer

salut 
tester ca
Public Function Ouvrir_video(Optional formvid As Form) As String
   if isMissing(formvid) then
       msgbox "l'argument n'a pas été rentré en paramètre"
   end if
end function

sousoulebarbu · Answer

Non, &#231;a ne marche pas, isMissing fonctionne avec tr&#232;s peu de type de variable et form n'en fait pas partie. Quelqu'un aurait une autre id&#233;e??

Argument optionnel de type Form avec valeur par défaut

4 réponses

Discussions similaires