VBA UserForm Text - Equal and Should be Less Than Specific Date

[alyceinwonderland]

Hi, Good day. I have this VBA project where in I have to compare the dates in my userform. Please help. Kindly see my script below for your reference. Thank you in advance.

I need the txtBS.Text to be less than or equal the date of the txtdate.Text.

I tried inserting this code to my VBA below but did not work:

If txtBS.Text <= txtdate.Text Then
MsgBox "The date entered into the before date is greater than the application."

Private Sub CommandButton4_Click()
On Error GoTo xlERR

If Trim(txtDN.Text) = "" Then GoTo xlERR

If Trim(txtCN.Text) = "" Then GoTo xlERR

If Trim(txtdate.Text) = "" Then
GoTo xlERR
ElseIf IsDate(txtdate.Text) = False Then
MsgBox "Invalid Date", vbCritical, "Input Data"
Exit Sub
End If

If Trim(txtAO.Text) = "" Then GoTo xlERR

If Trim(txtBS.Text) = "" Then
GoTo xlERR
ElseIf IsDate(txtBS.Text) = False Then
MsgBox "Invalid Date", vbCritical, "Input Data"
Exit Sub
End If


bLoading = True
Sheet2.Unprotect "CA"
Sheet2.Range("$M$9").Value = txtCN.Text
Sheet2.Range("$Z$3").Value = txtdate.Text
Sheet2.Range("$Z$4").Value = txtAO.Text
Sheet2.Range("$M$16").Value = txtBS.Text
bLoading = False

Sheet2.Protect "CA"


With ActiveWorkbook
For i = 1 To Sheets.Count
If (.Sheets(i).Name <> "MAIN") Then
.Sheets(i).Visible = True

End If

Next
If .Sheets("MAIN").Visible = True Then .Sheets("MAIN").Visible = False
If .Sheets("Data Validation").Visible = True Then .Sheets("Data Validation").Visible = False

Me.Hide
GoTo ProceedSave
.Sheets("CA").Activate
.Protect Password:="appleone"
End With
Exit Sub

 

[breynolds0431]

Hi. If you are comparing dates in the textboxes, then I don't think you'd want the .Text result of your text boxes. You'd just want to leave them as their input values. You could also convert using the CDATE(), but I don't think that's necessary.

Private Sub CommandButton4_Click()
If Me.txtBS <= Me.txtdate Then
    MsgBox "The date entered into the before date is BEFORE than the application."
Else
    MsgBox "The date entered into the before date is AFTER than the application."
End If
End Sub

 

[alyceinwonderland]

Hi breynolds0431, good day. I tried inserting it in my VBA script but was not able to proceed to the next page after clicking the command button. ​