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

    Problemas com Insert

    Compartilhe

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 5:45

    Bom dia a todos.
    Pessoal estou com uma dificuldade para salvar um campo criptografado. Se eu usar campos acoplados funciona legal porém como não gosto de trabalhar com assistentes e campos acoplados tem que ser no insert mesmo mas está dando erro ao salvar se os dados tiverem ??? !!! ...

    Vejam as imagens.



    Texto exemplo que não salva.
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Desde já agradeço e tenham um ótimo dia.


    Última edição por formiga10x em Qua 1 Abr - 12:51, editado 2 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 1 Abr - 6:06

    Olá!

    Fiz um teste aqui e gravou normal

    currentdb.Execute "INSERT INTO tblTeste (NomePaciente, obs) VALUES ('Formiga','" & "????!!!..." & "')"

    Mostre a sua consulta completa

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 6:30

    Olá Mestre Avelino.

    Código:
            Encriptar = Form_Contatos.txtDiario
            Varteste = EncriptaStr(Encriptar)
            'Form_Contatos.txtDiario = Varteste
            
        If MsgBox("Confirmar a Gravação do Registro? ", vbYesNo + vbInformation, "CEV-Controle de Estoque e Vendas") = vbYes Then
        
            CurrentDb.Execute "Insert Into tbldiario (texto) values ( '" & Varteste & "')" 'Este é um teste para saber se é a variável já criptografada que está dando erro. E deu...
            CurrentDb.Execute "Insert Into tblDiario (Data,Texto,Titulo,UserLogado) Values ('" & Form_Contatos.txtData & "',""" & Varteste & """,""" & Form_Contatos.txtTitulo & """,'" & Form_Contatos.txtUserContato & "')"
                

    Gostaria de salvar a variável Varteste que já vai criptografada porém só salva se não tiver estes caracteres ??? <> !!! etc

    Para ficar mais fácil a resolução segue o bd desde já agradeço a ajuda.

    Link


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 1 Abr - 6:53

    Realizei um novo teste e funcionou

    Dim varteste
    varteste = "A?v?e?l!n!.0)"
    CurrentDb.Execute "INSERT INTO tblteste (Nomepaciente,obs) VALUES ('Formiga3','" & varteste & "');"


    Sugestões:

    - Teste com um valor fixo na variável como fiz:

    varteste = "A?v?e?l!n!.0)"

    - Troque os nomes dos campos DATA e TEXTO ( algo como DataLançamento e TextoCrip )

    - Acrescente a função Cstr()

    CurrentDb.Execute "INSERT INTO tblteste (Nomepaciente,obs) VALUES ('Formiga3','" & CStr(varteste) & "');"

    Aguardamos


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 7:05

    Persiste o erro mesmo convertendo...
    Se for com campo acoplado funciona perfeitamente pale
    Código:
            CurrentDb.Execute "INSERT INTO tblDiario (TextoCrip) VALUES ('" & CStr(Varteste) & "');"


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 7:17

    Mestre testei com o valor que sugeriu Varteste = "A?v?e?l!n!.0)" gravou normalmente.


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 1 Abr - 7:44

    Copie e cole aqui um valor real criptografado.

    No aguardo


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 7:48

    macarrão
    äY{,Wñ8


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

    Avelino Sampaio
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3348
    Registrado : 04/04/2010

    Re: Problemas com Insert

    Mensagem  Avelino Sampaio em Qua 1 Abr - 8:09

    Coloquei ele fixo e gravou

    varteste = "äY{,Wñ8"

    Experimente com ele fixo



    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    formiga10x
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 10/09/2013

    Re: Problemas com Insert

    Mensagem  formiga10x em Qua 1 Abr - 8:11

    Este valor grava o problema é quando tem espaço ou mesmo !!! / ?? ..


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes

      Data/hora atual: Qua 7 Dez - 14:13