|
|
Postada em 02/03/2006 15:07 hs
Elieser, não funcionou... ele esta pedindo para inserir parametro... (é no access sim...)
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 02/03/2006 15:56 hs
Oi funcionou dessa forma: If Len(DatAberEntre) <> 0 And Len(DatConEntre) <> 0 Then
If Len(Captura) <> 0 Then
Captura = Captura & " And "
Captura = "INV_OS.SUP_DAT_ABER Between #" & [Forms]![GERAR]![DatAberEntre] & "# And #" & [Forms]![GERAR]![DatConEntre] & "#"
Else
Captura = "INV_OS.SUP_DAT_ABER Between #" & [Forms]![GERAR]![DatAberEntre] & "# And #" & [Forms]![GERAR]![DatConEntre] & "#"
End If
End If **** agora o problema é que ele esta capturando a data em mm/dd/aaaa... e eu queria colocar no padrão dia mes e ano...
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 02/03/2006 16:04 hs
obrigado pessoal ja consegui! coloquei o formato como data abreviada e ai ele mesmo arrumou! valeu!
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
Diana Alves
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 03/03/2006 08:38 hs
AI GENTE... DESCULPA...EU NÃO CONSEGUI NÃO... COLOQUEI: If Len(DatAberEntre) <> 0 And Len(DatConEntre) <> 0 Then
If Len(Captura) <> 0 Then
Captura = Captura & " And "
Captura = "INV_OS.SUP_DAT_ABER Between #" & [Forms]![GERAR]![DatAberEntre] & "# And #" & [Forms]![GERAR]![DatConEntre] & "#"
Else
Captura = "INV_OS.SUP_DAT_ABER Between #" & [Forms]![GERAR]![DatAberEntre] & "# And #" & [Forms]![GERAR]![DatConEntre] & "#"
End If
End If
E NA PROPRIEDADE DOS CAMPOS DAS DATAS EU COLOQUEI DATA ABREVIADA... E NÃO FUNCIONA... |
|
|
|
Daniel
|
SÃO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/03/2006 08:54 hs
TENTA DESSA FORMA ACHO QUE ACHEI O SEU ERRO: 1) Formatação 2) Quando voce faz Captura = " INV.....", acaba perdendo o valor anterior que estava nessa variável If Len(DatAberEntre) <> 0 And Len(DatConEntre) <> 0 Then
If Len(Captura) <> 0 Then
Captura = Captura & " And "
Captura = Captura & "INV_OS.SUP_DAT_ABER Between #" & format([Forms]![GERAR]![DatAberEntre], MM/DD/YYYY) & "# And #" & format([Forms]![GERAR]![DatConEntre], MM/DD/YYYY) & "#"
Else
Captura = Captura & "INV_OS.SUP_DAT_ABER Between #" & format([Forms]![GERAR]![DatAberEntre],MM/DD/YYYY) & "# And #" & format([Forms]![GERAR]![DatConEntre], MM/DD/YYYY) & "#"
End If
End If Espero ter ajudado
dsmn
|
|
|
|
|
|
Postada em 03/03/2006 09:41 hs
Daniel, eu coloquei isso que vc me passou e dá um erro: Erro de execução '6': Estouro ...... 
Provérbios 1:7 “O temor do Senhor é o princípio do conhecimento; mas os insensatos desprezam a sabedoria e a instrução.”
|
|
|
|
