Change column to Required = no and Drop all table relationships

  • Thread starter Thread starter Jim
  • Start date Start date
J

Jim

What is the command to alter a 'required' column to be not required?

How do I drop all of the table relationships in a database if i do not know
the names assigned to the relationships?

Thanks in advance for the help,

Jim
 
Jim said:
What is the command to alter a 'required' column to be not required?
Click to expand...

You can use DAO. Here's a quick & dirty version:

CurrentDb.TableDefs("YourTableName").Fields("YourFieldName").Required =
False
How do I drop all of the table relationships in a database if i do not
know
the names assigned to the relationships?
Click to expand...

Do you want to drop *all* relationships of all tables? Or just all
relationships of a particular table?

'------- start of code ("air code") ------
Sub DropAllRelationships()

' Drop all relationships in the current database.
' Are you sure you want to do this?

Dim db As DAO.Database
Dim I as Long

Set db = CurrentDb

With db.Relations
For I = .Count - 1 To 0
.Delete .Item(I).Name
Next I
End With

End Sub

Sub DropTableRelationships(TableName As String)

' Drop all relationships involving a given table.

Dim db As DAO.Database
Dim I as Long

Set db = CurrentDb

With db.Relations
For I = .Count - 1 To 0
If .Item(I).Table = TableName _
Or .Item(I).ForeignTable = TableName _
Then
.Delete .Item(I).Name
End If
Next I
End With

End Sub
'------- end of code ------

The above is all air code, but should be close to correct. Warning -- use
with care, and have a backup!
 
Back
Top