Różnice

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

--- ms_access [2026/06/06 22:49] – [Przykład 1] sindap
+++ ms_access [2026/06/07 18:06] (aktualna) – [Przykład 2] sindap
@@ Linia 3: / Linia 3: @@
 ===== 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
-  * Jeżeli z bazą pracuje kilku użytkowników to plik database.mde udostępniony w udziale sieciowym, a pliki forms.mde, forms-1.mde, forms-n.mde na każdym z komputerów użytkowników.
+  * 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:
@@ Linia 27: / Linia 27: @@
   * 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 200: / 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>