Imprimir página | Cerrar ventana

Como activar modulo CampoVacio

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=85286
Fecha de impresión: 25/Octubre/2020 a las 19:43


Tema: Como activar modulo CampoVacio
Publicado por: alfare
Asunto: Como activar modulo CampoVacio
Fecha de publicación: 20/Mayo/2020 a las 15:31
Buen dia Estimados:
He encontrado este código que me puede ser útil para algo que busco:

Public Function CampoVacio(NomForm As Form, Cancel As Integer) As Boolean
' Codigo para impedir una accion . . . !!
' si existiese  algun campo vacio
On Error GoTo Err_CampoVacio_Click
Dim campo As Control 'Variable tipo control
For Each campo In NomForm 'Abro un Bucle
 ' Inpido los tipos de campo que deseo recorrer para analizar
    If TypeOf campo Is TextBox Or TypeOf campo Is ComboBox Or TypeOf campo Is ListBox Then
        If Left(campo.Name, 2) <> "ID" And campo.Properties("Enabled") = True Then
            If Not IsNull(campo) Then 'La condicion
                    campo.BackColor = vbWhite 'se establece fondo blanco
                    'De no haber campo nulo dejo correr el codigo
                Else
                    campo.BackColor = vbYellow 'Le pongo color para diferenciarlo
                    campo.SetFocus
                    MsgBox "Para realizar esta Accion " & vbCrLf & _
                    "se requiere un valor para " & campo.Name _
                    , vbExclamation, "Campo Vacio"
                    Cancel = True
                    End
                    Exit Function
                    'Si lo encuentro, detengo el codigo, aviso con un Msgbox
                    'y Situo el setfocus al campo vacio
            End If
        End If
    End If
Next campo
'Si llegamos aqui es que no consigo campos nulos
'Y ejecuto el comando (Puedes colocar cualquiera)
'Abrir form, consultas, exportar a pdf, etc....
CampoVacio = False
Exit_CampoVacio_Click: 'Tratamiento de errores
    Exit Function
Err_CampoVacio_Click:
    MsgBox Err.Description
    Resume Exit_CampoVacio_Click
        
End Function


No soy muy hábil en VBA y me gustaría saber como activo este modulo al  abrir un formulario y que cumpla su función, Excusen mi pregunta si incomodo al alguien.
Saludos


-------------
Slds desde Cali Colombia



Respuestas:
Publicado por: xavi
Fecha de publicación: 20/Mayo/2020 a las 15:50
Casi seguro que ahí dónde lo hayas encontrado habrá algo de explicación...

Creo que no lo puedes activar al abrir el formulario. Más bien se trata de una función que impedirá salvar los datos. Yo utilizaria el BeforeUpdate del formulario



-------------
Xavi, un minyó de Terrassa

http://www.llodax.com" rel="nofollow - Mi web


Publicado por: rokoko
Fecha de publicación: 20/Mayo/2020 a las 15:51
Ponlo en el evento antes de actualizar del formulario, creo que asi te ira. Pasale como parámetro en nombre del formulario. Tambien fijate que en el codigo verifica que tipos de campo verifica si estan vacios Saludos



Imprimir página | Cerrar ventana