[Resolvido] CheckBox retornando erro

[nereu1301 0]

Boa Noite Mestres

Seguinte. Tá me retornando erro 13 "Type Mismach" quando vou buscar registro anterior

 

Private Sub RegistroAnterior()
        If Not rsSelecao.BOF = True Then
            rsSelecao.MovePrevious
            If Not rsSelecao.BOF = True Then
                Mostrar
            End If
        End If
    'Habilita o botao excluir'
    Toolbar1.Buttons(3).Enabled = True
End Sub

'me sinalizando nos itens checkBox nesta sub'

Private Sub Mostrar()
    TxtNumOS.Text = rsSelecao!Numero_OS
    TxtNomeCliente.Text = rsSelecao!Nome
    TxtTel.Text = Empty & rsSelecao!Telefone
    TxtCidade.Text = rsSelecao!Cidade
    TxtDataInicioServico.Text = rsSelecao!Data_Inicio_Servico
    TxtHoraInicioServico.Text = rsSelecao!Hora_Inicio_Servico
    TxtFuncReq.Text = Empty & rsSelecao!Func_Req
    TxtDpto.Text = Empty & rsSelecao!Dpto
    TxtProduto.Text = rsSelecao!Produto
    TxtModMaq.Text = Empty & rsSelecao!Modelo_Maquina
    TxtMatPat.Text = Empty & rsSelecao!Mat_Ou_Pat
   [u] ChkCapa.Value = Unchecked & rsSelecao!Capa[/u]
    ChkCabo.Value = Unchecked & rsSelecao!Cabo
    ChkBob.Value = Unchecked & rsSelecao!Bobina
    ChkEmb.Value = Unchecked & rsSelecao!Embalagem
    ChkSemAces.Value = Unchecked & rsSelecao!Sem_Aces
    TxtMotivo.Text = rsSelecao!Motivo_Chamada
    TxtObs.Text = rsSelecao!Obs
End Sub

Assim, incluo beleza, vou na tabela tá lá numa boa, volto pro meu programa tento ir pro registro anterior ai me retorna o erro.

Se puderem dar uma dica. Agradeço.

Nereu

[scorpio 7]

Que tipo de dado é o campo Capa na tabela ?

[nereu1301 0]

Bom Dia

O campo capa é sim/nao. Tentei mudar para verdadeiro/falso , ativado,desativado mas nao resolveu. Oque nao entendo porque que adiciona e exclui normalmente.

fico aguardando.

Nereu

[scorpio 7]

OK.

 

Antes da linha que dá o erro, coloca

msgbox Unchecked & rsSelecao!Capa

 

Dá uma olhada no que aparece.

[nereu1301 0]

Retorna MsgBox Verdadeiro

 

Complementando:

Agora fui na tabela e desmarquei o chekbox e a mensagem que retornou tambem foi verdadeiro. quer dizer: marcado ou desmarcado ta retornando sempre verdadeiro.

Nao sei se essa informaçao ajuda?

[scorpio 7]

Faça um IF verificando se rsSelecao!Capa = "Verdadeiro". Dai você seta o checkbox.

[nereu1301 0]

Meu camarada Scorpio

 

Ainda to rastejando no vb6, tu poderia ampliar tua dica. Tipo em qual sub faço o if??

[scorpio 7]

Na sub mostrar, onde você colaca os valores nos objetos da tela.

Exemplo:

If(rsSelecao!Capa = "Verdadeiro")Then
    ChkCapa.Value = True
Else
    ChkCapa.Value = False
EndIf

Provavelmente terá que fazer para os outros chk.

[nereu1301 0]

Certo

Entao ficaria assim para o item capa:

 

Private Sub Mostrar()
    TxtNumOS.Text = rsSelecao!Numero_OS
    TxtNomeCliente.Text = rsSelecao!Nome
    TxtTel.Text = Empty & rsSelecao!Telefone
    TxtCidade.Text = rsSelecao!Cidade
    TxtDataInicioServico.Text = rsSelecao!Data_Inicio_Servico
    TxtHoraInicioServico.Text = rsSelecao!Hora_Inicio_Servico
    TxtFuncReq.Text = Empty & rsSelecao!Func_Req
    TxtDpto.Text = Empty & rsSelecao!Dpto
    TxtProduto.Text = rsSelecao!Produto
    TxtModMaq.Text = Empty & rsSelecao!Modelo_Maquina
    TxtMatPat.Text = Empty & rsSelecao!Mat_Ou_Pat
    If rsSelecao!Capa = "Verdadeiro" Then
        ChkCapa.Value = True
    Else
        ChkCapa.Value = False
    End If
    TxtMotivo.Text = rsSelecao!Motivo_Chamada
    TxtObs.Text = rsSelecao!Obs
End Sub

Retornou erro 380

Propriedade Value invalida, sinalizando na linha chkCapa.Value = True

 

??

[scorpio 7]

Que objeto é esse ChkCapa?

 

Tenta com 0 para False e 1 para true.

[nereu1301 0]

Valeu Scorpio

Agora ta 10

Só mais uma duvida: essa regra vale tambem para optionbutton?

[scorpio 7]

Na teoria valepara tudo em qualquer lugar.

Todo numero que for diferente de 0, equivale a True. Logo 0 é False

[nereu1301 0]

Tópico finalizado.

Obrigado

Nereu