Ciao
Quindi ricapitoliamo
l'automatismo descritto prima non so come modificarlo
Io vorrei effettuare qualcosa del genere
Sub DoSql1()
Dim mysql$
transito1 = "12/04/2002"
mysql$ = "SELECT Cognome,Nome,Citta,Provincia " _
& "FROM Portafoglio where DataEsito >= '" & periodo1 & "' and DataEsito <= '" & periodo2 & "'" _
& " ORDER BY Citta"
MSRDC1.SQL = mysql$
MSRDC1.Refresh
End Sub
Il periodo lo prendo in questo modo
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
MyDate = MonthView1.Value
Mystr = Format(MyDate, "ddd,dd mm yyyy") ' Restituisce "mercoledì, gen 27 1993".
Label1.Caption = Mystr
periodo1 = Format(MyDate, "dd/mm/yyyy")
MonthView1.Visible = False
End Sub
Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
MyDate = MonthView2.Value
Mystr2 = Format(MyDate, "ddd,dd mm yyyy") ' Restituisce "mercoledì, gen 27 1993".
Label4.Caption = Mystr2
Periodo2 = Format(MyDate, "dd/mm/yyyy")
MonthView2.Visible = False
End Sub
I tentativi da me fatti fino ad ora sono diversi e nessuno funziona
come dovrebbe![]()
In alcuni casi Periodo1m e periodo2 sono Vuoti,
in altri casi le la ricerca mi fa visualizzare degli intervalli del cactus
So che il problema sono io, in altri casi preferisco girare la data
per poter gestirla meglio ( date le mie lacune)
ma in questo caso proprio non riesco
Mabi non è che ci sarebbe un altro modo ?
O chiunque possa aiutarmi ( Le ho sempre odiate le date)

)
Rispondi quotando