MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Erro na exportação do formulário principal para o Excel

    Compartilhe
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4250
    Registrado : 20/04/2011

    [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Silvio em 5/1/2019, 13:17

    Prezados, bom dia a todos.

    Preciso de uma ajuda. Através da rotina abaixo exporto dados do formulário principal para uma planilha em Excel.
    Acontece que mesmo depurando o mesmo, aparece o nome que consta no formulário principal, mas ao abrir a planilha consta outro nome de outro cliente.

    A rotina que tem no subformulário está rodando legal...


    Abaixo a rotina.
    Código:
        Dim RstFrm As DAO.Recordset, RstSubFrm As DAO.Recordset, l As Integer
        Dim MeuExcel As Object
        Set MeuExcel = CreateObject("Excel.Application")
        MeuExcel.Visible = True
        MeuExcel.Workbooks.Open FileName:=CurrentProject.Path & "\ZAROO.xlsx"  'ZAROO é o nome da planilha e tem que estar no mesmo folder do sistema
       
        Set RstFrm = Me.RecordsetClone
            RstFrm.Bookmark = Me.RecordsetClone.Bookmark
            MeuExcel.Range("C7") = RstFrm("cliente") '
            MeuExcel.Range("S7") = RstFrm("NomeFantasia") '
            MeuExcel.Range("C13") = RstFrm("CNPJ") '
            MeuExcel.Range("C14") = RstFrm("InscrEstadual") '
            MeuExcel.Range("C8") = RstFrm("endereco") & " ," & RstFrm("Numero") '
            MeuExcel.Range("C9") = RstFrm("Bairro") '
            MeuExcel.Range("C10") = RstFrm("Cidade") '
            MeuExcel.Range("C11") = RstFrm("Estado") '
            MeuExcel.Range("C12") = RstFrm("CEP") '
            MeuExcel.Range("H11") = RstFrm("Fone") & " / " & RstFrm("Celular") '
            MeuExcel.Range("C16") = RstFrm("EmailNF") '
            MeuExcel.Range("H13") = RstFrm("Prazoculta") '
            MeuExcel.Range("S6") = RstFrm("ContatoCliente") '
            MeuExcel.Range("S4") = RstFrm("DataPed")
            MeuExcel.Range("S3") = RstFrm("VendedorOculta") '
            MeuExcel.Range("B23") = RstFrm("Observacao") '
            MeuExcel.Range("V2") = RstFrm("NossoPedido") '

    Alguém poderia me dar uma luz ?? Já refiz....já mexi...e não consigo entender o que há de errado nessa rotina.

    Tanto que exportei para uma planilha completamente vazia e o " erro " ocorre.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Dilson em 5/1/2019, 15:07

    Olá Silvio !

    Nesse trecho:
    RstFrm.Bookmark = Me.RecordsetClone.Bookmark

    Experimente assim:
    RstFrm.Bookmark = Me.Bookmark
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4250
    Registrado : 20/04/2011

    Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Silvio em 7/1/2019, 11:32

    bom dia a todos...

    Dilson desculpe-me pela demora em lhe responder, mas já viu né...fim e começo de ano...parentes que não tem noção.

    Testei a mudança...e deu certo. Muito obrigado pela tua ajuda.

    Abraços.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Dilson
    Dilson
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1743
    Registrado : 11/11/2009

    Re: [Resolvido]Erro na exportação do formulário principal para o Excel

    Mensagem  Dilson em 10/1/2019, 23:27

    Opa meu amigo, também sofro desse mal - Risos("hahaha").

    Ótimo. Até a próxima !

      Data/hora atual: 26/3/2019, 15:06