Formatting text box as all caps (1 Viewer)

[rafi2]

Hi,

I've got a report that shows the same piece of data in numerous places throughout the report. These are all text boxes with the same record source. However, in one of the text boxes, I would like to display the data entirely in capital letters. How do I set the formatting for this?

Thanks for the help!

 

[Sam Summers]

In design view, select the textbox properties, then select format and simply put > for it.

 

[rafi2]

That's brilliantly easy. Thanks!

 

[rhett7660]

Sam...

That is just was I was looking for also!! Thanks a bunch and it was so easy..

thanks
R~

 

[Sam Summers]

No problem guys. HTH

 

[rio]

How to make the first letter is cap

 

[rommelgenlight]

if you tried Sam Summers advice to put > on the format properties of your textbox and did not work try this one:

let us name this textbox as txt1
1. goto the properties of your textbox, goto Event Tab and look for On Key Press
2. place this code

Private Sub txt_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97
KeyAscii = 65
Case 98
KeyAscii = 66
Case 99
KeyAscii = 67
Case 100
KeyAscii = 68
Case 101
KeyAscii = 69
Case 102
KeyAscii = 70
Case 103
KeyAscii = 71
Case 104
KeyAscii = 72
Case 105
KeyAscii = 73
Case 106
KeyAscii = 74
Case 107
KeyAscii = 75
Case 108
KeyAscii = 76
Case 109
KeyAscii = 77
Case 110
KeyAscii = 78
Case 111
KeyAscii = 79
Case 112
KeyAscii = 80
Case 113
KeyAscii = 81
Case 114
KeyAscii = 82
Case 115
KeyAscii = 83
Case 116
KeyAscii = 84
Case 117
KeyAscii = 85
Case 118
KeyAscii = 86
Case 119
KeyAscii = 87
Case 120
KeyAscii = 88
Case 121
KeyAscii = 89
Case 122
KeyAscii = 90
Case Else
KeyAscii = 0
End Select
End Sub


Hope this will work for you! Tell us if this solves your problem.

 

[rio]

if you tried Sam Summers advice to put > on the format properties of your textbox and did not work try this one:

let us name this textbox as txt1
1. goto the properties of your textbox, goto Event Tab and look for On Key Press
2. place this code

Private Sub txt_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 97
KeyAscii = 65
Case 98
KeyAscii = 66
Case 99
KeyAscii = 67
Case 100
KeyAscii = 68
Case 101
KeyAscii = 69
Case 102
KeyAscii = 70
Case 103
KeyAscii = 71
Case 104
KeyAscii = 72
Case 105
KeyAscii = 73
Case 106
KeyAscii = 74
Case 107
KeyAscii = 75
Case 108
KeyAscii = 76
Case 109
KeyAscii = 77
Case 110
KeyAscii = 78
Case 111
KeyAscii = 79
Case 112
KeyAscii = 80
Case 113
KeyAscii = 81
Case 114
KeyAscii = 82
Case 115
KeyAscii = 83
Case 116
KeyAscii = 84
Case 117
KeyAscii = 85
Case 118
KeyAscii = 86
Case 119
KeyAscii = 87
Case 120
KeyAscii = 88
Case 121
KeyAscii = 89
Case 122
KeyAscii = 90
Case Else
KeyAscii = 0
End Select
End Sub


Hope this will work for you! Tell us if this solves your problem.

4 form? how about report? there is no On Key Press in report.