Mrb 

ekteki örnekte yapmak isteğim

İmalat Formu butonuna tıkladığımda seçenekleri seçiyorum ve en alttaki kısma kumaş uzunluğunu yazıyorum. buraya kadar sorun yok. 
Rapor açıldığında tasarım aynı kalacak rapor alt bilgisine;

Raporda Kumaş yazan yerdeki verileri raporu alırken yazdığım örneğin 2,78 rakımına en yakın ölçüleri gruplar halinde sıralayacak aynı değeri bir kere kullanacak.

örneğin raporda  23 tane veri var bu 23 veri içinden 2,78 en yakın firesi en az olan sayıları yazacak.   

grup1 : 0,60-0,75-0,52-0,54-0,45-0,54-0,57  = 2,78 rakamını geçemez en yakın toplamı bulacak
grup2: 0,52-063-0,45-051 = 2,78 i geçemez en yakınları sıralacak   grup1 de kullandığı verileri almayacak

rapordaki verilerin hepsini bu şekilde gruplayacak

  Tedexs PPSV1 (Rapor).rar (Boyut: 466,1 KB / İndirilme: 22)
Örnek dosya inceleme esnasında kayboldum.
Rapor açılmadan önce verileri bayi formunda fire alanına göre süzgeç uygulamalısınız.
Uygulama dosyanız Excel yapısı ile ilerlemiş sanırım. teklif durumu sorgusuna Secim alanını rapor denetim kaynağı sorgusunda ki eprfenn alanı formülünü taşıdım.

(21-12-2025, 21:39)dsezgin demiş ki: Örnek dosya inceleme esnasında kayboldum.
Rapor açılmadan önce verileri bayi formunda fire alanına göre süzgeç uygulamalısınız.
Uygulama dosyanız Excel yapısı ile ilerlemiş sanırım. teklif durumu sorgusuna Secim alanını rapor denetim kaynağı sorgusunda ki eprfenn alanı formulünü taşıdım.

hocam raporda yapmak istediğim o şekilde değil resim ekledim mümküse tabi

Uygulama dosya senaryosuna kendiniz hakim olabilirsiniz, yardım talebini nesne adları ve ihtiyacınıza yönelik daha açıklayıcı bilgiler ile destek verebilirsiniz.

Rapor açılmadan kayıtların süzdürülmesi gerekir. İşaret ettiğiniz alan ekennolduğu için değişiklik yapılması gerekir.

Modül 3 prosedürünü

(24-12-2025, 01:09)dsezgin demiş ki: Uygulama dosya senaryosuna kendiniz hakim olabilirsiniz, yardım talebini nesne adları ve ihtiyacınıza yönelik daha açıklayıcı bilgiler ile destek verebilirsiniz.

Rapor açılmadan kayıtların süzdürülmesi gerekir. İşaret ettiğiniz alan ekennolduğu için değişiklik yapılması gerekir.

Modül 3 prosedürünü

Visual Basic

Public Function Secim(Mdtr, Sip As String, Seviye As Double) As String
           Dim Kyt As Recordset, SQLa As String, Isaret As Long, Grup(1 To 2) As String, SecimTp As Double
            SQLa = "SELECT [teklif Sorgu].adisoyadi, [teklif Sorgu].yeri, [teklif Sorgu].ekenn, [teklif Sorgu].sno FROM [teklif Sorgu] WHERE adisoyadi='" & Mdtr & "' And siparis_no='" & Sip & "' ORDER BY adisoyadi, yeri, ekenn "
            Set Kyt = CurrentDb.OpenRecordset(SQLa)
           If Kyt.RecordCount = 0 Then Exit Function
           Do Until Kyt.EOF
            If Isaret <> Mid(Kyt!yeri, 1, 1) Then
                      Grup(Mid(Kyt!yeri, 1, 1)) = ", " & Kyt!sno: SecimTp = Round(Kyt!ekenn, 3): Sablon = Sablon & "; " & Round(Kyt!ekenn, 3)
            ElseIf Isaret = Mid(Kyt!yeri, 1, 1) Then
                        If (SecimTp + Round(Kyt!ekenn, 3)) < Seviye Then
                                        If InStr(1, Sablon, Round(Kyt!ekenn, 3), vbTextCompare) = 0 Then
                                            Sablon = Sablon & "; " & Round(Kyt!ekenn, 3)
                                            Grup(Mid(Kyt!yeri, 1, 1)) = Grup(Mid(Kyt!yeri, 1, 1)) & ", " & Kyt!sno
                                            SecimTp = SecimTp + Round(Kyt!ekenn, 3)
                                        End If
                            End If
                End If
           Isaret = Mid(Kyt!yeri, 1, 1)
           Kyt.MoveNext
           Loop
           Kyt.Close: Set Kyt = Nothing
           Secim = "WHERE sno In (" & Mid(Grup(1), 3) & Grup(2) & ")"
End Function

hocam öncelikle emeğinize sağlık  kod konularında çok bi bilgim yok yani neyi nereye nasıl yapacağım hakkında rica etsem az çok anlatmaya çalıştım durumu siz bi örnek yapsanız olurmu ben onun üzerinde bişeyler yapmaya çalışıyım .

(24-12-2025, 12:11)osman06 demiş ki: hocam öncelikle emeğinize sağlık  kod konularında çok bi bilgim yok yani neyi nereye nasıl yapacağım hakkında rica etsem az çok anlatmaya çalıştım durumu siz bi örnek yapsanız olurmu ben onun üzerinde bişeyler yapmaya çalışıyım .

Kendi Örneğinizi inceleyebilirsiniz.