Plus signs?

[Guest]

When creating the table there they weren't there, and we've copy pasted into
new database files to get rid of it in the past, but these little plus signs
appear as a new column to the far left side. How did they get there and how
do I get rid of it?

 

[BonnieW via AccessMonster.com]

Those indicate that there is a linked record someplace else. By copy/pasting
into a new database/table, you're defeating the purpose of the links.

 

[Guest]

But we never actually tried to link anything to it, and we just want them to
disappear. Not sure how.

 

[BonnieW via AccessMonster.com]

Nothing is showing in the Relationships window (hit the "show all tables"
button)?

What happens when you click on the little plus signs?

But we never actually tried to link anything to it, and we just want them to
disappear. Not sure how.

Those indicate that there is a linked record someplace else. By copy/pasting
into a new database/table, you're defeating the purpose of the links.

[quoted text clipped - 3 lines]

 

[Gina Whipp]

WesternIllinois,

1. Open the database to the database container window
2. Go to Tools|Options and then go the General tab.
3. Uncheck Track name AutoCorrect info and click OK
4. Open each table in design view and bring up the Properties...
5. Under Properties where it says Subdatasheet name select [None], say yes
to save the changes

Your plus signs should go away.

 

[John Spencer]

Method 1 - open up the table in design view and select properties for
the table. Set the subdatasheet to None

Method 2 - use the following vba code from Microsoft.

'Source: MS Knowledge Base #275085
'http://support.microsoft.com/Default.aspx?id=275085

Sub TurnOffSubDataSheets()
Dim MyDB As DAO.Database
Dim MyProperty As DAO.Property
Dim propName As String, propVal As String, rplpropValue As String
Dim propType As Integer, i As Integer
Dim intCount As Integer

On Error GoTo tagError

Set MyDB = CurrentDb
propName = "SubDataSheetName"
propType = 10
propVal = "[None]"
rplpropValue = "[Auto]"
intCount = 0

For i = 0 To MyDB.TableDefs.Count - 1
If (MyDB.TableDefs(i).Attributes And dbSystemObject) = 0 Then
If MyDB.TableDefs(i).Properties(propName).Value = rplpropValue Then
MyDB.TableDefs(i).Properties(propName).Value = propVal
intCount = intCount + 1
End If
End If
tagFromErrorHandling:
Next i

MyDB.Close

If intCount > 0 Then
MsgBox "The " & propName & " value for " & intCount & _
" non-system tables has been updated to " & propVal & "."
End If

Exit Sub

tagError:
If Err.Number = 3270 Then
Set MyProperty = MyDB.TableDefs(i).CreateProperty(propName)
MyProperty.Type = propType
MyProperty.Value = propVal
MyDB.TableDefs(i).Properties.Append MyProperty
intCount = intCount + 1
Resume tagFromErrorHandling
Else
MsgBox Err.Description & vbCrLf & vbCrLf & " in
TurnOffSubDataSheets routine."
End If
End Sub

 

[Gina Whipp]

I learn something new everyday. Never even thought of a way to do by code