Różnice

Różnice między wybraną wersją a wersją aktualną.

--- ms_access [2026/06/05 20:41] – [Struktura plików aplikacji] sindap
+++ ms_access [2026/06/07 18:06] (aktualna) – [Przykład 2] sindap
@@ Linia 1: / Linia 1: @@
 ====== Microsoft Access ======
+Na podstawie wersji 2003 zainstalowanej na Windows XP na QEMU/KVM.
 ===== Struktura plików aplikacji =====
   * Plik źródłowy autora tabel aplikacji: source-database.mdb
-  * Plik roboczy tabel: database.mde
+  * Plik roboczy tabel: database.mdb
-  * Plik żródłowy autora formularzy: source-forms.mdb
+  * Plik źródłowy autora formularzy: source-forms.mdb
   * Plik roboczy formularzy: forms.mde
-Blokada efektu działania Shift przy uruchomieniu aplikacji:
+  * Jeżeli z bazą pracuje kilku użytkowników to plik database.mdb udostępniony w udziale sieciowym, a pliki forms.mde, forms-1.mde, forms-n.mde na każdym z komputerów użytkowników.
+===== Blokada efektu działania Shift =====
+przy uruchomieniu aplikacji:
+W oknie Visual Basic. Okno Immediate.
+<code vb>
+CurrentDb.Properties.Append CurrentDb.CreateProperty("AllowBypassKey", 1, False)
+</code>
+Przywrócenie
 <code vb>
-CurrentDb.Properties("AllowBypassKey") = False
+CurrentDb.Properties.Append CurrentDb.CreateProperty("AllowBypassKey", 1, True)
 </code>
-Narzędzia -> Uruchamianie > Wyświetl okno bazy danych: off
+===== Pozostałe zabezpieczenia =====
-Narzędzia -> Uruchamianie > użyj specjalnych klawiszy programu access: off
+  * Narzędzia -> Uruchamianie > Wyświetl okno bazy danych: off
+  * Narzędzia -> Uruchamianie > Użyj specjalnych klawiszy programu access: off
+  * Narzędzia -> Uruchamianie > Wyświetl formularz/stronę: Wybrać formularz startowy
+  * Narzędzia -> Uruchamianie > Zezwalaj na pełne menu: off
+  * Narzędzia -> Uruchamianie > Zezwalaj na wbudowane paski narzędzi: off
 ===== Przykład 1 =====
-  * NumeracjaNazwa tabeli: ludzie
+  * Nazwa tabeli: ludzie
-  * WypunktowanieNazwy pól w tabeli: ID, txtImie, txtNazwisko, txtNrEwid
+  * Nazwy pól w tabeli: ID, txtImie, txtNazwisko, txtNrEwid
-  * WypunktowanieWszystkie pola dodane do formularza. Pole ID jako niewidoczne.
+  * Wszystkie pola dodane do formularza. Pole ID jako niewidoczne.
 Dodanie skryptu do formularza.
 <code vb>
@@ Linia 187: / Linia 200: @@
     ' Wszystko OK – rekord zostanie zapisany
 End Sub
+</code>
+===== Brudnopis =====
+Obsługa błędów. Sprawdzić działanie i zastosować w każdym formularzu.
+<code vb>
+Private Sub Form_Error(DataErr As Integer, Response As Integer)
+    Select Case DataErr
+        Case 2113   ' Nieprawidłowy typ danych
+            MsgBox "Wprowadzono nieprawidłowy typ danych. Sprawdź, czy w polu numerycznym nie ma liter.", vbExclamation, "Nieprawidłowa wartość"
+            Response = acDataErrContinue
+        Case 3022   ' Duplikat (indeks unikalny z tabeli)
+            MsgBox "Ta wartość już istnieje w bazie. Wpisz inną.", vbExclamation, "Zduplikowany wpis"
+            Response = acDataErrContinue
+        Case 3201   ' Naruszenie relacji
+            MsgBox "Nie można usunąć/zmienić tego rekordu, ponieważ istnieją powiązane dane w innych tabelach.", vbExclamation, "Naruszenie relacji"
+            Response = acDataErrContinue
+        Case 3314   ' Wymagane pole puste (gdy ominie walidację formularza)
+            MsgBox "Wypełnij wszystkie wymagane pola.", vbExclamation, "Brak wymaganej wartości"
+            Response = acDataErrContinue
+        Case Else
+            Response = acDataErrDisplay
+    End Select
+End Sub
 </code>