Botón buscar
Hola nuevamente yo como puedo realizar un botón de buscar por paterno, materno y nombre y me muestre el dato buscado en el formulario activo que tengo par poder modificar sus datos, para no utilizar los botones que ya vienen definidos en visual.
Tengo una tabla de esta manera:
Clave paterno materno nombre domicilio, teléfono, correo, etc.
Puede ser algo sencillo pero necesito tu ayuda gracias.
Tengo una tabla de esta manera:
Clave paterno materno nombre domicilio, teléfono, correo, etc.
Puede ser algo sencillo pero necesito tu ayuda gracias.
1 respuesta
Respuesta de ikz0f7
1
Pues no entiendo muy bien cómo es que necesitas hacerlo pero para poder buscar y editar un registro de una tabla, puedes usar algo sencillo.
Suponiendo que la tabla tiene un índice con la expresión "LOWER(ALLTRIM(paterno) + ALLTRIM(materno) + ALLTRIM(Nombre))", llamado "Nombre", y dicho ídice está siendo usado por la tabla.
** Evento "Click" del botón de buscar
cPaterno = ALLTRIM(ThisForm.txtPaterno.Value)
cMaterno = ALLTRIM(ThisForm.txtMaterno.Value)
cNombre = ALLTRIM(ThisForm.txtNombre.Value)
SELECT Persona
IF SEEK(LOWER(cPaterno + cMaterno + cNombre)
** El registro se encontró y se seleccionó en la tabla
** Se pueden usar "TextBox" para editarlo y depués guardarlo, o un "Grid"
** Para acceder a sus datos:
MESSAGEBOX("Domicilio: " + domicilio)
ELSE
** El registro no se encontró
END IF
** Si la tabla no tiene índice:
SELECT Persona
LOCATE FOR LOWER(ALLTRIM(paterno) + ALLTRIM(materno) + ALLTRIM(Nombre)) == ;
LOWER(cPaterno + cMaterno + cNombre)
IF FOUND()
** Encontrado
ELSE
** No encontrado
END IF
Suponiendo que la tabla tiene un índice con la expresión "LOWER(ALLTRIM(paterno) + ALLTRIM(materno) + ALLTRIM(Nombre))", llamado "Nombre", y dicho ídice está siendo usado por la tabla.
** Evento "Click" del botón de buscar
cPaterno = ALLTRIM(ThisForm.txtPaterno.Value)
cMaterno = ALLTRIM(ThisForm.txtMaterno.Value)
cNombre = ALLTRIM(ThisForm.txtNombre.Value)
SELECT Persona
IF SEEK(LOWER(cPaterno + cMaterno + cNombre)
** El registro se encontró y se seleccionó en la tabla
** Se pueden usar "TextBox" para editarlo y depués guardarlo, o un "Grid"
** Para acceder a sus datos:
MESSAGEBOX("Domicilio: " + domicilio)
ELSE
** El registro no se encontró
END IF
** Si la tabla no tiene índice:
SELECT Persona
LOCATE FOR LOWER(ALLTRIM(paterno) + ALLTRIM(materno) + ALLTRIM(Nombre)) == ;
LOWER(cPaterno + cMaterno + cNombre)
IF FOUND()
** Encontrado
ELSE
** No encontrado
END IF
