Programmatically setting Unicode Compression

R

Ronald

Hi all.

I can create tables with fields and set field Required to Yes and so on.
The Text fields are default with Unicode Compression set to No and I cannot
find the command to change it.
Can any MVP help me please?
Thank you.

Ronald.
 
J

James Rivera [MS]

You can get to this via DAO with VBA:

Sub foo()
Debug.Print
Application.CurrentDb.TableDefs("Table1").Fields("Field1").Properties("UnicodeCompression").Value

Application.CurrentDb.TableDefs("Table1").Fields("Field1").Properties("UnicodeCompression").Value = True
End Sub

-James
 
R

Ronald

Thank you very much, James.

James Rivera said:
You can get to this via DAO with VBA:

Sub foo()
Debug.Print
Application.CurrentDb.TableDefs("Table1").Fields("Field1").Properties("UnicodeCompression").Value

Application.CurrentDb.TableDefs("Table1").Fields("Field1").Properties("UnicodeCompression").Value = True
End Sub

-James
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Programmatically set Unicode Compression 2
UnicodeCompression again 6
How do I install Microsoft Equation 3.0 back to Office 365? 0
MS Word normal.dot cannot be fixed 'text box' appears each time 4
Word Template where user inputs <TITLE> and then that can be displayed in footers or headers [MAC] 0
Template with fields and premade texts.. 0
How do I set focus (and select text) on a text box on a modeless userform? 0
Set as Default Template not working 0

Top