869569021

88

J. Ruchel, T. Adamczyk

^Microsoft Visual Basic - geodezjalO - [Form Azymut	jaJj<]
3 Eile Edit View Insert Debug Run Tools Add-Ins Window “) ► u a fać i # tar ,	Help _ s x * i ■ i

Fil Form_ńzymut ^~j FI Form_Dlugość ' El Form_Kąt

Private Suto wyjście_Click()

On Error GoTo błąd wyjście

rayDb.Close

Set rnyRs = Nothing

Set ntyDto = Wothing

DoCmd.Close

DoCmd.OpenForm "obliczenia", Exit Suto

lJ_ZJ

m

Alphabetic | categori2ed |

błąd_wyjście:

MsgBox Err.Deseription End Suto

* j | cReady

acWormal

ExpressiJ Value | Type |Context *

_IlYEg—

Fig. 1. The environment of codę execution for a complementary application in VBA

Fig. 2. Database window for objects of form type, where creating and modifying forms for database and complementary application is possible