Replies

Thank you, I will give these a look.

That was it. The database was set for tabbed documents.

Thank you all for your help.

Richard
RAheron@hotmail.com

I see the three buttons at the top to colse, minimize, and restore Access, but on the lower bar I only see the X to close.

Where can I look to see if these items have been deactivited?

Thanks

Richard
raheron@hotmail.com

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.

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.

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.

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.

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.

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.

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.

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.

Thanks guys, this helps.

Thanks, I will give this a try.

I am just using the Export from the File menu and exporting the entire table.
I think the issue is the way the field is formatted. There are several carriage returns and / or line feeds in the field. (it is an email that has been copied to the field)

I can clear the CR/LF from the field and it will export fine, but then in Excel is more or less unreadable.

Any ideas on how to get it out formatted?

Thanks

Excellant, Thank you