Ciao a tutti,
ho un problema con un breve codice che mi dovrebbe consentire di filtrare dei dati da un database in base ad una DATA (gg/mm/yy) e stampare un report con il contenuto senza il solito problema del refresh dei dati nel datareport.
Ho creato un DataEnvironment1 colegato al DB ed un command! con CommandText: Select * from Dbclient01 Where Data > ?
Nel Form1 ho messo un Button (Command1) con un TextBox.
Il codice del button (tratto da un articolo di Microsoft)è il seguente:
Private Sub Command1_Click()
Load DataEnvironment1
With DataEnvironment1
If .rsCommand1.State <> 0 Then .rsCommand1.Close
.Command1 CDate(Text1.Text)
End With
DataReport1.Refresh
If DataReport1.Visible = False Then DataReport1.Show
End Sub
Il problema è che quando digito la data nella casella TextBox e faccio partire il codice del button mi esce:
Errore Run-Time 8551
Impossibile inserire il controllo TextBox1 in questa sezione
e si blocca su DataReport1.Refresh
Qualche anima Pia mi può dire il perchè?
Grazie in anticipo.