Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Access » Boldiranje određenih redova u reportu
kenan 02.03.2015 21:04
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

Gjoreski 02.03.2015 21:45
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.

kenan 02.03.2015 21:59
Predmet:Re: Boldiranje određenih redova u reportu

hvala brate pogledat ću

kenan 02.03.2015 23:03
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

zxz 02.03.2015 23:16
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

kenan 03.03.2015 13:04
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

zxz 03.03.2015 14:42
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.

kenan 03.03.2015 15:15
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:
AOP.rar (Velicina datoteke:71.37 KB)

Gjoreski 03.03.2015 16:56
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

zxz 03.03.2015 17:48
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