Dica
|
OSASCO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 06/02/2006 14:59 hs
**Ola, gostaria de saber como que eu faço para colocar em um OpenReport mais de uma condição where... **Quando eu coloquei só uma condição funcionou normal: DoCmd.OpenReport "REL_INV_OS", acViewPreview, , "INV_OS.ID Like '" & [Forms]![INV_OS]![txtID] & "'", acWindowNormal **Agora quando eu ponho mais de uma não dá certo... tô colocando assim: DoCmd.OpenReport "GERA_REL_INV_OS", acViewPreview, , "INV_OS.ID Like '" & [Forms]![GERAR]![txtID] & "'" And "INV_OS.CODIGO Like '" & [Forms]![GERAR]![TxtCodigoFantasia] & "'", acWindowNormal ** Se alguem puder ajudar.... Valeu!
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
|
|
|
|
Postada em 14/02/2006 14:40 hs
Diana, boa tarde.. Não utilizo Openreport por isto não tenho certeza do que vou falar, mas em principio estando a condição do sql perfeita não ha porque não funcionar para mais de uma condição.. Tem como voce testar a instrução sql de outra forma para saber que recuperar os dados esperados ?? |
|
|
|
Diana
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/02/2006 06:55 hs
Gelson, estou estou tentando fazer assim agora: Private Sub BtnRelatorio_Click()
Dim Captura As String If txtFantasia <> 0 Then
Captura = "INV_OS.FANTASIA Like '" & [Forms]![GERAR]![txtFantasia] & "'"
If txtSOLICITANTE <> 0 Then
Captura = Captura & " INV_OS.SOLICITANTE Like '" & [Forms]![GERAR]![txtSOLICITANTE] & "'"
If txtID <> 0 Then
Captura = Captura & " INV_OS.ID Like '" & [Forms]![GERAR]![txtID] & "'"
If TXT_SUP_TEC_RES <> 0 Then
Captura = Captura & " INV_OS.SUP_TEC_RES Like '" & [Forms]![GERAR]![TXT_SUP_TEC_RES] & "'"
End If
End If
End If
End If
DoCmd.OpenReport "GERA_REL_INV_OS", acViewPreview, , Captura, acWindowNormal O que vc acha? Está correto? O VBA diz que está faltando um Operador... Não está funcionando... Abraço.
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
|
|
Postada em 15/02/2006 08:14 hs
Diana, bom dia.. Dica: Tente verificar o conteudo da variavel (captura) antes de executar a abertura do tabela. Se voce esta colocando mais de uma condição tem que ter o operador de união. captura = INV_OS.FANTASIA Like '" & [Forms]![GERAR]![txtFantasia] & "'"
If txtSOLICITANTE <> 0 Then
If Len(captura) > 0 then Captura = captura & " And " Captura = Captura & " INV_OS.SOLICITANTE Like '" & [Forms]![GERAR]!txtSOLICITANTE] & "'"
|
|
|
|
|
|
Postada em 15/02/2006 08:39 hs
Bom dia!!! Coloquei assim: Private Sub BtnRelatorio_Click()
Dim Captura As String If txtFantasia <> 0 Then
Captura = "INV_OS.FANTASIA Like '" & [Forms]![GERAR]![txtFantasia] & "'"
If txtSOLICITANTE <> 0 Then
If Len(Captura) > 0 Then Captura = Captura & " And "
Captura = Captura & " INV_OS.SOLICITANTE Like '" & [Forms]![GERAR]![txtSOLICITANTE] & "'"
If txtID <> 0 Then
If Len(Captura) > 0 Then Captura = Captura & " And "
Captura = Captura & " INV_OS.ID Like '" & [Forms]![GERAR]![txtID] & "'"
If TXT_SUP_TEC_RES <> 0 Then
If Len(Captura) > 0 Then Captura = Captura & " And "
Captura = Captura & " INV_OS.SUP_TEC_RES Like '" & [Forms]![GERAR]![TXT_SUP_TEC_RES] & "'"
End If
End If
End If
End If
TESTE.Value = Captura
DoCmd.OpenReport "GERA_REL_INV_OS", acViewPreview, , Captura, acWindowNormal
End Sub
Mais aparece uma mensagem dizendo para Inserir o Valor do Parâmetro INV_OS.FANTASIA Não funcionou.... desculpe... Se tiver mais dicas... muito obrigado.
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
