|
Chtěl bych si do tabulky LOG_TABULKA uložit chybu, která vnikla při vyvolání vyjímky. Pokud použiji následující kód(v bloku brogramu se pokusím uložit text do neexist. tabulky NEEXIST_TABULKA), program skočí na na návěstí chyba, ale Errors se neodkazuje nikam(nothing), pokud si chci v debug. program prokrokovat situace je stejná, ale jakmile přidám Errors do sledovaných vše běží dle mých představ a Errors se odkazují na chybu. To je záhada jak dvouštěrbinový experiment. On Error GoTo Chyba: DoCmd.RunSQL "INSERT INTO NEEXIST_TABULKA VALUES('LALALA')" Exit Function Chyba: Errors.Refresh For Each errLoop In Errors With errLoop strError = "#Num:" & .Number & "#Source:" & .Source & "#Desc:" & .Description End With DoCmd.RunSQL "INSERT INTO LOG_TABULKA VALUES(now(),'" & strError & "')" Next End Function
|