Help - before I jack it anymore....

[txgeekgirl]

Hi Guys -

So - I have a little form that needs to write to a table. The TBL name is "Findings" and is set in the form source.

I am getting an error on the DoCmd.RunCommand acCmdSaveRecord - which I wasn't like 15 minutes ago. What did I change??? Nothing. Atleast in this module. The error is a 3167.

Private Sub cmdSave_Click()
If IsNull(Me.MPOISummaryTB) Then
dummy = ReqMsg("MPOISummaryTB", "Summary")
GoTo CmdSave_ClickDone
End If
[AuditItemID] = Me.MPOIAuditItemsTB
[POIDocNum] = Me.TotalTB
[POIYes] = Me.YPercTB
[POINo] = Me.NoPercTB
[POINA] = Me.NAPercTB
[Summary] = Me.MPOISummaryTB
DoCmd.RunCommand acCmdSaveRecord

CmdSave_ClickDone:
Exit Sub

CmdSave_ClickError:
Warning Error$, "CmdSave_Click"
Resume CmdSave_ClickDone
End Sub

Now - there is a little Diddy attached to another form that looks like this:
MyFindings = "SELECT Findings.FindingID, Element.Element, Findings.POIYes, Findings.POINo, Findings.POINA, Findings.Summary " & _
"FROM (Findings LEFT JOIN AuditItems ON Findings.AuditItemID=AuditItems.AuditItemsID) " & _
"LEFT JOIN Element ON AuditItems.ElementID=Element.ElementID " & _
"WHERE (((AuditItems.AuditID)=Forms![Update Findings]!AuditTypeIDTB));"

Me.FindingsLB.RowSource = MyFindings

Me.FindingsLB.Requery

 

[RuralGuy]

Is this not a bound form? Why are you moving data around to save?

 

[pono1]

I think people might need more info to help you... For example, could you explain what this section of your code is doing...

    [AuditItemID] = Me.MPOIAuditItemsTB
    [POIDocNum] = Me.TotalTB
    [POIYes] = Me.YPercTB
    [POINo] = Me.NoPercTB
    [POINA] = Me.NAPercTB
    [Summary] = Me.MPOISummaryTB

Also, why do you think the listbox on the other form is important?

Regards,
Tim

 

[wiklendt]

Is this not a bound form? Why are you moving data around to save?

i agree, this should be a bound form.

also, for reference:

? error (3167)
Application-defined or object-defined error