Message box openen als een tekstvak op excel-formulier leeg is

[blueberry013]

Hallo!

Ik heb een vraagje over het gebruik van messageboxen.

Op mijn excelblad "Planning" heb ik een knop ingevoegd, evenals een textbox.
Als ik nu op die knop klik en textbox is leeg zou er een messagebox moeten openen met daarin een tekstje. Als textbox niet leeg is, zou mijn form moeten openen. Hoe kan ik dit doen?

had al geprobeerd met de volgende code...

nummeropdracht is de textbox op het excelblad (activeX besturingselement)
opdrachten is de knop

Sub opdrachten_klikken()

If nummeropdracht.value = "" then
Msgbox"Gelieve een nummer in te voegen", vbInformation
else
FrmOrder.show
end if

alvast bedankt voor de hulp!

 

[blueberry013]

Hij geeft steeds een fout op nummeropdracht.value. (Compileerfout : ongeldige kwalificatie).
Als ik .value weglaat geeft hij wel mijn messagebox, zelfs als er een getal ingevuld is in textbox nummeropdracht.

 

[Roncancio]

Zonder voorbeeldbestand is het een beetje koffiedik kijken maar het lijkt er heel sterk op dat VBA nummeropdracht niet herkent als zijnde de tekstbox.
Staat er bij de properties van de tekstbox nummeropdracht als Name?

In bijgevoegd bestand heb ik de benodigde besturingselementen geplaatst samen met je code.

Met vriendelijke groet,


Roncancio

 

[blueberry013]

Super!!! Dat is het se!!! nu, de code had ik dus, alleen had ik ze in een module gezet en niet op de respectievelijke pagina!
Enorm hard bedankt!!!

 

[Roncancio]

Dat kan wel maar dan moet je aan VBA wel duidelijk maken dat de knop in blad 1 staat.

Code voor de knop:

Private Sub opdrachten_Click()
MacroKnop

End Sub

Code in module:

Sub MacroKnop()
If [B][COLOR="red"]Blad1.[/COLOR][/B]nummeropdracht = "" Then
    MsgBox "Gelieve een nummer in te voegen", vbInformation
Else
    frmorder.Show
End If
End Sub

Met vriendelijke groet,


Roncancio