Saludos, Gracias de antemano y Paciencia soy Novato
Tal vez me equivoque de foro pero tengo una gran duda.
Haber si me explico
Tengo una BD en Acces en la cual tengo una tabla de Ingresos otra de Egresos y otra de Formas de Pago entre otras. Tengo una consulta tambien en acces la cual la cual me suma el total de Ingresos segun su Forma de pago de igual manera el total de Egresos y agrega un campo calculado con la resta de totalIngresos - totalEgresos segun su forma de pago, para reportar la utilidad o perdida. Para esto la consulta utiliza la funcion Nz de Acces para convertir los valores NULL a cero.
Al querer agregar dicha consulta al Dataenvironment me la toma como procedimiento almacenado y no me devuelve el recordset con los Campos de dicha consulta (Devolviendome unicamente el Recordset sin campos).
El problema esta que sin usar esta funcion(Nz) en la consulta, si llego a tener Ingresos con una Forma de pago, supongamos Efectivo y no llego a tener Egresos en Forma de Pago Efectivo al calcular el Total de Ingresos -Total de egresos me devuelve un valor Null (aun teniendo Ingresos).

Mi duda como ya se habran enterado, es como puedo utilizar los procedimientos almacenados (uso una conexion ADO), para que me devuelva los campos que tengo.
O bien no se si estoy atacando bien mi problema exista una forma de remplazar la funcion Nz al tratar de abrir el Recordset mediante codigo.

Cualquier orientación que me puedan dar Mil Gracias

Hola :

que tal un gusto en saludarte, quizas este código te pueda ayudar a resolver tu duda :

Public Sub rTraerDatos(mfg As MSFlexGrid)
Dim objUsuario As clsUsuariosQry
Dim lrRs As ADODB.Recordset
Dim lsSql As String
Dim lsCadErr As String

lsSql = "sp_list_Usuarios_Gen"

On Error GoTo ErrTraer

Set objUsuario = New clsUsuariosQry
lsCadErr = objUsuario.LeerDatos(lsSql, lrRs)
mfg.Rows = 1
Do While Not lrRs.EOF
mfg.Rows = mfg.Rows + 1
mfg.TextMatrix(mfg.Rows - 1, 1) = "" & Trim(lrRs!Id_Usuario)
mfg.TextMatrix(mfg.Rows - 1, 2) = "" & Trim(lrRs!NomUsuario)
mfg.TextMatrix(mfg.Rows - 1, 3) = "" & Trim(lrRs!Login)
mfg.TextMatrix(mfg.Rows - 1, 4) = "" & Trim(lrRs!clave)
lrRs.MoveNext
Loop
Set objUsuario = Nothing
Set lrRs = Nothing
Exit Sub

ErrTraer:
MsgBox CStr(Err.Number) & " " & Err.Description, vbCritical + vbMsgBoxHelpButton, Me.Caption, Err.HelpFile, Err.HelpContext

End Sub

Sino entiendes algo, me avisas por correo electrónico.

saludos cordiales,

__________________
Ronald León Madrid
Analista Programador de Sistemas
Aspi-Systems S.A.C