Predmet:Vb Instrukcije
Objasnjenje koda:
PreuzmiIzvorni kôd (vbnet):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.