If Exists Drop Table in Access

Topic

New Reply

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

Replies

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

looking into this, thought i’d swing by the lounge…

in SQL Server, you often do things like If Exists

Drop Table as a standard check prior to trying to create the object. In Access, I have tabledef code in place and I want to do the same check to make sure I never try to create a table def if the linked table already exits.

So, looking for the syntax…

TIA!

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

This code could be quickly modified to suit your situation.

Dim RemoveDB As Database
Dim strTempTbl As String
Dim TempTableName As String

Dim I As Integer

Set RemoveDB = DBEngine.Workspaces(0).Databases(0)
TempTableName = “tblTemp” & CurrentUser()

For I = 0 To RemoveDB.TableDefs.Count – 2
strTempTbl = RemoveDB.TableDefs(I).Name
‘—–Debug.Print strTempTbl
‘—–MsgBox “Table Name(” & i & “) = ” & strtblname

If strTempTbl Like TempTableName Then
RemoveDB.TableDefs.Delete strTempTbl

End If

Next I

Hope this helps.

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote

looks about right… thanks!

Reply | Quote