Aumenta mas
Publicado por yanira (140 intervenciones) el 17/01/2007 22:42:00
Necesito aumentar 1 al valor que tiene el campo ACTA, y dejarlo en el mismo campo incrementado, es decir si en el registro habia 0001 que deje 0002, no que agregue otro registro sino que remplace el valor que tiene.
Lo hago mediante la siguiente funcion que es llamada en una consulta
Function ActaConsecutivo() As Double
' Extrae consecutivo para numero de Acta de la tabla ACTA
Dim BD As Database
Dim Consulta As QueryDef
Dim Respuesta As Double
Con = DLookup("[ACTA]", "ACTA")
Set BD = CurrentDb()
Texto = "UPDATE ACTA " & _
"SET [ACTA] = " & Str(Con + 1)
Set Consulta = BD.CreateQueryDef("", Texto)
Consulta.Execute
Consulta.Close
ActaConsecutivo = Con
End Function
El problema es que lo hace tres veces, es decir en el campo con 0001 ahora queda 0004
Como hago para que solo lo haga una vez y porque lo hace tantas veces.
Lo hago mediante la siguiente funcion que es llamada en una consulta
Function ActaConsecutivo() As Double
' Extrae consecutivo para numero de Acta de la tabla ACTA
Dim BD As Database
Dim Consulta As QueryDef
Dim Respuesta As Double
Con = DLookup("[ACTA]", "ACTA")
Set BD = CurrentDb()
Texto = "UPDATE ACTA " & _
"SET [ACTA] = " & Str(Con + 1)
Set Consulta = BD.CreateQueryDef("", Texto)
Consulta.Execute
Consulta.Close
ActaConsecutivo = Con
End Function
El problema es que lo hace tres veces, es decir en el campo con 0001 ahora queda 0004
Como hago para que solo lo haga una vez y porque lo hace tantas veces.
Valora esta pregunta
0