Calling a subroutine

[WAVP375]

I'm having a problem executing the following subroutine. I would call it from a sub on click routine. I would also like to pass a variable. There will be nothing returned from the subroutine. It is in a module named "Create Relation"




Public Sub CreateRelationship()
DoCmd.SetWarnings False
'Create relationship
Dim db As DAO.Database
Dim rel As DAO.Relation
Dim fld As DAO.Field
Dim RelName As String
RelName = "AWOLRelation"

'Initialize
Set db = CurrentDb()

'Check if relationship already exists
For Each rel In db.Relations
If rel.Name = RelName Then
DoCmd.SetWarnings True
Exit Sub
End If
Next rel

'Create a new relationship
'Set rel = db.CreateRelation("TblAWOLNames, TblAWOLSchedule")
Set rel = db.CreateRelation(RelName)

'Define the properties
With rel
.Table = "TblAWOLNames" 'Specify primary tabl
.ForeignTable = "TblAWOLSchedule" 'Specify related table
.Attributes = dbRelationUpdateCascade + dbRelationDeleteCascade 'Specify attribute for cascading updates and deletes

'Add the field to the relation
Set fld = .CreateField("Badge #") 'Field name in primary table
fld.ForeignName = "Badge #" 'Field name in related table
.Fields.Append fld 'Append the field
End With

'Save the new relationship to the collection
db.Relations.Append rel

'Clean up
Set fld = Nothing
Set rel = Nothing
Set db = Nothing
DoCmd.SetWarnings True

Exit Sub
End Sub

[orange]

WAVP375,
A couple of things:
-use code tags to surround your code (highlight your vba, then click the hash/octothorpe "#" button above)
-when you have a problem

I'm having a problem executing the following subroutine

gives us a description or error number or the symptoms you are experiencing.
-best to avoid a naming convention that allows embedded spaces or special characters (I suggest BadgeNo to reduce syntax errors)

See Allen Brownes DAO Create Relation for DAO/vba


OR this one for an SQL approach

Good luck with your project.

[WAVP375]

The label 'Badge #' comes from an imported excel worksheet.
The code I am trying to use to call the previous list code is as follows:


Private Sub Command143_Click()

CreateRelationship
MsgBox "Relationship created"
End Sub

The error I'm getting is 'Ambiguous Name detected: CreateRelationship'

The sub routine works , I just cant' call it.

[davegri]

Ambiguous name means that you have more than one sub or function with the same name.
Search the entire project for "CreateRelationship"

[pbaldy]

Also make sure the module itself doesn't have the same name as the sub.

[WAVP375]

Thanks guys, I got it finally.