[Resolvido]Critério para campo de horário

Senhores, boa tarde!

Preciso de ajuda. Ao inserir dados em um campo de horário, cujo tenho um código de critério surgiu um erro:  "Erro em tempo de execução 13".
Segue o BD anexo para vossa análise. "Cadastro de Eventos"

Obrigado.

Boa noite,
Controlo horário?
controlo Data?
converter data em Long?
Reveja o que pretende

Então Dourival, primeiro explique o qual a sua necessidade com o código do erro, pois como o colega Alexandre expôs, está bem confuso. Você pretende verificar na tabela se o horário digitado já existe para uma determinada data, sendo positivo não permitir a inserção do horário? Alexandre em relação ao tópico acho que deveria ser movido para a sala de formulários, já que o problema do colega está nesse objeto.

betogivoni, boa tarde!

Pretendo verificar na tabela se o horário digitado já existe para a DATA DIGITADA, sendo positivo não permitir a inserção do horário.

Grato.

Então a primeira coisa que tens que fazer e renomear os nomes dos campos de tua tabela. Já se tem falado bastante a esse respeito aqui no fórum, para evitar usar nomes internos do access, mas parece que não tem solução. Quanto ao pedido de ajuda, podes usar no evento antes de atualizar do campo horario (sem acento) o segunte:

If DCount("*", "tabela de Eventos", "DtEvento = #" & Format(DtEvento, "mm/dd/yyyy") & "# And horario = #" & Me.horario & "#") > 0 Then
'MsgBox "Horário já lançado para essa data, "DUPLICIDADE DE REGISTROS"
'DoCmd.CancelEvent
'Me.horario.Undo
'End If

Ou se quer armazenar na variável como estava tentando fazer:

Dim strFiltro$
strFiltro = DCount("*", "tabela de Eventos", "DtEvento = #" & Format(DtEvento, "mm/dd/yyyy") & "# And horario = #" & Me.horario & "#")

If strFiltro > 0 Then
MsgBox "Horário já lançado para essa data…."
Cancel = True
Me.horario.Undo
End If

OBS: mude os nomes dos controles Data e horário para DtEvento e horario, por exemplo.

betogivon, muitíssimo obrigado, agora vou testar....

Beto, boa tarde!

Eu alterei conforme sua solicitação, porém fiz o teste e não acontece nada.

Obrigado.

Tem como vc fazer um teste?

Boa tarde Dorival.

Como diz o Datena me ajuda ai, antes de passar o código já tinha feito os testes com ambos e estava funcionando, faz o teste ai. Deixei o código com a variável, mas o outro funciona também.

Amigo, perfeito!!!

Deus vos abençoe continuamente!!!!

abraço

Leia isso, para encerrar o tópico.
http://maximoaccess.forumeiros.com/t860-resolucao-de-topicos

O Fórum agradece o Retorno.

Não se esqueça de clicar no botão de resolvido!
Desta vez eu coloco.


Moderação