The long and short of this week's problem is this:
I have a list of patients that are seeing various clinicians in a clinic. Currently everything is on paper and when a patient arrives we highlight their name on the list. So now that I'm finally moving everything paperless, I want to have the record become "highlighted" when I select patient has arrived. The only problem is as it's a continuous form, the formatting changes on all records. Here is the screenshot before anyone arrives:
Those are two separate records that you see. Behind all of those fields is a box coloured #E7F442 (optic yellow-ish). What I want is when I select "Arrived" from the dropdown, for the fields on the left (name, number, appointment type, etc) to become transparent so the yellow shows through and looks highlighted. I've used this code:
However that code leads to this happening:
Making the whole code utterly useless, as it's changing the formatting on every record. Is there a way to program this so the formatting changes only affect the record I'm working on at that moment?
I have a list of patients that are seeing various clinicians in a clinic. Currently everything is on paper and when a patient arrives we highlight their name on the list. So now that I'm finally moving everything paperless, I want to have the record become "highlighted" when I select patient has arrived. The only problem is as it's a continuous form, the formatting changes on all records. Here is the screenshot before anyone arrives:

Those are two separate records that you see. Behind all of those fields is a box coloured #E7F442 (optic yellow-ish). What I want is when I select "Arrived" from the dropdown, for the fields on the left (name, number, appointment type, etc) to become transparent so the yellow shows through and looks highlighted. I've used this code:
Code:
Private Sub ATCST_AfterUpdate()
If Me.ATCST = "Arrived" Then
Me.RGBCHID.BackStyle = 0
Me.PATNAME.BackStyle = 0
Me.TCDESC.BackStyle = 0
Me.VISPURP.BackStyle = 0
Me.ATCMNT.BackStyle = 0
Me.ATTIME.BackStyle = 0
Me.ATCST.BackStyle = 0
ElseIf Me.ATCST = "Not Arrived" Then
Me.RGBCHID.BackStyle = 1
Me.PATNAME.BackStyle = 1
Me.TCDESC.BackStyle = 1
Me.VISPURP.BackStyle = 1
Me.ATCMNT.BackStyle = 1
Me.ATTIME.BackStyle = 1
Me.ATCST.BackStyle = 1
End If
End Sub
However that code leads to this happening:

Making the whole code utterly useless, as it's changing the formatting on every record. Is there a way to program this so the formatting changes only affect the record I'm working on at that moment?