Between Variables (1 Viewer)

[Novice1]

First two If Then's work fine (no action) but I having trouble with the third If Then. I want the wave file to play if there are 1 to 5 records. I believe the problem the AND but I don't know how to write a between statement using the variable. Any help would be appreciated.


Dim VarCount As Variant
VarCount = Forms!frmCustomersInQueue2.Recordset.RecordCount

DoCmd.Requery

If VarCount = 0 Then
Else
If VarCount > 5 Then
Else
If VarCount > 0 And VarCount < 6 Then

Call PlayWaveFile("C:\Users\Public\Documents\SignInPlus\SignInTool\doorbell.WAV")

End If
End If
End If

 

[GPGeorge]

Try this instead:

Public Sub PlaytheWav( )
      Dim VarCount As Variant
  
      VarCount = Forms!frmCustomersInQueue2.Recordset.RecordCount

      DoCmd.Requery
      Select Case VarCount
          Case 1, 2, 3, 4, 5
               PlayWaveFile("C:\Users\Public\Documents\SignInPlus\SignInTool\doorbell.WAV")
      End Select

End Sub

 

[arnelgp]

you can use 1 If statement:

If VarCount > 0 And VarCount < 6 Then

Call PlayWaveFile("C:\Users\Public\Documents\SignInPlus\SignInTool\doorbell.WAV")

End If

 

[The_Doc_Man]

The answer to your implied question is:

IF VarCount Between 1 and 5 THEN
    Call PlayWave...
End If

You were using >0 and <6 (an Exclusive interval), but Between ...And uses the Inclusive interval, so... between 1 and 5.

 

[KitaYama]

IF VarCount Between 1 and 5 THEN
    Call PlayWave...
End If

@The_Doc_Man
I didn't know you can use Between like this.
Just tested your code. It returns syntax error.

 

[The_Doc_Man]

Whoops, my bad - it is not a VBA operator. However, it works in SQL.

That's what I get for answering later at night when I'm getting tired.