Problems with creating Multiple Input Masks

[deiniolj]

I have form with a combo box and a text field, the combo box has software titles in it and the textbox is for the serial numbers. Depending what is chosen in the combo box the input mask will change (That works) but is also remembers the mask. So if I add a software package with no serial or no mask needed is uses the mask from the previous time. I need help with clearing the textfield of the mask or having a universal on for the rest of the titles. I will only need around 10 mask from the 30 or so titles I have in the combo box.

Help This has been driving me nuts for 2 days..

Code below.

Private Sub SW09_Serial_BeforeUpdate(Cancel As Integer)
Dim Assistive7 As String

Assistive7 = Me.Assistive_07



Select Case Assistive7
Case "Audio Notetaker V2"
Me.SW09_Serial.InputMask = ">&&\->&&&\->&&&&&\->&&&&&\->&&&&&\->&&&&;;_"
Case "textHELP Read and Write GOLD V9"
Me.SW09_Serial.InputMask = ">&&&&&&\->&&&&\->&&&&\->&&&&;;_"
Case "Dragon N/S Premium Edition V11 + Headset"
Me.SW09_Serial.InputMask = ">&&&&&\->&&&\->&&&&\->&&&&\->&&;;_"
Case "Olympus Sonority"
Me.SW09_Serial.InputMask = ">&&&&\->&&&&\->&&&&\->&&&&\->&&&&;;_"
End Select
End Sub

[NoellaG]

Hi,

maybe add a case Else instruction?

Case "Audio Notetaker V2"
Me.SW09_Serial.InputMask = ">&&\->&&&\->&&&&&\->&&&&&\->&&&&&\->&&&&;;_"
..........................
Case Else
Me.SW09_Serial.InputMask = ""
End Select

gr
NG

[deiniolj]

Doesn't work, when you go on to the next record the input mask is still there, so if the software is different i.e 5 digit long instead of 15 digit like the last record you get the error about the "the value you entered doesn't isn't appropriate for the input mask."

?

[deiniolj]

I fixed it, noticed after some playing. when i changed the list to something without a mask and filled in the previous mask and tabbed away to another field. It got ride of the previous mask so then you could shift tab back in and add the proper serial. So I changed the event from BeforeUpdate to On Enter and it works. Mask changed to whatever is in the combo box. Thanks for the extra line you gave me NoellaG.

This was a head scratcher for 2 days..

=-)

[deiniolj]

To get this working better I added it to the onload command of the form. But I get a error message. "Invalid use of NULL" because some fields are blank. How do I get it to ignore these..

[NoellaG]

Hi,

use the NZ function, its syntax:

NZ(Variable,Value when variable is null)

NZ([MyTextField],"") will return the value of the field [MyTextField], but return an empty string when the field is empty

gr
NG

[deiniolj]

You are a star NoellaG

[deiniolj]

What's the best way to get this working with a rpt. I have tried the onload command, but it doesn't work with the print preview I get a error.

Anybody

[deiniolj]

Also is there a way instead of the input mask, actual details are inputed. i.e if it say's Anti virus then

Case "Anti Virus"
Me.SW09_Serial (What should go here to populate the fields with "N/S")

Thx