INSTRUCAO SQL
Tive ajuda de um colaborador do fórum para esse cód, más na linha 9 Plan421.Range("C" & Ln3) = TbLc("Descrição")
da mensagem de erro(Item not found in this collection). Alguem sabe me dizer onde possa estar o erro? Saliento que não é o acento do campo CODIGO.
Set TbLc = BdBaixas.OpenRecordset("SELECT BAIXAS.*,LOCALIZACAO.DESCRIÇÃO FROM BAIXAS,LOCALIZACAO WHERE LOCALIZACAO.CÓ“DIGO=BAIXAS.CODIGO", dbOpenSnapshot)
TbBaixas.MoveFirst
Do While Not TbBaixas.EOF
Ln3 = Ln3 + 1
Plan421.Range("A" & Ln3) = TbBaixas("Codigo")
Plan421.Range("E" & Ln3) = TbBaixas("TOTAL")
Plan421.Range("C" & Ln3) = TbLc("Descrição")
Ln3 = Ln3 + 1
TbBaixas.MoveNext
Loop
da mensagem de erro(Item not found in this collection). Alguem sabe me dizer onde possa estar o erro? Saliento que não é o acento do campo CODIGO.
Set TbLc = BdBaixas.OpenRecordset("SELECT BAIXAS.*,LOCALIZACAO.DESCRIÇÃO FROM BAIXAS,LOCALIZACAO WHERE LOCALIZACAO.CÓ“DIGO=BAIXAS.CODIGO", dbOpenSnapshot)
TbBaixas.MoveFirst
Do While Not TbBaixas.EOF
Ln3 = Ln3 + 1
Plan421.Range("A" & Ln3) = TbBaixas("Codigo")
Plan421.Range("E" & Ln3) = TbBaixas("TOTAL")
Plan421.Range("C" & Ln3) = TbLc("Descrição")
Ln3 = Ln3 + 1
TbBaixas.MoveNext
Loop
Eu particularmente não aconselho o uso de acentos gráficos nas tabelas e nos campos, Irenko.
No mais, como o Almarti disse, parece que o campos Descrição não existe, ou está com a grafia diferente do q está na tabela.
Já tentou na janela Immediate verificar o conteúdo do mesmo ?
? TbPva("Descrição")
Abraços,
No mais, como o Almarti disse, parece que o campos Descrição não existe, ou está com a grafia diferente do q está na tabela.
Já tentou na janela Immediate verificar o conteúdo do mesmo ?
? TbPva("Descrição")
Abraços,
"SELECT BAIXAS.*,LOCALIZACAO.DESCRIÇÃO FROM BAIXAS,LOCALIZACAO WHERE LOCALIZACAO.CÓ“DIGO=BAIXAS.CODIGO ORDER BY Baixas.Codigo"
Abraços,
Abraços,
Tópico encerrado , respostas não são mais permitidas