[Resolvido] VB6 não responde sintaxe sql do access

[RGRQRS 0]

Boa tarde!!!

 

Estou criando um especie de numerador para documentos usando BD access, a primeira ideia é que quando o usuario abrir o tipo de docto que ele deseja usar apareça uma msg informando o numero do documento que irá utilizar junto com yesno, ou seja o ultimo numero salvo + 1, desta forma se por acaso ele mudar de ideia e nao usar mais nào houve o insert.

no BD estou usndo id = autonumeração, a sintaxe que vou apresentar funciona na consulta do access e mysql, mas quando chamo pelo vb da erro, andei pesquisando dizem que este erro e comum entre VB X access e não achei resposta.

Segue exemplo:

 

[/Private Sub Form_Load()

    sql = "select max(despacho_id)from despachos" 'comando sql
    
    If tabela.State = 1 Then tabela.Close
       tabela.Open sql, banco
       lblid = tabela!despacho_id + 1 'Atribui o conteudo de lblid e incrementa de 1,
                                  'antes de inserir na tabela
       tabela.Close
    
    lblano = Year(Date)
End Sub

Diz o erro que nao pode ser encotrado a coleção

 

desde já obrigado

[Claudio Neto 3]

Seguinte, quando você usa Max(de alguma coisa), sua coluna não mais chamará [de alguma coisa], ela fica sem nome.

 

Para resolver isso faça assim:

 

[/Private Sub Form_Load()

    sql = "select max(despacho_id) as despacho_id from despachos" 'comando sql
    
    If tabela.State = 1 Then tabela.Close
       tabela.Open sql, banco
       lblid = tabela!despacho_id + 1 'Atribui o conteudo de lblid e incrementa de 1,
                                  'antes de inserir na tabela
       tabela.Close
    
    lblano = Year(Date)
End Sub

Depois diz o que deu...

[RGRQRS 0]

Cláudio

 

Muito obrigado, resolveu sim o problema, antes de postar até havia tentado algo semelhante exemplo ..."as maior"..., mas na hora em que o bd abre não reconhece a variavel e colocando do jeito que disse funciou...wlw.