Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Change Special Effect

Status
Not open for further replies.

ApplePirate

Programmer
Dec 16, 2002
65
GB
Does anyone know what the code would be to change the special effect of a box from raised to sunken

Never ever, bloody anything, ever
 
Me![NameOfTextBox].SpecialEffect = 2

****************************
Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III
MCSA, CNA, MCP, Network+, A+
w: robert.l.johnson.iii@citigroup.com
h: wildmage@tampabay.rr.com
 
Try this:
Me.ControlName.SpecialEffect = "Sunken"

Check out ACCESS Help for Special Effect property to see all of the settings. You can use a numeric value rather than text to change the effects.

Bob Scriver
 
for some reason im getting a run time error, this is the code:-

Private Sub Box0_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.[Box0].SpecialEffect = "Sunken"
End Sub

Private Sub Box0_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.[Box0].SpecialEffect = "Raised"
End Sub


but as i said it doesnt seem to work

Never ever, bloody anything, ever
 
Either use:

Me![Box0].SpecialEffect="Sunken"

or

Me.Box0.SpecialEffect="Sunken"



****************************
Only two things are infinite, the universe and human stupidity, and I'm not sure about the former. (Albert Einstein)

Robert L. Johnson III
MCSA, CNA, MCP, Network+, A+
w: robert.l.johnson.iii@citigroup.com
h: wildmage@tampabay.rr.com
 
ive managed to just about alter all of the other format options using mousedown and mouseup, except for the special effect, i am assuming it requires a numeric value. does anyone know what these are

Never ever, bloody anything, ever
 
sorry i jumped the gun,
the values are 1 through 5

cheers for the tips

Never ever, bloody anything, ever
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top