Togliere il filtro da una maschera ed andare ad un record selezionato

Question

Ciao a tutti! Vi spiego il mio problema.

Ho una maschera singola "Mezzi", la quale in sola lettura mi permette di scorrere tutti i mezzi a disposizione. Per passare da un mezzo all'altro è presente una casella combinata "cboRicerca". All'evento "Dopo Aggiornamento" di questa casella combinata è presente il seguente codice

Private Sub cboRicerca_AfterUpdate()
On Error GoTo cboRicerca_AfterUpdate_Err

DoCmd.SearchForRecord , "", acFirst, "[Mezzo] = " & "'" & Screen.ActiveControl & "'"  

cboRicerca_AfterUpdate_Exit:
Exit Sub

cboRicerca_AfterUpdate_Err:
MsgBox Error$
Resume cboRicerca_AfterUpdate_Exit

End Sub

Supponiamo che la maschera si apra filtrata, cioè clicco su un qualcosa e la maschera si apra filtrata ad un particolare mezzo. Dunque è presente un filtro e la casella combinata non funziona se non disattivo quest'ultimo. Allora utilizzo il solito

If Me.FilterOn=True Then

Me.FilterOn=False

End If

Ho inserito questo codice nell'evento click e nell'evento su pulsante mouse giù ma nessuna di queste soluzioni mi soddisfa.

Ecco cosa vorrei:

siamo alla maschera filtrata, allora clicco sulla casella combinata ed appare l'elenco dei mezzi, quando clicco sul mezzo scelto il filtro si disattiva e la maschera va quel mezzo che ho cliccato.

Nelle soluzioni che vi ho elencato sopra il viene si disattivato, ma in un caso devo cliccare sulla freccia giù due volte in un altro caso solo una volta, ma in entrambi i casi la maschera ritorna sempre al primo record e dunque devo fare due volte la stessa scelta.

Anche se la maschera è in sola lettura la casella combinata funziona inserendo sull'evento Su attivato il solito

Private Sub cboRicerca_GotFocus()

Me.AllowEdits=True

End Sub

Come posso fare per risolvere questo problema? Grazie a tutti!

Answer 1

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao

Non ti riceviamo notizie da 72 ore, quindi considereremo risolto il tuo problema. Se hai bisogno di ulteriore aiuto, crea una nuova discussione per discutere le tue preoccupazioni attraverso questo link:Crea una nuova domanda o inizia una discussione (microsoft.com), poiché non monitoreremo questo thread in futuro.

Grazie per la comprensione.

Sinceramente

Khou Sun

Moderatore della community Microsoft

Answer 2

La risposta è stata tradotta automaticamente. Di conseguenza, potrebbero esserci errori grammaticali o parole insolite.

Ciao Natale Ferraro1,

Saluti!

Grazie per aver pubblicato in Microsoft Community.

Sulla base della descrizione che hai pubblicato, sembra che tu abbia un problema con MS Office in cui vuoi sapere qual è il miglior codice che puoi usare. Per rimanere sul record selezionato mentre il filtro è disattivato.

Lavoriamo insieme per trovare la migliore soluzione a questo problema.

Per capire meglio il problema, vorrei porre alcune domande:

• Qual è il numero di build corrente della tua app MS Office Access?

Nel frattempo, vorremmo che tu controllassi e rivedessi i dettagli forniti di seguito:

Per rimuovere il filtro da un modulo in MS Access e passare a un record selezionato, è possibile provare i seguenti passaggi:

1. Fare clic sul pulsante "Attiva/disattiva filtro" nel gruppo Ordina e filtro nella scheda Home per rimuovere temporaneamente il filtro.
2. Vai al record che desideri selezionare.
3. Per rimuovere definitivamente il filtro dalla vista, cancellarlo.

Se si desidera rimuovere il filtro ma rimanere sul record corrente, è possibile utilizzare il codice VBA. Ecco un esempio di come eseguire questa operazione:

'''VBA

Sub privato CommandButton1_Click()

    Dim strCriteria As String

    strCriteria = Me.Filter

    Me.Filter = ""

    Me.FilterOn = False

    DoCmd.ApplyFilter "", strCriteria

Fine sub

Fammi sapere se questo aiuta, 

Sinceramente

Khou Sun

Moderatore della community Microsoft