Error en los eventos del textbox? Hola me salen unos errores en los eventos del text box, quiero que mediante un textbox se muestre la ruta de una fotografia que se elige con un commondialog, no sé si tenga el código correcto, podrían darle un vistazo? gracias de antemano
Private Sub Examinar_Click()
With CommonDialog1
.DialogTitle = " Seleccionar imagen"
'Filtro para los archivos de imagen
.Filter = "JPG|*.JPG|BMP|*.BMP|GIF|*.GIF|Todos los archivos|*.*"
'Muestra el cuadro de diálogo Abrir archivo
.ShowOpen
'si no se seleccionó un archivo salimos
If .FileName = "" Then
Exit Sub
Else
' Si no , cargamos la imagen seleccionada en el control
Image1 = LoadPicture(.FileName)
End If
End With
End Sub
Private Sub Guardar_Click()
'Guarda la imagen del image en un nuevo archivo
On Error GoTo errSub
'si el control Image no tiene una imagen sale de la rutina
If Image1.Picture = 0 Then
MsgBox "No se puede guardar. El image debe tener una imagen", vbCritical
End If
With CommonDialog1
'Filtro para guardar con la extención JPG
.Filter = "JPG|*.jpg"
' Muestra el cuadro de diálogo Guardar como
.ShowSave
'Si el archivo es una cadena vacía salimos
If .FileName = "" Then
Exit Sub
Else
'Si no, la guardamos
SavePicture Image1, .FileName
MsgBox " archivo guardado correctamente ", vbInformation
End If
End With
Exit Sub
errSub:
MsgBox Err.Description
End Sub
Private Sub Command4_Click()
With Adodc1
.CommandType = adCmdTable 'Esto sera la conexion hacia tu tabla
.RecordSource = "fotos" 'nombre de tu tabla de la base de datos
.Refresh
.Recordset.AddNew 'representa el nuevo dato a guardar
End With
End Sub
Private Sub Altaregistro_Click()
With Adodc1
.Recordset.Save 'lo que tiene la tabla se va a guardar
MsgBox "los datos han sido guardados", vbInformation, "aviso"
.Refresh 'actulizar
.Recordset.Requery
End With
End Sub
Private Sub Eliminar_Click()
With Adodc1
If MsgBox("estas seguro? de eliminar estos datos", vbInformation + vbYesNoCancel, "Eliminar") = vbYes Then
.Recordset.Delete
.Recordset.Requery
End If
End With
End Sub
Private Sub Nuevoregistro_Click()
f
'With Adodc1
'.CommandType = adCmdTable 'Esto sera la conexion hacia tu tabla
'.RecordSource = "fotos" 'nombre de tu tabla de la base de datos
'.Refresh
'.Recordset.AddNew 'representa el nuevo dato a guardar
'End With
End Sub
Private Sub Command7_Click()
Form1.Hide
Form2.Show
End Sub
Private Sub DataGrid1_Click()
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim a As Integer
a = MsgBox("¿Desea salir del sistema?", vbInformation + vbYesNo, "Salir")
If a = 6 Then
End
Else
Cancel = True
End If
End Sub
Private Sub Nuevo_Click()
End Sub
Private Sub Text1_Change()
If Text1 = KeyDown Then
Text2 = CommonDialog1.FileName
End If
End Sub
