Frage : Zahl der Aufzeichnungen, wenn Frage über VBA angefügt wird

Ich habe den angebrachten Code, der eine Befestigungfrage laufen lässt, benannt „qryAppendImported“, das ich sehen wollte, wenn es eine Möglichkeit gibt, damit ich irgendeine Art der Funktion verursache, die die Zahl den angefügten Aufzeichnungen anzeigt. Im Augenblick legte ich das DoCmd.SetWarnings, das in meinen Code falsch ist, weil ich den Benutzer nicht sehen wünsche, dass die Mitteilung „Sie imsind Begriff, eine Befestigungfrage laufen zu lassen“ und zeige dann, wieviele Aufzeichnungen geladen worden sind an. Gibt es eine Weise, sogar durch Code oder irgendeine kundenspezifische Mitteilung einfach darzustellen die Zahl den angefügten Aufzeichnungen? 
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 als Schnur
Schwaches strFolder als Schnur
Schwaches strFile als Schnur
Schwaches strTable als Schnur

DoCmd.OpenQuery „qryDeleteImported“

Den mittleren vorwählen Fall (Me.txtFilename, InStrRev (Me.txtFilename, „."))
    „.xls“ umkleiden
'MsgBox „Excel Akte“

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, „myImport“, Me.txt Fullpath, zutreffend
    Fall „.doc“
        MsgBox „Wort-Akte“
    Fall „.pdf“
        MsgBox „Adobe Akte“
    Fall „.txt“
        MsgBox „Textdatei“
    Fall „.csv“
        MsgBox „CSV Akte“
Ende auserwählt
DoCmd.SetWarnings falsch
DoCmd.OpenQuery „qryAppendImported“
         Signalton
    MsgBox „Ihre Daten ist erfolgreich“ importiert worden u. importieren vbCrLf u. "", vbInformation, „Daten komplettes“

DoCmd.Close

Antwort : Zahl der Aufzeichnungen, wenn Frage über VBA angefügt wird

DoCmd.SetWarnings falsch
msgbox dcount („*“, „qryAppendImported“) u.“ „u. Aufzeichnungen werden angefügt“

DoCmd.OpenQuery „qryAppendImported“
Weitere Lösungen  
 
programming4us programming4us