Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Kliknite na tlačidlo " Štart " , " Všetky programy " , " Microsoft Office " a " Microsoft Access 2007 . "
2
Otvorenie existujúcej databázy pomocou " Súbor , " " Otvoriť " .
3
Kliknite na " Visual Basic " na " Databázové nástroje " kartu na páse kariet .
4
Kliknite na " modul " z ponuka " Vložiť " . Zvoľte " Postup " z menu " Vložiť " . Zadajte názov pre postup . Vyberte typ , napríklad " funkcie " , a rozsah a potom kliknite na tlačidlo " OK " .
5
Zadajte kód vášho postupu . Napríklad :
Public Function Vek ( varBirthDate As Variant ) As Integer
Dim Varago As Variant
Ak IsNull ( varBirthDate ) Potom Vek = 0 : Exit Function
Varago = DateDiff ( " yyyy " , varBirthDate , teraz )
Pokiaľ Dátum < DateSerial ( Year ( Now ) , mesiac ( varBirthDate ) , Day ( varBirthDate ) ) Potom
Varago = Varago - 1
End If
Vek = CInt ( Varago )
End Function
6
Kliknite na " Immediate okno " od " View . " Zadajte " ? Age ( " 1956-01-02 " ) " a stlačte tlačidlo " Enter " na testovanie vášho kódu . Tie by mali dostať " 54 " , ak je aktuálny dátum v roku 2010 .
7
Kliknite na ikonu diskety na lište nástrojov uložte svoju prácu .
Copyright © počítačové znalosti Všetky práva vyhradené