Salve ragazzi qualcuno sa dirmi come faccio a far comparire un MSGBOX del Tipo(Nessuna Chiamata trovata nell'indice di date inserite!", vbCritical, "ATTENZIONE") nel codice sotto inserito?
Vorrei che alla pressione del pulsante se non viene trovato nessun record mi appaia il messaggio.Grazie


Private Sub XPButton1_Click()

Dim Strsql As String

= "Select * from Rubrica Where O_F = '" & XPText1.Text & "' And [DataChiusura] between #" & Format$(DTPicker1.Value, "dd/mm/yyyy") & "# And #" & Format$(DTPicker2.Value, "dd/mm/yyyy") & "#"
End Sub
------------------------------------------------------------------------------
Private Sub Stampa2(sQL As String)

On Error Resume Next
'<< Stampa i dati inviati dalla stringa SQL

'<< Percorso e connessione del Database
ConnessioneADODC1 = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Database di Microsoft Access;Initial Catalog=C:\SITc\Agenda.mdb"
'<< Database
Dim DB As ADODB.Connection
'<< Recordset


Dim RecDati As ADODB.Recordset

Set DB = New ADODB.Connection
Set RecDati = New ADODB.Recordset
DB.ConnectionString = ConnessioneADODC1
DB.Open

Set RecDati = DB.Execute(sQL)
Set DataReport3.DataSource = RecDati

DataReport3.WindowState = 0
DataReport3.Show

End Sub
:master: :master: :master: