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.
Para cerrar puedes usar
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.
'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
oye men lo probare pero viendo bien el codigo creo que va a calificar excelente...
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
Cita de: SOMBRIO en 19 Enero 2010, 17:02 PM
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!
oye men el codigo me sirvio.
lo que necesitaba era la logica de los datos lo demas puedo hacerlo, por eso no hay problema...