So i'm having a problem with this one:

.
.
.
    If IsEmpty(UserForm1.TextBox1.Value) = True Then
    MsgBox ("You haven't inserted the date!")
    Exit Sub
    End If

    If IsEmpty(UserForm1.ComboBox1.Value) = True Then
    MsgBox ("You haven't inserted the code of product!")
    Exit Sub
    End If
.
.
.


I can't understand this: When UserForm1.TextBox1.Value or/and UserForm1.ComboBox1.Value is empty, it doesn't show msgbox:es at all. Why's that. There are some mistakes with the code?

Thanks for advance.

T: -Jaromir-


- Finlandoo bailando -

Hi Jaromir,

Change your code like this

If UserForm1.TextBox1.Value = "" Then
    MsgBox ("You haven't inserted the date!")
    Exit Sub
End If

If UserForm1.ComboBox1.Value) = "" Then
    MsgBox ("You haven't inserted the code of product!")
    Exit Sub
End If


-vemaju

Try

If Trim(UserForm1.TextBox1.Value) = "" Then
    MsgBox ("You haven't inserted the date!")
    Exit Sub
End If

If Trim(UserForm1.ComboBox1.Value)) = "" Then
    MsgBox ("You haven't inserted the code of product!")
    Exit Sub
End If

The trim should remove the spaces, hence it will be better.

If you want to improve the performance check the length

If len(Trim(UserForm1.TextBox1.Value)) = 0 Then
    MsgBox ("You haven't inserted the date!")
    Exit Sub
End If

If len(Trim(UserForm1.ComboBox1.Value))) = 0 Then
    MsgBox ("You haven't inserted the code of product!")
    Exit Sub
End If

Cheers
Shasur

http://www.vbadud.blogspot.com

Thanks mates. Now it works properly. Have a nice week. :)

T: -Jaromir-


- Finlandoo bailando -