[es] - prosledjivanje podataka sa subforme

Jovan1970
Jovan Milivojevic
Veliko Gradiste

Član broj: 115696
Poruke: 82
*.adsl.beocity.net.

+25 Profil

^{09.01.2012. u 21:53 - pre 149 meseci}

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

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

Re: prosledjivanje podataka sa subforme

^{09.01.2012. u 22:06 - pre 149 meseci}

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.

Pozdrav,
Branislav

Odgovor na temu

Jovan1970
Jovan Milivojevic
Veliko Gradiste

Član broj: 115696
Poruke: 82
*.adsl.beocity.net.

+25 Profil

Re: prosledjivanje podataka sa subforme

^{09.01.2012. u 23:00 - pre 149 meseci}

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

Prikačeni fajlovi

slika.PNG - 24.77k

Odgovor na temu

banem
Kikinda

Član broj: 16619
Poruke: 583
*.dynamic.sbb.rs.

+15 Profil

Re: prosledjivanje podataka sa subforme

^{10.01.2012. u 00:17 - pre 149 meseci}

Koristi funkciju NZ() koja pretvara Null u 0.

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

Pozdrav,
Branislav

Odgovor na temu