Si te nxjerr n report faturat e paguara me ngjyre Jeshile, dhe te papaguarat me t kuq

[nince_tutes]

Kam bere nje DB n access 2007.

dhe kur nxjerr n report t dhenat e faturave, kam dhe nje kolone: Paid (yes/No).

dua q nese fatura eshte e paguar, dhe e ka vleren e Paid = "Yes" n raport t printohet me ngjyre jeshile.

nese eshte e papaguar, pra vlera e Paid = "No" atehere te printohet me te kuqe.

kam provuar te perdor kodet:

Private Sub Report_Load()
'' do testojme per njgyrat e reportit

If Me.Paid.Value = "Yes" Then Me.Paid.ForeColor = vbGreen
If Me.Paid.Value = "No" Then Me.Paid.ForeColor = vbRed
''End If
End Sub


POR NUK M ECEN, pasi i ben q t gjithe rekordet me nje ngjyre, pavarsisht se disa jane me Yes dhe disa me No.

flm. po pres pergjigje.

[little-boy]

Nince ke provuar keshtu?

Private Sub Report_Load()
'' do testojme per njgyrat e reportit

If Me.Paid.Value = -1 Then Me.Paid.ForeColor = vbGreen
If Me.Paid.Value = 0 Then Me.Paid.ForeColor = vbRed
''End If
End Sub

[nince_tutes]

po e provova, nuk ecen perseri.

[hot_prinz]

Raporti i Access-it eshte nje Formular [Form], vetem se Raporti krijohet ne menyre dinamike nga Accessi e qe ofron metoda[Sub] te ndryshme gjate krijimit te raportit.
Ti e ke futur kodin ne Metoden [Private Sub Report_Load()] ketu behet hapja apo inicializimi i formularit te Raportit, e problemi eshte se ne kete kohe ende nuk jane krijuar ne menyre dinamike objektet [Controls] te Raportit qe permbajne te dhenat e Databazes.
Accessi posedon nje metode[Sub] e cila proceson pas cdo formatimit te detaljeve ose pas krijimit dhe formatimit te objekteve [Controls] ne Raport.

E kodin tend e fut te kjo metode, une e kam access-in ne gjuhen gjermane dhe metoda quhet ndryshe:

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
If Me.Paid.Value = "Yes" Then Me.Paid.ForeColor = vbGreen
If Me.Paid.Value = "No" Then Me.Paid.ForeColor = vbRed
End Sub

ne internet e verejta se ne gjuhen angleze eshte, por mund te zgjidhet edhe nga lista e metodave ne dritaren e kodimit qe ofron Accessi.

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Paid.Value = "Yes" Then Me.Paid.ForeColor = vbGreen
If Me.Paid.Value = "No" Then Me.Paid.ForeColor = vbRed
End Sub

[hot_prinz]

Edhe nje menyre tjeter eshte, kur perfundon krijimi i raportit nga Accessi dhe paraqitet ne memorje, iteron vete neper te gjitha objektet[controls] te raportit dhe ato objekte qe psh. jane textbox -> me emrin Paid -> me vleren -> Yes ndrron ngjyren ne te gjelbert ose nese vlera No ne te kuqe.

Private Sub Detailbereich_Print(Cancel As Integer, PrintCount As Integer)
    
    Dim ctl As Control
    
    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If ctl.Name = "Paid" Then
                If ctl.Value = "Yes" Then
                    Me.Paid.ForeColor = vbGreen
                ElseIf ctl.Value = "No" Then
                    Me.Paid.ForeColor = vbRed
                End If
            End If
        End If
    Next ctl
    
End Sub 

[nince_tutes]

Hot Priz, flm per ndihmesen tende, por ende s'po m jep rezultat.

S'po di ku ta vendos kete kod:
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Me.Paid.Value = "Yes" Then Me.Paid.ForeColor = vbGreen
If Me.Paid.Value = "No" Then Me.Paid.ForeColor = vbRed
End Sub

provova tek eventi kur Reporti ben Load, por nuk m funxionon.
flm dhe njehere.

[nince_tutes]

U zgjidh.
Pas kerkiveme n internet, zgjidhja jepet ketu:
http://office.microsoft.com/en-us/ac...081331033.aspx

M funxionoi 100%.
Flm per mbeshtetjen tuaj!

[hot_prinz]

*****************

[hot_prinz]

Ne pune kemi vetem Access 2003 dhe atje funksionoi, kur erdha ne shtepi e verejta qe ne Access 2007 qe nuk funksionon kur raporti hapet me dbl_klick() por vetem ne Print_Preview.

Ne Internet lexova se funksionon ekzekutimi i kodit ne Print_preview, kujt i nevojitet ekzekutimi i kodit ne Print_Preview te Raportit kete e di vetem Microsofti!

Si duket versioni 2007 paska zgjeruar metodat dhe ka shtuar Detail_Paint(), kjo metode ekzekutohet kur raporti "vizatohet" dhe kodi funksionon:

Private Sub Detailbereich_Paint()

    Dim ctl As Control

    For Each ctl In Me.Controls
        If ctl.ControlType = acTextBox Then
            If ctl.Name = "Paid" Then
                If ctl.Value = "Yes" Then
                    Me.Paid.ForeColor = vbGreen
                ElseIf ctl.Value = "No" Then
                    Me.Paid.ForeColor = vbRed
                End If
            End If
        End If
    Next ctl
    
End Sub 

Si duket ne zgjidhjen tende, Microsofti paska zgjeruar Access-in te perdoren kondicionet ne menyja, kujt i pelqen dhe derisa kryen funksionin e deshiruar eshte ok.

Personalisht ka kohe qe nuk perdori Access dhe as VBA, vetem nese duhet ndryshuar ndonje relikt.