[Word/VBA] verplichte invoer userform *

[Verwijderd]

Ik heb al van alles geprobeerd maar kom hier niet uit:

Ik heb (met VBA) een userform gemaakt die gegevens in word zet. De enige controle die ik op de invoer bij tekstvakken wilzetten is dat ze niet leeg mogen zijn. Deze code werkt wel (als er wel iets staat ingevuld)

Code:
Private Sub txtNaam_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

If Not IsNull(txtNaam) Then

Cancel = True

MsgBox "Er is geen naam ingevuld!"

End If


End Sub

Bij het weglaten van "NOT" werkt het echter niet meer. Iemand suggesties wat ik fout doe?

[MissingDog]

Zoiets al geprobeerd?

Visual Basic:

If txtNaam.Text = vbNull Then
Cancel = True
MsgBox "Er is geen naam ingevuld!"
End If

Kan ook nog lengte van txtNaam.Text testen met

Visual Basic:

If Len(txtNaam.Text) = 0

of gewoon of er een string inzit:

Visual Basic:

If txtNaam.Text = ""

note: ik doe zelf allemaal VB6 proggen, dus ik kan geen garantie geven of dit ook in VBA werkt.

[ Voor 18% gewijzigd door MissingDog op 03-07-2004 14:46 ]

[gorgi_19]

Controleer eens op "" ipv Null / Nothing; of kijk naar de lengte van de invoer van het tekstveld.

[Verwijderd]

Tjsa.. IsNull(txtNaam) is in feite niet meer dan een controle dat heb object txtNaam toegewezen is en niet alleen gedeclareerd. Dat VBA de waarde van een txtNaam veldje ook zo laat controleren is jammer.

Maargoed, probeer eens iets met IsEmpty(txtNaam.Text)

[Verwijderd]

er is ook een makkelijke controle op Null en ""

code:

if trim$(txtnaam.text & "") = "" then
  ' blaaaaat
end if

Een lege string achter een string plakken forceert namelijk een Null naar een "". En de trim weerhoudt gebruikers ervan alleen maar spaties in te vullen.

[MissingDog]

Verwijderd schreef op 03 juli 2004 @ 14:52:
er is ook een makkelijke controle op Null en ""

code:

if trim$(txtnaam.text & "") = "" then
  ' blaaaaat
end if

Een lege string achter een string plakken forceert namelijk een Null naar een "". En de trim weerhoudt gebruikers ervan alleen maar spaties in te vullen.

sweeeet....da's wel erg netjes hoor ffrenzy, ik code al rond de 10 jaar VB, maar deze mooie heb ik nog nooit gebruikt (haastwerk, slordig, slap excuus, veel geluk gehad)

[onkl]

With ^^^ (onkl FFrenzy.copy; c:\handigecode.paste )
Zeer galant

[Verwijderd]

Alleen deze werkt:

If Len(txtNaam.Text) < 2 Then

Om redenen die ik niet begrijp (op zich niet vreemd, zoveel weet ik niet van vba) werkt:
< 1 of
= 0
niet.

Bedankt voor de tips!

[onkl]

Verwijderd schreef op 03 juli 2004 @ 20:16:
Alleen deze werkt:

If Len(txtNaam.Text) < 2 Then

Om redenen die ik niet begrijp (op zich niet vreemd, zoveel weet ik niet van vba) werkt:
< 1 of
= 0
niet.

Bedankt voor de tips!

Die ken ik.
Dit hoort niet, voorbeelden zoals genoemd "horen" te werken, dus misschien duid dit op een ander foutje.
Zou deze kunnen zijn(als jij net zoveel pech hebt als ik had): Ga in VBA naar de properties van je textbox. In de propertie text staat er misschien een spatie i.p.v. niets. Zo ja, haal die weg (uberhaubt, text selecteren en eens flink op Backspace en delete raggen werkt aardig. (eens achtergekomen na een halve dag zoeken )

Is dat 'm niet-> gooi eens:

code:

msgbox len(txtNaam.text)

in je code. Run je form, vul geen naam in en kijk hoe lang de tekst default is. Meer dan 0-> vervang "len" in de code door "asc", weer runnen, je ziet nu de Ascii code (en daar kunnen wij of Google wel weer wat mee verzinnen)

[Verwijderd]

heb overal eens flink delete en backspace op losgelaten. Het werkt inderdaad nu wel. Bedankt!

[DynamicDreams]

Ik gebruik in mijn stukjes programmeerwerk altijd dit:

code:

Function IsLeeg(Tekst) As Boolean
    IsLeeg = (IsEmpty(Tekst)) Or (Trim(Tekst = ""))
End Function

Een simpele function, met space-trimmer.