MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Login (adaptar código)

    Compartilhe

    jcmenezes1960
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/05/2010

    Login (adaptar código)

    Mensagem  jcmenezes1960 em Sex 12 Set 2014, 18:34

    Boa tarde a todos,

    Tenho um sistema de uso pessoal em Access 2003. Estou tentando adaptar dois códigos muitos bons que encontrei no fórum para adicionar o Login por nivel de usuário. (Siscad (Plinio) e Telemax (Avelino). Estou quase lá.

    Quando inclui o usuário ele deverá acrescentar na tabela permissões do usuário os registros da tabela função. Está fazendo normal, só que acrescenta na tabela permissões o ID do usuário 1, ou seja o primeiro da tabela tblUsuários e não o que estou acrescentando. Onde errei?

    Abaixo código utilizado no formulário e imagem das tabelas e do formulário.

    Agradeço a ajuda de todos.

    E aproveito para agradecer ao Plinio e ao Avelino pelos excelentes sistemas disponibilizados.

    Menezes

    Segue o código

    Private Sub BotaoIncluirUsuario_Click()
       Dim rsUsuários As dao.Recordset, rsFunções As dao.Recordset, rsPermissões As dao.Recordset
       Dim filtro As String, mysql As String, bloqueio As Boolean, idc As Long
    On Error Resume Next
           
           Dim objUsuario As New classeUsuario
           
           objUsuario.Login = CaixaLogin.Value
           objUsuario.codGrupo = CInt(CaixaGrupo.Value)
           objUsuario.status = "ATIVADO"
           objUsuario.senha = criptografarSenha("123")
           
           If objUsuario.incluir Then
               MsgBox "Usuário incluído com sucesso...", vbInformation, "Inclusão de Usuário"
               SubFCadUsuario.Requery
               
     
       Set rsUsuários = CurrentDb.OpenRecordset("tblUsuario")
       rsUsuários.AddNew
       bloqueio = True
       
       If bloqueio = True Then
       filtro = "Login = '" & Me!CaixaLogin & "' AND codgrupo ='" & Me!CaixaGrupo & "'"
       idc = DLookup("idUsuario", "tblUsuario", filtro)
       Set rsPermissões = CurrentDb.OpenRecordset("tblPermissõesUsuários")
       Set rsFunções = CurrentDb.OpenRecordset("tblFunções")
       rsFunções.MoveFirst
       Do While Not rsFunções.EOF
           rsPermissões.AddNew
               rsPermissões!IdUsuario = idc
               rsPermissões!IdFuncao = rsFunções!IdFuncao
               rsPermissões!Atualizar = -1
               rsPermissões!Inserir = -1
               rsPermissões!Excluir = -1
               rsPermissões!Bloqueada = 0
           rsPermissões.Update
           rsFunções.MoveNext
       Loop
       rsFunções.Close
       rsPermissões.Close
       Set rsFunções = Nothing
       Set rsPermissões = Nothing
    End If
       
           Else
               MsgBox "Erro ao incluir Usuário!" & vbCrLf & "Tente novamente...", vbExclamation, "Inclusão de Usuário"
           End If
       
    End Sub

    jcmenezes1960
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 08/05/2010

    Re: Login (adaptar código)

    Mensagem  jcmenezes1960 em Sex 12 Set 2014, 23:45

    Prezados senhores:

    Favor remover este tópico, foi em duplicidade e não consegui remove-lo.

    Grato e desculpem a falha e o transtorno.

    Menezes

    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5889
    Registrado : 05/11/2009

    Re: Login (adaptar código)

    Mensagem  Alexandre Neves em Sab 13 Set 2014, 09:47

    Bom dia,
    Como este foi o 1º, eliminei o duplicado.


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Ter 06 Dez 2016, 05:43