truncate combo box text

[lloyd33]

hi all



I would like to limit the text entered within a combo box to a value no more than 10 characters then automatically truncate the values if the number of characters is greater than 10. I have placed code on the not in list event of a combo box this is an extract

If Len(NewData) > 10 Or blkok = True Then

DisplayMessage "Text Too Long Enter a Maximum of 10 Characters "
NewData = Left(NewData, 10)

Cancel = True
Response = acDataErrContinue
End If


what have i missed, it doesnt truncate anything

 

[KenHigg]

If Len(me!NewData) > 10 Or blkok = True Then

DisplayMessage "Text Too Long Enter a Maximum of 10 Characters "
me!NewData = Left(me!NewData, 10)

Cancel = True
Response = acDataErrContinue
End If

----------------

But I would use an input mask.

kh

 

[WayneRyan]

Lloyd,

Multi-Column?

me.NewData.Column(1) = Left(me.NewData.Column(1), 10)

Subscripts start at 0 for the columns.

Or, is the name really NewData? Try using a breakpoint or MsgBox
to debug it.

Wayne

 

[lloyd33]

combo box Auto expanding

thanks guys for your help and suggestions. for some reason i could not get the column suggest to work. I changed the code slightly anyway. But do you guys know how to stop a combo box expanding. i set autoexpand to false it still expands though.