Pytanie : Liczba rejestr gdy vba zapytanie przez VBA

I mieć the dołączać kod który biegać append zapytanie "qryAppendImported" I chcieć jeżeli tam  być możliwość dla jeżeli poniekąd funkcjonować który wystawiać the liczba rejestr poniekąd. Teraz I umieszczać the DoCmd.SetWarnings Fałszywy w mój kod ponieważ I chcieć the użytkownik the wiadomość "ty być wokoło append zapytanie" i wtedy wystawiać ile rejestr ładować. Być tam  sposób po prostu nawet kod lub niektóre obyczajowy wiadomość the liczba rejestr obyczajowy? 
(1):
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

Dim aSQL Sznurek
Ciemnawy strFolder Sznurek
Ćmić strFile Sznurek
Ćmić strTable Sznurek

DoCmd.OpenQuery "qryDeleteImported"

Wybrany Skrzynka W połowie (Me.txtFilename, InStrRev (Me.txtFilename, "."))
    Skrzynka ".xls"
'MsgBox "Przodować Kartoteka"

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "myImport", Me.txt Fullpath, Prawdziwy
    Skrzynka ".doc"
        MsgBox "Słowo Kartoteka"
    Skrzynka ".pdf"
        MsgBox "Adobe Kartoteka"
    Skrzynka ".txt"
        MsgBox "Tekst Kartoteka"
    Skrzynka ".csv"
        MsgBox "CSV Kartoteka"
Końcówka Wybiórka
DoCmd.SetWarnings Fałszywy
DoCmd.OpenQuery "qryAppendImported"
         Beep
    MsgBox "Twój dane importować pomyślnie" & vbCrLf & "", vbInformation, "Dane import zupełny"

DoCmd.Close

Odpowiedź : Liczba rejestr gdy vba zapytanie przez VBA

DoCmd.SetWarnings Fałszywy
msgbox dcount ("*", "qryAppendImported") &" "& rejestr appended"

DoCmd.OpenQuery "qryAppendImported"
Inne rozwiązania  
 
programming4us programming4us