[Resolvido]Dificuldade de salvar dados do form numa tabela

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.

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

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

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.

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.

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.

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.

Mylton,

Fiz alguns ajustes no sistema e também validação de dados através do MAC ADRESS da máquina. Ficou assim:


Apos Salvar, o sistema emite mensagem de confirmação e grava os dados criptografados na tabela:


É isso

Segue versão

Att,

FIM

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.

Resolvido.

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

Sucesso.

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

Já disponibilizado a todos no endereço
https://www.maximoaccess.com/t42089-aplicativo-para-capturar-informacoes-do-pc-e-salvar-numa-tabela#285160

Meu obrigado a vcs.
Boa semana.