[ Jovan1970 @ 09.01.2012. 21:53 ] @
Pozdrav
imam problem sa sintaksom u kodu ako neko moze da mi pomogne
imam formu npr Form1, na njoj imam subformu npr. Subform1 i na subformi text1
Koja je sintaksa za prosledjivanje vrednosti Text1 sa subforme u programski kod
unapred hvala
[ banem @ 09.01.2012. 22:06 ] @
To lako i sam nađeš - ostavi formu otvorenu. Sad pravi novi upit. Nemoj stavljati nijednu tabelu u njega. Idi na taster Build (onaj magični štapić), pa klikni na Forms, Loaded Forms, zatim naziv forme, naziv podforme... sve do polja na podformi. Sad dupli klik na njega. Eto cele sintakse.
[ Jovan1970 @ 09.01.2012. 23:00 ] @
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
[ banem @ 10.01.2012. 00:17 ] @
Koristi funkciju NZ() koja pretvara Null u 0.

N = NZ([Qneuslovnosum1 subform].[Form]![Text4], 0)