Ako vytvoriť revízny záznam zmien vo forme, v programe Access 2000

Preklady článku Preklady článku
ID článku: 197592 - Zobraziť produkty, ktorých sa tento článok týka.
Microsoft Access 97 verziu tohto článku, pozri 183792.
Mierna: Vyžaduje základné makro, kódovanie a interoperabilitu zručnosti.

Rozbaliť všetko | Zbaliť všetko

SUHRN

Tento článok vám ukáže, ako vytvoriť postup v Microsoft Visual Basic for Applications, že sa bude držať revízny zmien, ktoré sú k záznamu vo formulári.

DALSIE INFORMACIE

Spoločnosť Microsoft poskytuje príklady programovacieho kódu len ako názornú ukážku bez ľubovoľnej vyjadrenej alebo implicitnej záruky. Toto zahŕňa, okrem iného, implicitné záruky obchodovateľnosti a vhodnosti pre konkrétny účel. Úroveň odbornosti článku predpokladá, že ovládate predvádzaný programovací jazyk a nástroje, ktoré sa používajú na vytváranie a ladenie procedúr. Pracovníci technickej podpory spoločnosti Microsoft môžu pomôcť vysvetliť funkčnosť konkrétny postup, ale nie modifikuje tieto príklady poskytovať pridanú funkčnosť alebo výstavbe postupy splniť vaše konkrétne požiadavky. Ak chcete vytvoriť podklady pre audit zmien vo formulári, postupujte nasledovne:
  1. Otvorte ukážkovú databázu Northwind.mdb.
  2. Vytvoriť modul a zadajte nasledujúci riadok v Vyhlásenia časti, ak už nie je:
    Option Explicit
    					
  3. Zadajte nasledovný postup:
    Function AuditTrail()
    On Error GoTo Err_Handler
        
        Dim MyForm As Form, C As Control, xName As String
        Set MyForm = Screen.ActiveForm
    
        'Set date and current user if form has been updated.
        MyForm!Updates = MyForm!Updates & Chr(13) & Chr(10) & _
        "Changes made on " & Date & " by " & CurrentUser() & ";"
    
        'If new record, record it in audit trail and exit sub.
        If MyForm.NewRecord = True Then
            MyForm!Updates = MyForm!Updates & Chr(13) & Chr(10) & _
            "New Record """
        End If
    
        'Check each data entry control for change and record
        'old value of Control.
        For Each C In MyForm.Controls
            
        'Only check data entry type controls.
        Select Case C.ControlType
            Case acTextBox, acComboBox, acListBox, acOptionGroup
                ' Skip Updates field.
                If C.Name <> "Updates" Then
        
                ' If control was previously Null, record "previous
                ' value was blank."
                    If IsNull(C.OldValue) Or C.OldValue = "" Then
                        MyForm!Updates = MyForm!Updates & Chr(13) & _
                        Chr(10) & C.Name & "--previous value was blank"
                        
                    ' If control had previous value, record previous value.
                    ElseIf IIF(IsNull(C.Value),"",C.Value) <> C.OldValue Then
                        MyForm!Updates = MyForm!Updates & Chr(13) & Chr(10) & _
                        C.Name & "==previous value was " & C.OldValue
                    End If
                End If
            End Select
        Next C
    
    TryNextC:
        Exit Function
          
    Err_Handler:
        If Err.Number <> 64535 Then
            MsgBox "Error #: " & Err.Number & vbCrLf & "Description: " & Err.Description
        End If
        Resume TryNextC
    End Function
    					
  4. Uložiť modulu ako Module1 a zavrite Visual Basic Editor.
  5. Otvorte tabuľku Zákazníci v návrhovom zobrazení a pridať nové pole názvom aktualizácie. Nastaviť typ údajov poľa s dobropisom. Zavrieť a uložiť Tabuľka.
  6. Otvorte formulár Zákazníci v návrhovom zobrazení.
  7. V prípade PredAktualizáciou formulára zadajte=AuditTrail().
  8. Ak zoznam polí nie je zobrazená, kliknite na tlačidlo Zoznam polí na View menu a presúvaním aktualizácie pole zo zoznamu polí formulára.
  9. Otvorte formulár vo formulárovom zobrazení, vykonať zmenu spoločnosti Pole názov aktuálneho záznamu a stlačte klávesy SHIFT + ENTER, ak chcete uložiť záznam.
Všimnite si, že aktualizácie pole má položka zobraziť zmeny že ste sa pole Názov spoločnosti. Môžete tiež skryť poľa aktualizácie ak nechcete zobraziť vo formulári.
Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use for other considerations.

Vlastnosti

ID článku: 197592 - Posledná kontrola: 20. októbra 2011 - Revízia: 2.0
Informácie v tomto článku sa týkajú nasledujúcich produktov:
  • Microsoft Access 2000 Standard Edition
Kľúčové slová: 
kbhowto kbprogramming kbmt KB197592 KbMtsk
Strojovo preložené
DÔLEŽITÉ: Tento článok bol preložený pomocou softvéru na strojový preklad od spoločnosti Microsoft, nie prekladateľom. Spoločnosť Microsoft ponúka články preložené prekladateľmi aj strojovo preložené články, vďaka čomu máte možnosť prístupu ku všetkým článkom databázy Knowledge Base vo svojom jazyku. Strojovo preložený článok však nie je vždy perfektný. Môže obsahovať chyby týkajúce sa slovnej zásoby, syntaxe alebo gramatiky, podobne ako cudzinec môže robiť chyby, keď rozpráva vašim jazykom. Spoločnosť Microsoft nenesie zodpovednosť za akékoľvek nepresnosti, chyby alebo škody spôsobené akýmkoľvek nepresným prekladom obsahu alebo jeho použitím zo strany zákazníkov. Spoločnosť Microsoft softvér na strojový preklad pravidelne aktualizuje.
Pokiaľ chcete vidieť anglickú verziu článku, kliknite sem:197592

Odošlite odozvu

 

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