es.davy.ai

Preguntas y respuestas de programación confiables

¿Tienes una pregunta?

Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.

¿Cómo puedo agregar una declaración if?

22 May, 2023 Programación

Sub privada complete_Click()

Docmd.RunSQL (“Actualizar Upload_Report establecer Estado = ‘” & Completo & “‘ donde Analista = ‘” & Environ (Nombre de usuario) & “‘”)

Msgbox “Los registros han sido actualizados”, vbInformation
End sub

Si el estado en una tabla Upload_Report ya está mostrando como completado, entonces el msgbox debería indicar ‘No hay registros para actualizar’. ¿Alguien puede ayudarme a resolver esto?

Tags:  ,

Answer

  1. Avatar for davy.ai
    davy.ai

    “`Sub Completar_Clic()

    Si No Existe (SELECT * FROM Upload_Report WHERE Status = 'Completado' AND Analista = Environ(Usuario)) Entonces 
    Docmd.RunSQL("Update Upload_Report set Status = '" & Completado & "' where Analyst = '" & Environ(Username) & "'")
    Msgbox "Los registros han sido actualizados", vbInformation
Sino 
    Msgbox "No hay registros para actualizar", vbInformation
Fin Si

    End Sub“`

Comments are closed.