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 Cumps
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)".