lunes, 30 de marzo de 2009

Ingresar un nuevo registro en un cuadro combinado

Una pregunta que hacemos con frecuencia es como hacer para ingresar un nuevo registro a un combo: la respuesta es sencilla en el evento al no estar en la lista del cuadro combinado colocas el siguiente codigo.

Dim strsql
MsgBox "Aqui va el mensaje que enviaras al usuario."
strsql = "Insert Into Aqui va el nombre de Formulario ([Aqui va el nombre del Campo a ingresar]) values ('" & NewData & "')"
'MsgBox strsql
CurrentDb.Execute strsql, dbFailOnError
Response = acDataErrAdded

Espero que haya sido de gran utilidad

No hay comentarios: