• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 102
  • Last Modified:

Access 2013 Compile Error in Sub

Experts,
I am getting a compile error on the below line of code. I just added this step today and now getting the error.
I have confirmed that the table has the field SupplierName. It has been since 2009 since the code was added/designed so I assume that I'm overlooking something simple.

  qdTMMK.Parameters(5) = Me.SupplierName


Sub CopyMultipleTMMK_SelectByTagNumber()
Dim rsTMMK As DAO.Recordset
Dim qdTMMK As QueryDef
Dim reccountTMMK As Long
Dim copycountTMMK As Long
Dim msgStringTMMK As String
 
Set rsTMMK = Me.qSkpiInvestigationTMMKsubform.Form.RecordsetClone
If Not ((rsTMMK.BOF) And (rsTMMK.EOF)) Then
    rsTMMK.MoveLast
    reccountTMMK = rsTMMK.RecordCount
    Debug.Print reccountTMMK & " records in subform"
    rsTMMK.MoveFirst
     
    For ctr = 1 To rsTMMK.RecordCount
        If rsTMMK.Fields("Copy") = True And rsTMMK("tagNumber") <> Me.TagNumber Then
            copycountTMMK = copycountTMMK + 1
            Debug.Print "*** Copying details to SKPI with Tagnumber " & rsTMMK.Fields("tagNumber")
            Set qdTMMK = CurrentDb.QueryDefs("qryUpdateSKPI_TagNumber")
            qdTMMK.Parameters("strTagNumber") = rsTMMK.Fields("tagNumber")
            'Fill in the form-based params
            qdTMMK.Parameters(1) = Me.DateInvestigationIssued
            qdTMMK.Parameters(2) = Me.RCOccurence
            qdTMMK.Parameters(3) = Me.RCDetection
            qdTMMK.Parameters(4) = Me.RCCategory
            qdTMMK.Parameters(5) = Me.SupplierName
            qdTMMK.Parameters(6) = Me.Responsible
            qdTMMK.Parameters(7) = Me.dispute
            qdTMMK.Parameters(8) = Me.CMOccurence
            qdTMMK.Parameters(9) = Me.CMDetection
            qdTMMK.Parameters(10) = Me.CMCategory
            qdTMMK.Parameters(11) = Me.DateCMImplemented
            qdTMMK.Parameters(12) = Me.Status
            qdTMMK.Parameters(13) = Me.WeeklyUpdate
            qdTMMK.Parameters(14) = Me.WeeklyUpdateDate
'            For x = 0 To qdTMMK.Parameters.Count - 1
'                Debug.Print x; qdTMMK.Parameters(x).Name & vbTab & vbTab & qdTMMK.Parameters(x).Value
'            Next
            qdTMMK.Execute
            Set qdTMMK = Nothing
        ElseIf rsTMMK("tagNumber") = Me.TagNumber Then
            Debug.Print "Skipping TagNumber" & rsTMMK("tagNumber") & " because it is the record being edited in the main form."
        End If
        rsTMMK.MoveNext
    Next
    msgStringTMMK = "Details were copied to " & copycountTMMK & " records."
Else
    msgStringTMMK = "No records in subform!"
End If
    MsgBox msgStringTMMK, vbOKOnly + vbInformation, "Copy to multiple SKPIs"
Set qdTMMK = Nothing
Set rsTMMK = Nothing
End Sub

Open in new window


Any help would be appreciated.
0
ggodwin
Asked:
ggodwin
  • 3
  • 2
1 Solution
 
Patrick MatthewsCommented:
What is the specific error message you are getting?
0
 
ggodwinAuthor Commented:
Method or Data member not found
0
 
ggodwinAuthor Commented:
I beleive I found the problem

In one of my forms I hade the field named. "Supplier Name" instead of "SupplierName".
0
 
Patrick MatthewsCommented:
Yup, that would do it.  Yet another reason why you should never, ever use spaces in object names :)
0
 
ggodwinAuthor Commented:
Because I found the problem on my own.
0

Featured Post

Hire Technology Freelancers with Gigs

Work with freelancers specializing in everything from database administration to programming, who have proven themselves as experts in their field. Hire the best, collaborate easily, pay securely, and get projects done right.

  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now