Access - Problema con SetFocus en SQL

 
Vista:
sin imagen de perfil

Problema con SetFocus en SQL

Publicado por Wexi000 (1 intervención) el 08/06/2019 03:38:04
Hola!
Aun soy estudiante y tengo problemas aquí
Me seria de mucha ayuda en que alguien me pueda señalar mi error
Gracias!



1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
If IsNull(Me.Txt_Usuario) Then
MsgBox "..Texto..", vbInformation, "..Texto..aviso.."
Me.Txt_Usuario.SetFocus
ElseIf IsNull(Me.Txt_Password) Then
MsgBox "..Requerimiento..", cvInformation, "..Requerimiento.."
Me.Txt_Password.SetFocus
Else
If (IsNull(DLookup("[Usuario]", "Usuario", "[Usuario]='" & Me.Txt_Usuario.Value & _
" ' and password = '" & Me.Txt_Password.Valuen & " ' "))) Then
MsgBox "usuario y/o contraseña incorrectos"
Me.Txt_Usuario.SetFocus
Else
DoCmd.Close
'MsgBox "¡Bienvenido¡", , "Acceso Correcto"
DoCmd.OpenForm "menu"
End If
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

Problema con SetFocus en SQL

Publicado por Anonimo (2076 intervenciones) el 08/06/2019 08:53:16
Como simple sugerencia:

Tras encontrar un error si se desea corregirlo (y por eso el SetFocus) se debería abortar el resto de verificaciones -incluso algunas carecen de sentido si falta ese dato-

En caso de localizar un error -con la excepción de que sea la ultima verificación pues tras ella finaliza el evento- utiliza la opción EXIT .. (lo que sea) generalmente un SUB o FUNCION.

Nota: No aprecio 'donde esta' la SQL que se menciona en el titulo del hilo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar