ACCESS FEED: Re: [MS_AccessPros] Re: Changing the Subdatasheet property of all tables to [None]

Minggu, 08 November 2015

Re: [MS_AccessPros] Re: Changing the Subdatasheet property of all tables to [None]

in order to get Subdatasheet changes to stick, you also need to turn off AutoCorrect.

Getting rid of Name AutoCorrect is a multi-step process:

File, Options, Current Database

1. uncheck Perform Name AutoCorrect (leave Track Name AutoCorrect checked) -- you might need to check it to uncheck Perform
2. Compact/Repair
3. Uncheck Name AutoCorrect
4. Compact/Repair

warm regards,
crystal

Microsoft Access Basics
https://www.goskills.com/Course/Access-Basics
40 lessons to empower you to build an application with Access

~ have an awesome day ~

On 11/8/2015 9:26 AM, wrmosca@comcast.net [MS_Access_Professionals] wrote:

Kevin

Here is a procedure I wrote years ago to turn off Subdatasheets in all tables.

Public Function dev_TbrTurnOffSubDataSheets()

'Purpose : Access sets all tables' SubDataSheets to Auto which slows up loading time.

' This function will set the property to [none].

'DateTime : 1/14/2004 09:20

'Author : Bill Mosca

Dim db As DAO.Database

Dim prop As DAO.Property

Dim propName As String, propVal As String

Dim propType As Integer, i As Integer

On Error Resume Next

Set db = CurrentDb

propName = "SubDataSheetName"

propType = 10

propVal = "[NONE]"

For i = 0 To db.TableDefs.Count - 1

If (db.TableDefs(i).Attributes And dbSystemObject) = 0 Then

If db.TableDefs(i).Properties(propName).Value <> propVal Then

db.TableDefs(i).Properties(propName).Value = propVal

End If

If Err.Number = 3270 Then

Err.Clear

Set prop = db.TableDefs(i).CreateProperty(propName)

prop.Type = propType

prop.Value = propVal

db.TableDefs(i).Properties.Append prop

Else

If Err.Number <> 0 Then

Resume Next

End If

End If

End If

Next i

MsgBox "The " & propName & _

" value for all non-system tables has been updated to " & propVal & "."

Set prop = Nothing

Set db = Nothing

End Function

I put the module that contains this and many other development routines in our Files folder. It's named DevToolbar.zip. If you import it into your database you can run any of the routines. There is also a 2003 toolbar that you can import. For veriosn 2007 and higher the toolbar will show up under Add-ins tab.

Regards,

Bill Mosca, Founder - MS_Access_Professionals

http://www.thatlldoit.com

Microsoft Office Access MVP

http://mvp.microsoft.com/en-us/mvp/Bill%20Mosca-35852

My nothing-to-do-with-Access blog

http://wrmosca.wordpress.com

---In MS_Access_Professionals@yahoogroups.com, <zhaoliqingoffice@163.com> wrote :

John-

Changing the Subdatasheet property of all tables to [None], will this cause any problem to the tables? Thanks.

Best Regards,

Kevin

zhaoliqingoffice@163.com