???? ???? ??? ????? ?????? ?? Access 2002 ? Office Access 2003 ? Office 2007

?????? ????????? ?????? ?????????
???? ???????: 275085 - ??? ???????? ???? ????? ????? ??? ???????.
?????? ??? ????? Microsoft Access 2000 ?? ??? ???????? ???? 261000.
???????: ????? ????? ????? ???????? ??? ????? ????????? ???????? ??????.

??? ????? ??? ?????? ??? ??? ????? ?????? Microsoft Access (.mdb).

????? ???? | ?? ????

???????

??? ??? ???? ????? ?? Microsoft Access 2002? ?? Microsoft Office Access 2003. ?? ?? Microsoft Office Access 2007? ???? ?? ???? ??????? ???????? ?? ???? ?????? ????? ??????? ????? ???? noticeably ???? ??? ??? ?????? ??? ????? ???????? ?? Microsoft Access 97.

?????

???? ??? ?????? ??? ??? ???? ?????? ?? ??????? ???????? ?? ????? ?????? ???? ????? ????? ??? ?????? ?? ???????? ????? ?????? ???? ???? ????? ????? [??????] ??????? ??? ???? ?????? ????? ?????? ??.

????

??????? ?????? ??? ??? ??????? ?? ?????? ????? ??? ???? ?????? ????? ?????? ??? [???]. ????? ?????? ???? ?????? ?? ???????? ??????? ??????.

????? ??????? ??? ???? ?????? ????? ??????

?????? ??????? ??? ???? ?????? ????? ?????? ???? ??????? ???????.

?????????? ??? ??????? ??? ?? Access 2002.
  1. ?? ????? ?????? "??????? ???????" ? ???? ???? ?? ????? ????? "?????".
  2. ?? ??????? ???? ???? ??? ?????.
  3. ????? ??????? ??? ???? ?????? ????? ??? [NONE].
  4. ??? ?? ?? ?????? ??????.

????? ??????? ??? ???? ?????? ????? ????? ??????? ???????? ??????? ??????

????? ??????? Visual Basic for Applications ?????? ?????? ??????? ??? ???? ?????? ????? ????? ??????? ??? ???????? ???????? ?? ????? ?????? ??? [NONE]. ?????? ????? ???? ??????? ???????:
  1. ???? ????? ???????? ??? ??????? ???????.
  2. ?? ?????? "????? ??????" ? ???? ??? ????? ????? ?? ???? ??? ????.
  3. ?? ??????? ????? ? ???? "?????". ???? ?? ?? Microsoft DAO 3.6 ???? ????? ???? ???????? ????? ?? ???? ??? ?????.
  4. ???? ?? ???? ???????? ???????? ??????? ???? ?????? ??????? ????. propName
    Sub TurnOffSubDataSheets()
    Dim MyDB As DAO.Database
    Dim MyProperty As DAO.Property
    Dim propName As String, propVal As String, rplpropValue As String
    Dim propType As Integer, i As Integer
    Dim intCount As Integer
    
    On Error GoTo tagError
    
    Set MyDB = CurrentDb
    propName = "SubDataSheetName"
    propType = 10
    propVal = "[None]"
    rplpropValue = "[Auto]"
    intCount = 0
    
    For i = 0 To MyDB.TableDefs.Count - 1
        If (MyDB.TableDefs(i).Attributes And dbSystemObject) = 0 Then
            If MyDB.TableDefs(i).Properties(propName).Value = rplpropValue Then
                 MyDB.TableDefs(i).Properties(propName).Value = propVal
                 intCount = intCount + 1
            End If
        End If
    tagFromErrorHandling:
    Next i
    
    MyDB.Close
    
    If intCount > 0 Then
        MsgBox "The " & propName & " value for " & intCount & " non-system tables has been updated to " & propVal & "."
    End If
    
    Exit Sub
    
    tagError:
    If Err.Number = 3270 Then
        Set MyProperty = MyDB.TableDefs(i).CreateProperty(propName)
        MyProperty.Type = propType
        MyProperty.Value = propVal
        MyDB.TableDefs(i).Properties.Append MyProperty
        intCount = intCount + 1
        Resume tagFromErrorHandling
    Else
        MsgBox Err.Description & vbCrLf & vbCrLf & " in TurnOffSubDataSheets routine."
    End If
    End Sub
    
  5. ?? ?????? ??????, ???? ???? ?????? ?? ???? ??? ENTER ?????? ??????: ??????
    TurnOffSubDataSheets
    						
    ??? ??? ???? ??? ?? ??? ????? ???? ??????? ?????? ? ???? ???? ????? ???? ????? ????? ??????? SubDataSheetName ??????? ??? ?????? <numberoftablesupdated>???[NONE].

??????? ????

Office Access 2007 ? Access 2003 Access 2002 ? Access 2000 ???? ?? ???? ???? ??????? ???????? ?? ???? ?????? ?????; ?? ????? ??? ??????? ?? Access 97. ?????? ???????? ??? ??????? ??????? ? ??? ????? ?????? ????? ????? ??? ????? ??? ???? ??? ????? ??? ????????? ???? ??? ??? ????? ?????? ????? ??? ??? ???? ?? ??????? ???????? ??? ???? ?? ???????? ??? ???????.

?????? ??????? ?? ????? ???? ????? (?????? ???? ??? ???? "?????" ????????) ???? ?? ???? ??? ???? ?????? ????? ????? ??????? ?????? ?? ??? [???] ?? ??? ?????? ?? ??? ??? ????? ???????? ???????. ?? ???? ????? ??????? ??? ???? ?????? ????? ??? ??? ?????? ??????? ????? ?? ??? [??????]. ??? ?? ????? ??????? ??? [??????] ? ???? ?????? ??? ????? ?????? ??????? ??????? ???? ?????? ?? ???? ??? ????? ??? ???? ??????? ??? ?? ?????? ???????. ??? ????? ??????? ??? [??????] ??? ???? ????? ???? noticeably, ???? ??? ????? ????????? ??????? ??? ??????? ????? ???????? ??? ??? ???? ?? ??????? ????????. ?? ???? ??? ?????? ??? ???? ???? ??????? ?? ??? ????? ????????.

??? ??????? ??? ???? ???? ?? ???? ??????? ??? ???? ??????? ?????? ?????? ???????? ????? ?????? ???? ???? ?????? ???? ????? ??? ???? ??????? ???? ??? ??? ???? ??? ??????? ???.

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ?????. ??? ????? ???? ?? ????? ??? ???????? ??????? ?????? ???????? ?? ???????? ???? ????. ????? ??? ??????? ???? ?????? ?? ??? ??????? ???? ??? ????? ?? ??????? ???? ??? ????????? ?????? ?????? ?????????. ???? ??????? ????? ??? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ??????? ?????.

???????

???? ???????: 275085 - ????? ??? ??????: 10/???? ?????/1428 - ??????: 10.1
????? ???
  • Microsoft Office Access 2007
  • Microsoft Office Access 2003
  • Microsoft Access 2002 Standard Edition
????? ??????: 
kbmt kbbug kbperformance kbnofix KB275085 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????275085

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com