erro em tempo de execução 2471

Grandes Mestres

Qual o motivo de erro em tempo de execução no código abaixo:

Private Sub DatAte_AfterUpdate()
Dim registros As String
Dim MesAnoAtu As Date
Dim InicioMes As Date
Dim FimMes As Date
'Dim DtHoje As String
Dim dtate As String


InicioMes = DateSerial(Year(DatAte), Month(DatAte), 1) 'primeiro dia do mês
MsgBox InicioMes 'primeiro dia do mês

FimMes = DateSerial(Year(DatAte), Month(DatAte) + 1, 0) 'último dia mês atual
MsgBox FimMes 'último dia mês atual


registros = DCount("MatAte", "TbAtendimento", "[MatAte]=Forms![Cad_Atendimento]![MatAte] and [CodAte]=Forms![Cad_Atendimento]![CodAte] and [DatAte]>=InicioMes and [DatAte]<=FimMes")


MsgBox registros
If registros > 2 Then
MsgBox "Associado já extrapolou limite de atendimentos no período", vbExclamation, "EXCESSO DE SALÃO"

DoCmd.CancelEvent 'cancela o evento.

Me.[AteCod].SetFocus
Me.[codcod].SetFocus
Me.Undo
Cancel = True
End If

End Sub

Muito grato

Abraços

Grande Avelino,

Cliquei no link e não tem vídeo. Li diversos tópicos seus (grandes dicas, grandes bizus). Ler o que escreves é sempre uma lição para nós, eternos aprendizes. Tentei fazer como dissestes, no entanto sempre fica erro de abrir/fechar aspas/perênteses. Onde ficariam os mesmos para ficar totalmente correto?

Muito grato

E as aspas e parênteses?

