[Resolvido]Era esperado End Sub

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

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

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!

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

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

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!

Bom dia Antonio,pra melhor ajudar poste o bd pra gente.

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

Grato, Antonio

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

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

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...

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

Grato pelas tentativas!

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!