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

invalidy property value ao clicar na grid


Alex Mauricio

Pergunta

Boa tarde Pessoal...

Estou com o seguinte erro

Quando abre a tela de cadastro, o flexgrid carrega automaticamente... conforme o código fonte abaixo e funciona perfeitamente... posso clicar em cima dos registros ( no flexgrid ) que ele está mostrando nos campos text's certinho... ( segue o código abaixo )

Private Sub carregaFlexGridCadastro()

Dim linha As Long

Set Table_Cadastro = BancoDeDados.OpenRecordset("SELECT * FROM TbSituacao INNER JOIN (TbFonte INNER JOIN TbCadastro ON TbFonte.codigoFonte = TbCadastro.fonte) ON TbSituacao.codigoSituacao = TbCadastro.situacaoCliente Order by TbCadastro.codigoCliente")

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.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

Table_Cadastro.Close

End Sub

porém, se eu peço uma consulta para mostrar só o registro de número "x" e clico em cima dele dá o erro ( vou postar o código da pesquisa abaixo para ver q é igual... pelo menos não achei nada de diferente )

Private Sub cmdPesquisar_Click()

Dim linha As Long

On Error GoTo fErro

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

end sub

ele aponta o erro para a linha abaixo em negrito...

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

por que em uma pesquisa funciona e na outra não?

obrigado

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0

isso ta estranho mesmo. qual a mascara q esta no txtTelefone??

quando der esse erro de novo, tenta escrever o seguinte no Immediate:

txtTelefone.Text = "(99)9999-9999"
e aperte enter. veja se ele não poe o texto certinho ou se da o mesmo erro. em algum lugar antes de chamar essa pesquisa, você altera a mascara ou a propriedade PromptInclude do txtTelefone?? tente antes da linha do erro, adicionar a linha:
txtTelefone.PromptInclude = True

Link para o comentário
Compartilhar em outros sites

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,5k
×
×
  • Criar Novo...