[Resolvido]Erro 3464 para a Função DCount

Olá gente,

Estou criando um DCount que possui a função de verificar na tabela se determinado registro já foi cadastrado. O registro mencionado é do tipo data ou date. Na tabela do banco utilizei uma mascara 00/0000, mês e ano, respectivamente. Preciso inserir no momento em que o usuário realiza o login no sistema uma mensagem que identifique se ele já cadastrou os dados no sistema para uma tabela especifica. De forma simples toda vez que o mês e o ano mudar de status o aplicativo verificará se o usuário realizou o cadastro, caso a condição tenha sido negativa, o formulário de cadastro será aberto e ele procederá o cadastro. Abaixo estou postando o código.

Código:


Private Sub btnTestando_Click()

filtro = Format(Me!txtPeriodo, "mm/yyyy")

If DCount("*", "tblNotaFiscalDados", "periodo = '" & filtro & "'") > 0 Then
   MsgBox "O Cliente " & Me!txtPeriodo & " já existe..."
   Me.Undo
   Cancel = True
End If

End Sub



Entranto todas as vezes que executo, o access apresenta o erro "Erro em Tempo de Execução 3464". Desde já agradeço qualquer ajuda.

Grato,

Bem, consegui resolver o problema parcialmente. Entretanto não consegui filtrar a informação. O código não filtrar a informação corretamente quando o período ou data já encontra-se cadastrado na tabela. Peço qual quer ajuda. Abaixo consta o código atualizado.

Código:



Private Sub btnTestando_Click()

filtro = Month(Date)

If DCount("*", "tblNotaFiscalDados", "periodo =" & Month(Date)) <> filtro Then
  MsgBox "O período fiscal de " & filtro & " não existe. Por favor cadastre o período."
  DoCmd.OpenForm "frmNotaFiscalDados"
 ElseIf DCount("*", "tblNotaFiscalDados", "periodo = " & Month(Date)) = filtro Then
 MsgBox "O periodo fiscal de" & filtro & " já existe..."
End If

End Sub


Darlan

Experimente:


Private Sub btnTestando_Click()

filtro = Month(Date)

If DCount("*", "tblNotaFiscalDados", "periodo =" & Month(Date)) = 0 Then ' Lembre-se, é uma contagem, retorna um número de registros encontrados.
   MsgBox "O período fiscal de " & filtro & " não existe." & vbcrlf & "Por favor cadastre o período."
   DoCmd.OpenForm "frmNotaFiscalDados"
ElseIf
   'Acredito que a linha abaixo n será necessário, serve só como exemplo.
    MsgBox "O periodo fiscal de" & filtro & " já existe..."
End If

End Sub

Gostaria de agradecer a atenção Noobezinho, mas não funcionou. Na verdade já havia tentado esta alternativa. Abaixo consta um link com o banco e um vídeo de demonstração do problema. Agradeço mais uma vez qualquer ajuda. Penso que o problema esta no filtro da data, pois o que preciso filtrar é o mês e o ano, ou seja, no campo "periodo" da tabela, mesmo colocando no formata "mm/yyyy", no envio da informação via formulário "aFrmTestando", ele grava no formato "data abreviada", assim quando da realização do filtro no formulário "aFrmTestando", ele precisa confrontar o mês e o ano, retirados do campo "periodo" da tabela, com o mês e o ano do windows e chamar o formulário "frmNotaFiscalDados" para o cadastro de um novo período, caso o mês e ano sejam diferentes durante a verificação entre a tabela do banco e a data do windows do usuário.



Link: 1drv.ms/f/s!AgHCWa12NNUWgcoX40yO2f_GkLnETw
Copiar e colar no navegador - Não são permitidos links externos



Grato,

Olá a todos,
Darlan, não vi o projecto.
No entanto verifique o tipo de dados do periodo e filtro.
Tenha atenção em não comparar "alhos" com "bogalhos".
Abraço

Olá Teixeira, como vai amigo?

Enfim já fiz e refiz o código por diversas vezes, contudo até agora nada de resolver a demanda. A questão que já filtrei o valor no banco de diferente formas, na tentativa de realizar o proposto anteriormente. Abaixo estou colocando a ultima tentativa, mesmo desta forma não solucionou o problema. O que pretendo é no momento que o usuário logar no sistema, se ele não cadastrou um novo período, a informação apareça, solicitando um novo cadastro. Abaixo o ultimo codigo.

Código:


Private Sub btnTestando_Click()

filtro = Format(Now(), "mm/yyyy")

If DCount("*", "tblNotaFiscalDados", "periodo =" & Format("periodo", "mm/yyyy")) <> filtro Then
  MsgBox "O período fiscal de " & filtro & " não existe. Por favor cadastre o período."
  DoCmd.OpenForm "frmNotaFiscalDados"
 Else
 MsgBox "O periodo fiscal de" & filtro & " já existe..."
End If

End Sub

Grato,



Mude seu Codigo para:

Código:

Private Sub btnTestando_Click()
Dim Filtro As String
Filtro = Format(Now(), "mm/yyyy")

If DCount("*", "tblNotaFiscalDados", "periodo=#" & Filtro & "#") <= 0 Then
   MsgBox "O período fiscal de " & Filtro & " não existe. Por favor cadastre o período."
   DoCmd.OpenForm "frmNotaFiscalDados"
 Else
 MsgBox "O periodo fiscal de: " & Filtro & " já existe..."
End If

End Sub

Lembre-se DCount é contagem (1,2,3,4,5...) de acordo com o Critério.


Alem do # # que faltava, qnd tratamos data pelo VBA temos que informar...

Olá Fabio,

Obrigado pela ajuda. Após a sua sugestão funcionou perfeitamente. Grato mais uma vez pela ajuda.

Grato pelo retorno! Até a próxima se Deus quiser!