MsgBox when no records found?

[glxman]

Hi I added the following into the Click event of a command before the Exit Sub

If RecordCount = 0 Then
    
    MsgBox "No records found?"
    
    DoCmd.Close
    
End If

It works but will also return the msgbox and close even when records are found. Please advise.

Many thanks

 

[ClulessChris]

If [b]YourRecordSetVariable.[/b]RecordCount = 0 Then
    
    MsgBox "No records found?"
    
    DoCmd.Close
    
End If

Never knock on Death's door: ring the bell and run away! Death really hates that!

 

[glxman]

Sorry new to this coding - do I need to declare the variable? Here is the code - I added the bold bit

Private Sub cmdUmnmatchedWBSs_Click()
On Error GoTo Err_cmdUmnmatchedWBSs_Click

    Dim stDocName As String
    Dim stLinkCriteria As String


    stDocName = "frmWBSUnmatched"
    
    stLinkCriteria = "[Workstream]=" & "'" & Me![cboWorkstream] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
    [b]If RecordCount = 0 Then
    
         MsgBox "No records found?"
    
         DoCmd.Close
    
    End If[/b]

Exit_cmdUmnmatchedWBSs_Click:
    Exit Sub

Err_cmdUmnmatchedWBSs_Click:
    MsgBox Err.Description
    Resume Exit_cmdUmnmatchedWBSs_Click
    
End Sub

Thanks

 

[PHV]

Replace this:
If RecordCount = 0 Then
with this:
doEvents
If Forms(stDocName).Recordset.RecordCount = 0 Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[glxman]

Perfect - thank you very much!