Este condicional nunca se me cumple, ¿Por que?
campo=Recordset1.Fields.Item("id_pos").Value
If campo >= pos then
comen="el campo se ha cambiado"
Recordset1.Fields.Item("id_pos").Value = Recordset1.Fields.Item("id_pos").Value + 1 Recordset1.Update
If campo >= pos then
comen="el campo se ha cambiado"
Recordset1.Fields.Item("id_pos").Value = Recordset1.Fields.Item("id_pos").Value + 1 Recordset1.Update
Hola.
A mi me ocurria algo parecido (no se si esto es lo que te pasa a ti) con las cadenas de caracteres y el truco que aprendí fue añadirle la cadena vacia. Es posible que si hces lo mismo pero sumandole un 0 al valor funcione :
campo = Recordset1.Fields.Item("id_pos").Value + 0
Suerte!!!
A mi me ocurria algo parecido (no se si esto es lo que te pasa a ti) con las cadenas de caracteres y el truco que aprendí fue añadirle la cadena vacia. Es posible que si hces lo mismo pero sumandole un 0 al valor funcione :
campo = Recordset1.Fields.Item("id_pos").Value + 0
Suerte!!!