[ cunam520 @ 01.12.2008. 20:06 ] @
Kao prvo da pozdravim članove jer sam novi korisnik...

Imam jedan banalni problem u Accessu...napravio sam nekakav kalkulator u Accessu i sredio ispis u Reportu...
Polja crpe podatke (Source control) direktno iz forme...
Ja bih htio u ovisnosti od toga što se upiše u pojedino polje TextBoxa u Reportu, napisati nešto drugo u tom polju...
To bih htio srediti u kodu Reporta, na događaj kada se otvori Report...

Međutim nikako mi ne uspijeva niti najbanalniju stvar...
Npr. želim u VBA-kodu napisati naredbu da napiše neki text u nekom polju Reporta ali ne mogu naći naredbu-svojstvo...

U formi sam to radio ovako: Me.NazivPolja.value="NekiText"
Kada idem to napisati u kodu Reporta, uopće ne vidim opciju "value"...

Možete li mi pomoći?

Puno hvala!
[ Take 5 @ 01.12.2008. 21:55 ] @
Probaj npr. ovako (vidi attachment)
;)
[ cunam520 @ 01.12.2008. 22:32 ] @
Puno ti hvala na trudu majstore ali meni ovo ne radi...
Kada otvorim report ništa mi ne piše u TxtPolju...ali mi ne izbacuje grešku nikakvu...
Primjećujem da u listi evenata nemam događaj Report_Load()...nego Report_Open (koristim Access 2003...)
[ Trtko @ 02.12.2008. 11:47 ] @
Nisam gledao zakačeni primjer ali sintaksa ti ide ovako

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
' rbr_spol ti je txtbox na reportu , što znaći da njegovu vrijednost ispravljas u trenutku ispisa
' ili prikaza na ekran


If IsNull(rbr_spol) Then
l1.BorderStyle = 0
l2.BorderStyle = 0
l3.BorderStyle = 0
l4.BorderStyle = 0
L5.BorderStyle = 0

' rbr_spol="Promjena spola u žensko" ili bi tako dodijelio neku vrijednost
Else
If rbr_spol = "1" Then
l1.BorderStyle = 1
l2.BorderStyle = 0
l3.BorderStyle = 0
l4.BorderStyle = 0
L5.BorderStyle = 0
' rbr_spol="Promjena spola u muško"
End If

End sub


Pozdrav
[ cunam520 @ 02.12.2008. 12:52 ] @
Hvala ti, probat ću...samo mi nije jasno zašto bih pisao ovo l1.BorderStyle=0 ili 1...zar ne mogu jednostavno u properisima odrediti da textBox uvijek bude vidljiv i jednostavno napišem samo ovo:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)

If IsNull(rbr_spol) Then

' rbr_spol="Promjena spola u žensko" ili bi tako dodijelio neku vrijednost

Else
If rbr_spol = "1" Then

' rbr_spol="Promjena spola u muško"

End If


End sub


Pozdrav!
[ Trtko @ 02.12.2008. 12:56 ] @
Ma to ti je iz mog koda, naravno da ti to netrebas,
Napravio sam copy & paste , i nisam brisao, reko da vidis kako ide
[ cunam520 @ 02.12.2008. 13:21 ] @
Puno ti hvala, upravo je proradilo ovako kako si mi napisao...

Samo mi sad nije jasno zašto mi to isto neće raditi na događaj Report_Open? (javlja mi grešku...)
Zašto nemam tvoj događaj Detail_Print ponuđen u propertisima, nego ga moram ručno pisati i znati da postoji?

Pozdrav!
[ Take 5 @ 02.12.2008. 15:02 ] @
Citat:
cunam520: Puno ti hvala na trudu majstore ali meni ovo ne radi...
Kada otvorim report ništa mi ne piše u TxtPolju...ali mi ne izbacuje grešku nikakvu...
Primjećujem da u listi evenata nemam događaj Report_Load()...nego Report_Open (koristim Access 2003...)

Verovatno samo treba u security options da dozvolis makroima da se izvrsavaju pa ce onda primer moci da radi...

PS
Dogadjaj (event) "On Load" se desava pre otvaranja ("On Open"), zbog toga je i nuzno da bude On Load: Event Procedure

[Ovu poruku je menjao Take 5 dana 02.12.2008. u 16:15 GMT+1]
[ cunam520 @ 02.12.2008. 16:46 ] @
Puno vam hvala ljudi...imao bih još samo jedno pitanje...

Kako da zaključam formu (Navigation Button) da se podaci ne mijenjaju kada vrtim kotačić od miša???

Polja su vezana za tablicu...isključim Navigation Button ali se vrijednost u poljima forme ipak mijenja ako vrtim kotačić od miša...
Formu bih htio totalno zaključat...

Pozdrav!
[ Trtko @ 02.12.2008. 18:11 ] @
Imas tu na forumu rijeseno kako se iskljuci kotacic na misu.
Potrazi , negdje je, a imas i pretragu foruma.đ