Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Alex Blumer

invalidy property value ao clicar na grid

Por , em Visual Basic

Recommended Posts

Alex Blumer    0

Alex Blumer
Postado

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?

Compartilhar este post

Link para o post
Compartilhar em outros sites

gabrieldb    5

gabrieldb
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Caulfield    0

Caulfield
Postado

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.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Alex Blumer    0

Alex Blumer
Postado

 

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

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos Visual Basic
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito