|
|
Tengo un formulario en el cual hay un campo "Model_Tlf" y un boton que compara el valor de este y me muestra un formulario con las caracteristicas del model.
Pues bien todo esto lo tengo hecho, haciendo que un foco me apunte hasta este campo, y en funcion a lo que ponga me mostrará un modelo u otro. El problema es que si cambio de campo para modificar los datos, ya no puede comparar con el valor del foco y muestra el último teléfono que pudo comparar. Ya que únicamente son botones que se ocultan y desocultan en función del Modelo.
Lo tengo hecho de esta manera:
PrivatePrivate Sub Form_Load()
Me.Comando36.Visible = False
Me.Comando37.Visible = False
Me.Comando38.Visible = False
Me.Model_Tlf.SetFocus
End Sub
Sub Comando36_Click()
Me.Model_Tlf.SetFocus
.........
End Sub
Private Sub Comando37_Click()
Me.Model_Tlf.SetFocus
.........
End Sub
Private Sub Comando38_Click()
Me.Model_Tlf.SetFocus
.........
End Sub
Estos tres son los botones que abren el tipo de modelo de telefono (Los "....." quieren decir el resto de lineas que le siguen para abrir el formulario, pero que en este caso no importan)
Private Sub Model_Tlf_GotFocus()
Me.Comando36.Visible = False
Me.Comando37.Visible = False
Me.Comando38.Visible = False
Select Case (Me.Model_Tlf)
Case (4018):
Me.Comando36.Visible = True
Case (4028):
Me.Comando37.Visible = True
Case (4068):
Me.Comando38.Visible = True
Case Else
MsgBox "El modelo que tiene no es valido en nuestra base de datos", vbInformation, "Modelo Erroneo"
End Select
End Sub
Cuando lo veas, supongo que pensaras que es la chapuza mas grande jamás vista, y mi pregunta es si conoces algún tipot de evento que sea "Al Cambio Registro" o algo así, o alguna manera de solventar el error que me está ocasionando.
Un saludo
|