jos jedno pitanje, ne mogu da podesim nikako da mi je defoltna vrednost textboxa 0, pa mi zbog toga vraca gresku,
textbox mi je izracunato polje sum(kolicina), a default value sam stavio da je 0, medjutim funkcija radi kada je vrednost razlicita od nule a kada je 0 vraca gresku
Private Sub Command45_Click()
Dim U As Single
Dim S As Single
Dim N As Single
U = [Qprijemhibridasum subform].[Form]![Text4]
S = [Qspecifikacijasum subform].[Form]![Text4]
N = [Qneuslovnosum1 subform].[Form]![Text4]
If N = 0 Then
If U = S Then
MsgBox "NEMA ODSTUPANJA NEPOTREBNA KONTROLA", vbOKOnly, "OBAVEŠTENJE"
Else
MsgBox "ODSTUPANJE KOLIČINE " & U - S & " KOM", vbOKOnly, "UPOZORENJE"
End If
Else
If U = S + N Then
MsgBox "NEMA ODSTUPANJA NEPOTREBNA KONTROLA", vbOKOnly, "OBAVEŠTENJE"
Else
MsgBox "ODSTUPANJE KOLIČINE " & U - S - N & " KOM", vbOKOnly, "UPOZORENJE"
End If
End If
End Sub
