Plus signs?

  • Thread starter Thread starter Guest
  • Start date Start date
G

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?
 
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.
 
But we never actually tried to link anything to it, and we just want them to
disappear. Not sure how.
 
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.
Click to expand...
[quoted text clipped - 3 lines]
Click to expand...
 
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.
 
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
 
Back
Top