Ir para conteúdo
Fórum Script Brasil
  • 0

Erro


Alex Mauricio

Pergunta

Boa tarde pessoal.

tenho a seguinte pesquisa:

If optCodigo.Value = True Then
    formatFlexGridCadastro
    Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente where codigoCliente = " & Val(txtPesquisar.Text))
    linha = 1
            While Not Table_Cadastro.EOF
                FlexGridCadastro.Row = linha
                FlexGridCadastro.Col = 0
                FlexGridCadastro.Text = Table_Cadastro("codigoCliente")
                FlexGridCadastro.Col = 1
                FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("telefoneCliente")), "(00)0000-0000", Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@"))
                'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(99)9999-9999")
                'FlexGridCadastro.Text = Format(Table_Cadastro("telefoneCliente"), "(@@)@@@@-@@@@")
                FlexGridCadastro.Col = 2
                If (Table_Cadastro!bloqueioCliente = True) Then
                FlexGridCadastro.Text = "Bloqueado"
                Else
                FlexGridCadastro.Text = "Desbloqueado"
                End If
                FlexGridCadastro.Col = 3
                FlexGridCadastro.Text = Table_Cadastro("nomefonte")
                FlexGridCadastro.Col = 4
                FlexGridCadastro.Text = Table_Cadastro("nomeCliente")
                FlexGridCadastro.Col = 5
                FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataCadastroCliente")), "00/00/0000", Format(Table_Cadastro("dataCadastroCliente"), "@@/@@/@@@@"))
                FlexGridCadastro.Col = 6
                FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("horaCadastroCliente")), "00:00:00", Format(Table_Cadastro("horaCadastroCliente"), "@@:@@"))
                FlexGridCadastro.Col = 7
                FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("dataUltimaLigacao")), "00/00/0000", Format(Table_Cadastro("dataUltimaLigacao"), "@@/@@/@@@@"))
                FlexGridCadastro.Col = 8
                FlexGridCadastro.Text = Table_Cadastro("nomesituacao")
                FlexGridCadastro.Col = 9
                FlexGridCadastro.Text = IIf(IsNull(Table_Cadastro("observacoesGeraisCadastro")), "*", Table_Cadastro("observacoesGeraisCadastro"))
                
                Table_Cadastro.MoveNext
                FlexGridCadastro.Rows = FlexGridCadastro.Rows + 1
                linha = linha + 1
            Wend
            limparCampos
            Table_Cadastro.Close
Após isso, ele carrega um FlexGrid Quando dou um click no registro selecionado para carregar os campos textbox, dá o seguinte erro:
Run-time erro '380': invalidy property value
debugo o erro e ele vai para outra sub, conforme a baixo:
Private Sub FlexGridCadastro_Click()
    FlexGridCadastro.Col = 0
    txtCodigoCliente.Text = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 1
    txtTelefone.Text = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 2
    If Trim(FlexGridCadastro.Text) = "Bloqueado" Then
        telefoneBloqueado.Value = 1
    ElseIf Trim(FlexGridCadastro.Text) = "Desbloqueado" Then
        telefoneBloqueado.Value = 0
    End If
    
    FlexGridCadastro.Col = 3
    comboFonte = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 4
    txtNomeCliente = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 5
    txtDataCadastro.Text = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 6
    txtHoraCadastro.Text = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 7
    txtDataUltimaLigacao.Text = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 8
    comboSituacao = FlexGridCadastro.Text
    
    FlexGridCadastro.Col = 9
    txtObservacoes = FlexGridCadastro.Text
End Sub

o que posso fazer para resolver?

Editado por kuroi
Adicionar tag CODE
Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...