U formi Roba 'subform zaduzenje' na polje 'Invbr' u rovsource postavi ovo:
Code:
SELECT Roba.Invbr, Sum([Osnovna sredstva - nabavka 1].Kolicina) AS K, Sum(IIf([zad-razd]=2,[kolic]*-1,[Kolic])) AS KolicinaZ, [K]-[KolicinaZ] AS Stanje FROM Roba INNER JOIN [Osnovna sredstva - nabavka 1] ON Roba.Invbr=[Osnovna sredstva - nabavka 1].Invbr GROUP BY Roba.Invbr
U culumn count stavi;4
column widths:1,3;0,0,1,3
list width:2,6
Na polje kolic na on exit odaberi:
[Event Procedure]
i postavi ovaj kod:
Code:
Private Sub Kolic_Exit(Cancel As Integer)
Dim Stanje As Single
If Format$(Me.Kolic) <> "" Then
Stanje = Val(Me.Invbr.Column(3)) - Me.Kolic
If Stanje < 0 Then
MsgBox "Na stanju ima samo:" & Me.Invbr & ":" & Me.Invbr.Column(3)
Cancel = True
End If
End If
Me.Invbr.RowSource = Me.Invbr.RowSource
End Sub
Drugi put kada postavljas nesto zamolio bih te da postavis samo ono sto se tice pitanja i da objasnis tako da drugi nemoraju desifrovati sta si ti radio te samim tim ce ti prije i pomoci.
Hvala.
zxz