BiH



#1 02.03.2015-21:04
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Boldiranje određenih redova u reportu
za li iko kako boldirati određene redove u reportu nešto na ovaj fol

Dim greenbar As Boolean

Private Sub detail_Format(Cancel As Integer, FormatCount As Integer)
If greenbar Then
'
Detail.BackColor = 15263976
'14671839
' 13487565
Else
Detail.BackColor = 16777215

End If
greenbar = Not (greenbar)
End Sub

Stim da ja odredi koje redove po broju polja da boldira
↑  ↓

#2 02.03.2015-21:45
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,653


Subject: Re: Boldiranje određenih redova u reportu
Ovaj cod ti Boi Redove tako i sta je grreenbar dali je pole iz recorseta i na osnovu ovo pole treba da boldiramo redove?

mislam da vo arxiva u access trikovi imase nekoj primer za boejne redova na raporu.
↑  ↓

#3 02.03.2015-21:59
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
hvala brate pogledat ću
↑  ↓

#4 02.03.2015-23:03
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
ja nšta ni slične ne nađoh ako ko ima kakav dobar fol nebi bio na odmet
↑  ↓

#5 02.03.2015-23:16
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Boldiranje određenih redova u reportu
Nisi se izjasnio po cemu hoces da biras.
Evo ti primjer kada je id djeljiv sa 2 a mozes napraviti kako hoces ti ili se izjasni pa cu pomoci.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim id As Integer
Dim M As Integer
id = Me.idBrojPoKomeHocesdaOdredjujes
M = id Mod 2' Ostatak od dijeljenja sa 2
If M = 0 Then
Me.ImePolja.FontWeight = 700' Boldirana slova
Else
Me.ImePOlja.FontWeight = 400'Obicna slova
End If
End Sub
Pozdrav
↑  ↓

#6 03.03.2015-13:04
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
ovo nije to što bih htio ali za nešto drugo će imati primjenu

ja bih htio da na izvještaju kad se pojavi određeni id bude bold tj. da sva polja u row-u budu bold normalno ja bih dao nazive tih polja
ja bih također da sam definišem koji su to id-ovi

probao sam if neide probao sa case neide ili neznam

pomoč bi dobro došla
↑  ↓

#7 03.03.2015-14:42
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Boldiranje određenih redova u reportu
Pa ja sam ti dao primjer ne znajuci koje id Hoces i dali postoji neka matematicka formula jer da sam odredis i nije neko rjesenje.
Sta ces sa onim koji se dopisu a sto se tice cijelog reda trebas dodati imena svih polja.
Ja sam stavio samo jedno jer uludo je pisati kad im neznas imena.

Ako ti hoces basda ti odredis koje redove onda je bolje da to napises prije u neku tabelu nego da radis sa select cas pa red ta itaj.
Ne govorim ti to sto je nemoguce sa tim uraditi nego jednostavno po meni je neprakticno.

Znaci napravis tabelu i u nju upises brojeve redova koje hoces boldirati i onda mozemo napraviti kod.

Najbolje je da zakacis primjer i da napises koje redove zelis boldirati.
Pozdrav
↑  ↓

#8 03.03.2015-15:15
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
evo ga primjer

u tabeli aop_nazivi ima polje bold (yes/no)

mislim da bi ovo moglo biti galantno rješenje

Prilozi:
Informacije o fajlu: rar  AOP.rar
Preuzimanja: 140
Veličina: 71.37 KB

↑  ↓

#9 03.03.2015-16:56
Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,653


Subject: Re: Boldiranje određenih redova u reportu
eve probaj ova

DownloadIzvorni kod (Visual Basic):
  1. Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
  2. Dim mBold as Boolean
  3.  mBold=Dlookup("bold","AOP_NAZIV","AOP= '"& me.Text0 & "'")
  4. If bBold=True Then
  5.      Text0.FontWeight = 700   ' Boldirana slova
  6.     Text2.FontWeight = 700   ' Boldirana slova
  7.     Text3.FontWeight = 700   ' Boldirana slova
  8.     Text4.FontWeight = 700   ' Boldirana slova
  9. ElseIf bBold=false then
  10.      Text0.FontWeight = 400   ' Boldirana slova
  11.     Text2.FontWeight = 400   ' Boldirana slova
  12.     Text3.FontWeight = 400   ' Boldirana slova
  13.     Text4.FontWeight = 400   ' Boldirana slova
  14. End If
  15. End Sub
↑  ↓

#10 03.03.2015-17:48
zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,979


Subject: Re: Boldiranje određenih redova u reportu
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim B As Boolean
B = Me.bold
If B = True Then
Me.AOP.FontWeight = 700
Me.Naziv_polja.FontWeight = 700
Me.Bilješka.FontWeight = 700
Me.GrupaKonta.FontWeight = 700
Else
Me.AOP.FontWeight = 400
Me.Naziv_polja.FontWeight = 400
Me.Bilješka.FontWeight = 400
Me.GrupaKonta.FontWeight = 400
End If
End Sub
Pozdrav
↑  ↓

#11 03.03.2015-23:39
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
hvala ljudi

ja se živ napatio a vi to jednostavno nije mi palo na pamet

kome bude trebalo ispravan

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
Dim B As Boolean
B = Me.bold
If B = True Then
Text0.FontWeight = 700 ' Boldirana slova
Text2.FontWeight = 700 ' Boldirana slova
Text3.FontWeight = 700 ' Boldirana slova
Text4.FontWeight = 700 ' Boldirana slova
Text5.FontWeight = 700 ' Boldirana slova
Text6.FontWeight = 700 ' Boldirana slova
Else
Text0.FontWeight = 400 ' Boldirana slova
Text2.FontWeight = 400 ' Boldirana slova
Text3.FontWeight = 400 ' Boldirana slova
Text4.FontWeight = 400 ' Boldirana slova
Text5.FontWeight = 400 ' Boldirana slova
Text6.FontWeight = 400 ' Boldirana slova

End If
End Sub

hvala zxz tvoj sam odmah skonto

hvala i gjoreski tvoj još nisam al skontat ču iako sam ispravio nazve polja
↑  ↓

#12 03.03.2015-23:54
kenan Offline
Clan
Registrovan/a od: 10.02.2011-15:24
Komentari: 190


Subject: Re: Boldiranje određenih redova u reportu
radi cak i na formama

možda nekom zatreba

Private Sub Detail_Paint()
Dim B As Boolean
B = Me.bold
If B = True Then
redni_broj.FontWeight = 700 ' Boldirana slova
AOP.FontWeight = 700 ' Boldirana slova
Grupa_konta.FontWeight = 700 ' Boldirana slova
Opis.FontWeight = 700 ' Boldirana slova
predhodna_godina.FontWeight = 700 ' Boldirana slova
tekuča_godina.FontWeight = 700 ' Boldirana slova
Else
redni_broj.FontWeight = 400 ' Boldirana slova
AOP.FontWeight = 400 ' Boldirana slova
Grupa_konta.FontWeight = 400 ' Boldirana slova
Opis.FontWeight = 400 ' Boldirana slova
predhodna_godina.FontWeight = 400 ' Boldirana slova
tekuča_godina.FontWeight = 400 ' Boldirana slova

End If

End Sub
↑  ↓

Stranice (1): 1


All times are GMT +01:00. Current time: 18.10.2019-09:42.