Evaluar consulta con un botón en formulario de access
Hola tengo este botón y quiero que antes de abrir el informe evalúe si tiene valores la consulta que se hace y en caso de que no tiene muestre un mensaje y si si tiene valores la consulta realice el informe y la macro de exportación, la macro y el informe y el formulario ya esta, pero tengo ese código que esta subrayado no sirve pero esa es la idea, me pordrian ayudar a que funcione. Gracias¡
Private Sub CONS_PAG_Click()
If IsNull(Me.Texto35.Value) Then
MsgBox "Escribe el Numero de Contrato"
Else
Dim stDocName2 As String
stDocName2 = "CONTRATO-PAGOS"
DoCmd.OpenQuery stDocName2, acViewNormal, acReadOnly
If stDocName2 = null Then
MsgBox "No hay registros para tu consulta"
Else
Dim stDocName As String
Dim stDocName1 As String
stDocName = "CONSULTA DE PAGOS"
DoCmd.OpenReport stDocName, acViewPreview
stDocName1 = "EXPORTA PAGOS"
DoCmd.RunMacro stDocName1
End If
End If
End Sub
Private Sub CONS_PAG_Click()
If IsNull(Me.Texto35.Value) Then
MsgBox "Escribe el Numero de Contrato"
Else
Dim stDocName2 As String
stDocName2 = "CONTRATO-PAGOS"
DoCmd.OpenQuery stDocName2, acViewNormal, acReadOnly
If stDocName2 = null Then
MsgBox "No hay registros para tu consulta"
Else
Dim stDocName As String
Dim stDocName1 As String
stDocName = "CONSULTA DE PAGOS"
DoCmd.OpenReport stDocName, acViewPreview
stDocName1 = "EXPORTA PAGOS"
DoCmd.RunMacro stDocName1
End If
End If
End Sub
1 respuesta
Respuesta de fpintod
1
En vez de preguntar después de ejecutar una consulta puedes hacer algo como.
dim cantidad as interger
cantidad=dlookup("count(*)","Tabla/consulta", "criterio")
if cantidad=0 then
msgbox "No hay registros"
else
Creo el Informe
end if
' Investiga la función dlookup, que permite recibir un resultado de un campo, a partir de una tabla o consulta según un criterio (similar a la clausula where).
Cualquier cosa me avisas
Fpintod
dim cantidad as interger
cantidad=dlookup("count(*)","Tabla/consulta", "criterio")
if cantidad=0 then
msgbox "No hay registros"
else
Creo el Informe
end if
' Investiga la función dlookup, que permite recibir un resultado de un campo, a partir de una tabla o consulta según un criterio (similar a la clausula where).
Cualquier cosa me avisas
Fpintod
Hola mano esa respuesta estuvo excelente, eres un dios, Gracias¡
Espero me vuelvas a echar la mano si me vuelvo a trabar otra vez.
Hasta pronto¡
Espero me vuelvas a echar la mano si me vuelvo a trabar otra vez.
Hasta pronto¡
