FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Incrementar un campo numerio
Hola...
Que rutina puedo inplementar en el Evento OnNewRecord o en el Evento BeforePost de mi tabla para incrementar un Campo numerico de la tabla (Codigo)... Lo que quiero es cuando presione el boton de insertar si el codigo es igual a 1 le sume otro y seran 2 y asi sucesibamente o puede ser cuando grabe. mucha Graciasssssssssssssss
__________________
Edwin Simon la Tierra del Merengure Republica Dominicana |
#2
|
||||
|
||||
Código:
Procedure Form1.Table1BeforePost(losparametros); begin if Table1.State = dsInsert Then Begin Query1.sql := 'Select max(codigo) maximo from tabla'; Query1.Open; Table1.Codigo := Query1.FieldByName('Maximo').AsInteger + 1; Query1.Close; end; end; Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate) Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|