convertir BD de access 97 a access 2000

[Taribo007]

MIra a ver si con estos cambios consigues algo:

Private Sub Informe_Click()
On Error GoTo Err_Comando51_Click
'MUESTRA LOS DATOS QUE COINCIDEN CON LA CONSULTA EFECTUADA

'Variables

Dim DiaMin As Integer, MesMin As Integer, AñoMin As Integer
Dim DiaMax As Integer, MesMax As Integer, AñoMax As Integer
Dim SQL As String

'Comprobaciones

'FechaExpedicionLicenciaMinima - FechaExpedicionLicenciaMaxima
If Nz(Me.FechaExpedicionLicenciaMinima, "") <> "" And Nz(Me.FechaExpedicionLicenciaMaxima, "") <> "" Then
'comienzo la sql
SQL = "SELECT * FROM tbTitulares WHERE ( "

DiaMin = Day(Me.FechaExpedicionLicenciaMinima)
MesMin = Month(Me.FechaExpedicionLicenciaMinima)
AñoMin = Year(Me.FechaExpedicionLicenciaMinima)

DiaMax = Day(Me.FechaExpedicionLicenciaMaxima)
MesMax = Month(Me.FechaExpedicionLicenciaMaxima)
AñoMax = Year(Me.FechaExpedicionLicenciaMaxima)
SQL = SQL & " (tbTitulares.FechaExpedicion BETWEEN #" & DateSerial(AñoMin, MesMin, DiaMin) & "# AND #" & DateSerial(AñoMax, MesMax, DiaMax) & "#) "
End If

'FechaCaducidadLicenciaMinima - FechaCaducidadLicenciaMaxima
If Nz(Me.FechaCaducidadLicenciaMinima, "") <> "" And Nz(Me.FechaCaducidadLicenciaMaxima, "") <> "" Then

DiaMin = Day(Me.FechaCaducidadLicenciaMinima)
MesMin = Month(Me.FechaCaducidadLicenciaMinima)
AñoMin = Year(Me.FechaCaducidadLicenciaMinima)

DiaMax = Day(Me.FechaCaducidadLicenciaMaxima)
MesMax = Month(Me.FechaCaducidadLicenciaMaxima)
AñoMax = Year(Me.FechaCaducidadLicenciaMaxima)
'compruebo si se ha comenzado la sql, si no la comienzo
If SQL = "" Then
SQL = "SELECT * FROM tbTitulares WHERE ( "
Else
SQL = SQL + " AND "
End If

SQL = SQL & " (tbTitulares.FechaCaducidad BETWEEN #" & DateSerial(AñoMin, MesMin, DiaMin) & "# AND #" & DateSerial(AñoMax, MesMax, DiaMax) & "#) "
End If

If Nz(SQL, "") = "" Then
SQL = "Select * from tbTitulares"
Else
SQL = SQL & " );"
End If

'abro el informe
DoCmd.OpenReport "rptConsultasLicencias", acViewDesign
Reports("rptConsultasLicencias").RecordSource = SQL
DoCmd.Close acReport, "rptConsultasLicencias", acSaveYes
DoCmd.OpenReport "rptConsultasLicencias", acViewPreview

Exit_Comando51_Click:
Exit Sub

Err_Comando51_Click:
MsgBox Err.Description
Resume Exit_Comando51_Click

End Sub

un saludo