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