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.