Memo Type issues

[mattc66 via AccessMonster.com]

Hi All,

I have a feild set as memo type. It is only allowing 255 character. Why is it
limiting my data to this I thought it would allow 64,000+

 

[missinglinq via AccessMonster.com]

Allen Browne's tutorial will probably explain it!

http://allenbrowne.com/ser-63.html

 

[mattc66 via AccessMonster.com]

That was it. I had > in the Format settings.

Allen Browne's tutorial will probably explain it!

http://allenbrowne.com/ser-63.html

 

[missinglinq via AccessMonster.com]

I take it that, for some reason, you wanted the memo field entry in all caps?
You can do that without actually formatting it by turning on CapsLock thru
code.

In a new standard module place this code:

'Windows API/Global Declarations for :CapLock
'*********************************************
Public Const VK_CAPLOCK = &H14

Public Type KeyboardBytes
kbByte(0 To 255) As Byte
End Type
Public kbArray As KeyboardBytes

Public Declare Function GetKeyState Lib "user32" _
(ByVal nVirtKey As Long) As Long
Public Declare Function GetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long
Public Declare Function SetKeyboardState Lib "user32" _
(kbArray As KeyboardBytes) As Long

When prompted name the module something like ControlCapsLock

Now place this in the code window behind your form:

Private Sub YourMemoField_GotFocus()
'Turn Capslock On
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPLOCK) = 1
SetKeyboardState kbArray
End Sub

Private Sub YourMemoField_LostFocus()
'Turn Capslock OFF
GetKeyboardState kbArray
kbArray.kbByte(VK_CAPLOCK) = 0
SetKeyboardState kbArray
End Sub