[Resolvido]Salvar dados Checkbox em Formulário

Boa tarde,

Tenho uma tabela com campo de pesquisa caixa de combinação, que permite multipla escolha

(img1)


Que me permite escolher no formulário

(img2)



na hora de salvar pede para depurar
A mensagem que abre é "Erro em tempo de execução '13': Tipos incompatíveis...


, mais o código está certo...


Set rs = CurrentDb.OpenRecordset("SELECT * FROM avaliacoes", dbOpenDynaset)
 Do While Not rs.EOF
 
cheka = rs("nomeAvaliacao").Value & rs("bloco").Value << linha que dá o erro
 If cheka = (Me.txtavaliacao.Value & Me.cboBloco.Column(0)) Then,

Porem salva.... quando abro novamente o formulário consta a inserção...

Como resolver o Erro?

Grata

Se está retornando erro de "tipos incompatíveis" quer dizer que você está colocando um tipo de dado onde a sintaxe pede outro tipo de dado.
Ex. Onde a função pedir que você informe um dado do tipo String, você deve informar String. Caso informe um Boolean, por exemplo, o access vai retornar esse erro.

Normalmente esse erro é resolvido fazendo um Casting (Conversão de tipo).

Veja se esse artigo te ajuda.

docs.microsoft.com/pt-br/office/vba/language/concepts/getting-started/type-conversion-functions

Caso continue com problemas poste uma parte do banco pra gente tentar ajudar.

Bom dia,

Verifiquei.. o tipo de dados é número...

Segue o banco link:


Obs:
Não pode colocar links externos diretos aqui, leia as regras por favor;

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

Obrigada.

Boa tarde,

Não disponibilizou bd, apenas ligação das regras do fórum

Grata

Dá pra mandar o arquivo dentro da mensagem mesmo.

Boa tarde,


Não cabe... já apaguei tudo... deixei só duas linhas para teste e ficar "enorme"...

Obrigada

Grata renpv

Ficou tudo certo.

Boa tarde
Se ficou tudo certo:
1 - é bom que explique como resolveu para que possa ajudar outros membros que venham a ter a mesma dúvida. É esse o objectivo do fórum
2 - Marque o "Resolvido" para que outros não abram desnecessariamente para tentar ajudar uma situação já resolvida

Nesse caso o problema era que a coluna buscada no banco de dados era multi-valorada. Para resolver bastou mudar o código

Código:

cheka = rs("nomeAvaliacao").Value & rs("bloco").Value

para esse

Código:

cheka = rs("nomeAvaliacao").Value & rs("bloco").Value.Value

Bom dia

Ainda falta o "Resolvido". Aguardamos...

Obrigada Renato!