registros = DCount("MatAte", "TbAtendimento", "[MatAte]=Forms![Cad_Atendimento]![MatAte] and [CodAte]=Forms![Cad_Atendimento]![CodAte] and "[DatAte] > = " & InicioMes And "[DatAte] < = " & FimMes)

número

Grandes Mestres

Utilizei a linha exatamente do modo que copiei daqui e continua dando mesmo erro (2471).
Com este código quero saber quantos atendimentos foram feitos por determinado associado (MatAte = Número) de um sindicato, dependendo do tipo de atendimento (CodAte = Texto) e do intervalo de data (primeiro ao último dia do mês) vindo de DatAte = Data/Hora. InicioMes e FimMes vem de DatAte.
MatAte = Número
CodAte = Texto
DatAte = Data/Hora

Onde foi que errei?

Dim filtro$
filtro = "[MatAte]=" & Forms![Cad_Atendimento]![MatAte] & " and [CodAte]=" & Forms![Cad_Atendimento]![CodAte] & " and ([DatAte]>=" & InicioMes & " And [DatAte]<=" & FimMes & ")"
registros = DCount("MatAte", "TbAtendimento", filtro)

Ainda falta incluir no filtro: [CodAte]="Salão". Como ficaria?

Muito grato

Grande Avelino

Fiz os devidos testes e o resultado foi o seguinte:
1 - Obtive 65 registros que são os registros da TbAtendimento
2 - 57 registros que coincide MatAte
3 - 50 registros que coincide CodAte
4 - 48 registros que coincidem MatAte + CodAte

Acho que agora dará tudo certo. Vou tentar e retorno.

Mais uma observação: Este código eu coloquei no campo DatAte do formulário em Após Atualizar e depois em Antes de atualizar e em ambos os casos só entra no código se redigitar a data em DatAte que está como padrão a data do sistema?

Mais uma vez muito grato

Abraço

Caro Avelino

O caso 5 que você deixou para mim é exatamente todo o problema em questão. Como dissestes, este tipo de variável (InicioMes + FimMes) teria um tratamento diferenciado e é este diferenciado que não dá certo. Aí é que reza a questão. Queria apenas um exemplo deste tratamento. Seria possível grande Mestre?

Abraço

Te deixei a pior parte (risos).

Vejamos como vc deve testar até chegar no valor:

Teste 5:

Dim filtro$
filtro = "[DatAte]>=" & InicioMes
msgbox filtro 'aqui vc irá verificar se data InicioMes está passando o valor para o filtro
registros = DCount("MatAte", "TbAtendimento", filtro)

Se falhar tente com a #

Dim filtro$
filtro = "[DatAte]>=#" & InicioMes & "#"
msgbox filtro 'aqui vc irá verificar se data InicioMes está passando o valor para o filtro
registros = DCount("MatAte", "TbAtendimento", filtro)

Teste 6:

Dim filtro$
filtro = "[DatAte]<=" & FimMes
msgbox filtro 'aqui vc irá verificar se data FimMes esta passando o valor para o filtro
registros = DCount("MatAte", "TbAtendimento", filtro)

Teste 7:
Quando acertar, junte as duas datas com o AND

Dim filtro$
filtro = "[DatAte]>=#" & InicioMes & "# AND [DatAte]<=#" & FimMes & "#"
msgbox filtro 'aqui vc irá verificar se data InicioMes e FimMes estão sendo passandos para o filtro
registros = DCount("MatAte", "TbAtendimento", filtro)

Aguardamos

Grande Avelino

O pior que ficou para mim ainda não quer funfar:

No primeiro teste exibe o filtro: [DatAte]>=01/06/13 que está correto. Porém depois de filtrar tenho 72 registros que é o total da tabelas (tendo data inferiores a 01/06/13). Tanto com # como sem.

No segundo teste exibe o filtro: [DatAte]<=30/06/13 e me retorna 0 (zero) registros

Quando junta tudo... Zero registros

E agora?

Mestre

Com relação ao intervalo de datas aparentemente começou a funcionar. Fiz alguns testes rápidos e passou. Falta juntar com o restante dos critérios. Vou tentar e retorno...

Dúvidas: Não entendi a questão da data modelo americano. Quando exibo o critério antes desta formatação aparece [DatAte]>=30/06/13. Isto não é o correto? E não dá certo. Se formatar para mm/dd/yy passa. Tem como me dizer lago?

Ainda ficou outra dúvida citada anteriormente: Qual o motivo que quando não redigito o campo DatAte ele não entra no código. O campo DatAte tem como valor padrão a data do sistema. Se eu der enter não entra no código. Já coloquei no antes de atualiza e depois de atualizar e faz a mesma coisa.

Fico no aguardo

Muito grato

Caro Avelino

Esqueceu d´eu?

O intervalo de datas está funcionando perfeitamente. Graças à Deus e a você. No entanto ainda falta:

Dúvidas: Para efeito de aprendizado. Não entendi a questão da data modelo americano. Quando exibo o critério antes desta formatação aparece [DatAte]>=30/06/13. Isto não é o correto? E não dá certo. Se formatar para mm/dd/yy passa. Tem como me dizer lago?

Ainda ficou outra dúvida citada anteriormente: Qual o motivo que quando NÃO redigito o campo DatAte ele não entra no código. O campo DatAte tem como valor padrão a data do sistema. Se eu der enter não entra no código. Já coloquei no antes de atualiza e depois de atualizar e no momento está Ao perder foco e faz a mesma coisa.

No momento código está assim:

Private Sub DatAte_LostFocus()

If [CodAte] = "Salão" Then

Dim registros As String
Dim MesAnoAtu As Date
Dim InicioMes As Date
Dim FimMes As Date
'Dim DtHoje As String
Dim dtate As String
Dim filtro$

InicioMes = DateSerial(Year(DatAte), Month(DatAte), 1) 'primeiro dia do mês
'MsgBox InicioMes 'primeiro dia do mês

FimMes = DateSerial(Year(DatAte), Month(DatAte) + 1, 0) 'último dia mês atual
'MsgBox FimMes 'último dia mês atual


filtro = "[MatAte]=Forms![Cad_Atendimento]![MatAte] and [CodAte]=Forms![Cad_Atendimento]![CodAte] and [DatAte]>=#" & Format(InicioMes, "mm/dd/yy") & "# AND [DatAte]<=#" & Format(FimMes, "mm/dd/yy") & "#"

registros = DCount("MatAte", "TbAtendimento", filtro)

'MsgBox registros
If registros > 1 Then
MsgBox "Associado já usou seu limite de atendimentos no período " & registros, vbExclamation, "LIMITE DE ATENDIMENTO"

Me.Undo
Me.[AteCod].SetFocus
Me.[codcod].SetFocus


End If

End If


End Sub

Também não limpa os campos ao voltar para início do formulário (tirei as linhas que não funcionaram)
Também hora salva hora não salva mesmo entrando no código


Fico no aguardo

Muito grato

Vou estudar e volto com a resposta.

Abraços

Grande Avelino

Já li, estudei, testei, endoidei, pesquisei, enfim fiz tudo que minha mente alcança e não consigo ver onde está o erro. Acho que tem haver com as datas invertidas (já li bastante sobre), tipo de dados, etc., mas não consigo enxergar.
Seria possível te enviar o formulário com as tabelas para me ajudar. Não sei mais o que faço. Utilizei todas as suas orientações e outros feras desta selva e não resolve. Sei que é uma besteira e você de cara resolverá.
Se posso mandar. Para onde mando?
Muito Grato