Přejít na hlavní obsah

Jak vytvořit tabulku Access VBA: průvodce krok za krokem

  • Sabina Staňková
  • Praxe

VBA (Visual Basic for Applications) je programovací jazyk, který umožňuje automatizaci úloh v programu Microsoft Access. Jednou z hlavních funkcí jazyka je vytváření a správa tabulek v databázi. V tomto článku se podíváme na to, jak vytvořit tabulku Access pomocí VBA.

Krok 1: Otevřete editor kódu VBA stisknutím klávesy Alt + F11 v programu Microsoft Access. Poté vyberte modul, do kterého chcete přidat kód pro vytvoření tabulky.

Krok 2: Napište následující kód a vytvořte tabulku s názvem "Employees":

Sub CreateEmployeesTable() Dim db As Database Dim tbl As TableDef Set db = CurrentDb Set tbl = db.CreateTableDef("Employees") With tbl .Fields.Append .CreateField("ID", dbLong) .Fields.Append .CreateField("FirstName", dbText, 50) .Fields.Append .CreateField("LastName", dbText, 50) .Fields.Append .CreateField("Department", dbText, 50) End With db.TableDefs.Append tbl Set tbl = Nothing Set db = Nothing End Sub

Tento kód vytvoří nový objekt Database a TableDef, s názvem tabulky "Employees". Poté je pro každé pole tabulky uveden jeho název a datový typ pomocí metody CreateField. V našem příkladu máme pole "ID", "FirstName", "LastName"a " Department".

Krok 3: Spusťte postup CreateEmployeesTable vytvořit tabulku "Employees". Chcete-li to provést, můžete stisknout klávesu F5 nebo kliknout pravým tlačítkem v editoru kódu a vybrat Spustit.

Gratuluji! Právě jste vytvořili tabulku Access pomocí VBA. Nyní můžete přidávat, upravovat a mazat data v této tabulce pomocí jiných postupů VBA nebo interaktivně v samotném programu Microsoft Access.

Příprava na vytvoření tabulky

Než začnete vytvářet tabulku v Access pomocí VBA, musíte provést několik přípravných kroků:

  1. Otevřít databázi v programu Microsoft Access.
  2. Vyberte kartu "Vytvořit" v horním panelu nástrojů.
  3. Klikněte na tlačítko " Tabulka "v části"tabulky".
  4. Vyberte typ vytvoření tabulky: "pomocí průvodce"nebo" v režimu konstruktoru".
  5. Nastavit pole pro tabulku zadáním jejich názvů a datových typů.
  6. V případě potřeby nastavte primární klíč.
  7. Kliknutím na tlačítko" Hotovo " dokončíte vytvoření tabulky.

Po dokončení těchto kroků budete připraveni vytvořit tabulku v Access pomocí VBA.

Instalace programovacího prostředí

Pro vytvoření tabulky v Access pomocí VBA je nutné nastavit speciální programovací prostředí. Jako takové prostředí se obvykle používá Microsoft Visual Basic for Applications (VBA), který je součástí sady Microsoft Office.

Chcete-li nainstalovat VBA, musíte mít v počítači nainstalovaný balíček Microsoft Office. Pokud ji nemáte, můžete si ji zakoupit nebo využít bezplatných alternativ, jako je LibreOffice nebo OpenOffice.

Pokud máte nainstalovaný balíček Microsoft Office, pravděpodobně již máte VBA. VBA lze zkontrolovat otevřením jakékoli aplikace Office, jako je Microsoft Excel nebo Microsoft Word, a přechodem do nabídky vývojář (pokud existuje). Pokud se v nabídce zobrazí položka "Visual Basic", máte již nainstalované programovací prostředí VBA.

Pokud nemáte nainstalovaný VBA, můžete jej nainstalovat spuštěním instalačního programu sady Office a výběrem komponent, které chcete nainstalovat. VBA je obvykle součástí standardního instalačního balíčku.

Po instalaci VBA můžete spustit Access a začít používat VBA k vytvoření tabulky a dalších operací v databázi.

Vytvoření nové databáze

Access VBA vám umožňuje vytvořit novou databázi pomocí jednoduchého kódu. Zde je návod, jak to udělat:

  1. Otevřete Visual Basic Editor. Chcete-li to provést, stiskněte ALT+F11 nebo vyberte vývojář - > Visual Basic.
  2. Vytvořte nový modul. Klikněte pravým tlačítkem na váš projekt v okně projekt a vyberte Vložit - > Modul.
  3. Napište kód pro vytvoření databáze. Zde je ukázkový kód, který můžete použít: Sub CreateNewDatabase()
    Dim db As DAO.Database
    Dim strName As String

'Zadejte cestu a název nové databáze
strName = "С:\Путь\К_новой_базе_данных..accdb"

'Vytvořte novou databázi
Set db = DBEngine.CreateDatabase(strName, dbLangGeneral)

'Zavřete databázi
db.Close
Set db = Nothing

Po spuštění kódu bude vytvořena nová databáze se zadanou cestou a názvem. Databázi můžete zkontrolovat otevřením v Access nebo použitím kódu k otevření databáze VBA.

Otevření režimu návrháře tabulek

Chcete-li vytvořit tabulku v Access pomocí VBA, musíte otevřít režim konstruktoru tabulek. V tomto režimu budete moci určit strukturu tabulky, přidat pole a nastavit jim datové typy.

  1. V Access otevřete databázi, ve které chcete vytvořit tabulku.
  2. V navigačním podokně vyberte kartu Tabulky.
  3. Klikněte pravým tlačítkem na navigační liště a vyberte "režim tabulkového konstruktoru".

