Show field which has focus in different color

No. Just save the code in a module, and enter the line into the immediate
window naming each form you want to behave like this.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
Got it, but I need to use it for several forms. Do I create a new module
for
every form?
Anne

"Allen Browne" wrote in message
...
1. Select the module tab of the Database window, and click New.
Access opens a new module.

2. Paste in the code.

3. Open the Immediate window: Ctrl+G

4. Enter:
? SetupHightlight("Form1")
substituting your actual form name for Form1.

The code will run, and set the OnLostFocus and OnGotFocus properties of
controls on the form. These events will call the other function, which
actually does the highlighting and dehighlighting.


"Anne" wrote in message
...
I like your solution, but I am not sure how to use it.
I put your code into a module, but I do not know what to put on the
form
to
activate it.
Anne

"Allen Browne" wrote in message
...
Yes, you need to put this in the events of each control, but you can
do
that
programmatically.

The following example opens the form in design view, and sets the
OnGotFocus
and OnLostFocus properties of all the text boxes and combo boxes:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

You pasted the code into the module?
Then entered the line starting with the question mark into the Immediate
Window? And pressed Enter?

Did you receive an error?
Did you save the form, and test it?

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I had sent the other reponse before I even tried it. But cannot get this to
work.
I pasted your code into new new module.
I pasted:
? SetupHightlight("FrmContractor") - FrmContractor is one of my forms.
with the question mark in front of it. But it does nothing when click
through the form.
Anne



"Allen Browne" wrote in message
...
1. Select the module tab of the Database window, and click New.
Access opens a new module.

2. Paste in the code.

3. Open the Immediate window: Ctrl+G

4. Enter:
? SetupHightlight("Form1")
substituting your actual form name for Form1.

The code will run, and set the OnLostFocus and OnGotFocus properties of
controls on the form. These events will call the other function, which
actually does the highlighting and dehighlighting.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I like your solution, but I am not sure how to use it.
I put your code into a module, but I do not know what to put on the
form
to
activate it.
Anne

"Allen Browne" wrote in message
...
Yes, you need to put this in the events of each control, but you can
do
that
programmatically.

The following example opens the form in design view, and sets the
OnGotFocus
and OnLostFocus properties of all the text boxes and combo boxes:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

I did not hit enter before after entering into the immediate window:
Now I got compile error, ambiguous name detected: SetUpHightlight
I copied and pasted my codes, so you can see what I have:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

Immediate window:
? SetupHightlight("FrmContractor")


"Allen Browne" wrote in message
...
You pasted the code into the module?
Then entered the line starting with the question mark into the Immediate
Window? And pressed Enter?

Did you receive an error?
Did you save the form, and test it?

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I had sent the other reponse before I even tried it. But cannot get this
to
work.
I pasted your code into new new module.
I pasted:
? SetupHightlight("FrmContractor") - FrmContractor is one of my forms.
with the question mark in front of it. But it does nothing when click
through the form.
Anne



"Allen Browne" wrote in message
...
1. Select the module tab of the Database window, and click New.
Access opens a new module.

2. Paste in the code.

3. Open the Immediate window: Ctrl+G

4. Enter:
? SetupHightlight("Form1")
substituting your actual form name for Form1.

The code will run, and set the OnLostFocus and OnGotFocus properties of
controls on the form. These events will call the other function, which
actually does the highlighting and dehighlighting.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I like your solution, but I am not sure how to use it.
I put your code into a module, but I do not know what to put on the
form
to
activate it.
Anne

"Allen Browne" wrote in message
...
Yes, you need to put this in the events of each control, but you can
do
that
programmatically.

The following example opens the form in design view, and sets the
OnGotFocus
and OnLostFocus properties of all the text boxes and combo boxes:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

The "ambiguious name" error means that you already have function or sub with
that name, or you pasted the function twice, or you tried to use the same
name for the module itself.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I did not hit enter before after entering into the immediate window:
Now I got compile error, ambiguous name detected: SetUpHightlight
I copied and pasted my codes, so you can see what I have:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

Immediate window:
? SetupHightlight("FrmContractor")


