Continuous Form Current record

Question

In a continuous form there is an On Enter Event.

I need this to occur only on the current record.

But it executes on all the records in the continuous form!

Without going through Cloning the recordset, find first etc, is there any way this code could be modified (like adding a qualifier)  so that it is executed only in the single current RECORD of the continuous form? The following is the copy of the code:

                        Me.Text27.Visible = True

                        Me.Label28.Visible = True

                        Me.Text27.SetFocus

Thanks

HNIM2010

Answer 1

A continuous form contains only a single set of controls that is used to display all records. If you apply formatting to a control (for example set its Visible property to True or False), it applies to all records in the form simultaneously.

The only exception is conditional formatting - you can change some properties of text boxes and combo boxes depending on the data in the record or on whether the control has the focus.

You can change:

• fill color
• font color
• bold, italic, underline
• enabled/disabled

As you see, visibility is not among these properties: you can't hide/unhide a control using conditional formatting, only disable/enable it.

Answer 2

Thank you for sharing your code.

It is clear, simple to apply and effective.

Not only does it work efficiently, there is lots of room to add extra controls for error trapping.

Thanks again.

Stephen McK

Answer 3

That is very helpful and  clarifies a lot!

Thank you again Hans

HNIM2010

Answer 4

You cannot show/hide controls independently in different rows of a continuous form.  Each row is an instance of the same set of controls, so hiding them in one row hides them in all rows.  You can disable/lock the text boxes in all bar a new row by putting code in the form's Current event procedure:

    If Me.NewRecord Then

        Me.Text27.Enabled = True

        Me.Text27.Locked = False

           Me.Text27.SetFocus

     Else

        Me.SomeOtherControl.SetFocus

        Me.Text27.Enabled = False

        Me.Text27.Locked = True

    End If