Hola de nuevo, tengo un último problema para terminar un ejercicio de búsqueda de datos de VB6 (sp6) contra Access. Tengo otros formularios dentro del mismo proyecto parecidos al de la imagen que muestro, y funcionan correctamente, y he buscado diferencias en dichos formularios con el que me falla y parece que lo tengo todo correcto (supongo que no). No sé por qué, pero no hace nada cuando pulso el botón "Iniciar la búsqueda", que pulsándolo al tener activo el botón de radio 'desde ..... hasta', debería
llenarse el MSFlexGrid 'ARenovarCESOL' con un montón de registros. No da ningún error, simplemente no
hace nada.
En el gráfico que expongo he puesto unas flechas indicando lo que creo que falla, una es la que hace referencia al objeto Data ('Data2'), y la otra es el MSFlexGrid ('ARenovarCESOL'). Al dar al Botón "Iniciar la búsqueda", deberían salir todos los resultados recogidos en 'Data2' dentro de 'ARenovarCESOL'. También he mirado en las propiedades de 'Data2' y mira a las tablas de la BBDD correspondiente. Con los mismos objetos de debajo de éstos pasa lo mismo.
Bueno, pues disculpándome por esta parrafada dejo, tanto el gráfico de la vista de diseño del formulario, como el código del procedimiento que se ejecuta al hacer click en el botón de 'Iniciar la búsqueda'; es algo largo, pero quizás le pueda servir alguien de copy/paste para algún ejercicio, básicamente tiene que estar casi correcto. Lo pongo en dos post seguidos para que quepa, éste y la 1ª respuesta.
Option Explicit
Const ColNumCertif = 0
Const ColNombre = 1
Const ColFecha = 2
Const ColNumRenov = 3
Const ColCartaEnviada = 4
Dim NumColumnas As Integer
Private Sub Buscar_Click()
Dim Rec_Certificado As Recordset, Rec_RenovadoEmp As Recordset, Rec_RenovadoCESOL As Recordset
Dim Rec_DatPers As Recordset, Rec_SoldEmpresa As Recordset, Rec_SoldadorRenovado As Recordset
Dim InstSQL As String, linea As String, Num_Certificado As String
Dim FechaDesde As Date, FechaHasta As Date, FechaCad As Date, fecha As Date ', FDesde As Date,
FHasta As Date
Dim I As Integer
Dim FYaCaducados As Date
'codigo para buscar las renovaciones o caducados
If Option1(0).Value Then
' Caducados en los tres próximos meses.
FechaDesde = Date
FechaHasta = DateAdd("m", 3, Date)
ElseIf Option1(1).Value Then
' Caducados dentro del periodo indicado.
If Not IsDate(FDesde) Then
Beep
MsgBox "El formato de la fecha de inicio no es válido, asegúrese de introducirlo correctamente", vbCritical, Tit_Gen
FDesde.SetFocus
Exit Sub
End If
If Not IsDate(FHasta) Then
Beep
MsgBox "El formato de la fecha de fin del período no es válido, introdúzcalo correctamente", vbCritical, Tit_Gen
FHasta.SetFocus
Exit Sub
End If
FechaDesde = CDate(FDesde)
FechaHasta = CDate(FHasta)
Else
' Ya caducados antes de la fecha indicada.
If Not IsDate(FYaCaducados) Then
Beep
MsgBox "El formato de la fecha de ya caducados no es correcto.", vbCritical, Tit_Gen
'FYaCaducados.SetFocus
Exit Sub
End If
FechaHasta = CDate(FYaCaducados)
Screen.MousePointer = 11
InstSQL = "SELECT CERTIFICADO.* FROM CERTIFICADO"
InstSQL = InstSQL & "WHERE ((TIPO = " & TipoEN & ") AND ANULADO) "
InstSQL = InstSQL & "ORDER BY [FECHA-CERTIFICADO]; "
Set Rec_Certificado = BD_SOLDADORES.OpenRecordset(InstSQL, dbOpenDynaset)
If Rec_Certificado.RecordCount >= 1 Then
Load SOLDCaducados
Rec_Certificado.MoveFirst
Do While Not Rec_Certificado.EOF
If (Rec_Certificado("FECHA-ANULACION") <= FechaHasta) Then
' Añadir a la lista de los que caducan.
' Obtenemos primero los datos personales.
InstSQL = "SELECT DISTINCTROW CERTIFICADO.*, [DATOS-PERS].* "
InstSQL = InstSQL & "FROM [DATOS-PERS] INNER JOIN CERTIFICADO "
InstSQL = InstSQL & "ON [DATOS-PERS].[SOLDADOR-ID] = CERTIFICADO.[SOLDADOR-ID] "
InstSQL = InstSQL & "WHERE (((CERTIFICADO.[NUM-CERTIFICADO]) = '" &
Rec_Certificado("NUM-CERTIFICADO") & "'));"
Set Rec_DatPers = BD_SOLDADORES.OpenRecordset(InstSQL, dbOpenDynaset)
If Rec_DatPers.RecordCount >= 1 Then
linea = Rec_DatPers("NUM-CERTIFICADO") & Chr(9) _
& Rec_DatPers("APELLIDO1") & " " & Rec_DatPers("APELLIDO2") & ", " &
Rec_DatPers("NOMBRE")
' Obtenemos los datos de la empresa certificadora, si la tiene.
InstSQL = "SELECT DISTINCTROW CERTIFICADO.*, [DATOS-EMPRESA].* "
InstSQL = InstSQL & "FROM CERTIFICADO INNER JOIN [DATOS-EMPRESA] "
InstSQL = InstSQL & "ON CERTIFICADO.[EMPRESA-CERTIF-ID] =
[DATOS-EMPRESA].[EMPRESA-ID] "
InstSQL = InstSQL & "WHERE (((CERTIFICADO.[NUM-CERTIFICADO]) = '" &
Rec_Certificado("NUM-CERTIFICADO") & "'));"
Set Rec_SoldEmpresa = BD_SOLDADORES.OpenRecordset(InstSQL, dbOpenDynaset)
If Rec_SoldEmpresa.RecordCount >= 1 Then
' Mostrar nombre de la empresa.
linea = linea & Chr(9) & Leer(Rec_SoldEmpresa("NOMBRE"))
Rec_SoldEmpresa.Close
Else
Rec_SoldEmpresa.Close
' No hay empresa certificadora. Buscamos si existe de trabajo.
InstSQL = "SELECT DISTINCTROW CERTIFICADO.*, [DATOS-EMPRESA].* "
InstSQL = InstSQL & "FROM CERTIFICADO INNER JOIN [DATOS-EMPRESA] "
InstSQL = InstSQL & "ON CERTIFICADO.[EMPRESA-TRABAJO-ID] =
[DATOS-EMPRESA].[EMPRESA-ID] "
InstSQL = InstSQL & "WHERE (((CERTIFICADO.[NUM-CERTIFICADO]) = '" &
Rec_Certificado("NUM-CERTIFICADO") & "'));"
Set Rec_SoldEmpresa = BD_SOLDADORES.OpenRecordset(InstSQL, dbOpenDynaset)
If Rec_SoldEmpresa.RecordCount >= 1 Then
' Mostrar nombre de la empresa.
linea = linea & Chr(9) & Leer(Rec_SoldEmpresa("NOMBRE"))
Else
linea = linea & Chr(9) & " "
End If
Rec_SoldEmpresa.Close
End If
' Añadimos las fechas del certificado y de anulación
linea = linea & Chr(9) & Rec_Certificado("FECHA-CERTIFICADO")
linea = linea & Chr(9) & Rec_Certificado("FECHA-ANULACION")
SOLDCaducados.RejillaResultado.AddItem linea, SOLDCaducados.RejillaResultado.Rows - 1
End If
End If
Rec_Certificado.MoveNext
Loop
If SOLDCaducados.RejillaResultado.Rows > 1 Then
SOLDCaducados.RejillaResultado.Rows = SOLDCaducados.RejillaResultado.Rows - 1
End If
Screen.MousePointer = 0
SOLDCaducados.Label1 = "Certificados de soldador ya caducados " & FYaCaducados
SOLDCaducados.Show 1
Else
Screen.MousePointer = 0
Beep
MsgBox "No existe ningún certificado con las condiciones seleccionadas", vbInformation,
Tit_Gen
End If
' End if
(SIGUE EN LA SIGUIENTE RESPUESTA)-->