Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

prosledjivanje podataka sa subforme

[es] :: Access :: prosledjivanje podataka sa subforme

[ Pregleda: 1369 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Jovan1970
Jovan Milivojevic
Veliko Gradiste

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



+25 Profil

icon prosledjivanje podataka sa subforme09.01.2012. u 21:53 - pre 120 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

icon Re: prosledjivanje podataka sa subforme09.01.2012. u 22:06 - pre 120 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

icon Re: prosledjivanje podataka sa subforme09.01.2012. u 23:00 - pre 120 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
 
Odgovor na temu

banem
Kikinda

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



+15 Profil

icon Re: prosledjivanje podataka sa subforme10.01.2012. u 00:17 - pre 120 meseci
Koristi funkciju NZ() koja pretvara Null u 0.

N = NZ([Qneuslovnosum1 subform].[Form]![Text4], 0)
Pozdrav,
Branislav
 
Odgovor na temu

[es] :: Access :: prosledjivanje podataka sa subforme

[ Pregleda: 1369 | Odgovora: 3 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.