invalidy property value ao clicar na grid

[Alex Mauricio]

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

[kuroi]

txtTelefone é um masked box??

se for o erro provavelmente acontece porque você ta tentando por um texto q não condiz com a mascara.

[Alex Mauricio]

é um mask edit sim.

porém quando clico no flex grid da primeira consulta ele mostra normalmente... ele só tá dando este problema na segunda consulta... isso é possíovel?

se sim, porque?

obrigado

[kuroi]

na hora q der o erro, aperte Ctrl + G pra abrir a janela do Immediate. la dentro, digite:

? FlexGridCadastro.Text

e aperete enter.

ai ele vai mostrar qual o conteudo q ele ta tentendo por na masked box, e vamos ver qual o problema.

[Alex Mauricio]

então...

fiz o que você solicitou.

entrei no immediate e pedi para ver o valor ?flexgridCadastro.text e o resultado foi (99)9999-9999

obs.: fiz a mesma coisa porém antes de fazer a seleção e peguei o mesmo registro...

resultado...

(99)9999-9999

e não dá erro...

é só depoiis que eu filtro.

obrigado

[kuroi]

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

[Alex Mauricio]

tentei colocar o texto no txttelefone.text = "(99)9999-9999" e dá o mesmo erro

também tentei colocar o promptinclude e rodei o programa de novo... erro tb

abraços

[kuroi]

então, na hora do erro, digite no Immediate:

? txtTelefone.Mask

e aperte enter pra ver o q retorna.

[Alex Mauricio]

quando executo ?txttelefone.mask aparece

?txtTelefone.Mask

(__)____-____

quando executo ?txttelefone.text aparece

?txtTelefone.text

(__)____-____

[kuroi]

alex, tenta por a mascara (##)####-#### no lugar dessa q ta ai.