[Resolvido]Access bichado ou Código errado?????

Bom dia senhores!!!!

Estou com um problema terrível....

Espero que alguém por aqui consiga me ajudar pois já não sei mais o que fazer.... não sei se é problema com o meu Access 2010 ou se é com o código que estou utilizando....


Private Sub btnLogin_Click()

   Dim criterio As String
   criterio = "login='" & cbxLogin & "' And senha='" & txtSenha & "'"
       
   If DCount("login", "Usuario", criterio) = 1 Then
       DoCmd.Close
       DoCmd.OpenForm "FPrincipal"
   Else
       MsgBox "Senha incorreta! Por Favor, tente novamente.", vbExclamation, "Login"
           txtSenha.SetFocus
   End If
   
End Sub

ALGUÉM PODE ME DIZER SE TEM ALGO DE ERRADO COM O CÓDIGO OU SE É CONFIGURAÇÃO COM ACCESS OU SE ESTÁ MESMO BICHADO???

Desde já eu agradeço ao empenho

Giancarlo

giankarlo.bra, boa tarde!

Qual erro que ocorre? Acho que esqueceu de dizer isto.

Simplesmente clico no botão e ele não executa o comando....

Não entendo o porque isso está acontecendo.
Cheguei a suspeitar que estaria havendo um erro de comunicação entre o VBA e o Access.
Desinstalei o Office e reinstalei, mas o erro continua

O mais interessante é que em um outro sistema eu tenho a mesma rotina e funciona perfeitamente.
Quando eu renomeio esse outro sistema, o dito botão deixa de funcionar.

Não sei o que está acontecendo

Será que pode me ajudar?????

Coloca um Break Point ou um Stop e vai executando passo-a-passo até você entender o que está ocorrendo que ele não está fazendo o que você quer.

Código:

Private Sub btnLogin_Click()

  Dim criterio As String

stop

  criterio = "login='" & cbxLogin & "' And senha='" & txtSenha & "'"
     
  If DCount("login", "Usuario", criterio) = 1 Then
      DoCmd.Close
      DoCmd.OpenForm "FPrincipal"
  Else
      MsgBox "Senha incorreta! Por Favor, tente novamente.", vbExclamation, "Login"
          txtSenha.SetFocus
  End If
 
End Sub

Coloca este Stop e executa, na tela que aparecer vai dando F8 até encontrar onde está errado. Da uma atenção a este IF pra ver se tá tudo ok com ele. Ve se esses campos existem na tabela.

E avisa ai pra que possamos entender melhor.

Isso que eu não estou entendendo...
Não dá erro algum...
Executa normalmente e no código não apresenta nenhuma erro, nada de nada........

Quando vou executar a rotina no formulário... pronto.... clico no botão e não executa a ação

Vale lembrar que essa rotina está dentro do evento "Ao clicar" do btnLogin ok?

Tente isso:

If DCount("*", "Usuario", criterio) = 1 Then

Além disso, eu retiraria o DoCmd.Close e passaria para o form "FPrincipal", no evento "Ao abrir" (referenciando o form inicial, é claro).

Qual versão do access que está usando?
Se for esses novos, você já habilitou as permissões especiais? (não lembro o nome delas agora...)

Duas perguntas!
1- Você configurou seu access?
2-Em outro banco de dados os botões funcionam?

Se não configurou vai a dica:

Abra o Access, clique em arquivo.
Central de Confiabilidade.
Configuração da Central de Confiabilidade.
Configuração de Macro.
Marque a última caixa.
Habilitar todas as macros.

Amigo Cláudio....

Não funcionou.... o incrível é que só funciona as macros.... os procedimentos não funcionam

Será que preciso habilitar algumas biblioteca ou sei lá o que no access para poder executar os procedimentos???

Olá WaliSilva

Estou usando o Access 2010
E não entendi quais são essa permissões especiais não... você poderia me falar mais a respeito?

Lupércio!!!

Valeu meu amigo... agora sim... deu certo.........

Valeu mesmo.. vc salvou 6 meses de trabalho....

Brigadão a todos que tentaram me ajudar.... e vai aí a dica do Lupércio........ espero que ajudem a muitos outros com o mesmo problema que eu...

Gente.............
Muitíssimo obrigado a todos que me ajudaram
Espero que Deus continue abençoando a cada um de vocês

Feliz natal e um Próspero Ano Novo a todos

O fórum agradece!
Sucesso!

Tenha um bom dia!