MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 29/5/2023, 18:57

    Boa tarde
    Estou tentando salvar os valores capturados de algumas funções numa tabela para posterior uso.
    Jà tentei e tentei e paro aqui.

    If DCount("txtCodigo", "tbl_registro", "Codigo = " & txtCodigo & "") > 0 Then

    Anexo o que fiz.
    Alguma outro caminho ou onde errei?


    e se possível como criptografar direto na base ou em outro campo?
    Obrigado.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  crysostomo 29/5/2023, 22:43

    Boa noite.
    Segue anexo.
    OBS seu txtCódigo não pode ficar vazio, altere para ele vir com algum numero pois a condição só está valendo para o txt codigo, mude ele para outro campo, exe.: MAC.
    Faz mais sentido ele verificar se jÁ existe o MAC do cliente se não ele adiciona
    Anexos
    [Resolvido]Dificuldade de salvar dados do form numa tabela AttachmentSalvar V01.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (227 Kb) Baixado 3 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Mylton gosta desta mensagem

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 29/5/2023, 23:17

    Oi
    Vou ver sem falta.
    Tô no plantão agora.
    Obrigado pela dica e ajuda.
    Boa semana
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 30/5/2023, 14:25

    Bom dia
    Crysostomo

    Seu módulo
    'by crysosormo
    Private Sub Bt_Fechar_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset

    Set db = CurrentDb

    If DCount("Codigo", "tbl_registro", "Codigo = '" & Me.txtCodigo & "'") > 0 Then
    MsgBox "Já existe um registro com esse código.", vbInformation
    Else
    Set rs = db.OpenRecordset("tbl_registro", dbOpenTable)
    rs.AddNew
    rs("Codigo") = Me.txtCodigo
    rs("EndMAC") = Me.Text
    rs("NomePC") = Me.Text1
    rs("EndIdProcessador") = Me.Text2
    rs("EndPlacaMae") = Me.Text3
    rs.Update
    rs.Close
    MsgBox "Registro salvo com sucesso.", vbInformation
    End If

    Set rs = Nothing
    Set db = Nothing
    End Sub


    Aparentemente conflita na linha
    rs.Update
    que ao efetuar o comentário ' prossegue sem problemas mais não grava na tabela.


    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  crysostomo 30/5/2023, 14:52

    Ele está confeitado porque seu txtxcodigo não pode ficar vazio por isso ele não pode atualizar. Coloque qualquer número no código que ele vai salvar ou para verificar outro campo.
    É como eu disse na mensagem N° 2.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Mylton gosta desta mensagem

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 30/5/2023, 15:12

    Crysostomo
    A ideia seria gerar algumas informações do PC da pessoa e ao efetuar a proteção comparar os valores.

    Seria mais uma forma de controle nossa.

    Encontrei uma codificação que busca as características do processador, algo que mesmo sendo necessário uma formatação não muda.
    Vou adaptar aqui e postar mais tarde, na tentativa de salvar esses dados numa tabela.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  crysostomo 30/5/2023, 15:34

    A série de HD muda e se muda de sala mudar o roteador  tbm.
    O sistema está obrigatoriamente a mercê da Internet pelo MAC se ela cair o sistema não funciona.
    O mais próximo a proteção é validar o processador e a marca e versão do PC ou o sistema verificar a chave de Windows que ele tem.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Mylton gosta desta mensagem

    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 13/12/2016

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Alexandre Fim 30/5/2023, 15:45

    Mylton,

    Fiz alguns ajustes no sistema e também validação de dados através do MAC ADRESS da máquina. Ficou assim:
    [Resolvido]Dificuldade de salvar dados do form numa tabela Gravad10

    Apos Salvar, o sistema emite mensagem de confirmação e grava os dados criptografados na tabela:
    [Resolvido]Dificuldade de salvar dados do form numa tabela Gravad11

    É isso

    Segue versão

    Att,

    FIM
    Anexos
    [Resolvido]Dificuldade de salvar dados do form numa tabela AttachmentSalvar_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (50 Kb) Baixado 11 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dificuldade de salvar dados do form numa tabela Setinf11
    Sistemas e Tecnologia Ltda

    Mylton gosta desta mensagem

    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 30/5/2023, 20:48

    Alexandre Show.
    Obrigado.

    Agora é estudar e tentar criptografar quando salva.
    Depois comparar e liberar.
    Mas devagar também é depressa.
    Se me permite vou deixar lá no repositório para que todos tenham acesso.
    Obrigado a vc e ao Crysostomo.
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 30/5/2023, 20:50

    Resolvido.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2680
    Registrado : 23/01/2018

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  crysostomo 30/5/2023, 20:55

    Como eu te falei. Não pode deixa o txtxCodigo vazio é só mudar para outro campo.Ex.:MAC.

    Sucesso. Basketball


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3246
    Registrado : 13/12/2016

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Alexandre Fim 30/5/2023, 20:57

    Mylton,
    O fórum agradece.

    Se me permite vou deixar lá no repositório para que todos tenham acesso.

    Mas é claro...Deve deixar no repositório para que outros membros possam utilizar.
    É tudo nosso..rsss

    Att

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Dificuldade de salvar dados do form numa tabela Setinf11
    Sistemas e Tecnologia Ltda
    Mylton
    Mylton
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1017
    Registrado : 23/08/2010

    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Mylton 30/5/2023, 20:59

    Alexandre Fim e crysostomo gostam desta mensagem


    Conteúdo patrocinado


    [Resolvido]Dificuldade de salvar dados do form numa tabela Empty Re: [Resolvido]Dificuldade de salvar dados do form numa tabela

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/5/2024, 09:42