ayuda por favor!!! urgente
 

hola a todos , es la primera vez que entro y me gustaria que me resolvierais unas dudas.tengo que entregar un proyecto en visual basic.mi duda es la siguiene:quiero añadir nuevos registros a una base de datos creada en access y no intento conseguirlo.os paso el código.gracias.
Private Sub cmdañadir_Click()


sql = "INSERT INTO CLIENTES(observaciones,telefono,mireferencia) VALUES ('" & txtObservaciones.Text & "', '" & txtTelefono.Text & "','" & txtMireferencia.Text & "')"

Set tbl = bdd.Execute(sql) 'aqui es donde me da el fallo.

End Sub

Re: ayuda por favor!!! urgente
 

Hola francis_10. Bienvenido al foro.

Para preguntas concretas es preferible utilizar el foro que mejor se adapte a tu duda, así podrán ayudarte más usuarios.

Si pones títulos más descriptivos a tus mesajes, será más útil para todos.

Muevo tu mensaje al foro de Visual Basic desde Bienvenida a Foros del Web.

Saludos, :adios:

Re: ayuda por favor!!! urgente
 

seria interesante saber el codigo del error, pero puede ser porque van campos sin informacion o todos no son textos, por eso es importante saber el error que genera, quizas saber como definiste la base de datos , en el fondo, un poco mas de informacion vale?

Re: error 3021 no hay ningun registro activo
 

la base de datos está hecha en access,tengo definido los campos...asi que lo que quiero es insertar datos pero que dos campos(mireferencia y referenciamapfre)tienen que ser únicos.de esta forma me funciona pero no sé como controlar que si hay algun campo con un dato no se repita.

Private Sub cmdañadir_Click()
'*mensaje = MsgBox("ESTÁ SEGURO DE REALIZAR ESTA ACCIÓN", vbYesNo + vbExclamation, "ATENCIÓN!!")
'*If mensaje = 6 Then
'*sql = "INSERT INTO CLIENTES(observaciones,telefono,mireferencia) VALUES ('" & txtObservaciones.Text & "', '" & txtTelefono.Text & "','" & txtMireferencia.Text & "')"
'*If txtMireferencia = tbl("mireferencia") Or txtReferenciamapfre = tbl("referenciamapfre") Then
'*MsgBox "EL CAMPO MI REFERENCIA O REFERENCIA MAPFRE SON UTILIZADOS POR UN ÚNICO CLIENTE", vbInformation, "ATENCIÓN"
'*Else
'*bdd.Execute (sql)

'*MsgBox "OPERACIÓN REALIZADA CON ÉXITO!!", vbInformation, "enhorabuena"
LO QUE PASA QUE ASI NO CONTROLO LOS CAMPOS PARA QUE ESTOS NO SE REPITAN.
gracias.