Access 2007. Error de no coinciden los tipos
Publicado por Jose Miguel (7 intervenciones) el 05/02/2009 11:25:57
Buenas
Estoy usando Access 2007, he creado un formulario para introducir datos en una tabla.
Mi problema es el siguiente, en el boton que al hacer click graba el registro en la tabla, me da error de que no coinciden los tipos, os pongo el codigo
Private Sub Comando27_Click()
Dim tablanombre As String
tablanombre = "SALONES"
Dim base As Database
Dim tabla As Recordset
Set base = CurrentDb()
Set tabla = base.OpenRecordset(tablanombre)
With tabla
.AddNew
![CODIGO SALON] = Me.SALON_SOLICITADO
![CODIGO RAMA] = Me.RAMA
![FECHA PETICION] = Me.FECHA_DE_PETICION
![HORA DE INICIO] = Me.HORA_DE_INICIO
![HORA FINALIZACION] = Me.HORA_DE_FINALIZACION
![RESPONSABLE DE PETICION] = Me.PERSONA_QUE_REALIZA_LA_PETICION
![FECHADEREUNION] = Me.FECHA_DE_REUNION
![MOTIVO] = Me.MOTIVO_DE_PETICION
![COMENTARIOS] = Me.COMENTARIOS_PETICION
.Update
End With
tabla.Close
Set base = Nothing
DoCmd.Close acDefault
End Sub
Bien cuando llega a la linea "Set tabla = base.OpenRecordset(tablanombre)", me salta un error diciendome que no coinciden los tipos. He probado a poner el nombre de la tabla directamente en lugar de usar la variable para poner el nombre de la tabla, y tampoco.
Se os ocurre algo?
Gracias de antemano.
Estoy usando Access 2007, he creado un formulario para introducir datos en una tabla.
Mi problema es el siguiente, en el boton que al hacer click graba el registro en la tabla, me da error de que no coinciden los tipos, os pongo el codigo
Private Sub Comando27_Click()
Dim tablanombre As String
tablanombre = "SALONES"
Dim base As Database
Dim tabla As Recordset
Set base = CurrentDb()
Set tabla = base.OpenRecordset(tablanombre)
With tabla
.AddNew
![CODIGO SALON] = Me.SALON_SOLICITADO
![CODIGO RAMA] = Me.RAMA
![FECHA PETICION] = Me.FECHA_DE_PETICION
![HORA DE INICIO] = Me.HORA_DE_INICIO
![HORA FINALIZACION] = Me.HORA_DE_FINALIZACION
![RESPONSABLE DE PETICION] = Me.PERSONA_QUE_REALIZA_LA_PETICION
![FECHADEREUNION] = Me.FECHA_DE_REUNION
![MOTIVO] = Me.MOTIVO_DE_PETICION
![COMENTARIOS] = Me.COMENTARIOS_PETICION
.Update
End With
tabla.Close
Set base = Nothing
DoCmd.Close acDefault
End Sub
Bien cuando llega a la linea "Set tabla = base.OpenRecordset(tablanombre)", me salta un error diciendome que no coinciden los tipos. He probado a poner el nombre de la tabla directamente en lugar de usar la variable para poner el nombre de la tabla, y tampoco.
Se os ocurre algo?
Gracias de antemano.
Valora esta pregunta


0