"Allen Browne" wrote in message
...
You pasted the code into the module?
Then entered the line starting with the question mark into the Immediate
Window? And pressed Enter?

Did you receive an error?
Did you save the form, and test it?

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I had sent the other reponse before I even tried it. But cannot get this
to
work.
I pasted your code into new new module.
I pasted:
? SetupHightlight("FrmContractor") - FrmContractor is one of my forms.
with the question mark in front of it. But it does nothing when click
through the form.
Anne



"Allen Browne" wrote in message
...
1. Select the module tab of the Database window, and click New.
Access opens a new module.

2. Paste in the code.

3. Open the Immediate window: Ctrl+G

4. Enter:
? SetupHightlight("Form1")
substituting your actual form name for Form1.

The code will run, and set the OnLostFocus and OnGotFocus properties
of
controls on the form. These events will call the other function, which
actually does the highlighting and dehighlighting.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I like your solution, but I am not sure how to use it.
I put your code into a module, but I do not know what to put on the
form
to
activate it.
Anne

"Allen Browne" wrote in message
...
Yes, you need to put this in the events of each control, but you
can
do
that
programmatically.

The following example opens the form in design view, and sets the
OnGotFocus
and OnLostFocus properties of all the text boxes and combo boxes:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "],
False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

Yeah, after it did not work the first time, I tried a second module. I
deleted the second module and it is now working. My mistake orginally was
that I did not hit enter in the immediate window.
How can I use this for other forms as well?
Anne

"Allen Browne" wrote in message
...
The "ambiguious name" error means that you already have function or sub
with
that name, or you pasted the function twice, or you tried to use the same
name for the module itself.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I did not hit enter before after entering into the immediate window:
Now I got compile error, ambiguous name detected: SetUpHightlight
I copied and pasted my codes, so you can see what I have:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "], True)"
ctl.OnLostFocus = "=HighLight([" & strName & "], False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

Immediate window:
? SetupHightlight("FrmContractor")


"Allen Browne" wrote in message
...
You pasted the code into the module?
Then entered the line starting with the question mark into the
Immediate
Window? And pressed Enter?

Did you receive an error?
Did you save the form, and test it?

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I had sent the other reponse before I even tried it. But cannot get
this
to
work.
I pasted your code into new new module.
I pasted:
? SetupHightlight("FrmContractor") - FrmContractor is one of my
forms.
with the question mark in front of it. But it does nothing when click
through the form.
Anne



"Allen Browne" wrote in message
...
1. Select the module tab of the Database window, and click New.
Access opens a new module.

2. Paste in the code.

3. Open the Immediate window: Ctrl+G

4. Enter:
? SetupHightlight("Form1")
substituting your actual form name for Form1.

The code will run, and set the OnLostFocus and OnGotFocus properties
of
controls on the form. These events will call the other function,
which
actually does the highlighting and dehighlighting.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Anne" wrote in message
...
I like your solution, but I am not sure how to use it.
I put your code into a module, but I do not know what to put on
the
form
to
activate it.
Anne

"Allen Browne" wrote in message
...
Yes, you need to put this in the events of each control, but you
can
do
that
programmatically.

The following example opens the form in design view, and sets the
OnGotFocus
and OnLostFocus properties of all the text boxes and combo boxes:

Function SetupHightlight(strForm As String)
Dim ctl As Control
Dim strName As String

DoCmd.OpenForm strForm, acDesign
For Each ctl In Forms(strForm).Controls
Select Case ctl.ControlType
Case acTextBox, acComboBox
strName = ctl.Name
ctl.OnGotFocus = "=HighLight([" & strName & "],
True)"
ctl.OnLostFocus = "=HighLight([" & strName & "],
False)"
End Select
Next
Set ctl = Nothing
End Function
Public Function Highlight(ctl As Control, bHighlighted As
Boolean)
If bHighlighted Then
ctl.BackColor = vbYellow
Else
ctl.BackColor = vbWhite
End If
End Function

"Anne" wrote in message
...
How can I use this for other forms as well?

Same way in the immediate window: just use the name of another form.

--
Allen Browne - Microsoft MVP. Perth, Western Australia.
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.