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: 1021)

  1. 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

    que linguagem é essa? VB6?
    e em que linha te dá o erro?

    cumps
     
  3. 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