Buenas tardes Eduardo.
Ya aplique algunas soouciones y ya funciona sin problema. Lo que me esta ocurriendo ahora es que me da un error al enviar a imprimir el certificado. Le coloque un boton de Vista previa y de Imprimir al formulario y cuando le doy click al vista previa no hay problema pero al darle click al de imrpimir me arroja el siguiente error:
Compile error:
Sub or Funtion not defined.
Te coloco el codigo para que veas en donde me da el error. (Lo que esta en negrilla = comnado de Impresion)
Option Compare Database
Option Explicit
Private Sub cmdBorrarFiltro_Click()
Me.Filter = ""
With Me
.cboNombresBautizado.Value = Null
.cboApellidosBautizado.Value = Null
.FilterOn = False
End With
Me.RecordSource = "Consulta de Bautizados"
DoCmd.ShowAllRecords
End Sub
Private Sub cmdFiltro_Click()
Dim vNombresBautizado As Integer
Dim vApellidosBautizado As Integer
Dim vLargo As Integer
Dim miFiltro As String
'Cogemos los valores que hayamos seleccionado como filtro
vNombresBautizado = Nz(Me.cboNombresBautizado.Value, -1)
vApellidosBautizado = Nz(Me.cboApellidosBautizado.Value, -1)
'Inicilizamos el filtro
miFiltro = ""
'Creamos la primera parte del filtro
If vNombresBautizado <> -1 Then
miFiltro = " AND [IDBautizado]=" & vNombresBautizado
End If
'Creamos la segunda parte del filtro
If vApellidosBautizado <> -1 Then
miFiltro = miFiltro & " AND [IDBautizado]=" & vApellidosBautizado
End If
'Ahora cogemos la longitud del filtro
vLargo = Len(miFiltro)
'Recomponemos el filtro eliminando el primer 'AND '
If vLargo > 0 Then
miFiltro = Right(miFiltro, vLargo - 5)
Debug.Print miFiltro
End If
'Aplicamos el filtro al formulario
Me.[Subformulario Consulta Bautizados].Form.Filter = miFiltro
Me.[Subformulario Consulta Bautizados].Form.FilterOn = True
End Sub
Private Sub cmdImprimir_Click()
PrintReports acViewNormal
End Sub
Private Sub cmdPreview_Click()
Dim vNombresBautizado As Integer
Dim vApellidosBautizado As Integer
Dim vLargo As Integer
Dim miFiltro As String
'Cogemos los valores que hayamos seleccionado como filtro
vNombresBautizado = Nz(Me.cboNombresBautizado.Value, -1)
vApellidosBautizado = Nz(Me.cboApellidosBautizado.Value, -1)
'Inicilizamos el filtro
miFiltro = ""
'Creamos la primera parte del filtro
If vNombresBautizado <> -1 Then
miFiltro = " AND [IDBautizado]=" & vNombresBautizado
End If
'Creamos la segunda parte del filtro
If vApellidosBautizado <> -1 Then
miFiltro = miFiltro & " AND [IDBautizado]=" & vApellidosBautizado
End If
'Ahora cogemos la longitud del filtro
vLargo = Len(miFiltro)
'Recomponemos el filtro eliminando el primer 'AND '
If vLargo > 0 Then
miFiltro = Right(miFiltro, vLargo - 5)
Debug.Print miFiltro
End If
'Aplicamos el filtro al Reporte
DoCmd.OpenReport "Certificado Bautismo", acViewPreview, , miFiltro
End Sub
Si me puedes ayudar te lo agradesco.
