MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Maestro 5.0 Mudar Combo Usuario para Caixa de Texto

    Compartilhe

    peter&punk2017
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/11/2017

    Maestro 5.0 Mudar Combo Usuario para Caixa de Texto

    Mensagem  peter&punk2017 em Ter 14 Nov 2017, 23:32

    Boa noite a todos gostaria de mudar (do aplicativo Mastro5.0 do professor Avelino) a combo Usuario por uma Caixa de Texto.

    Obrigado a todos.

    irailson
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 07/09/2010

    Re: Maestro 5.0 Mudar Combo Usuario para Caixa de Texto

    Mensagem  irailson em Dom 19 Nov 2017, 19:23

    Boa tarde a todos, O mestre Avelino escreveu os códigos para mudar (no Maestro 5.0) a cbo Usuário por TxUsuario, a seguir:
    rivate Sub btok_Click()
    Dim k As Integer, p

    'verifica se o usuário existe na tabela
    If DCount("*", "tblUsuários", "usuario = """ & Me!TxUsuario & """") > 0 Then
    ' se usuário existe, passa os dados da tabela para a matriz p
    p = Split(DLookup("idUsuario & '|¦|' & usuario & '|¦|' & senha", "tblusuários", "usuario=""" & Me!TxUsuario & """"), "|¦|")
    ' verifica se a senha está correta
    If StrComp(Me!senha, fncCrip(CStr(p(2)), 102030), vbBinaryCompare) = 0 Then

    'repassa a identificação do usuário para a variável login
    Login.id = p(0) 'IdUsuário
    Login.Usuario = p(1) 'Nome do usuário
    'esconde o formulário login
    Me.Visible = False
    DoCmd.OpenForm "frm_Principal"
    'Carrega título do aplicativo com o nome do usuário logado
    Call fncTítuloUsuário(CStr(p(1)))

    '--------------------------------
    'Limpar campos do form login
    '--------------------------------
    Me!TxUsuario = Null: Me!senha = Null:
    Me!TxUsuario.SetFocus

    If nlogoff = False Then
    Call fncBloquear(0, 0) 'Carrega Permissões na variável VarPer
    nlogoff = True
    End If
    DoCmd.OpenForm "frm_Principal"
    Else
    MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha....", vbInformation, "Aviso"
    Me!senha = Null
    Me!senha.SetFocus
    End If
    Else
    MsgBox "Usuário não consta na lista...", vbInformation, "Aviso"
    Exit Sub
    End If

    End Sub

      Data/hora atual: Ter 21 Nov 2017, 21:04