Hola Amigos,

los resultados de mi programa deben pasar a una Base de Datos (Access).
Al final de mi: Private Subcalcular_click()

pongo lo sigiente:

Set Reg = base.OpenRecordset("SELECT*FROM Resultados_Compresion")
Reg.AddNew
With Reg
!Material = CmbMaterial.Text
!Descripcion = CmbDescripcion.Text
!Diam_Muelle = Diametro.Text
!Diam_Alambre = DiamEspira.Text
![H Solida (mm)] = Hsolida
![Tau bloque (Kg/cm2)] = Label5(0).Caption

End With
Reg.Update
Exit Sub

Cuando llega a !Diam_muelle me da error

Que estoy haciendo mal??? Estoy estancado y no se como solucionar este problema


Gracias a todos por vuestra ayuda

Hola,

Asegurate del tipo de campo que tienes en access.

Creo que no te entiendo bien, que quieres decir con tipo de campo???
yo solo quiero que los resultados me los escriba tal y como estan


Un saludo

Hola,

Me refiero a que si el campo de tu tabla es numero tu ahi le estas pasando un texto por lo que no te dejaria guardarlo.
Deberias ponerle !Diam_Muelle = val(Diametro.Text) para que lo meta como valor numérico.Edited by: Naisha

Gracias!!!!!!!!!!

voy a probarlo y te comento como me ha ido

Gracias otra vez

Hola,
he probado lo que me dijisteis , pero sigo recibiendo el mesaje de error:
"error 3265"
" No se encontro el elemento en esta coleccion"

Supongo que se refiere a los nombres de los campos de cada columna en la base de datos. El problema es que los he comprobado y estan bien definidos.....

La base de datos esta convertida a Access 97, por que si no no me la reconoce VB6. esto no es problema, no??

gracias por vuestra ayuda.

Yo creo que es un problema de referencias. Abre el menú Proyecto->Referencias y comprueba si hay alguna marcada que diga "FALTA" (o "MISSING" si la versión es inglesa), la desmarcas y ejecuta el proyecto a ver si funciona, si no es así tendrás que instalar el archivo.

Saludos