Confirmación de eficiencia
Publicado por Pablo (328 intervenciones) el 22/11/2021 19:06:42
Hola a tod@s
Estoy haciendo un formulario para buscaqr/modificar referencias, como son pocas la opción buscar la obvio, la opción modificar la habilito con un botón a la derecha de cada registro con el siguiente codigo
Option Compare Database
Option Explicit
Private Sub Comando7_Click()
MsgBox "cod.familia linea:" & Me.codigo_familia
Me.AllowEdits = True
Me.referencia_familia.SetFocus
End Sub
Private Sub descripcion_familia_Exit(Cancel As Integer)
If Me.Dirty Then
Dim guardar As Boolean
guardar = MsgBox("Guardo los cambios(S/N)", vbYesNo)
If guardar = True Then
DoCmd.RunCommand acCmdSaveRecord
Else
Me.Undo
End If
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.Caption = Space(10) & "B Ú S Q U E D A D E F A M I L I A S"
End Sub
Basicamente lo que hago es cambiar la propiedad AllowEdit del formulario y cuando sale del último campo preguntar si grabo el registro o no
Me gustaría saber si esta 'programación' es correcta o si hay otra forma más eficiente de hacerlo
Gracias
Pablo
Estoy haciendo un formulario para buscaqr/modificar referencias, como son pocas la opción buscar la obvio, la opción modificar la habilito con un botón a la derecha de cada registro con el siguiente codigo
Option Compare Database
Option Explicit
Private Sub Comando7_Click()
MsgBox "cod.familia linea:" & Me.codigo_familia
Me.AllowEdits = True
Me.referencia_familia.SetFocus
End Sub
Private Sub descripcion_familia_Exit(Cancel As Integer)
If Me.Dirty Then
Dim guardar As Boolean
guardar = MsgBox("Guardo los cambios(S/N)", vbYesNo)
If guardar = True Then
DoCmd.RunCommand acCmdSaveRecord
Else
Me.Undo
End If
End If
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.Caption = Space(10) & "B Ú S Q U E D A D E F A M I L I A S"
End Sub
Basicamente lo que hago es cambiar la propiedad AllowEdit del formulario y cuando sale del último campo preguntar si grabo el registro o no
Me gustaría saber si esta 'programación' es correcta o si hay otra forma más eficiente de hacerlo
Gracias
Pablo
Valora esta pregunta


0