Kasboek

[Jos1234]

Hallo

Nog maar eens een vraagje, ...

In het bestand in bijlage wordt gewerkt met "algemene rekeningen" (uit een boekhoudprogr), dwz dat bijv. de 6-nummers "kosten" zijn, de 7-nummers "opbrengsten"...
Hoe kan ik het nu zo ingesteld krijgen dat de gebruiker, als hij een 6-nummer kiest in het userform, verplicht moet worden om een negatief getal in te geven en dat er een foutmelding wordt gegeven als dat niet zo is? Hetzelfde bij een 7-nummer, maar dan een positief getal. In de andere gevallen (dus de 1 tot 5-nummers) mogen zowel positieve als negatieve getallen worden ingegeven.

Jos

 

[Wigi]

    If Left(Me.Lb.Value, 1) = "6" And Me.txt_bedr > 0 Then
        MsgBox "Voor kosten moet u een negatief getal ingeven", vbCritical, "Fout"
        Exit Sub
    End If
    
    If Left(Me.Lb.Value, 1) = "7" And Me.txt_bedr < 0 Then
        MsgBox "Voor opbrengsten moet u een positief getal ingeven", vbCritical, "Fout"
        Exit Sub
    End If

Wigi

 

[Jos1234]

Bedankt,Wim! :thumb: