Setting UpperCase, LowerCase and ProperCase To a Text or Combo Box

[vdanelia]

Hello Dear friends, I have a question about TextCases in Access Text and Combo Boxes.



When entering the data in text or combo box I want that the text case automatically be changed as I need.
I use this VBA Code:

Model.Text = UCase(Model.Text) 'Converts LowerCase To UpperCase
Model.Text = LCase(Model.Text) 'Converts UpperCase To LowerCase
Model.Text = StrConv(Model.Text, vbProperCase) 'Converts All To Normal (Proper) Case

These codes work very well (Converting Cases as needed), but can't use space bar when writing two sentences(If i have to write "Hello World" it's writing Helloworld then i have to go back and then hit to space between Hello World)


Then I put the code on Before Update Event, but getting the error "Run-Time Error '2115' The Macro or function set to the beforeupdate or validationRule property for this field preventing ms access from saving the data in the field


What I did incorrectly, Please help!

Thank you in advanced

[vdanelia]

Who is familiar with this, Need Help!