[VB6] MsgBox dopo una ricerca senza risultati

[printlist]

Salve Ragazzi qualcuno sa dirmi cortesemente come faccio a far apparire un MsgBox dopo una ricerca senza risultati su una stringa SQL visualizzata nel codice sotto indicato?
Grazie....

Private Sub Command1_Click()

Dim itmX As ListItem
Dim DB As Database
Dim sQL As String


ListView1.ListItems.Clear
sQL = "select * from Rubrica where [DataChiusura] BETWEEN #" & Format$(DTPicker1.Value, "mm/dd/yyyy") & "#And #" & Format$(DTPicker2.Value, "mm/dd/yyyy") & "#"

Set DB = OpenDatabase(App.Path & "\Agenda.mdb")
Set RS = DB.OpenRecordset(sQL)
Do Until RS.EOF
Set itmX = ListView1.ListItems.Add()

With RS
itmX.Text = .Fields("ID")
itmX.SubItems(1) = .Fields("O_F")
itmX.SubItems(2) = .Fields("Piano")
itmX.SubItems(3) = .Fields("Call_Center")
itmX.SubItems(4) = .Fields("Operatore_SIT")
itmX.SubItems(5) = .Fields("DataApertura")
itmX.SubItems(6) = .Fields("DataChiusura")

RS.MoveNext
End With
Loop

End Sub

[oregon]

Per esempio, valorizza una variabile booleana fuori dal ciclo a True e impostala a False dentro al ciclo.

All'uscita dal ciclo controlla il valore di questa variabile ...

[multijet]

potresti fare :
Set RS = DB.OpenRecordset(sQL)
if rs.recordcount=0 then
msgbox "aaaaa"
end if

[yyzyyz]

Originariamente inviato da multijet
potresti fare :
Set RS = DB.OpenRecordset(sQL)
if rs.recordcount=0 then
msgbox "aaaaa"
end if

Sicuro ke funzioni cosi? :master: