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

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
Tento článok bol archivovaný. Je publikovaný v aktuálnej podobe a už nebude aktualizovaný.
Microsoft Access 97 verziu tohto článku, pozri 183792.
Mierna: Vyžaduje základné makro, kódovanie a interoperabilitu zručnosti.

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 CTryNextC:    Exit Function      Err_Handler:    If Err.Number <> 64535 Then        MsgBox "Error #: " & Err.Number & vbCrLf & "Description: " & Err.Description    End If    Resume TryNextCEnd 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.
Sledovanie informácií dátum časovej pečiatky
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.

Upozornenie: Tento článok bol preložený automaticky.

Vlastnosti

ID článku: 197592 – Posledná kontrola: 12/05/2015 10:02:22 – Revízia: 2.0

Microsoft Access 2000 Standard Edition

  • kbnosurvey kbarchive kbhowto kbprogramming kbmt KB197592 KbMtsk
Pripomienky