Text converted to date then trigger a message if it has expired

[Dano61]

I have a form that has an unbound text box set to shortdate, I scan in my data through a pdf417 barcode scanner, I need to convert the 8 digits to a date and then have it entered into the unbound box where it will trigger a message saying the individual term has expire. I do not need to keep the this date once it is shown in the form, My code for reading the barcode is:

Dim varItem As Variant
    Dim i As Integer
    Dim strVal As String
 
 
 
    varItem = Split(txtReaderData, vbCrLf)
 
    For i = 0 To UBound(varItem)
        strVal = ""
        Select Case Left(varItem(i), 3)
 
        Case "DBA"
        strVal = Mid(varItem(i), 4)
        'If Len(strVal) > 0 Then Me.DLExp = strVal
            Me.DLExp = Mid(varItem(i), 4)
 
 
         If strVal < Date Then
            MsgBox "License is Expired" 
           End If
 
        End Select
 
    Next i

It will put the data into the form but it doesn't see it as a date or as an entry. I have tried to put the If statement in the unbound box before update and also in the after update. It will not show it as a date or as any date in the unbound box unless you change the date in the unbound box. When it debugs it tells me it is mismatched.

[twinnyfo]

Dano61,

Welcome to Bytes!

What you will need to do is use the value of strVal that you get in Line 14 and determine if it is a date prior to doing anything else. Then assign that date to the Text Box (you may not need to assign the value to the text box if all you are doing is determining if the license is expired, but htere my be value in displying it).

However, you do not state the format that strVal is in. This will determine how to evaluate strVal as a Date or not. You can use the function cDate(), which accepts a text value and resolves that value to a date, but if the value is not a date, it will throw an error.

Access's universal date format is "YYYY-MM-DD", so, if you are able to somehow manipulate strVal to look like that, and then use cDate(strVal), it should resolve to a date.

Without more information, I can't give any more detailed advice.

[cactusdata]

Always handle date and time as such, not text. Thus:

    Dim varItem As Variant
 
    Dim i As Integer
    Dim strVal As String 
 
    varItem = Split(txtReaderData, vbCrLf)
 
    For i = 0 To UBound(varItem)
        Select Case Left(varItem(i), 3) 
            Case "DBA"
                ' Value could be: "20190927"
                strVal = Format(Mid(varItem(i), 4), "@@@@/@@/@@")
                Me.DLExp = strVal
                If IsDate(strVal) Then
                    If DateDiff("d", CDate(strVal), Date) > 0 Then
                        MsgBox "License is Expired" 
                    End If
                End If
        End Select 
    Next i