Macro - tabeloprettelsesforespørgsler

Denne VBA-procedüre opretter en ny tabel:

Dim db47 As Database
Dim tdfNew As TableDef
Dim a As String
On Error GoTo Errorhandler
a = InputBox(Prompt:="Indtast navnet på den nye tabel:", Title:="Opret ny tabel.", Default:="")
Set db47 = OpenDatabase("D:\VBA funktioner\VBA\db47")
Set tdfNew = db47.CreateTableDef(a)
With tdfNew
.Fields.Append .CreateField("tekst", dbText, 30)
.Fields.Append .CreateField("memo", dbMemo)
.Fields.Append .CreateField("dato", dbDate)
.Fields.Append .CreateField("tal", dbInteger)
.Fields.Append .CreateField("tal1", dbLong)
.Fields.Append .CreateField("tal2", dbDouble)
db47.TableDefs.Append tdfNew
MsgBox "Tabellen:" & vbNewLine & vbNewLine & a & vbNewLine & vbNewLine & "er nu oprettet.", Title:="Udført."
End With
Errorhandler:
If Err = 3010 Then
MsgBox "Der findes allerede en tabel med dette navn." & vbNewLine & vbNewLine & "Procedüren forlades."
End If

Hvis du absolut vil benytte en makro, kan du indsætte en betingelse.

? - Jeg ønsker at macroen skal afvikle en række allerede oprettede tabeloprettelsesforespørgsler.

Denne VBA-kode sletter en tabel:
DoCmd.DeleteObject acTable, "Tabel1"

Hvis du indsætter denne betingelse i en makro, vil den tilknyttede handling blive udført, hvis d.d. er efter 2 JAN 2003:
Date()>#01-02-2003#

Date()>#19-02-2003#    Meddelelsesboks
...                    Meddelelsesboks

Hvis du f.eks har 2 handlinger med en tilknyttet betingelse i den første handling, betyder de 3 punktummer i betingelsen ved 2. handling, at denne kun vil blive udført, såfremt betingelsen i første handling er opfyldt.