Filtrar, Buscar i mostrar un registre d'un formulari mitjantçant la seva selecció en un quadre combinat

Podem construir un quadre combinat per introduir dades en un formulari, o bé per buscar registres del formulari. Els següents exemples mostren diferents mètodes per cercar i mostrar un registre que hem seleccionat en un quadre combinat.

En el formulari anterior hem creat els quadres combiants nº16 i 18 que fan exactament el mateix, buscar i mostrar el registre seleccionat en el quadre combinat, utilitzant diferents mètodes.

CODI SITUAT EN L'EVENT "Después de actualizar" ( AfterUpdate ) DEL QUADRE COMBINAT Nº16

Private Sub cmdFiltrarClient_AfterUpdate()
Dim strClientSeleccionat As String
strClientSeleccionat = "SELECT * FROM tblClients WHERE CODCLI = " _
& Me!cmdFiltrarClient.Value
Me.RecordSource = strClientSeleccionat
End Sub

CODI SITUAT EN L'EVENT "Después de actualizar" ( AfterUpdate ) DEL QUADRE COMBINAT Nº18

Private Sub cboBuscarRegistre_AfterUpdate()
CODCLI.SetFocus
DoCmd.FindRecord cboBuscarRegistre.Value
End Sub