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

krpsaes 23/4/2020, 03:48

krpsaes: Novato; Respeito às regras :

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

Mensagem nº1

[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** 23/4/2020, 19:29

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº2

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

krpsaes 24/4/2020, 01:48

krpsaes

krpsaes: Novato; Respeito às regras :

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

Mensagem nº3

Quase lá

Mensagem krpsaes 24/4/2020, 01:48

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** 24/4/2020, 20:55

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8449
Registrado : 05/11/2009

Mensagem nº4

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