Mesagebox weergeven

[sjaakkie]

Hallo,

Ik ben bezig om een importeer functie te maken, deze is ook gelukt alleen wil ik een message box krijgen als het bestand niet geopend is?
Dit wil ik doen via If en Then.

stukje code

Sub Importeren_Click()

wkb = ("Bestand.xls")

If wkb = False Then
x = MsgBox("Open Bestand.xls")
GoTo blank

Het probleem is dat ik niet weet hoe ik een niet active window moet defineren met If.

Bvd Sjaakkie

 

[TellMe]

Hallo,

Ik ben bezig om een importeer functie te maken, deze is ook gelukt alleen wil ik een message box krijgen als het bestand niet geopend is?
Dit wil ik doen via If en Then.

stukje code

Sub Importeren_Click()

wkb = ("Bestand.xls")

If wkb = False Then
x = MsgBox("Open Bestand.xls")
GoTo blank

Het probleem is dat ik niet weet hoe ik een niet active window moet defineren met If.

Bvd Sjaakkie

neuh eigenlijk niet.
als je gewoon msgbox (" de tekst in je msgbox") hebt verschijnt er automatisch ééntje

ik heb zoiets als

Inloggen_click
If Textbox1.text = ("Admin")
Then my.forms.mdiparent1.show
else
msgbox ("Sorry verkeerd wachtwoord")

zoiets ;-)