VBA - apllicare filtro

[gaullo]

Ciao
E' assolutamente la prima volte che utilizzo le maschere di access per visualizzare i dati delle informazioni.
Il db è di una semplicità mostruosa:
2 tabelle di cui una chiamata zona con campi id e zona (che è un elenco di città)
e l'altra con diversi campi, tra cui uno con id della zona.
Ora, nella form che mi sono creato, oltre alle "edit" con i campi visualizzati, ho aggiunto una combo, collegata alla tabella zona.
Al clic di quella combo vorrei che mi selezioni tutti i record = al campo selezionato nella combo.

ho trovato una funzione che penso essere utile:

Private Sub Combo14_Click()
Me.Filter = "zona = " & Combo14.Text
Me.FilterOn = True
End Sub

Ma non mi riconosce il campo zona (il campo zona l'ho creato con lookup wizard,in visualizzazione table designe mi ha creato lo ha sostituito con il campo dell'id della tabella delle zone)

Come posso risolvere il problema???

[gaullo]

vedo che nessuno sa darmi risposta....

Semplificando la domanda.

Come faccio ad aprire una tabella da codice??? (ricordo che sono in access)

avevo fatto così

Option Compare Database
Dim zona As New ADODB.Recordset

Private Sub Combo14_Click()

Set conn = New ADODB.Connection
conn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & App.Path & "scorte.mdb"
conn.Open

zona.Open "zona", conn, 1, 1


Do While Not zona.EOF
   If Combo14.Text = zona(1) Then
      Exit Do
   End If
Loop

Me.Filter = "id = " & zona(0)
Me.FilterOn = True

End Sub

Purtroppo però non mi riconosce conn ,
Essendo già in access, come faccio a scorrere una tabella????

[sanny82]

Prova così:

Private Sub Form_Load()
dbArchivio.DatabaseName = App.Path & "\nome_db.mdb"
End Sub




Dim StringaSQL As String
Dim CampoRicerca As String
Dim CampoOrdinamento As String


If CampoRicerca <> "" Then
StringaSQL = "SELECT * FROM products"
StringaSQL = StringaSQL + " WHERE acc_yn = False And Gambro = True And " + CampoRicerca + "order by basket,description"
Else
StringaSQL = "SELECT * FROM products WHERE acc_yn = False And Gambro = true order by basket,description"
End If

[cik]

1. se usi le maschere di access, in ogni maschera puoi specificare una tabella / query come origine dati (proprietà->origine record). Qui dovresti avere la tabella zone

2. la connessione di default al vb la trovi come Currentproject.connection e non è necessario che ne fai una tu.

[gaullo]

grazie cik, mi sembrava assurdo infatti dovermi creare una connessione al database....
Ora funziona alla grande

Dim zona As New ADODB.Recordset


Private Sub Combo14_Click()

Set zona = Nothing
zona.Open "zona", CurrentProject.Connection, 1, 1

Do While Not zona.EOF
   If Combo14.Text = zona(1) Then
      Exit Do
   End If
   zona.MoveNext
Loop

Me.Filter = "id = " & zona(0)
Me.FilterOn = True

End Sub