mxyzptlk

falvarez respondió: Mxyzptlk: En el botón AGREGAR asegurate de tener la sentencia SCATTER MEMVAR BLANK, que crea las variables en blanco: M.ACTOR, M.GENERO, etc.. Los nombres de dichas variables deben estar en el Control Source de cada una de las cajas de texto. (Fíjate...

falvarez respondió: Mxyzptlk: Eso es exactamente de lo que hablas, en el siguiente código: IF NKeyCode=65 =MESSAGEBOX('Pulsó la tecla "A"') Endif

hreyes respondió: Checa los valores de onkey(), existe una tabla donde las teclas tienen un valor numérico de ahí puedes evaluar la ultima tecla pulsada. Suerte

hreyes respondió: Primero debemos entendernos: Los formularios son las ventanas de captura. Tablas son los archivos donde se guardan los datos. Cuando utilizamos el Replace es porque tenemos los datos en variables de memoria, si quieres utilizar este método debes...

falvarez respondió: Mxyzptlk: Me enviaste un proyecto y luego me dices que solucionaste el problema... ¿aun necesitas mi ayuda?

falvarez respondió: Mxyzptlk (que nick más difícil!) En tu formulario crea un TextBox llamado FECHAHORA y en el evento "Init" del formulario escribe el siguiente comando: THISFORM.FECHAHORA.VALUE=DATETIME() THISFORM. REFRESH

hreyes respondió: El código que me envías resultaría muy lento si tienes cientos de registros donde buscar, te recomiendo lo siguiente: Use mitabla order indice in 1 enc=dato a buscar seek enc if found() muestro los datos else No lo encontré Muestro la ventana Endif...

falvarez respondió: mxyzpt...: Cambia el código a lo siguiente: **** Busca por Código use a:\proyecto\productos.dbf order cod IF SEEK (codigo_w) thisform.show exit ELSE messagebox( "El código no fué encontrado",16) thisform.commandgroup2.buscar.enabled=.f. Endif Para...