For Sayac = 1 To 12
    If Me.Controls("[" & Sayac & "]").Tag = "Renklendir" And Me.Controls("[" & Sayac & "]").Value > 0 Then
            VarYok = VarYok + IIf(Me.Controls("[" & Sayac & "]").Value > 0, 1, 0)
            Isrt = IIf(Isrt = 0 And Nz(Me.Controls("[" & Sayac & "]").Value, 0) = Me.Planlanan, 0, -1)
    End If
Next Sayac

TRANSFORM Sum(StokUrunTbl.DepoGCAdet) AS Topla
SELECT StokUrunTbl.Pasif, isEmriTbl.isEmri, DLookUp("UrunAdi","UrunTbl","StokID=" & Nz([UrunAdi],0)) AS Urn, CLng(Nz(DLookUp("PaketSayisi","UrunTbl","StokID=" & Nz([PaketSayisi],0)),0)) AS PaketA, isEmriTbl.Planlanan, isEmriTbl.StokFk, isEmriTbl.isEmriID, isEmriTbl.RaporOnay, 0 AS Siralama
FROM StokTbl INNER JOIN (isEmriTbl INNER JOIN StokUrunTbl ON isEmriTbl.isEmriID = StokUrunTbl.isEmriFk) ON StokTbl.StokID = isEmriTbl.StokFk
WHERE (((StokUrunTbl.Pasif)=False) AND ((isEmriTbl.RaporOnay)=False))
GROUP BY StokUrunTbl.Pasif, isEmriTbl.isEmri, DLookUp("UrunAdi","UrunTbl","StokID=" & Nz([UrunAdi],0)), CLng(Nz(DLookUp("PaketSayisi","UrunTbl","StokID=" & Nz([PaketSayisi],0)),0)), isEmriTbl.Planlanan, isEmriTbl.StokFk, isEmriTbl.isEmriID, isEmriTbl.RaporOnay
ORDER BY isEmriTbl.isEmriID DESC 
PIVOT DLookUp("PaketNo","PaketTbl","PaketID=" & Nz([PaketNo],0));

Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
DoCmd.DeleteObject acTable, "Gecici"
CurrentDb.Execute "SELECT * INTO Gecici FROM GenelSorguAltFormuRapor"
Call RenkGrp
End Sub
Function RenkGrp()
Dim Kyt As New ADODB.Recordset
Kyt.Open "SELECT * FROM Gecici", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
If Kyt.RecordCount = 0 Then Exit Function
Do Until Kyt.EOF
Dim Sayac, VarYok As Long, Isrt As Variant
 
For Sayac = 1 To 12
    If Kyt.Fields("" & Sayac & "") > 0 Then
            VarYok = VarYok + 1
            Isrt = IIf(Isrt = 0 And Nz(Kyt.Fields("" & Sayac & ""), 0) = Kyt!Planlanan, 0, -1)
    End If
Next Sayac
 
                         If Kyt!PaketA = VarYok And Isrt = 0 Then
                                Kyt!Siralama = 2
                         ElseIf Kyt!PaketA = VarYok And Isrt = -1 Then
                                Kyt!Siralama = 1
                        Else
                                Kyt!Siralama = 0
                        End If
Kyt.Update
Debug.Print Kyt!isEmri, Isrt, VarYok
VarYok = 0: Isrt = 0
Kyt.MoveNext
Loop
Kyt.Close
Set Kyt = Nothing
End Function
Private Sub Ayrıntı_Paint()
            Me.isEmri.BackColor = IIf(Me.Siralama = 2, vbRed, IIf(Me.Siralama = 1, vbGreen, Me.Controls("Urn").BackColor))
            Me.isEmri.ForeColor = IIf(Me.Siralama = 2, vbWhite, vbBlack)
End Sub
Private Sub Etiket157_Click()
Me.OrderBy = "Siralama"
Me.OrderByOn = True
End Sub