Vba ordre til tabeltest

If DCount("*","Fakture") <19 Then
Exit Sub
'MsgBox  "Der er mindre end 19 poster."
Else
Docmd.RunMacro "opret Tabel"

Ovennævnte kode er taget fra hukommelsen, idet jeg ikke har Access på denne maskine. Koden tæller alle poster (Også Null værdier) i tabellen.
Hvis du vil have MsgBox skal den se sådan ud:

If DCount("*","Fakture") <19 Then
MsgBox  "Der er mindre end 19 poster."
Else
Docmd.RunMacro "Opret Tabel"

Tak for det, jeg prøver lige.
Vh Henrik

Prøv at undgå makroer. Du kan oprette en ny tabel med en VBA-procedüre. Jeg tror der er et eksempel blandt de db jeg sendte dig igår.

Husk lige en End If

Hej mugs
Jeg bruger koden ved åbning af min indskrivningsformular. Første del af koden virker. Andel del opstår aldrig. Fejlen END IF fandt jeg med det samme.
Vh Henrik

Hej Henrik

Hvad mener du med, at anden del ikke opstår?
Tæller den korrekt og forlader den procedüren, hvis den skal?
Hvis du har fjernet Exit Sub, får du så MsgBox, hvis du skal få den?
Eller er det DoCmd.RunMacro der ikke fungerer.

Henrik > jeg har vagt iaften, så det er ikke lige sikkert, jeg har tid, men jeg skal no se efter med jævne mellemrum.

Hej mugs
Det er DoCmd.RunMacro der ikke fungerer.
Exit Sub har jeg ikke prøvet at fjærne. Jeg prøver lige.
Vh Henrik

DoCmd.RunMacro er den rigtige kommando. Kontroller:

Om Makroen fungerer når du kører den fra databasevinduet.
Har du stavet makronavnet korrekt?
Hvilken fejlmelding får du evt?

Jeg er væk i en times tid

Hej mugs
Det er DoCmd.RunMacro der ikke fungerer.
Exit Sub har jeg fjernet nu. Det virker.
Vh Henrik

Hej mugs
Den sidste kommentar var lidt rodede, det er min makro der ikke funkede.
Vh Henrik