MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Era esperado End Sub

    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty [Resolvido]Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 12/4/2023, 15:01

    Bom Dia à todos!

    Peguei um código, aqui mesmo no fórum, para exportação em forma CSV; mas recebo a mensagem de que "Era esperado End Sub":


    Private Sub btnSalvarCSV_Click()
    (A mensagem marca esta posição; não consegui resolver. Nome da tabela de dados: Dados provisorios)


    Public Function ExportCSVFunction()
    'ahteixeira (2017) para MaximoAccess

    '    DoCmd.TransferText acExportDelim, "SisengHT_Specs", "SisengHT", Application.CurrentProject.Path & "\SisengHT.csv"

    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    Dim DB As Database

       Set DB = CurrentDb()
       Set rst = DB.OpenRecordset("SisengHP", dbOpenTable)
       rst.MoveLast
       varRecCount = rst.RecordCount
       rst.MoveFirst
       
       varArq = Application.CurrentProject.Path & "\SisengHP.csv"
       
       Open varArq For Output As #1
       
           For varCount = 1 To varRecCount
               Print #1, rst!Equipamento & ";"; rst!CodPAralisação & ";" & rst!DataPadrao & ";" & Format(rst![Hora Decimal], "Fixed")
               rst.MoveNext
           Next varCount
       
       Close #1
       rst.Close
       Set DB = Nothing



    Grato à todos; e, neste caso, especialmente ao ahteixeira, que cedeu este código!
       
    End Function
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  JPaulo 12/4/2023, 15:05

    Você devia estudar mais VBA, pois o que está a fazer é de quem não manja nada de nada;

    Você está a colocar uma função inteira dentro do evento ao pressionar de um botão ?

    Private Sub btnSalvarCSV_Click()
    Public Function ExportCSVFunction()

    Para aprender:
    https://www.maximoaccess.com/t1458-biblia-ms-access-2007-a-melhor-ate-hoje


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Era esperado End Sub Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Era esperado End Sub Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Era esperado End Sub Folder_announce_new Instruções SQL como utilizar...
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 12/4/2023, 15:37

    Obrigado, JPaulo!Concordo com você - Mas não sabemos tudo de tudo. Tenho muito conhecimento em Gestão da Qualidade - quarenta anos de praia; programador por necessidade! Mas estou aprendendo!... Vou aplicar sua correção. Se precisar, peço ajuda novamente!
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 13/4/2023, 00:30

    Boa Noite! Aqui são 20:29.

    Como disse, meu grande saber é de outra área. De programação ainda estou longe de grandes conhecimentos, embora já tenha aprendido bastante.

    Tenho códigos extensos atribuídos à um botão de comando; alguns criados por mim; outros adquiridos aquí mesmo, no fórum. Talvez daí as minhas dúvidas:


    O código deve ser colocado em um módulo?

    Como, exatamente, chamar o código?


    De todas as informações que busquei nenhuma foi suficientemente clara.

    Agradeço por qualquer ajuda!
    Aguardando!


    Observação:
    Se as necessidades de programação impuserem algum conhecimento em Gestão da Qualidade, Basta perguntar. Terei grande przer em responder
    antonio.harnaut@gmail.com
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  JPaulo 13/4/2023, 12:23

    Não precisa de colocar a função em um modulo, se não a quiser separada, pode utilizar o trecho de código direto no seu botão;

    Código:
    Private Sub btnSalvarCSV_Click()
    'ahteixeira (2017) para MaximoAccess

    '    DoCmd.TransferText acExportDelim, "SisengHT_Specs", "SisengHT", Application.CurrentProject.Path & "\SisengHT.csv"

    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    Dim DB As Database

       Set DB = CurrentDb()
       Set rst = DB.OpenRecordset("SisengHP", dbOpenTable)
       rst.MoveLast
       varRecCount = rst.RecordCount
       rst.MoveFirst
      
       varArq = Application.CurrentProject.Path & "\SisengHP.csv"
      
       Open varArq For Output As #1
      
           For varCount = 1 To varRecCount
               Print #1, rst!Equipamento & ";"; rst!CodPAralisação & ";" & rst!DataPadrao & ";" & Format(rst![Hora Decimal], "Fixed")
               rst.MoveNext
           Next varCount
      
       Close #1
       rst.Close
       Set DB = Nothing  
    End Sub

    Se quiser separada, cole num modulo só a função;

    Código:
    Public Function ExportCSVFunction()
    'ahteixeira (2017) para MaximoAccess

    '    DoCmd.TransferText acExportDelim, "SisengHT_Specs", "SisengHT", Application.CurrentProject.Path & "\SisengHT.csv"

    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    Dim DB As Database

       Set DB = CurrentDb()
       Set rst = DB.OpenRecordset("SisengHP", dbOpenTable)
       rst.MoveLast
       varRecCount = rst.RecordCount
       rst.MoveFirst
      
       varArq = Application.CurrentProject.Path & "\SisengHP.csv"
      
       Open varArq For Output As #1
      
           For varCount = 1 To varRecCount
               Print #1, rst!Equipamento & ";"; rst!CodPAralisação & ";" & rst!DataPadrao & ";" & Format(rst![Hora Decimal], "Fixed")
               rst.MoveNext
           Next varCount
      
       Close #1
       rst.Close
       Set DB = Nothing  
    End Function

    E depois chame a função no seu botão;

    Código:
    Private Sub btnSalvarCSV_Click()
        Call ExportCSVFunction
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Era esperado End Sub Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Era esperado End Sub Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Era esperado End Sub Folder_announce_new Instruções SQL como utilizar...
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 14/4/2023, 12:45

    Bom Dia! Aqui são 08:41 horas.

    Ainda recebo uma mensagem de Erro: "Era esperado tipo definido pelo usuário, não projeto"



    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String
    Dim DB As Database

    Pesquisei bastante, mas não encontrei - ou não pude entender - a solução!
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2979
    Registrado : 09/04/2012

    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  Kaynan 14/4/2023, 13:22

    Bom dia Antonio,pra melhor ajudar poste o bd pra gente.
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 14/4/2023, 14:08

    O BD é muito grande. Criei um similar. Segue a pasta .zip

    Grato, Antonio
    Anexos
    [Resolvido]Era esperado End Sub AttachmentExportação CSV.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (45 Kb) Baixado 4 vez(es)
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2979
    Registrado : 09/04/2012

    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  Kaynan 14/4/2023, 14:48

    Private Sub btnSalvarCSV_Click()
    'ahteixeira (2017) para MaximoAccess

    ' DoCmd.TransferText acExportDelim, "SisengHT_Specs", "SisengHT", Application.CurrentProject.Path & "\SisengHT.csv"

    Dim rst As Recordset, varRecCount As Integer, varCount As Integer
    Dim varArq As String


    Set DB = CurrentDb()
    Set rst = DB.OpenRecordset("SisengHP", dbOpenTable)
    rst.MoveLast
    varRecCount = rst.RecordCount
    rst.MoveFirst

    varArq = Application.CurrentProject.Path & "\SisengHP.csv"

    Open varArq For Output As #1

    For varCount = 1 To varRecCount
    Print #1, rst!Equipamento & ";"; rst!CodPAralisação & ";" & rst!DataPadrao & ";" & Format(rst![Hora Decimal], "Fixed")
    rst.MoveNext
    Next varCount

    Close #1
    rst.Close
    Set DB = Nothing
    End Sub
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11018
    Registrado : 04/11/2009

    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  JPaulo 14/4/2023, 17:25

    Código:
    Private Sub btnSalvarCSV_Click()
    'ahteixeira (2017) para MaximoAccess
    Dim DB As dao.Database
    Dim rst As dao.Recordset
    Dim varCount As Integer
    Dim varArq As String


      Set DB = CurrentDb()
      Set rst = DB.OpenRecordset("TBDados", dbOpenTable)
      rst.MoveLast
      varRecCount = rst.RecordCount
      rst.MoveFirst
     
      varArq = Application.CurrentProject.Path & "\TBDados.csv"
     
      Open varArq For Output As #1
     
          For varCount = 1 To varRecCount
              Print #1, rst!Nome & ";" & rst!Endereco & ";" & rst!Numero & ";" & rst!Celular & ";" & rst!Profissao
              rst.MoveNext
          Next varCount
     
      Close #1
      rst.Close
      Set DB = Nothing
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Era esperado End Sub Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Era esperado End Sub Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Era esperado End Sub Folder_announce_new Instruções SQL como utilizar...
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 14/4/2023, 18:56

    O comando não reage. Vi que foi feita referencia ao DAO. Tentei ativar a referência, mas recebo a mensagem "Erro ao  carregar DLL. Acredito que precisso fazer uma atualização. Concordam comigo?

    Estou usando Access 2016; 64 Bits; Office 365

    No endereço abaixo, encontrei a atualização:

    Naõ encontrei opção para Office

    Ainda pesquisando, apanhando e sofrendo...
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 16/4/2023, 00:01

    Até o momento, sem solução. Qaundo encontrar compartilho com todos e encerro a questão.

    Grato pelas tentativas!
    Antonio Haele Arnaut
    Antonio Haele Arnaut
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 81
    Registrado : 21/02/2012

    [Resolvido]Era esperado End Sub Empty Era esperado End Sub

    Mensagem  Antonio Haele Arnaut 16/4/2023, 02:13

    Aqui, 22:14 horas.


    Senhores, foi resolvido. O erro era totalmente meu, ao chamar a função!

    Aos que caminham à frente; e levantam bem alto sua lanterna para iluminar os passos de quem vem atraz, Gratidão!

    Muito obrigado à todos!

    Conteúdo patrocinado


    [Resolvido]Era esperado End Sub Empty Re: [Resolvido]Era esperado End Sub

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 04:36