Fecha, busqueda, append blank
Hola como estas; ¿Espero qué bien? En realidad tengo muchas prefuntas:
1º: ¿Cómo puedo hacer para que en un textbox me vaya asignando automáticamente un número en forma creciente y si borro ese registro después pueda reutilizarse y me cargue los datos en ese lugar y luego siga al final?
2º: ¿Cómo hago para que me cargue en otro textbox la fecha actual?
3º: tengo la siguiente búsqueda:
if flock()
with thisform
if thisform.optbuscar.optpelicula.value =1
locate for pelicula.titulo = alltrim(thisform.txtbuscar.value)
set index to pelicula.cdx tag titulo
seek alltrim (thisform.txtbucar.value)
if titulo= .T.
messagebox ("se encontro",0,"confirmacion")
else
messagebox ("No se encontro",0,"confirmacion")
endif
endif
if thisform.optbuscar.optnumpelicula.value = 1
locate for pelicula.npelic = .txtbuscar.value
Endif
.refresh
endwith
Endif
El tema es que no me muestra lo que encontró en ningún lado y la idea es que cdo lo encuentre con otros botones pueda modificar o eliminar lo que haya encontrado. ¿Cómo puedo hacer?
4º: Después de muchas prubas logre cargar datos en una tabla... El tema es que ahora me salta un erron de unicidad y me muestra el error en append blank, ¿qué hago?
¿Por favor podrías ayudarme?
Gracias.
1º: ¿Cómo puedo hacer para que en un textbox me vaya asignando automáticamente un número en forma creciente y si borro ese registro después pueda reutilizarse y me cargue los datos en ese lugar y luego siga al final?
2º: ¿Cómo hago para que me cargue en otro textbox la fecha actual?
3º: tengo la siguiente búsqueda:
if flock()
with thisform
if thisform.optbuscar.optpelicula.value =1
locate for pelicula.titulo = alltrim(thisform.txtbuscar.value)
set index to pelicula.cdx tag titulo
seek alltrim (thisform.txtbucar.value)
if titulo= .T.
messagebox ("se encontro",0,"confirmacion")
else
messagebox ("No se encontro",0,"confirmacion")
endif
endif
if thisform.optbuscar.optnumpelicula.value = 1
locate for pelicula.npelic = .txtbuscar.value
Endif
.refresh
endwith
Endif
El tema es que no me muestra lo que encontró en ningún lado y la idea es que cdo lo encuentre con otros botones pueda modificar o eliminar lo que haya encontrado. ¿Cómo puedo hacer?
4º: Después de muchas prubas logre cargar datos en una tabla... El tema es que ahora me salta un erron de unicidad y me muestra el error en append blank, ¿qué hago?
¿Por favor podrías ayudarme?
Gracias.
1 respuesta
Respuesta de davsoft
1