Como impedir registro si el cuadro de imagen esta vacío
Cordiales como ya menciona el titulo necesito que a la hora de guardar los datos de un formulario que contiene un cuadro de imagen, se impida el registro si dicho cuadro de imagen no contiene una imagen, probé usando este código pero me manda un error :if image1.picture=false then msgbox"Debe ingresar una imagen":exit sub
Como swria la forma correcta, además de esto que al registrar los datos quede limpio de nuevo el cuadro de imaen para ingresar una nueva foto.
1 respuesta
Hol prueba usando empty o el nombre de la imagen. Te paso ejemplos de trabajos con imagen que te pueden servir
Fíjate en el ejemplo que paso que para cargar la imagen se usa el siguiente código
Path = ThisWorkbook.Path & "\Imagenes\" & Sheets("BD URL").Cells(dire, "I")
Image1.Picture = LoadPicture(Path)
Tu podrias determinar si la variable es empty significa no hay imagen
para dejar el control sin imagen se usa
Image1.Picture = LoadPicture("")
Entonces determina si la variable donde cargas la imagen edta vacía en ese caso significa no hay imagen siriia algo así
if p0ath =empty then
Msgbox(debe seleccionar imagen)
exit sub
en if
https://www.youtube.com/playlist?list=PLdK9H5dMIfQhfjfayLQRxEUVYUFAIMigE
https://www.youtube.com/watch?v=UR-j8-eFQrI&t=91s
visita https://programarexcel.com descarga cientos macros gratis
suscribe https://youtube.com/programarexcel
if path =empty then
Msgbox(debe seleccionar imagen)
exit sub
end if
