convertir BD de access 97 a access 2000

[jove_l_c]

Pues esta es una de ellas. Me imaginaba que podría ser algo de eso, pero ni idea de lo que tendría que cambiar. Muchas gracias por el interés.

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

'Variables

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

'Comprobaciones

'FechaExpedicionLicenciaMinima - FechaExpedicionLicenciaMaxima
If Not IsNull(Me.FechaExpedicionLicenciaMinima) And Not IsNull(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 #" & MesMin & "/" & DiaMin & "/" & AñoMin & "# AND #" & MesMax & "/" & DiaMax & "/" & AñoMax & "#) "
End If

'FechaCaducidadLicenciaMinima - FechaCaducidadLicenciaMaxima
If Not IsNull(Me.FechaCaducidadLicenciaMinima) And Not IsNull(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 #" & MesMin & "/" & DiaMin & "/" & AñoMin & "# AND #" & MesMax & "/" & DiaMax & "/" & AñoMax & "#) "
End If

If 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