Private Sub AttachPivo_Click() ' naziv procedure u ovom slu?aju  Zaka?i koju pivu

Dim pivnica As RekaPiva ' Dimenzionisi prostor za smjestaj piva
Dim gajba As Pivoset     ' Dimenzionisi nacin upotrebe
Dim flasa As LongGutljaj  ' dimenzionisi kolicinu u jednom cugu

Set pivnica = CurrentRekaPiva() ' Pripremi prostor za upotrebu
Set gajba = RekaPiva.OpenPivoset("MagacinPiva", dbOpenGajbaset) ' Otvori prostor i prilagodi ga za upotrebu
For flasa = 1 To gajba  ' Uzmi flasu iz gajbe
DoCmd.AttachPivo, ForFriends ' Loci jer si na redu
Next' sledeca piva
Set RekaPiva = Nothing '' uff nestade piva
End Sub' Kraj boli glava