Que me falta!
Publicado por Yoel (60 intervenciones) el 20/06/2007 05:58:37
Holas y muchas gracias de antemano.
Saben tengo un codigo de busqueda el cual en la primera vez si busca el registro que deseo pero luego ya no; que me falta o algo esta mal o sera porque tengo estoy trabajando con 3 tablas en mi entorno de datos.
Haber si me ayudan. ahi les va el codigo.
Select Det_Matricula
Set Order To Fk_Cod_Alu
Locate for Allt(Det_Matricula.Cod_Alu) = Allt(ThisForm.Cmb_Cod_Alu.Value) And ;
Allt(Det_Matricula.Esp) = Allt(ThisForm.Cmb_Esp.Value) And:
Allt(Det_Matricula.Ciclo) = Allt(ThisForm.Cmb_Cic.Value)
If Found()
Wait Window 'El Alumno ya esta MATRICULADO' TimeOut 3
ThisForm.Cmb_Cod_Alu.Value = ''
ThisForm.Cmb_Cod_Alu.SetFocus
ThisForm.Cmd_Gua.Enabled = .F.
Else
ThisForm.Cmd_Gua.Enabled = .T.
EndIf
Saben tengo un codigo de busqueda el cual en la primera vez si busca el registro que deseo pero luego ya no; que me falta o algo esta mal o sera porque tengo estoy trabajando con 3 tablas en mi entorno de datos.
Haber si me ayudan. ahi les va el codigo.
Select Det_Matricula
Set Order To Fk_Cod_Alu
Locate for Allt(Det_Matricula.Cod_Alu) = Allt(ThisForm.Cmb_Cod_Alu.Value) And ;
Allt(Det_Matricula.Esp) = Allt(ThisForm.Cmb_Esp.Value) And:
Allt(Det_Matricula.Ciclo) = Allt(ThisForm.Cmb_Cic.Value)
If Found()
Wait Window 'El Alumno ya esta MATRICULADO' TimeOut 3
ThisForm.Cmb_Cod_Alu.Value = ''
ThisForm.Cmb_Cod_Alu.SetFocus
ThisForm.Cmd_Gua.Enabled = .F.
Else
ThisForm.Cmd_Gua.Enabled = .T.
EndIf
Valora esta pregunta


0