Problema con Recordset
Publicado por Rafael (225 intervenciones) el 02/03/2022 12:42:57
Saludos.
Tengo un problema con un recordset que me funciona si lo asigno a un boton de formullario pero si lo asigno a un boton de una cinta de opciones personalizada (XML) no solamente no funciona si no que me dejan de funcionar el resto de los botones de la cinta.
El codigo es el siguiente:
Dim rs As DAO.Recordset
Dim miSql As String
miSql = "SELECT Format([fecha],'mmmm')as fecha_pago,Tmovimientos.concepto FROM TMovimientos WHERE (((Format([fecha],'mmmm'))=Format(date(),'mmmm'))AND((TMovimientos.concepto)=6));"
Set rs = CurrentDb.OpenRecordset(miSql)
If rs.RecordCount Then
If MsgBox("Este mes ya han sido anotados los recibos pagados", vbYes + vbCritical, "Los Billares") = vbYes Then
rs.Close
Set rs = Nothing
Exit Sub
End If
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "anotar_pagos_movimientos"
DoCmd.SetWarnings True
rs.Close
Set rs = Nothing
Exit Sub
End If
No se que estoy haciendo mal.
Tengo un problema con un recordset que me funciona si lo asigno a un boton de formullario pero si lo asigno a un boton de una cinta de opciones personalizada (XML) no solamente no funciona si no que me dejan de funcionar el resto de los botones de la cinta.
El codigo es el siguiente:
Dim rs As DAO.Recordset
Dim miSql As String
miSql = "SELECT Format([fecha],'mmmm')as fecha_pago,Tmovimientos.concepto FROM TMovimientos WHERE (((Format([fecha],'mmmm'))=Format(date(),'mmmm'))AND((TMovimientos.concepto)=6));"
Set rs = CurrentDb.OpenRecordset(miSql)
If rs.RecordCount Then
If MsgBox("Este mes ya han sido anotados los recibos pagados", vbYes + vbCritical, "Los Billares") = vbYes Then
rs.Close
Set rs = Nothing
Exit Sub
End If
Else
DoCmd.SetWarnings False
DoCmd.OpenQuery "anotar_pagos_movimientos"
DoCmd.SetWarnings True
rs.Close
Set rs = Nothing
Exit Sub
End If
No se que estoy haciendo mal.
Valora esta pregunta


0