[Resolvido]Dcount ou SQL?

Ola.
Estou com uma dificuldade.
Terminei o meu Bd está faltando a tela de login
O meu front-end esta desvinculado do back-end.
Eu preciso comparar se a senha e o usuário inserido na tela de login é igual a que está na tabela.
Então tentei usar o Dcount... Mas não consegui... Da pra fazer com o Dcount?

Olá Wilson,

Coloque a função abaixo em um módulo qualquer.

Código:



Public Function FN_VerificaLogin() As Boolean
On Error GoTo trata_erro
Dim rs          As DAO.Recordset
Dim DB          As DAO.Database
Dim sSql        As String
    
    FN_VerificaLogin = True
    
    Set DB = CurrentDb
    
    sSql = "SELECT * FROM <SUA_TAB_USUARIO> WHERE <CAMPO_LOGIN_TAB> = <Me.CampoLoginDoForm> AND <CAMPO_SENHA_TAB> = <Me.CampoSenhaDoForm>"
    Set rs = DB.OpenRecordset(sSql, dbOpenSnapshot)
    If rs.EOF Then
        MsgBox "Usuário e/ou senha incorretos.", vbExclamation, "Aviso"
        FN_VerificaLogin = False
    End If
    
    rs.Close
    Set rs = Nothing
    
    Exit Function
trata_erro:
    
    FN_VerificaLogin = False
    MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Function

End Function



No seu formulário de login, no botão "OK", coloque a seguinte instrução

Código:


Private Sub cmdOK_Click()


    If FN_VerificaLogin = False Then
        MsgBox "Usuário e/ou senha incorretos.", vbExclamation, "Aviso"
        Exit Sub
    End If

End Sub




OBS: Substitua os textos entre <> pelo nome respectivos nomes de tabela e nome de campos.


Espero ter ajudado

[]'s

boa tarde,
da sim para fazer com o dcount

'user seria o nome do seu campo usuario que foi declarado na tabela
'campoUser e campoSenha é o nome do seu campo no formulário

if dcount ("user","TabelaUsuario","user = '" & campoUser & "' and senha = '" & campoSenha & "'") = 1 then
  debug.print "user logado com sucesso"
else
  debug.print "usuario ou senha invalido"
endif

sucesso

opa, desculpe. esqueci que suas tabelas estao desvinculdas.

faça do jeito que o amigo alexandre fim mostrou que ira dar certo.
mas o amigo alexandre so esqueceu de informar que sera outro bd que vai ser aberto.

segue codigo de antes e depois

'antes
'Set DB = CurrentDb
'depois
Set DB = OpenDatabase(pathDoBancoDeDados)


eu nao testei, mas acho q ira funcinoar.

sucesso

Olá Alexandre e Ronaldo.
Muito obrigado pela vossa ajuda... Usei o codigo postado pelo Alexandre e obtive o seguinte erro:

Erro gerado: 3061 - Poucos parametros. 1 esperado.

Olá Wilson,
Por gentileza, poste seu banco de dados(somente as partes envolvidas, para análise.

Grato.

Abraços

Senha back-12345

Senha 12345

Ok Wilson,

Vc está usando o sistema desacoplado â tabela e com base de dados separado.

Realmente, a instrução que te mandei deus erro pq achei que as tabelas eram locais.

Ja baixei o teu sistema e vou fazer as devidas implementações no código.

Logo mais eu posto o resultado...

Abraços

Obrigado pela atenção Alexandre

Wilson boa noite,

Fiz as devidas alterações no código e agora está o sistema verifica o login do usuário.

Espero ter ajudado.

Boa sorte.

Abraços

Alexandre bom dia!
O sistema login está funcionando perfeitamente.
Muito obrigado.

Este problema está resolvido.

Agora não consigo importar tabela sem digitar a senha.
Sempre que executo a sub a baixo pede para digitar a senha. Eu gostaria que passa-se direito. Tem como fazer?

Public sub importarTabela()
Dim str as string
Dim caminho as variant
Str="\Tesouraria.accdb"
caminho=CurrentProject.Path & str

Docmd.TransferDatebase acImport, "Microsoft Access", caminho, acTable, "tblDizimo", "tblDizimo"

End Sub

Agreço

Bom dia Wilson.
O fórum agradede por mais um problema resolvido.

Por qual motivo vc importa a tabela?
Só pra eu entender melhor o processo.

Abraços

A questão é a seguinte:
Nos meus relatórios não consigo usar o recordSet diretamente nos relatorios. Então eu tenho que importar a tabela e so depois usar o codigo SQL e VBA porque não consigo popular as caixa de texto com as tabelas separadas do front-end

E depois elimino as tabelas ao fechar relatório.

Olá Wilson,

Segue a versão 2 do sistema com a função que copia a tabela para o database local.

Nesta versão criei um formulário para teste, onde vc informa o nome da tabela e clica em "OK", e a função copia a tabela para o database local.

Obs.: Caso a tabela não aparecer no Painel de Navegação do Access, pressione "F5"

Espero ter ajudado.

Boa sorte

Ok
Vou tentar e ja lhe retorno em algumas horas

Ola Alexandre.
Muito obrigado.
Está funcionando perfeitamente.

Ok Wilson!!!
Obrigado pelo retorno.
O fórum agradece.

Por gentileza, finalize o tópico como "Resolvido"

Muito obrigado.

Abraços

Vou precisar que me oriente para marcar como resolvido.
Tentei nesta última mensagem. Não sei se está como resolvido.
Fiz do modo que entendi.