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


2 participantes

    [Resolvido]Passar variável boleana em insert via vba

    avatar
    krpsaes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 07/05/2019

    [Resolvido]Passar variável boleana em insert via vba Empty [Resolvido]Passar variável boleana em insert via vba

    Mensagem  krpsaes 23/4/2020, 03:48

    Oi gente, tudo bem?

    Montei um script para inserir dados em uma tabela via import de um arquivo .xls, está funcionando direitinho, porém precisei incluir um campo boleano (checkbox), no arquivo excel ele está como true/false, como eu passo o campo?
    Está indicando a mensagem "Tipos de dados incompatíveis". Acredito ser algo simples mas travei nele Sad

    Segue parte do código onde está o erro de sintaxe:

    strColumnBcleaned = Replace(xlWs.Cells(intLine, 1).Value, "'", """")

    strSqlDml = "INSERT INTO lj_Fornecedores  (NOME, INATIVO) VALUES('" & strColumnBcleaned & "'," aqui_entra_o_campo_boleano ")"

    Alguma luz???

    Obrigada

    Katia
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Passar variável boleana em insert via vba Empty Re: [Resolvido]Passar variável boleana em insert via vba

    Mensagem  Alexandre Neves 23/4/2020, 19:29

    Boa tarde
    strColumnBcleaned = Replace(xlWs.Cells(intLine, 1).Value, "'", """")
    Tente saber que valor devolve (será Sim/Não? será True/False?) e tente
    se fôr Sim/Não: if xlWs.Cells(intLine, 1)="Sim" then strColumnBcleaned=True else strColumnBcleaned=False
    se fôr True/False: strColumnBcleaned=strColumnBcleaned


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    krpsaes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 07/05/2019

    [Resolvido]Passar variável boleana em insert via vba Empty Quase lá

    Mensagem  krpsaes 24/4/2020, 01:48

    Very Happy

    Meu access é em português, utiliza então VERDADEIRO/FALSO, até aí tudo bem quanto a adaptar o código que você me passou.
    Só mais uma dúvida:

    "se fôr True/False: strColumnBcleaned=strColumnBcleaned"

    Aqui você diz para igualar os dois strColumn, é isto mesmo??? Não entendi o porquê.

    Obrigada!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8496
    Registrado : 05/11/2009

    [Resolvido]Passar variável boleana em insert via vba Empty Re: [Resolvido]Passar variável boleana em insert via vba

    Mensagem  Alexandre Neves 24/4/2020, 20:55

    Boa noite
    Foi engano
    se fôr True/False: strColumnBcleaned=xlWs.Cells(intLine, 1)


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    krpsaes
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 16
    Registrado : 07/05/2019

    [Resolvido]Passar variável boleana em insert via vba Empty Re: [Resolvido]Passar variável boleana em insert via vba

    Mensagem  krpsaes 26/4/2020, 00:51

    Aehhhhhhhhhhhh!!!!!!!!!!!
    Funcionou!!!!

    Muito, muito obrigada!!! flower

    Conteúdo patrocinado


    [Resolvido]Passar variável boleana em insert via vba Empty Re: [Resolvido]Passar variável boleana em insert via vba

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:18