Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako previesť dáta do vojenských Data Access 2007 VBA

Zistiť , ako formátovať dátum môže byť problém , ak ste oboznámení s funkciou Format v jazyku Visual Basic for Applications alebo VBA . Použite funkciu Format formátovať ľubovoľné dátum do iného formátu dátumu , ako je vojenská formáte . Vojenská dátum je bežne poznámkami zobrazenie dvojmiestne číslo dňa , prvé tri písmená mesiaca a dvojmiestne rok . Možno zistíte , táto funkcia užitočná , najmä ak potrebujete previesť veľa dát na vojenskej dáta v databáze programu Access . Pokyny dovolená 1

Štart " prístup , " kliknite na tlačidlo " Prázdna databáza " a potom kliknite na tlačidlo " Vytvoriť " . Zvoľte menu " Database Tools " , a potom kliknite na tlačidlo " Visual Basic " . . Zvoľte menu " Vložiť " , potom kliknite na " modul " vložiť nový kód modulu
2

Zadajte nasledujúci vytvoriť nový VBA postup :

Private Sub convertToMilitaryDate ( )

On Error GoTo Err_convertToMilitaryDate :
3

Zadajte nasledujúci vytvoriť dve premenné , jeden držať dnešný dátum a druhý držať formátovaný vojenskej dátum :

Dim todaysDate Ako Dátum

Dim militaryDate As String
4

Zadajte nasledujúce , aby sa dnešný dátum pomocou " Now ( ) " funkcia :

todaysDate = Now ( )
5

Zadajte nasledujúce formátovať dnešný dátum do vojenskej formátu dátumu :

militaryDate = Format ( todaysDate , " Medium Date " )

6

Zadajte nasledujúce nahradiť spojovníky s medzerou :

militaryDate = nahradiť ( militaryDate , " - " , " " )
7

Zadajte nasledujúce zobrazenie konečné vojenské reťazec dáta cez okno so správou :

MsgBox ( militaryDate )
8

zadajte nasledujúci príkaz na ukončenie konania a zobrazenie chyby , po okne so správou :

Exit_convertToMilitaryDate :

Exit Sub

Err_convertToMilitaryDate :

MsgBox Err.Description

Pokračovať Exit_convertToMilitaryDate :

End Sub

Stlačte " F5 " spustiť procedúru .

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené