Expired date criteria

[chinaboy]

When I try to delete a class that has expired, I still get MsgBox "Do you really want to delete......" That message should not even appear in that case, but instead I should get "Class cannot be deleted...." Actually I get message regardless if the class expired or not. Then I get the msgbox " Class cannot be deleted...." Seems the the code is ignoring the if statement about the date all together. I want to check if the class has expired first. If expired msgbox stating that and then exit sub. If class is not expired the input box "are you sure........" should continue.

Can someone help me out?

Private Sub CmdDeleteEntry_Click()Dim strDelete As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim rs2 As ADODB.Recordset


    ' connect to the Access database
    Set cn = New ADODB.Connection
    myConn = TARGET_DB
    With cn
     .Provider = "Microsoft.ACE.OLEDB.12.0"
     .Open myConn
   End With


'     open a recordset
    Set rs2 = New ADODB.Recordset
    
   src = "SELECT * FROM tblClasses WHERE DateTime = '" & Me.lstClasses.List(Column, 3) & "'" 


        rs2.Open src, cn, adOpeDynamic, adLockOptimistic


Dim selected As String
Dim answer As Long
Dim RUSure As String


RUSure = InputBox("Do you really want to delete the selected schedule? Enter Y to delete or N to cancel.")


   selected = lstClasses.ListIndex
    If Not selected = -1 Then
     If rs2![expiredDate] < Date Then
      MsgBox "That class has expired and cannot be deleted."

      Exit Sub
 End If


             If RUSure = "y" Or RUSure = "Y" Then
             answer = lstClasses.List(selected, 0)
             strDelete = "Delete * FROM tblRegistered Where ID =" & answer
             
             rs2.Fields("SlotsTaken") = rs2.Fields("SlotsTaken") - 1 'Reduces slots taken by 1 each time a record is deleted.
             rs2.Update


             cn.Execute strDelete
             cn.Close
             MsgBox "Class Deleted"
         
        Else
             MsgBox "Please select a schedule to delete."
             cn.Close
        End If
ElseIf RUSure = "N" Or RUSure = "n" Then
    MsgBox "Deleting cancelled."
    cn.Close
Else
    MsgBox "You have entered a wrong value."
'    rs.Close
    cn.Close
End If
     End Sub

[OBP]

If you want to evaluate the date first why not place the test code before the inputbox line of code?
You also do not have any Error Trapping in your code, so if you do get an error you may not aware of it.

[chinaboy]

I placed the code before and still get the same results. I am new to this and trying my best to work through. Thanks for you response.

[OBP]

Then the first thing to check is the value of the string selected and the value of Rs2![ExpiredDate] with a message box.
If your code needs them to be a certain value to work then you have to check that they meet your criteria.