Kurz Databáze Obsluha systému Doc. Ing. Radim Farana, CSc.
Obsah Makropříkazy. Horké klávesy. Programové moduly. Objektové knihovny. Podpora programování. Datové typy. Programové struktury.
strana 1
Makropříkazy Submakro
Podmínka
Akce
Komentář
Vlastnosti akce
strana 2
1
Akce makropříkazů KopírovatObjekt - CopyObject Maximalizovat - Maximize Minimalizovat - Minimize NajítDalší - FindNext NajítZáznam - FindRecord NastavitHodnotu - SetValue NastavitPoložkuNabídky - SetMenuItem NastavitVarování - SetWarnings Obnovit - Restore OdeslatObjekt - SendObject OdstranitObjekt - DeleteObject OknoSeZprávou - MsgBox OtevřítDotaz - OpenQuery OtevřítFormulář - OpenForm OtevřítModul - OpenModule OtevřítSestavu - OpenReport OtevřítTabulku - OpenTable PoužítFiltr - ApplyFilter PředatKlávesovéÚhozy - SendKeys PřejítNaOvládacíPrvek - GotoControl PřejítNaStránku - GotoPage PřejítNaZáznam - GotoRecord Přejmenovat - Rename PřekreslitObjekt - RepaintObject
PřesuňVelikost - MoveSize PřesýpacíHodiny - HourGlass PřevéstDatabázi - TransferDatabase PřevéstListTabulky - TransferSpreadsheet PřevéstText - TransferText PřidatNabídku - AppendItem SpustitAplikaci -RunApp SpustitKód - RunCode SpustitMakro -RunMacro SpustitPříkaz - RunCommand SpustitSQL - RunSQL Uložit - Save VybratObjekt - SelectObject Výstup - OutputTo Vytisknout - PrintOut ZastavitMakro - StopMacro ZastavitVšechnaMakra - StopAllMacros Zavřít - Close ZavřítDatabázi - Quit ZnovuSpustitDotaz - Requery ZobrazitNástroje - ShowToolbar ZobrazitVšechnyZáznamy - ShowAllRecords ZobrazovatVýsledky - Echo ZrušitUdálost - CancelEvent ZvukovýSignál - Beep
strana 3
Horké klávesy Speciální klávesy Název makra
Klávesová zkratka
Definice činnosti
Prefixy horkých kláves Klávesa SHIFT CTRL ALT
Kód + ^ %
Klávesa BACKSPACE BREAK CAPS LOCK DEL nebo DELETE ŠIPKA DOLŮ END ENTER ESC HELP HOME INS nebo INSERT ŠIPKA VLEVO NUM LOCK PAGE DOWN PAGE UP PRINT SCREEN ŠIPKA VPRAVO SCROLL LOCK TAB ŠIPKA NAHORU F1, F2, ..., F16
Kód {BACKSPACE}, {BS} nebo {BKSP} {BREAK} {CAPSLOCK} {DELETE} nebo {DEL} {DOWN} {END} {ENTER}nebo ~ {ESC} {HELP} {HOME} {INSERT} nebo {INS} {LEFT} {NUMLOCK} {PGDN} {PGUP} {PRTSC} {RIGHT} {SCROLLLOCK} {TAB} {UP} {F1}, {F2}, ..., {F16}
strana 4
Programové moduly Událostní procedura Obsluha chyby Breakpoint Aktivní příkaz
Hodnota výrazu Příkazové okno
strana 5
2
Prohlížeč objektů
Knihovna
Třída
Popis
strana 6
Dostupné knihovny
Knihovny, ActiveX komponenty aj.
Umístění
strana 7
Objektové knihovny Objektový model MS-Access.
Application References Reference Forms Form Module Controls Control Modules Module Reports Report
DBEngine CommandBars
Module
Objekt
Controls
Kolekce
Control
Screen DoCmd
strana 8
3
Objektové knihovny DBEngine
Objektový model DAO (Data Access Objects) pro ODBC Direct.
Errors
Workspaces
Error
Workspace Connections
Databases
Connection
Database Recordsets
QueryDefs Recordset QueryDef
Fields Fields Field Field
Parameters
Objekt
Parameter
Kolekce
Recordsets Recordset Fields Field
strana 9
Objektové knihovny DBEngine
Objektový model DAO (Data Access Objects) pro Microsoft Jet.
Errors
Workspaces
Error
Workspace Users
Groups
Databases
User
Group
Database
Groups
Users TableDefs
Group
User TableDef Fields QueryDefs
Field
QueryDef
Indexes Fields
Index Field
Fields
Parameters
Field
Objekt
Parameter
Recordsets
Containers
Recordset
Relations
Container Fields
Relation
Documents Field
Kolekce
Fields
Document
Field
strana 10
Podpora programování Nabídka dostupných objektů, metod, vlastností.
Seznam vlastností, parametrů.
Předdefinované konstanty.
strana 11
4
Nápověda VBA
strana 12
Datové typy VBA Datový typ Boolean Byte Integer Long Single
Velikost 2 bajty 1 bajt 2 bajty 4 bajty 4 bajty
Double
8 bajtů
Currency Date String
8 bajtů 8 bajtů
Variant Decimal (jen jako podtyp Variant)
14 bajtů
Rozsah hodnot -1/0 (True/False) 0 - 255 -32 768 ÷ 32 767 - 2 147 483 648 ÷ 2 147 483 647 -3,402823E38 ÷ -1,401298E-45 pro záporná čísla 1,401298E-45 ÷ 3,402823E38 pro kladná čísla -1,79769313486232E308 ÷ -4,94065645841247E-324 pro záporná čísla 4,94065645841247E-324 ÷ 1,79769313486232E308 pro kladná čísla 922 337 203 685 477,5808 ÷ 922 337 203 685 477,5807 datumy v rozsahu od 1. ledna 100 do 31. prosince 9999, časy od 0:00:00 do 23:59:59 s proměnlivou délkou - až 2 miliardy (2^31) znaků s pevnou délkou - od 1 znaku až do přibližně 64K (2^16) znaků jakýkoliv datový typ nebo řetězec proměnné délky +/-79 228 162 514 264 337 593 543 950 335 bez desetinné čárky +/-7,9228162514264337593543950335 s 28 desetinnými místy nejmenší číslo různé od nuly je +/-0,0000000000000000000000000001.
Sufix % & ! # @ $
strana 13
Programové struktury Do [{While|Until} výraz] tělo cyklu Loop
Do tělo cyklu Loop [{While|Until} výraz]
For počítadlo=start To cíl [Step krok] tělo cyklu Next [počítadlo[, vnořené počítadlo]] For Each prvek In skupina tělo cyklu Next [prvek]
Opakování s podmínkou Opakování s počítadlem
Zpracování kolekce
While výraz tělo cyklu Wend If výraz Then tělo cyklu 1 [Else tělo cyklu 2] End If
If výraz 1 Then tělo cyklu 1 ElseIf výraz 2 Then tělo cyklu 2 - 1 [Else tělo cyklu 2 - 2] End If
Podmíněná činnost, rozhodování
strana 14
5
Programové struktury Select Case výraz Case hodnota 1 tělo 1 Case hodnota 2 tělo 2 [Case Else tělo když žádná hodnota] End Select
Větvení
On výraz GoTo když 1, když 2, když 3, ... On výraz GoSub když 1, když 2, když 3, ... On Error {GoTo řádek | Resume Next | GoTo 0} DoEvents() SendKeys řetězec[, wait]
Obsluha chyby Ukončení události Odeslání kláves
strana 15
Příklad Procedura Sub subVerifyOperations() Dim D As Database, R As Recordset, S As String
Proměnné
S = "" Set D = CurrentDb() Definice Set R = D.OpenRecordset("SELECT tblOperations.opeID FROM tblOperations LEFT JOIN tblSteps ON tblOperations.opeID = tblSteps.stpOperation WHERE (((tblSteps.stpPrice) Is Null));", dbOpenSnapshot) If R.EOF Then Rozhodování S = "No operations without steps." Else Do While Not R.EOF Cyklus If Not S = "" Then S = S & ", " S = S & R![opeID] R.MoveNext Loop S = "Operations without steps (ID numbers):" & Chr(13) & Chr(10) & S End If MsgBox S, vbInformation, "Verify operations" End Sub
strana 16
6
