Test Subform Control Name Access 2010

[CementCarver]

I'm getting a run time error 2465 can't find controls for the line below:



If ctl = Forms![frm_EDIT_CURRENT_PACKER]![EDIT_PACKER_TRACEABILITY].Form!Controls(MEMBER_ID) Then

I'm trying to go through each control in my subform but I'm initially testing whether it matches one of the control names.

Can anyone see what's wrong with this line?

CementCarver

[pbaldy]

Using that method I believe the control name has to be in quotes. I use:

http://access.mvps.org/access/forms/frm0031.htm

[CementCarver]

PBaldy, I get the same error..... with this line.....

If ctl = Forms![frm_EDIT_CURRENT_PACKER]![EDIT_PACKER_TRACEABILITY].Form!Controls("MEMBER_ID") Then

CementCarver

[CementCarver]

But if I try this line:

If ctl = Forms("frm_EDIT_CURRENT_PACKER").Controls("EDIT_PA CKER_TRACEABILITY").Form.Controls("MEMBER_ID") Then

I get an error Object doesn't support this property or method.....?

CementCarver

[ItsMe]

But if I try this line:

If ctl = Forms("frm_EDIT_CURRENT_PACKER").Controls("EDIT_PA CKER_TRACEABILITY").Form.Controls("MEMBER_ID") Then

I get an error Object doesn't support this property or method.....?

CementCarver

What is ctl ? Did you make a declaration for ctl somewhere?

[CementCarver]

I'm trying to retrieve values from a subform and testing whether the values have changes in the subform's datasheet view. And if they've changed, then I write those changes to the audit table.

Dim ctl As Control
Dim frmCurrentForm As SubForm

Set frmCurrentForm = Forms!frm_EDIT_CURRENT_PACKER!EDIT_PACKER_TRACEABI LITY
For Each ctl In frmCurrentForm.Controls
If ctl = Forms("frm_EDIT_CURRENT_PACKER").Controls("EDIT_PA CKER_TRACEABILITY").Form.Controls("MEMBER_ID") Then .......This line causes an error object not supported.......
If ctl.Tag = "Audit" Then
MEMBER_ID_new = Nz(Forms!frm_EDIT_CURRENT_PACKER!EDIT_PACKER_TRACE ABILITY.Form.MEMBER_ID.Value)
MEMBER_ID_old = Nz(Forms!frm_EDIT_CURRENT_PACKER!EDIT_PACKER_TRACE ABILITY.Form.MEMBER_ID.OldValue)

If MEMBER_ID_new <> MEMBER_ID_old Then
With rstAudit
.AddNew
![DateTime] = datTimeCheck
![UserName] = strAccountName
![FormName] = frmCurrentForm
![Action] = UserAction
![Record_ID] = MasterFormMember_id
![FieldName] = ctl.ControlSource
![OldValue] = ctl.OldValue
![NewValue] = ctl.Value
.Update
'Debug.Print "Current values " & UserAction
End With

End If
End If

CementCarver

[pbaldy]

I'd try

If ctl.Name = "MEMBER_ID" Then

[CementCarver]

Bang on PBaldy....... That worked like a charm...... I owe you one.....CementCarver

[pbaldy]

Happy to help.