Vraag : Aantal verslagen wanneer het toevoegen van vraag via VBA

Ik heb de code in bijlage die toevoegt geroepen vraag „qryAppendImported“ ik wilde in werking stelt zien of is er een mogelijkheid voor me om één of andere soort functie tot stand te brengen die het aantal toegevoegde verslagen zal tonen. Op dit ogenblik plaatste ik Valse DoCmd.SetWarnings in mijn code omdat ik niet de gebruiker wil zien het bericht „u op het punt staat in werking te stellen toevoegt vraag“ en dan toont hoeveel verslagen zijn geladen. Is er een manier zelfs door code of één of ander douanebericht het aantal toegevoegde verslagen eenvoudig om te tonen?
" codeBody " 
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 Koord
Schemerige strFolder als Koord
Schemerige strFile als Koord
Schemerige strTable als Koord

DoCmd.OpenQuery „qryDeleteImported“

Selecteer Medio Geval (Me.txtFilename, InStrRev (Me.txtFilename, „. “))
    Geval „.xls“
'Dossier van MsgBox het „Excel“

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, „myImport“, Me.txt Ware Fullpath,
    Geval „.doc“
        MsgBox het „Dossier van Word“
    Geval „.pdf“
        MsgBox het „Dossier van de Adobe“
    Geval „.txt“
        MsgBox het „Dossier van de Tekst“
    Geval „.csv“
        Van MsgBox „Csv- Dossier“
Uitgezocht eind
DoCmd.SetWarnings Vals
DoCmd.OpenQuery „qryAppendImported“
         Pieper
    MsgBox is „Uw gegevens ingevoerd met succes“ & vbCrLf & voert "", vbInformation, „Gegevens volledig in“

DoCmd.Close

Antwoord : Aantal verslagen wanneer het toevoegen van vraag via VBA

DoCmd.SetWarnings Vals
msgbox dcount („*“, „qryAppendImported“) &“ „& zullen de verslagen worden toegevoegd“

DoCmd.OpenQuery „qryAppendImported“
Andere oplossingen  
 
programming4us programming4us