Pocos parametros? Al borde...

[Yoso]

Buenas, pues acá con un problema realmente tonto.

Pocos parámetros, se esperaba 1..

Yo sé que se debe al error en un campo con la base de datos. Pero lo que no entiendo es como siquiera es posible con este Access. Llevo mil horas intentando descifrarlo. He movido todo, checado que los campos del select estén en la base de datos y que correspondan al tipo que se está pidiendo, lo he botado como 3 veces pero nomás no se deja. Acá dejo los códigos. Lo curioso, esque en la tabla hermana Actualiza_DRT002 si lo hace sin problema pero en la Actualiza_DRT002S siempre siempre me tira el mismo error.

Alguna solución?

Código:

Private Sub Actualiza_DRT002()
    Dim DBS As Database
    Dim strSql As String

    Set DBS = OpenDatabase("D:\CARMEN\JACOBO\FAVWMJACOB.mdb")
    strSql = "SELECT SNC, SNOMI, SNOM, REFERENCIA, SCDEU, SPP, " _
        & "SFECH, A_PARTIR, SFAP, SPAP, SALDOACT, COMP " _
        & "FROM DRT002 ORDER BY SFECH, SNCH"
    
    Set qdf = DBS.OpenRecordset(strSql)
    If (qdf.EOF) Then
        MsgBox "No hay elementos para esta página del Panel de control"
    Else
        While (Not (qdf.EOF))
            If IsNull(qdf!A_PARTIR) Then
                'MsgBox "El empleado " & qdf!SNOM & " no tienen fecha A_PARTIR en la tabla DRT002"
            Else
                If (qdf!SALDOACT <> 0) And (qdf!COMP = "I") Then
                    Select Case (qdf!SFAP)
                        'Pagos mensuales
                        Case 1
                            If (qdf!A_PARTIR >= FECHAINI) _
                               And (qdf!A_PARTIR <= FECFINAUX) _
                               And (qdf!SPAP <> 0) Then
                           
                                saldo = qdf!SALDOACT - qdf!SPP
                                FORMAPAG = qdf!SPAP - 1
                                Inserta_AUXILIARVWM
                                Guarda_DRT002
                            End If
                        
                        'Pago único
                        Case 2
                            If (qdf!A_PARTIR >= FECINIAUX) And (qdf!A_PARTIR <= FECFINAUX) Then
                                saldo = qdf!SALDOACT - qdf!SPP
                            Else
                                saldo = qdf!SALDOACT
                            End If
                            Inserta_AUXILIARVWM
                        
                            If (qdf!A_PARTIR >= FECHAINI) _
                               And (qdf!A_PARTIR <= FECFINAUX) _
                               And (qdf!SPAP <> 0) Then
                           
                                saldo = qdf!SALDOACT - qdf!SPP
                                FORMAPAG = qdf!SPAP - 1
                                Guarda_DRT002
                            End If
                    End Select
                End If
            End If
            qdf.MoveNext
        Wend
    End If
    qdf.Close
End Sub



Private Sub Actualiza_DRT002S()
    Dim DBS As Database
    Dim strSql As String

    Set DBS = OpenDatabase("D:\CARMEN\JACOBO\FAVWMJACOB.mdb")
    strSql = "SELECT SNC, SNOMI, SNOM, REFERENCIA, SCDEU, SPP, " _
        & "SFECH, A_PARTIR, SFAP, SPAP, SALDOACT, COMP " _
        & "FROM DRT002S ORDER BY SFECH, SNCH"
    
    Set qdf = DBS.OpenRecordset(strSql)
    If (qdf.EOF) Then
        MsgBox "No hay elementos para esta página del Panel de control"
    Else
        While (Not (qdf.EOF))
            If IsNull(qdf!A_PARTIR) Then
                'MsgBox "El empleado " & qdf!SNOM & " no tienen fecha A_PARTIR en la tabla DRT002"
            Else
                If (qdf!SALDOACT <> 0) And (qdf!COMP = "I") Then
                    Select Case (qdf!SFAP)
                        'Pagos mensuales
                        Case 1
                            If (qdf!A_PARTIR >= FECHAINI) _
                               And (qdf!A_PARTIR <= FECFINAUX) _
                               And (qdf!SPAP <> 0) Then
                           
                                saldo = qdf!SALDOACT - qdf!SPP
                                FORMAPAG = qdf!SPAP - 1
                                Inserta_AUXILIARVWM
                                Guarda_DRT002
                            End If
                        
                        'Pago único
                        Case 2
                            If (qdf!A_PARTIR >= FECINIAUX) And (qdf!A_PARTIR <= FECFINAUX) Then
                                saldo = qdf!SALDOACT - qdf!SPP
                            Else
                                saldo = qdf!SALDOACT
                            End If
                            Inserta_AUXILIARVWM
                        
                            If (qdf!A_PARTIR >= FECHAINI) _
                               And (qdf!A_PARTIR <= FECFINAUX) _
                               And (qdf!SPAP <> 0) Then
                           
                                saldo = qdf!SALDOACT - qdf!SPP
                                FORMAPAG = qdf!SPAP - 1
                                Guarda_DRT002
                            End If
                    End Select
                End If
            End If
            qdf.MoveNext
        Wend
    End If
    qdf.Close
End Sub

[lokoman]

Hola, el codigo de la sub DTR002S no está, por que no tomas el valor del select y lo pegas en access?

Ponte sole la sentencia sql y pulsa F9, ejecuta el programa y cuando se detenga, pulsa F8, abre la ventana de inmediato (ctrl+i), coloca un signo de interrogacion (?) seguido por la variable que tiene la sentencia sql y dale ENTER.

Te presentará el query, copialo y pegalo en access y verifica el resultado, corrigelo el el mismo access (si tiene algun error) y luego traducelo a vb6 y ajusta la sentencia sql.

[Yoso]

Bendito seas, hombre.

Es la forma más fácil de debugear en VBA. Pruebalo primero en Access.

GEnio, Genio, Genio.


Gracias!