1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Data Type Mismatch in Criteria Expression

Discussão em 'Programação' iniciada por Kitha, 9 de Maio de 2008. (Respostas: 2; Visualizações: 1028)

  1. Kitha

    Kitha

    #1 9 de Maio de 2008
    Boas pessoal, estou aqui com um problema com esse código, sempre que o corro aparece-me

    "Run-Time Error '3464':

    Data Type Mismatch in Criteria Expression"

    Código:
    'On Error GoTo Err_CmdConf_Click
Dim Base As Database
Dim str, strTest0, strTest1, strTest2, strTest3 As String
Dim rcd, rcd1, rcd2 As Recordset
Set Base = CurrentDb
Set rcd = Base.OpenRecordset("SLProd_Out", dbOpenDynaset)
Set rcd1 = Base.OpenRecordset("SLProd_In", dbOpenDynaset)
strTest0 = [Forms]![ShelfLife]![Lb_Armazem].Column(0)
strTest1 = [Forms]![ShelfLife]![Lb_Armazem].Column(1)
strTest2 = [Forms]![ShelfLife]![Lb_Armazem].Column(2)
strTest3 = [Forms]![ShelfLife]![Lb_UtiOfi].Column(4)
str = "SELECT SLProd_In.PN, SLProd_In.TR, SLProd_In.Dt_L, SLProd_Out.TAP_Num" _
 & " FROM SLProd_Out,SLProd_In WHERE (((SLProd_In.PN)='" & strTest0 & "') AND ((SLProd_In.TR)='" & strTest1 & "') AND ((SLProd_In.Dt_L)='" & strTest2 & "') AND ((SLProd_Out.TAP_Num)='" & strTest3 & "'))"
Set rcd2 = Base.OpenRecordset(str)
    Se me pudessem ajudar agradecia :rolleyes:

    Cumps :kfold:
     
  2. Armadillo

    Armadillo Folding Member

    #2 9 de Maio de 2008
    que linguagem é essa? VB6?
    e em que linha te dá o erro?

    cumps
     
  3. Kitha

    Kitha

    #3 9 de Maio de 2008
    Estou a trabalhar no Acess 2002, a versão do vb é a 6 também acho.
    e dá-me erro depois de ler o código SQL--> "Set rcd2 = Base.OpenRecordset(str)".
     

Partilhar esta Página