¡¡ Ayudenme !! Error al llamar registro en base de datos

[NARDYSS]

Hola que tal, soy nuevamente NARDYS, lo que pasa es que estuve investigando y encontre la forma de llamar una base de datos mediante DAO.
Me fuciona bien si no utilizo un WHERE pero lo necesito ya que solamente quiero mandar llamar un registro determinado, pero me marca error.
El codigo es el siguiente:

Option Explicit
Dim BD As DAO.Database
Dim RS As DAO.Recordset

Private Sub Form_Load()
Dim tFolio As Integer

tFolio = frmReportes.Foli

Set BD = OpenDatabase("C:\Mis documentos\Sistema Viaticos\Viaticos.mdb")
Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)
Llenar
etiqueta.Caption = frmReportes.Foli
End Sub

------

Me marca error con el WHERE, el error es el siguiente:
Data type mismatch in criteria expresion

Espero que puedan ayudarme, me es muy muy URGENTE!!!

Gracias

[rahd_rr]

Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)

deberais checar la sintaxis deberias poner ....

Viat.Folio = '" & tFolio & "' esto sin parentecis ...

checa que el campo "Folio" de la tabla "Viat" sea del mismo tipo que
el de "tFolio"...

espero qeu te sirva de algo ok bueno nos vmeos... suerte

....rahd RR

[NARDYSS]

hola, muchas gracias por tu consejo, pero estuve checandolo y aun asi sigue marcando el mismo error Hasta pronto

[Samaris]

Iniciado por NARDYSS

Hola que tal, soy nuevamente NARDYS, lo que pasa es que estuve investigando y encontre la forma de llamar una base de datos mediante DAO.
Me fuciona bien si no utilizo un WHERE pero lo necesito ya que solamente quiero mandar llamar un registro determinado, pero me marca error.
El codigo es el siguiente:

Option Explicit
Dim BD As DAO.Database
Dim RS As DAO.Recordset

Private Sub Form_Load()
Dim tFolio As Integer

tFolio = frmReportes.Foli

Set BD = OpenDatabase("C:\Mis documentos\Sistema Viaticos\Viaticos.mdb")
Set RS = BD.OpenRecordset("Select * from Viat where (Viat.Folio = '" & tFolio & "')", dbOpenDynaset, dbOptimistic)
Llenar
etiqueta.Caption = frmReportes.Foli
End Sub

------

Me marca error con el WHERE, el error es el siguiente:
Data type mismatch in criteria expresion

Espero que puedan ayudarme, me es muy muy URGENTE!!!

Gracias

Espera...

estas diciendo que tFolio es integer entonces la consulta deberia ser asi... (tFolio sin comillas, porque lo esta tomando como si fuera string)

"Select * from Viat where Viat.Folio =" & tFolio