MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Alterar Usuario na Tabela pelo Formulário

    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    Alterar Usuario na Tabela pelo Formulário Empty Alterar Usuario na Tabela pelo Formulário

    Mensagem  AMarcos em 16/1/2020, 23:58

    Amigos mestres tenho um Formulário para cadastrar novos usuários, mas pensei na possibilidade do cliente querer substituir um usuário que não tem mais acesso ao programa por um outro com o mesmo nível e função.

    Por exemplo, tenho 4 usuários e consigo acrescentar um novo preenchendo os campos exigidos (Nome; Nivel; Funcao) com chave primária no campo ID_Usuario (numeração automática) e com Senha a ser escolhida durante o cadastramento.

    Como faço para o cliente substituir o campo "Nome" de um ex-usuario aproveitando todos os outros campos de um antigo usuário e essa substituição apareça na Tabela Usuários (atualização) no mesmo ID do antigo usuário?

    O código para incluir está sendo esse:

    Private Sub btn_Gravar_Click()
    If IsNull(Me.txt1) Or Me.txt1.Value = "" Then
    MsgBox "O campo Nome é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.Usuario.Value = txt1

    If IsNull(Me.txt2) Or Me.txt2.Value = "" Then
    MsgBox "O campo Senha é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.Senha.Value = txt2

    ElseIf IsNull(Me.txt3) Or Me.txt3.Value = "" Then
    MsgBox "O campo Nível é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.Login.Value = txt3

    ElseIf IsNull(Me.txt5) Or Me.txt5.Value = "" Then
    MsgBox "O campo Função é de preenchimento obrigatório.", vbOKOnly + vbCritical, "Atenção"
    Me.Funcao.Value = txt5
    Else
    MsgBox "Usuário cadastrado com sucesso!!!!", vbInformation, "Usuarios"
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.GoToRecord , , acNewRec
    DoCmd.Close
    DoCmd.OpenForm "Frm_Login"
    End If
    End Sub



    Como faço se eu incluir um botão ALTERAR???


    Att,


    AMarcos
    avatar
    AMarcos
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 26/07/2016

    Alterar Usuario na Tabela pelo Formulário Empty Re: Alterar Usuario na Tabela pelo Formulário

    Mensagem  AMarcos em 17/1/2020, 23:59

    Caros mestres este link não disponibiliza o Formulário o que facilitaria o entendimento. Somente aparece Tabela.

    https://www.maximoaccess.com/t37122-resolvidoatualizar-numeracao-apos-excluir-algum-registro?highlight=Excluir+dados+de+uma+tabela


    Parece que estou fugindo do tópico, mas creio que em vez de Alterar o Usuário existente, eu possa ADICIONAR um novo e EXCLUIR um antigo. Tá na idéia.
    Além é claro poder reordenar a a sequência numérica da Tabela.


    Att,


    AMARCOS

      Data/hora atual: 5/7/2020, 14:42