![Antiguo](http://static.forosdelweb.com/fdwtheme/images/statusicon/post_old.gif)
15/01/2009, 17:55
|
| | Fecha de Ingreso: junio-2008
Mensajes: 2
Antigüedad: 16 años, 8 meses Puntos: 0 | |
Respuesta: access 2007 Que tal me pueden ayudar tengo problemas con el access 2007, la cuestion esta asi tengo una tabla que se llama cuestionario el cual tiene los siguientes campos: buenas, malas, nombre_de_la_persona_que_realiza_el_cuestionario (nombre_tel) y nota. Tengo un formulario donde hay una pregunta y el usuario tiene que darle click al boton verdadero o falso dependiendo de cual boton le de este generara un conteo de buenas y malas, ok hasta aqui todo bien. Mi pregunta es la siguiente como hago para que al finalizar el cuestionario este me guarde la nota en el campo nota, he leido un poco y lo estos haciendo con DAO les muesttro un poco el codigo:
en mis declaraciones generales del formulario he puesto este codigo:
Option Explicit
Private db As dao.Database
Private rs As dao.Recordset
Cuando carga el formulario (form_load()) he puesto este codigo:
Const sPathBase As String = "C:\Users\Enzo\Desktop\Varios\Preguntas.mdb"
Set db = OpenDatabase(sPathBase)
Set rs = db.OpenRecordset("Select * from cuestionario", dbOpenDynaset)
y en el boton he puesto lo siguiente, es aqui donde quiero que me guarde la nota:
Private Sub Comando8_Click()
malas = malas + 1
rbuenas = rbuenas + buenas
rmalas = rmalas + malas
notastel = (rbuenas * 10) / 21
With rs
.AddNew
' Añadimos algún texto, para saber que es un nuevo dato
.Fields("buenas") = rbuenas
.Fields("malas") = rmalas
.Fields("nota_tel") = notastel
' Actualizamos los datos, para que se graben en el recordset
.Update (Cuando corro el programa es aqui donde me da error en .UPDATE)
End With
End Sub
Espero sus comentarios y ayuda |