ERRO FLEXGRID

 Tópico anterior Próximo tópico Novo tópico

ERRO FLEXGRID

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#1815 - 20/12/2003 12:40:30

USUARIO.EXCLUIDOS

Cadast. em:


Pessoal,
o seguinte:

Tenho um Form que possui 4 objetos. So eles: Uma Text Box, 2 Botes e uma FlexGrid.

O que acontece: Quando eu digito o cdigo do cliente na text box e aperto o 1‚Â boto, ele faz uma procura no banco de dados de todos os clientes que possurem aquele cdigo e larga no flexgrid. Quando eu no sei o cdigo do cliente, eu aperto o 2‚Â boto, que abre um outro Form que tambm possui uma flexgrid, mas que nessa contm todos os clientes do banco de dados. Dapi eu s seleciono o cliente que eu quiser e exporto para o grid do Form anterior.

O problema est acontecendo quando eu carrego o 2‚Â Form. No evento "Load" dele, eu fiz uma chamada para uma sub-rotina que carrega os itens na flexgrid. Quando eu estou adicionando os registros flexgrid, d o seguinte erro:

"SUBSCRIPT OUT OF RANGE"

A seguir a sub-rotina que carrega os itens na flex grid:

'Sub-Rotina para carregar os registros na flexgrid
Private Sub Carrega()

'abre banco de dados
Set db = OpenDatabase(App.Path & "\database.mdb")

'abre tabela "Clientes"
Set clientes = db.OpenRecordset("SELECT * FROM Clientes", dbOpenDynaset)

If Not clientes.EOF Then

    clientes.MoveLast
    flexClientes.Rows = clientes.RecordCount + 2
    clientes.MoveFirst
    flexClientes.Row = 0
    
    While Not clientes.EOF
        flexClientes.Row = flexClientes.Row + 1
        flexClientes.TextMatrix(flexClientes.Row, 1) = clientes("Codigo")
        flexClientes.TextMatrix(flexClientes.Row, 2) = clientes("Nome")
        flexClientes.TextMatrix(flexClientes.Row, 3) = clientes("DataNasc")
        flexClientes.TextMatrix(flexClientes.Row, 4) = clientes("Identidade")
        flexClientes.TextMatrix(flexClientes.Row, 5) = clientes("Endereco")
        flexClientes.TextMatrix(flexClientes.Row, 6) = clientes("Telefone")
        flexClientes.TextMatrix(flexClientes.Row, 7) = clientes("Indicacao")
        flexClientes.TextMatrix(flexClientes.Row, 8) = clientes("Profissao")
        
        clientes.MoveNext
    Wend
    
'Coloca os ttulos nas colunas
flexClientes.TextMatrix(0, 1) = "Cdigo"
flexClientes.TextMatrix(0, 2) = "Nome"
flexClientes.TextMatrix(0, 3) = "Nascimento"
flexClientes.TextMatrix(0, 4) = "Identidade"
flexClientes.TextMatrix(0, 5) = "Endereo"
flexClientes.TextMatrix(0, 6) = "Telefone"
flexClientes.TextMatrix(0, 7) = "Indicao"
flexClientes.TextMatrix(0, 8) = "Profisso"


'Arruma o tamanho das colunas
flexClientes.ColWidth(0) = 1000
flexClientes.ColWidth(1) = 2500
flexClientes.ColWidth(2) = 1300
flexClientes.ColWidth(3) = 1300
flexClientes.ColWidth(4) = 2500
flexClientes.ColWidth(5) = 1300
flexClientes.ColWidth(6) = 2500
flexClientes.ColWidth(7) = 2000

End If

End Sub


Algum pode me ajudar?



Resposta escolhida #1842 - 20/12/2003 19:11:11

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


Vc trocou a coluna 0 Por 1 quando adiciona

Um abrao

Status MSN(danielcpaete@hotmail.com)


#1856 - 20/12/2003 20:07:53

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


flexClientes.TextMatrix(0, 0) = "Cdigo"
flexClientes.TextMatrix(0, 1) = "Nome"
flexClientes.TextMatrix(0, 2) = "Nascimento"
flexClientes.TextMatrix(0, 3) = "Identidade"
flexClientes.TextMatrix(0, 4) = "Endereo"
flexClientes.TextMatrix(0, 5) = "Telefone"
flexClientes.TextMatrix(0, 6) = "Indicao"
flexClientes.TextMatrix(0, 7) = "Profisso"

Um abrao

Status MSN(danielcpaete@hotmail.com)


#1859 - 20/12/2003 20:17:34

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


COLDBURN que esse erro ocorre quando vc tenta adicionar um texto em uma linha ou coluna que no existe

Um abrao

Status MSN(danielcpaete@hotmail.com)


#1864 - 20/12/2003 20:27:14

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


flexClientes.ColWidth(0) = 1000
flexClientes.ColWidth(1) = 2500
flexClientes.ColWidth(2) = 1300
flexClientes.ColWidth(3) = 1300
flexClientes.ColWidth(4) = 2500
flexClientes.ColWidth(5) = 1300
flexClientes.ColWidth(6) = 2500
flexClientes.ColWidth(7) = 2000  

Aqui parece que vc so tem 7 colunas mas tenta adicionar em oito

contando com a cinza vc tem 7 ou 8 colunas ?

Um abrao

Status MSN(danielcpaete@hotmail.com)


#1865 - 20/12/2003 20:28:41

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


8 ou 9 ??

Um abrao

Status MSN(danielcpaete@hotmail.com)


#1867 - 20/12/2003 20:34:05

DANIELCPAETE
PORTO ALEGRE
Cadast. em:Dezembro/2003


manda o seu banco pro meu email que eu tento

danielcpaete@ig.com.br

Um abrao

Status MSN(danielcpaete@hotmail.com)


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45