[AccessD] Ribbons

acToolBarNo = 2 in Access 2002 as well. 

Lambert

-----Original Message-----
From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of William Benson (VBACreations.Com)
Sent: Tuesday, June 07, 2011 12:39 PM
To: 'Access Developers discussion and problem solving'
Subject: Re: [AccessD] Ribbons

Tony,

First, most times I see version tested, it is with the Val() function wrapping it. I don't think it is required, but someone must have been burned somewhere so I would use it I guess. Made no difference on my machine running Access 2010.

If val(SysCmd(acSysCmdAccessVer)) >= 12 Then
	DoCmd.ShowToolbar "Ribbon",  _
	acToolbarNo
end if

You could try using the number 2 instead of acToolbarNo in case that intrinsic constant is known only to 2010 (which I cannot test - someone else can weight in here)


acToolbarYes = 0
acToolbarNo = 2


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Tony Septav
Sent: Tuesday, June 07, 2011 11:55 AM
To: Access Developers discussion and problem solving
Subject: [AccessD] Ribbons

Hey All
I put this in the OnOpen of my Main form and sent it to a friend to test (as I don't have Access2007).  It didn't work the ribbon still appears, is there something else I need to turn off???

If SysCmd(acSysCmdAccessVer) >= 12 Then
	DoCmd.ShowToolbar "Ribbon", acToolbarNo endif

Thanks
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com