postcode format Netherlands

[wimven]

Please,

Can someone help me to the VBA lines for the entry field txtPostcd in a userform which should give the format:

4 digits, space, 2 letters

 

[krishhi]

Just giving you a Idea,

=left(A1,4) & " " &right(A1,2)

 

[wimven]

Thanks for you quick reply Krishni but this does not answer my question; the 4 on the left can only be digits en the two on the right just letters.
And it has to be written in vba as well.
I have searched the www but did not come up with an answer. However, it seems so much easier than the postcodes in the UK

 

[Andrew Poulsom]

Try:

Private Sub CommandButton1_Click()
    With TextBox1
        If Not .Text Like "[0-9][0-9][0-9][0-9] [A-Z][A-Z]" Then
            MsgBox "Invalid"
        End If
    End With
End Sub

 

[wimven]

Thank you but I get an error in .Text
not valid or unqualified
any idea?

 

[Andrew Poulsom]

My code expects a TextBox from the Control Toolbox.

 

[wimven]

I am not sure if i understand what you mean by that Andrew but i guess this is why i posted that it's from a userform.

 

[snowblizz]

I am not sure if i understand what you mean by that Andrew but i guess this is why i posted that it's from a userform.

Take Andrew's code and swap the name of the textbox with the name you mention in the OP.
Like so:

Private Sub CommandButton1_Click()
    With txtPostcd
        If Not .Text Like "[0-9][0-9][0-9][0-9] [A-Z][A-Z]" Then
            MsgBox "Invalid"
        End If
    End With
End Sub</pre>

 

[wimven]

no matter what or where, i keep getting "invalid"

 

[snowblizz]

no matter what or where, i keep getting "invalid"

So you have a userform.

Can you give us the name of the field on the userform, also this code needs to be on the userform.

If you have placed the button on the sheet then it might work with

With Userform1.txtPostcd
</pre>

or replace userform1 with whatever your userform is called.