Control Value Comparison

[CementCarver]

Now it says that .....Item not found in this collection

Dim rstEditGrower_Record As Recordset
Set rstEditGrower_Record = Forms!frm_EDIT_CURRENT_FULLGROWER.RecordsetClone


rstEditGrower_Record.MoveFirst
Do While Not rstEditGrower_Record.EOF
For Each ctl In Screen.ActiveForm.Controls
If ctl.Tag = "Audit" Then
If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Or ctl.ControlType = acCheckBox Then

If Nz(ctl.Value) <> Nz(rstEditGrower_Record(ctl.ControlSource)) Then.....this line errors with item not found in this collection.............


CementCarver

[pbaldy]

Can you post the db here, or a representative sample?

[CementCarver]

Can I send it to you privately? I'll first need to strip out all the confidential info.

CC

[pbaldy]

Sure, you can send it to

pbaldy
gmail
com

[CementCarver]

thank you very much..... you'll have it shortly.

CC

[pbaldy]

If you set a breakpoint and step through it, the code actually works for a few passes. If fails when it gets to the control source of:

FULLGROWER.District

It appears that the recordset only contains a field named District.

[CementCarver]

Thanks PBaldy for looking at my code. I will try to replicate what you've found and change the control name.

You didn't have any problems with the Active_InActive checkbox?

CementCarver

[pbaldy]

Doesn't look like it. I got entries in the audit table for it. I added a couple of lines:

Debug.Print "Control Name = " & ctl.Name
Debug.Print "Value is = " & ctl.Value
Debug.Print "Control source is: " & ctl.ControlSource
Debug.Print "Old Value is: " & rstEditGrower_Record(ctl.ControlSource)

And the results were:

Control Name = GoingAndNotGoing
Value is = 0
Control source is: Active_InActive
Old Value is: False
Control Name = Out_of_Business
Value is = -1
Control source is: Out_of_Business
Old Value is: False
Control Name = District
Value is = 1
Control source is: FULLGROWER.District

so it blew up on the third control it checked.

[CementCarver]

That's weird. It never got past the Active_InActive checkbox...?? I'm correcting each control it's complaining on and am moving forward.

Thank you sooooo much for your review.

CementCarver

[pbaldy]

No problemo, good luck with the project.