Po provedení těchto kroků přejdete do režimu návrháře tabulek. Zde budete moci přidat pole, nastavit jim jména, datové typy a další vlastnosti.

Definice polí tabulky

Při vytváření tabulky v aplikaci Microsoft Access pomocí aplikace VBA musí být každé pole tabulky jasně definováno. Pole je definováno zadáním jeho jména, typu dat a dalších vlastností. V databázi může existovat několik tabulek a každá z nich může obsahovat různá pole.

Název pole musí být jedinečný v rámci tabulky a dodržovat určitá pravidla pro pojmenování databázových objektů. Například název pole může obsahovat pouze abecedně digitální znaky a podtržítka a také nemůže začínat číslicí.

Typ dat určuje, jaké informace lze uložit do pole. V Access VBA je k dispozici několik typů dat, jako jsou textové řádky, číselné hodnoty, datum a čas a další. Výběr typu dat závisí na povaze informací, které chcete ukládat a zpracovávat.

A kromě názvu a typu dat lze pro pole také specifikovat další vlastnosti, jako je omezení zadávání hodnot, formát zobrazení a indexy pro urychlení vyhledávání a třídění dat.

Definice polí tabulky v Access VBA je důležitým krokem při vytváření databáze. Správná Definice polí umožňuje efektivní práci s daty a poskytuje strukturované ukládání informací.

Určení typů datových polí

V Access VBA je k dispozici několik typů datových polí, z nichž každý má svou vlastní specifikaci a aplikaci:

Typ datPopis
Text (Text)Používá se k ukládání textových hodnot s omezenou délkou. Maximální délka textu je omezena na 255 znaků.
Číslo (Číslo)Slouží k ukládání číselných hodnot. Může to být celé číslo nebo číslo s plovoucí desetinnou čárkou.
Datum/čas (Date / Time)Používá se k ukládání data nebo času. Může být uvedeno formátování data a času.
Ano /ne (Yes / No)Používá se k ukládání bulových hodnot: "Ano" nebo "ne".
Dlouhý celý (Long Integer)Používá se k ukládání celých čísel s velkým rozsahem hodnot.
Měna (Currency)Slouží k ukládání peněžních hodnot. Umožňuje specifikovat měnu a formátovat peněžní hodnoty.
GUID (Global Unique Identifier)Slouží k uložení unikátního identifikátoru. Obvykle se používá ke komunikaci tabulek pomocí externích klíčů.
Hypertextový Odkaz (Hyperlink)Používá se k ukládání hypertextového odkazu. Lze otevřít webovou stránku nebo soubor.
Memo (Memo)Slouží k ukládání velkého množství textu. Maximální délka textu je omezena na 65,536 znaků.

Výběr správného typu dat pro každé pole umožňuje efektivní ukládání a zpracování informací v tabulce. Při navrhování aplikací pomocí VBA je dobré mít na paměti, že je třeba správně definovat typy datových polí.

Určení vlastností polí

Při vytváření tabulky v Access pomocí VBA je možné určit různé vlastnosti polí pro určení jejich datového typu, formátu a dalších atributů. Zde jsou některé z dostupných vlastností polí:

  • Název pole: Je to jedinečný název, který bude použit k oslovení tohoto pole v kódu VBA.
  • Typ pole: To určuje typ dat, která lze uložit do tohoto pole, například: textová data, čísla, data a tak dále.
  • Velikost pole: To určuje maximální počet znaků, které může obsahovat textové pole nebo počet číslic, které může číselné pole obsahovat.
  • Formát pole: Některé typy polí mohou mít formát, který určuje specifickou reprezentaci dat, například: datum nebo čas.
  • Omezení pole: Tyto vlastnosti lze použít k nastavení limitů povolených hodnot v poli, například: jedinečnost hodnot nebo kontrola rozsahu hodnot.
  • Výchozí: Možnost nastavit výchozí hodnotu pro pole při vytváření nového záznamu.
  • Index pole: Vytvoření indexu pro pole vám umožní urychlit proces vyhledávání a třídění záznamů.

Nastavením různých vlastností polí můžete upřesnit požadavky na data uložená v tabulce a zajistit jejich integritu a správné zobrazení.

Vytvoření tabulky a uložení změn

Po definování struktury tabulky v kódu VBA byste měli vytvořit samotnou tabulku v databázi Access. K tomu se používá metoda CreateTableDef objektu Database.

Sub CreateTable()Dim db As DAO.DatabaseDim tblDef As DAO.TableDef' Открыть базу данныхSet db = CurrentDb' Создание новой таблицыSet tblDef = db.CreateTableDef("Название_таблицы")' Определение полей таблицыWith tblDef.Fields.Append .CreateField("Поле1", dbText).Fields.Append .CreateField("Поле2", dbInteger).Fields.Append .CreateField("Поле3", dbDate)End With' Создание таблицы в базе данныхdb.TableDefs.Append tblDef' Сохранение измененийdb.TableDefs.Refreshdb.Close' Очистка памятиSet tblDef = NothingSet db = NothingMsgBox "Таблица создана успешно!"End Sub

V tomto příkladu je vytvořena nová tabulka se třemi poli:" Pole1 " - textové pole," pole2 "- celočíselné pole a" Pole3 " - pole data. Po definování polí, tabulka je přidána do sbírky tabletefs databáze.

Po dokončení operace Vytvoření tabulky je nutné uložit změny v databázi pomocí metody Refresh objektu Tabletefs databáze. Poté lze databázi zavřít.

Nyní víte, jak vytvořit tabulku v databázi Access pomocí VBA a uložit změny.