Private Sub cmdAbrirConFiltro1_Click()
Dim miFiltro As String
miFiltro = aquí pones la expresión correespondiente
DoCmd.OpenReport "Nombre del informe", acViewPreview, , miFiltro
End Sub
Private Sub cmdAbrirConFiltro1_Click()
Dim miFiltro As String
miFiltro = "num_sorteo = " & Me.txtNumSorteo & " And num_oficina = " & Me.txtNumOficina
DoCmd.OpenReport "Nombre del informe", acViewPreview, , miFiltro
End Sub
miFiltro = "num_sorteo = '" & Me.txtNumSorteo & "' And num_oficina = '" & Me.txtNumOficina & "'"