ACCESS FEED: Re: [MS_AccessPros] Subform

Sabtu, 18 Oktober 2014

Re: [MS_AccessPros] Subform

you're welcome, Dennis

on disabling AutoCorrect: it is a multi-step process

TURN OFF NAME AUTOCORRECT

in 2007:

1. Click the Microsoft Office Button Button in the upper left corner
2. choose --> Access Options (lower right corner)

in 2010:

1. File ribbon menu
2. Options (near bottom)

~~~

then:

3. Current Database from left sidebar

in Access 2000 - 2003:
1,2,3. from the menu --> Tools >> Options >> General

-----------------------------------
THEN:
4. Under Name AutoCorrect Options:
uncheck --> Perform Name AutoCorrect
5. Compact/Repair
6. then go back and uncheck --> Track Name AutoCorrect info
7. Compact/Repair again

Another thing I do is set SubDatasheets to [None] in all tables. Allen talks about this too.

Microsoft Access Flaws - Problem properties by Allen Browne
http://allenbrowne.com/bug-09.html

Database Issue Checker Utility by Allen Browne
Microsoft Access tips: Utility to check the structure of a database

~~~

Public Sub SetSubDatasheetNone()

   'crystal 10-27-06

   'set the Subdatasheet property to [None]
   'in all user tables

   'needs reference to
   'Microsoft DAO Library

   Dim tdf As DAO.TableDef _
      , mProp As DAO.Property

   Dim nCountDone As Integer _
      , nCountChecked As Integer _
      , mBoo As Boolean _
      , mStr As String

   'cheap but it works <g>
   On Error Resume Next

   nCountDone = 0
   nCountChecked = 0
   For Each tdf In CurrentDb.TableDefs
      'skip Microsoft System tables
      If Left(tdf.Name, 4) <> "Msys" Then

         mBoo = False
         nCountChecked = nCountChecked + 1
         Err.Number = 0
         mStr = tdf.Properties("SubdatasheetName")
         If Err.Number > 0 Then

            Set mProp = tdf.CreateProperty( _
               "SubdatasheetName", dbText, "[None]")

            tdf.Properties.Append mProp
            mBoo = True
         Else
            'thanks, Allen!
            If tdf.Properties("SubdatasheetName") <> "[None]" Then
               tdf.Properties("SubdatasheetName") = "[None]"
               mBoo = True
            End If
         End If
         If mBoo = True Then
            nCountDone = nCountDone + 1
         End If
      End If
   Next tdf

   Set mProp = Nothing
   Set tdf = Nothing

   MsgBox nCountChecked & " tables checked" & vbCrLf & vbCrLf _
      & "Reset SubdatasheetName property to [None] in " _
      & nCountDone & " tables" _
      , , "Reset Subdatasheet to None"

End Sub

~~~

Warm Regards,

Crystal

Stop Watch for Access
http://www.rogersaccesslibrary.com/forum/stop-watch_topic612.html

(: have an awesome day :)

On Saturday, October 18, 2014 2:18 PM, "Dennis Davidsson dennisdavidsson@ymail.com [MS_Access_Professionals]" <MS_Access_Professionals@yahoogroups.com> wrote:

Crystal, you made my day!!!

Thanks for a fantastic detailed suggestion and advice how i should proceed!

I will dive into it tomorrow morning.

And this time I will for sure be very careful not to delete anything!! ;-)

Kindly regards

Dennis

__._,_.___

Posted by: Crystal <strive4peace2008@yahoo.com>

Reply via web post

•

Reply to sender

•