guardar cambios en un textbox

[deanelker]

hola al foro soy nuevo en este foro y vi que son muy buenos en visual basic 6.0.
bueno mi pregunta es:
-tengo un mshflexgrid donde tengo mis datos aja.
-cuando yo quiero editarlo le doy dobleclick al mshflexgrid y me aparecen los datos      para editarlos en otro formulario que contienen text. ok aja. eso esta bien.
-en el formulario tengo dos botones uno para guardar cambios y otro para cerrar. ok.
-cuando yo cambio o edito ya sea un nombre del cliente de un textbox y le doy guardar cambios me los guarda excelente ok.aja.
-ahora viene la pregunta que quiero que me ayuden; cuando yo le doy doble click al mshflexgrid me aparecen los datos en otro formulario. como comentaba anteriormente
cuando yo le doy cerrar que me cierrre sino e editado nada en los text, pero si agrego tan solo una letra en cualquier text. y presiono el boton cerrar que me salga un mensaje que diga: por favor guarde los cambios... solo con un boton de aceptar. ahora cuando yo le doy guardar cambios los guardo y ahora cuado le doy cerrar que me cierrre el formulario de edicion por que ya se guardo los cambios efectuados.uuuuf yo se que es bastante pero se lo explique bien. gracias de antemano. por fa ayudenme.

[ssccaann43 ©]

Para cerrar puedes usar

Código (vb) [Seleccionar] Expandir



Private Sub Cerrar_Click()
Unload me 'Tomando en cuenta que estas en el mismo formulario
End Sub



Respecto a verificar si has escrito y que aparezca un mensaje sobre guardar cambios o cancelar.

Código (vb) [Seleccionar] Expandir


'Yo lo haria de la siguiente manera
'para verificar si escriben o no en unos de los textbox
Function CompruebaCampos()
   Dim Texto1 As String
   Texto1 = "Por favor Guarde los Cambios"
   
   If Len(txtCodigo) <> TextoCodigoFlex Then
       MsgBox Texto1, vbExclamation, Me.Caption
       Exit Function
   End If
   If Len(txtcedula) <> TextoCedulaFlex Then
       MsgBox Texto1, vbExclamation, Me.Caption
       Exit Function
   End If
   If Len(txtNombres) <> TextoNombresFlex Then
       MsgBox Texto1, vbExclamation, Me.Caption
       Exit Function
   End If
   If Len(txtApellidos) <> TextoApellidosFlex Then
       MsgBox Texto1, vbExclamation, Me.Caption
       Exit Function
   End If
End Function


[deanelker]

oye men lo probare pero viendo bien el codigo creo que va a calificar excelente...

[SOMBRIO]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
MsgBox "aca pon el codigo que guarda tus datos"
End If
End Sub

[ssccaann43 ©]

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
MsgBox "aca pon el codigo que guarda tus datos"
End If
End Sub

El codigo que guarda los datos? Amigo, lease un manual de VB Básico!

[deanelker]

oye men el codigo me sirvio.

lo que necesitaba era la logica de los datos lo demas puedo hacerlo, por eso no hay problema...