[Resolvido]Contar a quantidade de registros a serem exportados para o Excel !

Prezados boa tarde.

Preciso realizar uma somatória ou ver o total de registros que eu estou a exportar para uma planilha em MS Excel.

Usando o seguinte código abaixo, que funciona perfeitamente, mas preciso incrementar o mesmo com a quantidade de registros a serem exportados.

O código é o seguinte: ( lembrando que estou exportando a partir de uma consulta e não tabela )

Private Sub bt_exportavendas_Click()
On Error GoTo Err_Comando0_Click
Dim strConsulta, strNomePLanilha
strConsulta = "qryAcertoComissao"
strNomePLanilha = "c:/censurado/Comissão.xls"

If MsgBox("Deseja exportar " & contaReg & " registros ?", vbYesNo, Me.Caption) = vbNo Then
MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
Exit Sub

Else

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

MsgBox "Foram exportados para a planilha COMISSÃO.XLS " & contaReg & " Registros !"

Exit_Comando0_Click:
   Exit Sub

Err_Comando0_Click:
   MsgBox Err.Description
   Resume Exit_Comando0_Click

End Sub


Como podem notar, sublinhei as mensagem que necessariamente haverão e terão que aparecer para o usuário.


Grato a todos que poderem me ajudar.

[] s

Amigo, Um Dcount nao resolveria sua situação? Tipo assim:

Private Sub bt_exportavendas_Click()
On Error GoTo Err_Comando0_Click

Dim contaReg as Integer

Dim strConsulta, strNomePLanilha
strConsulta = "qryAcertoComissao"
contaReg = DCount("*", "qryAcertoComissao")
strNomePLanilha = "c:/censurado/Comissão.xls"

If MsgBox("Deseja exportar " & contaReg & " registros ?", vbYesNo, Me.Caption) = vbNo Then
MsgBox "Ação cancelada pelo usuário !", vbInformation, Me.Caption
Exit Sub

Else

DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

MsgBox "Foram exportados para a planilha COMISSÃO.XLS " & contaReg & " Registros !"

Exit_Comando0_Click:
  Exit Sub

Err_Comando0_Click:
  MsgBox Err.Description
  Resume Exit_Comando0_Click

End Sub

Fábio, boa tarde...

Estava a fazer exatamente isso...o simples é mais fácil do que as vezes complicarmos.
Só que ao invés de:
contaReg = DCount("*", "qryAcertoComissao") -> selecionando tudo, preferi contar os ID´s.

Valeu

Hum... Bom provavelmente estava Colocando o Nome errado do Campo, ou algo semelhante, pois nao é pra dar problemas o...

contaReg = DCount("ID", "qryAcertoComissao")

Tranquilo meu amigo..tranquilo.

Estava tentando deixar o código mais limpo possível para futuras manutenções do sistema.

O simples é sempre melhor e mais pratico.