En primer lugar; la funcion correlativo tenes que llamarla antes de
AddNew; y en segunda la variable
NRO_CARGO tiene que ser publica o tendrias que hacer que la funcion
CORRELATIVO1 devuelva un valor.
Otra cosa ¿Que estas utilizando ADO o DAO?.
En fin, el codigo queda algo asi:
Código:
Private Sub Command2_Click()
NRO_CARGO = CORRELATIVO1
With TABLA1
.AddNew
TABLA1("NRO_CARGO") = NRO_CARGO
TABLA1("FE_CARGO") = FE_CARGO
TABLA1("RUT") = RUT
TABLA1("NOM") = NOM
TABLA1("DIRE") = DIRE
TABLA1("CIU") = CIU
TABLA1("DCTO") = DCTO
TABLA1("FE_DCTO") = FE_DCTO
TABLA1("CAUSAL") = CAUSAL
TABLA1("MOTIVO") = MOTIVO
TABLA1("RESOL") = RESOL
TABLA1("FE_RESOL") = FE_RESOL
TABLA1("VAL_AD") = VAL_AD
TABLA1("TIPO_IMPTO") = TIPO_IMPTO
TABLA1("ADV") = ADV
TABLA1("IVA") = IVA
TABLA1("OTRO1") = OTRO1
TABLA1("VAL_OTRO1") = VAL_OTRO1
TABLA1("OTRO2") = OTRO2
TABLA1("VAL_OTRO2") = VAL_OTRO2
TABLA1("TOTAL") = TOTAL
TABLA1("FUNCIONARIO") = FUNCIONARIO
.Update
MsgBox " HA INGRESADO EL CARGO" + " " + NRO_CARGO, 16, "MENSAJE"
End With
TABLA1.Close
BASE.Close
End Sub
'==================
Private Function CORRELATIVO1() As Integer
Dim siguiente As Integer
Set TABLA1 = BASE.Execute("SELECT MAX(NRO_CARGO) FROM DATOS")
siguiente = TABLA1(0) + 1
CORRELATIVO1 = siguiente
End Function
Suerte
