B
Brandon Johnson
When i try to run this code (snipped), i get an error... runtime error
3021no current record. However, I see no problem with this code as i
have the same record in both recordsets that im trying to delete. If
anyone has any other additional qs please let me know. thankyou.
cred = "[login_name] = '" & lstNames.ItemData(i) & "'"
user.FindFirst cred
status.FindFirst cred
If MsgBox("Are you sure you want to delete user: " &
user!login_name, vbYesNo,
"Question") = vbYes Then
status.Delete 'FIX - WON'T
DELETE!!!!!!!!!!!!!
user.Delete
lstNames.RowSource = "SELECT login_name FROM
tblLoginPWD ORDER BY login_name asc;"
txtNameCount = lstNames.ListCount
Else
MsgBox "User: " & user!login_name & " was NOT
deleted.", vbInformation, "Information"
Exit Sub
End If
3021no current record. However, I see no problem with this code as i
have the same record in both recordsets that im trying to delete. If
anyone has any other additional qs please let me know. thankyou.
cred = "[login_name] = '" & lstNames.ItemData(i) & "'"
user.FindFirst cred
status.FindFirst cred
If MsgBox("Are you sure you want to delete user: " &
user!login_name, vbYesNo,
"Question") = vbYes Then
status.Delete 'FIX - WON'T
DELETE!!!!!!!!!!!!!
user.Delete
lstNames.RowSource = "SELECT login_name FROM
tblLoginPWD ORDER BY login_name asc;"
txtNameCount = lstNames.ListCount
Else
MsgBox "User: " & user!login_name & " was NOT
deleted.", vbInformation, "Information"
Exit Sub
End If