Ayuda
Publicado por Itziar (12 intervenciones) el 23/08/2002 18:10:09
Hola a todos de nuevo, acabo de descubrir en mi problema un fallo horrible :·(
Tengo una base de datos con todos los operario y puedo buscar desde el campo numero de operario y nombre, bueno podia :·(, resulta que al poner el numero de operario me salta al primer operario que encuentra con el nombre no con el numero, o sea que me busca primero por nombre cuando deberia buscarme por numero, en fin vaya chapa que os he metido.
el codigo que he puesto en el campo de codigo es este:
Private Sub noperario_LostFocus()
If noperario.Text <> \"\" Then
If opcion = 2 Or opcion = 3 Or opcion = 4 Then
tabla.Index = \"noperario\"
tabla.Seek \"=\", noperario.Text
If tabla.NoMatch = True Then
MsgBox (\"ESE OPERARIO NO EXISTE\")
noperario.Text = \" \"
noperario.SetFocus
Else
cargarcampos
tabla.Edit
nombre.SetFocus
End If
End If
End If
End Sub
y lo mismo en el campo de nombre pero cambiando noperario por nombre.
Os agradeceria mucho si pudieseis ayudarme a arreglar esto.
Saludos
Itziar
Tengo una base de datos con todos los operario y puedo buscar desde el campo numero de operario y nombre, bueno podia :·(, resulta que al poner el numero de operario me salta al primer operario que encuentra con el nombre no con el numero, o sea que me busca primero por nombre cuando deberia buscarme por numero, en fin vaya chapa que os he metido.
el codigo que he puesto en el campo de codigo es este:
Private Sub noperario_LostFocus()
If noperario.Text <> \"\" Then
If opcion = 2 Or opcion = 3 Or opcion = 4 Then
tabla.Index = \"noperario\"
tabla.Seek \"=\", noperario.Text
If tabla.NoMatch = True Then
MsgBox (\"ESE OPERARIO NO EXISTE\")
noperario.Text = \" \"
noperario.SetFocus
Else
cargarcampos
tabla.Edit
nombre.SetFocus
End If
End If
End If
End Sub
y lo mismo en el campo de nombre pero cambiando noperario por nombre.
Os agradeceria mucho si pudieseis ayudarme a arreglar esto.
Saludos
Itziar
Valora esta pregunta


0