Applicare filtri su maschera continua basata su query

Buongiorno Mimmo,

ma non ho capito perchè hai ritirato fuori un'altro lavoro.

quel DB oramai viaggia sereno verso nuovi orizzonti, ma sarà mia cura apportare quanto da te suggerito (la perfezione non esiste ma sono certo che con il vostro aiuto ci si può avvicinare :) )

il mio problema è in quest'altro DB che ho condiviso oggi

TestMulo1.0

dove non riesco ad aggiungere la ricerca per periodo oltre agli altri filtri già impostati :)

Ivan

1. Esegui la seguente query per aggiungere alla tabella TVesselType i codici ulteriori presenti nella TShips

INSERT INTO TVesselType ( [Vessel TypeCampo], [Vessel TypeCampo] )

SELECT TShips.VesselTypeTesto, TVesselType.[Vessel TypeCampo]

FROM TShips LEFT JOIN TVesselType ON TShips.VesselTypeTesto = TVesselType.[Vessel TypeCampo]

GROUP BY TShips.VesselTypeTesto, TVesselType.[Vessel TypeCampo]

HAVING (((TVesselType.[Vessel TypeCampo]) Is Null));

2. Nella tabella TVesselType aggiungi un campo ID chiave primaria e numerazione automatica.
3. **** Nella tabella TShips aggiungi un campo Numerico con Nome IDVesselType
4. Esegui la seguente query per aggiornare il campo IDVesselType nella tabella TShips

UPDATE TShips INNER JOIN TVesselType ON TShips.VesselTypeTesto = TVesselType.[Vessel TypeCampo] SET TShips.IdVesselType = [TVesselType].[Id];

5. Elimina il campo VesselTypeTesto nella tabella TShips
6. Nella maschera per il conrtrollo CercaTipologia imposta l'origine riga a:

SELECT TVesselType.Id, TVesselType.[Vessel TypeCampo]

FROM TVesselType

ORDER BY TVesselType.[Vessel TypeCampo];

e nella proprietà Formato il numero di colonne a 2 con larghezza colonne 0 cm; 5 cm

7. Riscrivi la query QShips per aggiungere la tabella TVesselType

SELECT TShips.IDShip, TShips.Imo, TShips.ctlno, TShips.Name, TShips.IDStatus, TStatus.Status, TFlag.Flag, TShips.IDFlag, TVesselType.[Vessel TypeCampo], TShips.A, TShips.B, TShips.C, TShips.AA, TShips.BB, TShips.CC

FROM (TStatus INNER JOIN (TFlag INNER JOIN TShips ON TFlag.IDFlag = TShips.IDFlag) ON TStatus.IDStatus = TShips.IDStatus) INNER JOIN TVesselType ON TShips.IDVesselType = TVesselType.Id

ORDER BY TShips.Name;

8. Nella maschera, nel corpo, cambia l'origine del controllo Testo44 (che sarebbe meglio rinominare) con il valore Vessel TypeCampo

Facci sapere

Ciao Mimmo

Ciao,

innanzi tutto nella query QShips aggiungi le colonne A B C AA BB CC.

nella maschera i flags B e C devi impostare la proprietà a tre stati a Sì.

Nel codici, nell'impostare i filtri devi sempre aggiungere wFiltro a ciascun filtro per concatenarne più di uno

If Len(Me.CercaTipologia & "") > 0 Then

wFiltro = **wFiltro** **&** "VesselTypeTesto = " & Chr(34) & Me.CercaTipologia & Chr(34) & " And " 

End If

If Len(Me.CercaFlag & "") > 0 Then

wFiltro = **wFiltro &** "Flag = " & Chr(34) & Me.CercaFlag & Chr(34) & " And " 

End If

Facci sapere

Mimmo

Grazie Carlo ma tramite DropBox non riesco ad aprire il file problema mio.

ho provveduto a ripulire il DB che sto realizzando per poterlo condividere...

speriamo che questo non si incasini come quello precedente :)

TestMulo1.0

Ivan