Macro substitution request

[damezumari]

I am using WinXP and Access 2003.

On a form I have eight lists. A public variable, called cLastList,
remembers which list was the last one selected. When I come to a new
list I would like to unselect the row in the last list and update the
variable cLastList.

Something like this:

Private Sub lstconstructiontype_GotFocus()
me.(cLastList).value = null
cLastList = (name of this object)
End Sub

This does not work.

I could use a select case to find which list to set to null,

Select Case cLastList
Case "lstconstructiontype"
me.lstconstructiontype.value = null
cLastList = "lstconstructiontype"
....
End Select

but I am looking for a shorter way as outlined above.

Any help is greatly appreciated.

Regards,

Jan Nordgreen

think again!
http://simpler-solutions.net/pmachin...thinkagain.php

[Leigh P]

>

Private Sub lstconstructiontype_GotFocus()
me.(cLastList).value = null
cLastList = (name of this object)
End Sub

Does your first line even compile?
Perhaps something more like

Me(cLastList).Value = Null
cLastList = Screen.ActiveControl.Name

So that you can put it in a procedure that is called identically from all of
your lists?
(Bearing in mind that it may need an initial value - or just error handling
to allow for that.)

[damezumari]

My first line was just an idea. :)

Your lines compiled beautifully! making my program faster to write and
much more maintainable!

As you said, I can now put these two instructions in a procedure.

Thanks!

Regards,

Jan Nordgreen