Centar za edukaciju-BiH



#1 02.03.2015 21:04
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet: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 Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet: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 Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


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

#4 02.03.2015 23:03
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet: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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 03.03.2015 13:04
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


Predmet: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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet: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 ****lje 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.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#8 03.03.2015 15:15
kenan Van mreze
Clan
Registrovan od:10.02.2011
Postovi:191


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

u tabeli aop_nazivi ima pol****ld (yes/no)

mislim da bi ovo moglo biti galantno rješenje

Prilozi:
Informacije o tipu datoteke za:rar  AOP.rar
Preuzimanja:375
Velicina datoteke:71.37 KB

↑  ↓

#9 03.03.2015 16:56
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


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

PreuzmiIzvorni kôd (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 Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,610


Predmet: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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 6: 52 am.