
Originariamente inviata da
silvio75
FANTASTICO HA FUNZIONATO .........
ma allora consiglio di seguire quella pista per le variazioni

Originariamente inviata da
silvio75
....... IL primo era un clear della data .........
poi mi sembra che vuoi anche non vedere nessun record,
Task = "select" from tbAlltransaction where id is Null"
...... quel doppioApice dopo il select è sbagliatissimo
Imposti una strcriteria impossibile "1 = 0"
codice:
Private Sub Comando15_Click()
Dim strcriteria As String
Me.ordinedatada.Value = vbNullString
Me.ordinedataa.Value = vbNullString
strcriteria = "1 = 0"
Me!SMQuery1.Form.Filter = strcriteria
Me!SMQuery1.Form.FilterOn = True
End Sub

Originariamente inviata da
silvio75
....... Poi ho inserito un pulsante per rivedere tutti i record .........
Task = "select from tbAlltransaction ORDER BY [SCADENZA]"
Dopo il select devi mettere il nome dei campi !!!!!!! ...... ad ogni modo il task non ti serve
Imposti una strcriteria sempre vera "1 = 1"
codice:
Private Sub Comando16_Click()
Dim strcriteria As String
Me.ordinedatada.Value = vbNullString
Me.ordinedataa.Value = vbNullString
strcriteria = "1 = 1"
Me!SMQuery1.Form.Filter = strcriteria
Me!SMQuery1.Form.FilterOn = True
Me!SMQuery1.Form.OrderBy = "SCADENZA"
Me!SMQuery1.Form.OrderByOn = True
End Sub