[Resolvido]Operação invalida CurrentDb.OpenRecordset("cnsTabela", dbOpenTable)

Boas pessoal,

Procurei na net e encontrei apenas 1 tópico referente a este erro, mas que parecia não se adequar ao método ao qual estou utilizando.

Bom estou utilizando o seguinte vba:

Código:

    Dim iArq As Long
    Dim cns As Recordset
    Dim Servico As String
    Dim Descricao As String
    Dim Preco As String
    
    
    iArq = FreeFile
    
    Open "C:\Orçamento.txt" For Output As iArq
    
        Set cns = CurrentDb.OpenRecordset("cnsTabela", dbOpenTable)
        Do While Not cns.EOF
        If cns("IdOrdem") = Me.IdOrdem Then
        Servico = ""
        Servico = Servico & cns("Servico")
        Descricao = ""
        Descricao = Descricao & cns("Descricao")
        Preco = ""
        Preco = Preco & cns("Preco")
        Preco = Format(Preco, "R$ #.00")
        End If
        cns.MoveNext
        Loop
    
    Print #iArq, "São Paulo,"; Day(Date); "de "; MonthName(Month(Date)); " de"; Year(Date); "."
    Print #iArq, ""
    Print #iArq, "Serviço(s):"
    Print #iArq, ""
    Print #iArq, Servico; ": "; Descricao
    Print #iArq, ""
    Print #iArq, "Preço(s):"
    Print #iArq, Servico; ".............................."; Preco



    Close #iArq
    
    MsgBox "Criado com sucesso"

O erro me é gerado devido a esta utilização Set cns = CurrentDb.OpenRecordset("cnsTabela", dbOpenTable), mas sem ela
o meu resultado sera apenas 1 campo de cada coluna da consulta.

Alguém saberia como resolver esta questão?

Antonio

Experimente:

Set cns = CurrentDb.OpenRecordset("cnsTabela", dbOpenDynaset)

Caso não resolva, explique esse dados que estão na tabela, ainda está no formulários onde tem o botão para imprimir esse
orçamento?

Se sim, podemos usar o RecordSetClone do formulário, ao invés de buscar na tabela.


Abraços

Noob

Boas galera,

após alguns dias e mais de 16h seguidas (to morto mesmo T_T) tentando resolver o mesmo assunto consegui.

Código:

    Dim iArq As Long
    Dim cns As Recordset
    Dim Servico As String
    Dim Descricao As String
    Dim Preco As String
   
   
    iArq = FreeFile
   
    Open "C:\Orçamento.txt" For Output As iArq
           
    Print #iArq, ""
    Print #iArq, "São Paulo,"; Day(Date); "de "; MonthName(Month(Date)); " de"; Year(Date);
    Print #iArq, "Serviço(s):"
    Print #iArq, ""
   
    Set cns = CurrentDb.OpenRecordset("cnsTabela")
        Do While Not cns.EOF
        Servico = ""
        Servico = Servico & cns("Servico")
        Descricao = ""
        Descricao = Descricao & cns("Descricao")
    Print #iArq, Servico; ": "; Descricao
            cns.MoveNext
        Loop
   
    Print #iArq, ""
    Print #iArq, "Preço(s):"
   
      Set cns = CurrentDb.OpenRecordset("cnsTabela")
        Do While Not cns.EOF
        Servico = ""
        Servico = Servico & Right(String(32, " ") & cns("Servico"), 32)
       
        Preco = ""
        Preco = Preco & cns("Preco")
        Preco = Format(Preco, "R$ #.00")
       
    Print #iArq, Servico; Space(3); Preco
            cns.MoveNext
        Loop




    Close #iArq
   
    MsgBox "Criado com sucesso"

A questão era que as consultas devem estar entre o texto se não ocorria aquele fato e não era possível exibir o próximo,
meio ridículo mas quando se move alguns campos do vba para "arrumar o layout" ocorrem erros bestas como estes que te
deixam dias de dor de cabeça.

Legal que tenha conseguido

Lavou a alma né? hehehe

Valeu pelo retorno!!

Boa sorte


Noob