Newsgroup: it.comp.appl.access
Titolo: Problema RowSource SQL in casella combinata

Salve a tutti.
Ancora un problema da condividere!
In una maschera ho tre caselle combinate. La maschera non è associata ad
alcuna tabella ma la RowSuorce dei singoli control hanno un'istruzone SQL.
Il primo prende i dati da una tabella che son degli eventi di diverso tipo,
il secondo da una query e praticamente seleziona per il campo DATA quelle
date corrispondenti all'evento scelto nella prima cmb.
Il terzo dovrebbe prendere lo stesso delle date ma che siano superiori o
uguali alla data scelta .
Magicamente l'SQL della seconda cmb relativa alla data non funziona: il
motivo è che inverte l'ordine della data (anche se forzato dalla Format( )).
Allego il codice (non definitivo) per eventuali chiarimenti:
Ordine Tab: cmbDescrizione, cmbDataIn, cmbDataFine
Private Sub cmbDataIn_AfterUpdate()
Dim strData As Date
strData = Format(cmbDataIn.Value, "dd mm yyyy")
Dim strDescr As String
strDescr = cmbDescrizione.Value
With cmbDataFine
    .RowSourceType = "Tabella/Query"
    .RowSource = "SELECT ARCHIVIO.DATA, qINTERVENTO_ES_g2.DESCRIZIONE " & _
                "FROM qINTERVENTO_ES_g2 INNER JOIN ARCHIVIO ON " & _
                "qINTERVENTO_ES_g2.DESCRIZIONE = ARCHIVIO.INTERVENTO " & _
                "WHERE (((qINTERVENTO_ES_g2.DESCRIZIONE) Like """ & strDescr
& """) And " & _
                "((ARCHIVIO.DATA)>= #" & strData & "#)) ORDER BY
ARCHIVIO.DATA DESC;"
End With
End Sub
Private Sub cmbDescrizione_AfterUpdate()
Dim strDescr As String
strDescr = cmbDescrizione.Value
With cmbDataIn
    .RowSourceType = "Tabella/Query"
    .RowSource = "SELECT ARCHIVIO.DATA, qINTERVENTO_ES_g2.DESCRIZIONE FROM "
& _
    "qINTERVENTO_ES_g2 INNER JOIN ARCHIVIO ON qINTERVENTO_ES_g2.DESCRIZIONE
= " & _
    "ARCHIVIO.INTERVENTO WHERE " & _
    "(((qINTERVENTO_ES_g2.DESCRIZIONE) Like """ & strDescr & """))" & _
    "ORDER BY ARCHIVIO.DATA desc;"
End With
    If cmbDataIn.ListCount = 0 Then
        MsgBox "Nessun intervento con descrizione """ & strDescr & """ è
stato effettuato"
               cmbDescrizione.SetFocus
       Exit Sub
    End If
cmbDataIn.SetFocus
cmbDataIn.Dropdown
End Sub
Grazie per l'attenzione.
Gippe.

"Gippe" <gippe6...@TOGLIMItiscali.it> ha scritto nel messaggio
news:bm6bj7$2g6$1...@lacerta.tiscalinet.it...

Se, come penso, il campo ARCHIVIO.DATA è di tipo Data/ora, prova a
sostituire la riga di codice VBA:
strData = Format(cmbDataIn.Value, "dd mm yyyy")
con le seguente riga di codice VBA:
strData = Format(cmbDataIn.Value, "mm/dd/yyyy")
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


Gippe


Falso allarme! Non funge: quando il giorno può essere scambiato per mese
(<=12) allora vengono visualizzate in ordine le date. Altrimenti colonna
vuota!
Help, help, help!
Ciao.

"Gippe" <gippe6...@TOGLIMItiscali.it> ha scritto nel messaggio

non e' che hai messo solo le sbarrette e non hai invertito mm con dd?
Sib

"Sib" <si...@SPAMiol.it> ha scritto nel messaggio
news:DXzhb.195203$hE5.6...@news1.tin.it...

Uelà che mi prendi per un pischellino? ;-)
No tutto regolare amico!
AIUTO!
Ciao
Gippe.

 Gippe


"Gippe" <gippe6...@TOGLIMItiscali.it> ha scritto nel messaggio
news:bm6joc$fgr$1...@lacerta.tiscalinet.it...

Scusa se mi intrometto tra te e Sib: ma non avevi detto che con la mia
soluzione avevi risolto?
O ho capito male?



Ciao e grazie.
Gippe