PESQUISA COMPLICADA

USUARIO.EXCLUIDOS 05/09/2007 15:32:32
#234312

então faz assim:

Dim DataInicial As String
Dim DataFinal As String
Dim Unidades

Unidades = replace(txtUnidade.Text,",","','")'Ele troca tudo que tiver , por ',' assim no campo txtUnidade vc pode colocar 0010,0011,0012 q ele vai sair 0010','0011','0012

DataInicial = Format(DTDataInicial, "mm/dd/yyyy")
DataFinal = Format(DTDataFinal, "mm/dd/yyyy")
Data1.RecordSource = "Select * From TblCadastroInss where Unidade in (" & Unidade & ") and DataCarimbo BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# order by unidade"
Data1.Refresh

USUARIO.EXCLUIDOS 05/09/2007 15:50:47
#234316

Presado Orlando ainda ñ foi desta vez, continua dando erro de incompatiblidade de critério.

Marcelino Neto

USUARIO.EXCLUIDOS 05/09/2007 16:03:04
#234319

Amigo faz o seguinte...

Dim DataInicial As String
Dim DataFinal As String
Dim Unidades

Unidades = replace(txtUnidade.Text,",","','")'Ele troca tudo que tiver , por ',' assim no campo txtUnidade vc pode colocar 0010,0011,0012 q ele vai sair 0010','0011','0012

msgbox ("Select * From TblCadastroInss where Unidade in (" & Unidade & ") and DataCarimbo BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# order by unidade")


DataInicial = Format(DTDataInicial, "mm/dd/yyyy")
DataFinal = Format(DTDataFinal, "mm/dd/yyyy")
Data1.RecordSource = "Select * From TblCadastroInss where Unidade in (" & Unidade & ") and DataCarimbo BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# order by unidade"
Data1.Refresh


e Manda a tela do msgbox para a gente

SILVERDRAGON 05/09/2007 16:06:06
#234320

Amigo,


Me diz o q deu de errado?


T+

USUARIO.EXCLUIDOS 05/09/2007 16:21:07
#234327

Prezados amigos, Agradeço a ajuda de todos!!!

Orlando, Veja como ficou:

Data1.RecordSource = "Select * From TblCadastroInss where Unidade in ('" & Unidades & "') and DataCarimbo BetWeen #" & Format(DTDataInicial, "mm/dd/yyyy") & "# And #" & Format(DTDataFinal, "mm/dd/yyyy") & "# order by unidade"

Estava assim:
(" & Unidade & ")

ficou asssim:
('" & Unidades & "')

Funciou perfeito colocando apenas a virgula,

SlverDragon, no seu caso guardei o exemplo para uso futuro, O problema seria quando eu digitava o ultimo codigo teria que apagar o final ','

Mas Valeu!!!