op formulier blijven als label caption leeg is

[Doohan]

Beste helper ,

Ik heb een formulier met wat labels en een knop bereken.

Als ik op de knop bereken klik zou ik graag willen dat er een label met de naam lblMartin5 gecontroleerd word of deze gevuld is . De label word gevuld met een caption dmv een combobox. Als deze niet gevuld is zou ik graag de focus op het formulier behouden om alsnog mijn handelingen te kunnen doen om deze te vullen.

De code die niet werkt

Private Sub butdrukvalberekening_Click()

' VULT CELLEN OP GENOEMD WERKBLAD VANUIT LABELS dmv caption (caption is altijd tekst) CDbl maakt er een double van
        
        If IsEmpty(LblMartin5) Then
                    MsgBox "Vergeet niet een Medium te kiezen"
                    Me.LblMartin5.SetFocus
                    Exit Sub
                    End If
                    
        Worksheets("Drukverlies Koelwater Systeem").Range("G7") = Me.LblMartin3.Caption
        Worksheets("Drukverlies Koelwater Systeem").Range("J7") = Me.LblMartin4.Caption
        Worksheets("Drukverlies Koelwater Systeem").Range("C9") = CDbl(Me.LblMartin5.Caption) ' cdbl maakt maakt double
        Worksheets("Drukverlies Koelwater Systeem").Range("C10") = CDbl(Me.LblMartin6.Caption)
        Worksheets("Drukverlies Koelwater Systeem").Range("B7") = Me.lblMartin7.Caption
        Worksheets("Drukverlies Koelwater Systeem").Range("d17") = txtLeidlengte1.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("d18") = txtLeidlengte2.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("d19") = txtLeidlengte3.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("C22") = TextBox2.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("C23") = TextBox3.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("C24") = TextBox1.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("E22") = TextBox5.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("E23") = TextBox6.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("L27") = TextBox44.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("T23") = TextBox46.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("T24") = TextBox47.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("D42") = xtxtLeidlengte1.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("D43") = xtxtLeidlengte2.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("C36") = TextBox25.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("C37") = TextBox26.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("E36") = TextBox28.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("E37") = TextBox29.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("T31") = TextBox48.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("T32") = TextBox49.Value
        Worksheets("Drukverlies Koelwater Systeem").Range("T34") = TextBox50.Value
        
End Sub

eigenlijk zou ik dit ook voor lblMartin6 willen maar ik strand nu al. de if isempty werkt dus niet.

bij voorbaat dank

 

[Doohan]

Heren,

ik heb het anders opgelost.Omdat ik de label caption projecteer naar cel c9 op een werkblad, heb ik in de if isempty statement LblMartin4 verandert in

        If IsEmpty(Worksheets("Drukverlies Koelwater Systeem").Range("C9")) Then
                    MsgBox "Vergeet niet een Medium te kiezen"
                    Me.keus1.SetFocus
                    Exit Sub
                    End If

en nu werkt het wel.
Ieder geval dank voor het meekijken.
op naar het volgende probleem
groet Martin

 

[Doohan]

lijntje toch maar weer open was niet de oplossing heb toch echt de label controle nodig

 

[gast0660]

Iets in die richting mischien?

If Trim(LblMartin5) ="" Or Trim(LblMartin6) ="" Then 
MsgBox "Vergeet niet een Medium te kiezen"
Me.keus1.SetFocus
Exit Sub
End If

 

[Doohan]

Dank je wel gast0660
Jouw code bleef uiteindelijk steeds met de msgbox melding komen. Dus ik heb even Or verandert in And en het werkt.
Ik kon de functie trim niet weer wat geleerd.
Nu kan ik eindelijk weer aan een nieuw formuliertje werken.

Groetjes martin

 

[gast0660]

Zonder vb bestandje blijft het altijd wat gissen.

Jouw code bleef uiteindelijk steeds met de msgbox melding komen. Dus ik heb even Or verandert in And en het werkt.

Mooi zo:thumb:

Nu kan ik eindelijk weer aan een nieuw formuliertje werken.

Suc6