-Con el procedimiento que adjunto obtengo la ruta de una imagen y la almaceno en la caja de Texto.
Si a la hora de elegir una imagen le doy a botón cancelar me devuelve "False" a la caja de texto.
¿Se puede corregir para que cuando suceda el "txtAdjunto" quede vacio?
He estado analizando otros procedimiento semejantes y ocurre lo mismo.
Sub CargarImagen()
Dim vImage As String
vImagen = Application.GetOpenFilename("Archivos JPG PNG BMP (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*")
If Not vImagen = "False" Then
Me.txtAdjunto = vImagen
Else
MsgBox "No ha seleccionado nigunga imagen.", vbInformation, "Mensaje"
End If
End Sub
Saludos a todos y todas.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
Buenos días a todos;
-Con el procedimiento que adjunto obtengo la ruta de una imagen y la almaceno en la caja de Texto.
Si a la hora de elegir una imagen le doy a botón cancelar me devuelve "False" a la caja de texto.
¿Se puede corregir para que cuando suceda el "txtAdjunto" quede vacio?
He estado analizando otros procedimiento semejantes y ocurre lo mismo.
Sub CargarImagen() Dim vImage As String vImagen = Application.GetOpenFilename("Archivos JPG PNG BMP (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*") If Not vImagen = "False" Then Me.txtAdjunto = vImagen Else MsgBox "No ha seleccionado nigunga imagen.", vbInformation, "Mensaje" End If End Sub
Saludos a todos y todas.