Różnice

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

--- ms_access [2026/06/07 07:20] – [Struktura plików aplikacji] sindap
+++ ms_access [2026/06/07 18:06] (aktualna) – [Przykład 2] sindap
@@ 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>