Input Mask and Format Confusion

[njwcad]

Can anyone Help
I have the following problem;
I have a form sourced from an underlying table with two controls which, for simplicity, I will call control A and control B. I am defining an input mask using the set value on a macro that says.
If Control A = "London" then set [Control A].[Input Mask] to
">LL-L-L-L/00"
If Control A = "New York" then set [Control A].[Input Mask] to
">LL-L0-L-L/00"
This seems to work okay. However I would also like to set a format that represents the input mask so when sourced in another form the display format is the same as the input mask. I have tried variations but can't seem to get it right. For example
If Control A = "London" then set [Control A].[Format] to
"@@-@-@-@/@@"
If Control A = "New York" then set [Control A].[Format] to
"@@-@@-@-@/@@"
I realise that this might be achieved in code, or maybe I can still resolve this through a macro, as I'm a complete novice regarding code and wouldn't know where to start. Any help you can give would really be appreciated

Thanks in advance

 

[Pampers]

Hi njwcad,
Well, you have to start using code some day, so it might as well be today...
In the afterupdate-event (look in the event-list of the control) of your combox for the city's you can put the following code. I use CityNameID's instead of the full name, that is a bit easier.

Private Sub CityNameID_AfterUpdate()
    If Me.CityNameID = 1 Then 'London
        Me.ControlA.InputMask = ">LL-L-L-L/00"
        Me.ControlA.Format = "@@-@-@-@/@@"
    End If
    
    If Me.CityNameID = 2 Then 'New York
        Me.ControlA.InputMask = ">LL-L0-L-L/00"
        Me.ControlA.Format = "@@-@@-@-@/@@"
    End If
End Sub

Pampers
Just let it go...