Cmpi ricerca in access

giovedì 25 settembre 2008 - 16.22

marko80 Profilo | Junior Member

Ciao a tutti,
mi scuso per la richiesta, ma sono alle prime armi...
ho creato una query (q_base) dove estrapolo già i dati che mi servono da varie tabelle del mio database.
dovrei creare una maschera dove ho vari campi di ricerca/filtri. (campi testo)

Es: sulla maschera creare una casella testo (txt_lav) dove mi imputano il tipo di lavorazione: STAMPA,TAGLIO,ecc (dati presenti nella tabella movlav campo ml_codlav del mio database)
schiacciando un pulsante mi deve aprire la mia query (q_base) con tutti i dati ma con lavorazione uguale a quello che imputo nella casella testo.

Ho fatto cosi ma nn mi funziona:

Option Compare Database
Option Explicit
Dim Rs As ADODB.Recordset
------------------------------------------------
Private Sub cmd_esegui_Click()

Dim stDocName As String
Dim strsql As String

Set Rs = New ADODB.Recordset
strsql = "SELECT * FROM q_base WHERE ml_codlav =" & txt_lav
Rs.Open strsql, CurrentProject.Connection
stDocName = "q_base"
DoCmd.OpenQuery stDocName, acNormal, acEdit

End Sub

marko80 Profilo | Junior Member

Ciao! nessuno che mi illumina?

sogno_il_canada Profilo | Newbie

>Ciao a tutti,
>mi scuso per la richiesta, ma sono alle prime armi...
>ho creato una query (q_base) dove estrapolo già i dati che mi
>servono da varie tabelle del mio database.
>dovrei creare una maschera dove ho vari campi di ricerca/filtri.
>(campi testo)
>
>Es: sulla maschera creare una casella testo (txt_lav) dove mi
>imputano il tipo di lavorazione: STAMPA,TAGLIO,ecc (dati presenti
>nella tabella movlav campo ml_codlav del mio database)
>schiacciando un pulsante mi deve aprire la mia query (q_base)
>con tutti i dati ma con lavorazione uguale a quello che imputo
>nella casella testo.
>
>Ho fatto cosi ma nn mi funziona:
>
>Option Compare Database
>Option Explicit
>Dim Rs As ADODB.Recordset
>------------------------------------------------
>Private Sub cmd_esegui_Click()
>
> Dim stDocName As String
> Dim strsql As String
>
> Set Rs = New ADODB.Recordset
>strsql = "SELECT * FROM q_base WHERE ml_codlav =" & txt_lav
> Rs.Open strsql, CurrentProject.Connection
> stDocName = "q_base"
> DoCmd.OpenQuery stDocName, acNormal, acEdit
>
>End Sub
>
>

Io solitamente faccio così:
Nella query in corrispondenza del campo dove devo filtrare i dati, aggiungo nei criteri il riferimento alla casella di testo presente nella maschera.

Es. se la maschera si chiama RICERCA e la casella di testo CERCA, nella query in corrispondenza del campo inserisco il riferimento al controllo presente nella maschera e cioè: =forms![RICERCA]![CERCA].

Ciao

marko80 Profilo | Junior Member

Ti ringrazio per la risposta, ma cosi facendo il filtro me lo imposta sulla query.
Io vorrei che imputando a mano nelle caselle di testo o scegliendo da un elenco mi impostini i filtri o alcuni filtri e premendo il pulsante mi aprisse la mia query filtrata.
Qualche idea?
Grazie
Partecipa anche tu! Registrati!
Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !
Copyright © dotNetHell.it 2002-2023
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5