invalidy property value ao clicar na grid

Alex Blumer · Outubro 15, 2009

Boa noite 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?

gabrieldb · Outubro 16, 2009

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

Eu acho que você está fazendo da forma errada Alex.

Eu consegui fazer isso em meu sistema com um DataGrid e funciona assim :

Private Sub DataGrid1_Click()
Text1.Text = rs("codigo_cli")
Text2.Text = rs("nome_cli")
text3.Text = rs("estab_cli")
end sub

Quando clico no Datagrid ele preenche as textbox conforme o recordset.

Caulfield · Outubro 16, 2009

Eu também uso Datagrid e funciona também. O código que eu utilizo é o seguinte.

Cria uma váriavel string.

no meu caso:

Public ATUAL As String

Dai por exemplo quando você dá um click no Datagrid ele faz isso:

ATUAL = dtaTrabalhos.Columns.Item(0).Text

E ai é só fazer aparecer os valores nos Textbox de acordo com o valor que você selecionou.

Vê se funciona ai.

Alex Blumer · Outubro 16, 2009

Título alterado de erro para invalidy property value ao clicar na grid

Eu também uso Datagrid e funciona também. O código que eu utilizo é o seguinte.

Cria uma váriavel string.

no meu caso:
Public ATUAL As String
Dai por exemplo quando você dá um click no Datagrid ele faz isso:
ATUAL = dtaTrabalhos.Columns.Item(0).Text
E ai é só fazer aparecer os valores nos Textbox de acordo com o valor que você selecionou.

Vê se funciona ai.

Boa tarde Pessoal...

Embora eu não esteja identificando o erro, eu acredito que não seja nenhuma das alternativas acima ( já testei e não deu certo ), pelo seguinte motivo...

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

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 na pesquisa para mostrar so o registro de número "x" e clico em cima dele dá o erro ( vou postar a pesquisa abaixo para ver q é semelhante )

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

por que em um funciona e no outro não?

obrigado

Entrar

Arquivado

invalidy property value ao clicar na grid

Recommended Posts

Alex Blumer 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

gabrieldb 5

Compartilhar este post

Link para o post

Compartilhar em outros sites

Caulfield 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alex Blumer 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Adicionar Registro Plano de Contas

Javascript - Passar Parâmetros para uma Função.

PHP - Consulta MySql para prazo de dias

Este projeto é apoiado pelas empresas

Fóruns

Tempo Real

Informação importante