buradan yazıyorum yönetici arkadaşlar konuyu sorular kısmına taşırsa memnun olurum.
soru= Sayın power'in belirttiği kod işime yarıyor ancak FİŞNO onbinli rakamları aştığından bundan böylesi kullanacağımız FİŞNO'ları 1'den başlaması gerekiyor..önceki kayıtlar kalacağından "sadece "Tipi" =Parke olanları kastediyorum..."dan şu ana kadar fiş no'su ne olursa olsun bundan sonrasının 1'den başlaması gerekiyor..önceki kayıtlara dizin diye bir alan ekledim.... ve -1 olarak değer verdim..bundan sonrasında bu değer =0 olacaktır.. bu nu yazılan kod'umuzda kullanabiliriz diye düşündüm yani kafamdaki şu ;
"dizin değeri=0 (Hayır) olanlar içinde "Tipi=Parke" olanlar diye devam eden bir kod satırına ihtiyacım var biraz karmaşık anlattım ama uygulama içinde baktığınızda belkide çok basit gelecek ilgilenenlere şimdiden teşekkürler ..
If Me.TİPİ = "Parke" And (Nz(DMax("FİŞNO", "Sipariş", "TİPİ = '" & "Parke'"), 0)) = 0 Then FİŞNO = Nz(DMax("FİŞNO", "Sipariş", "TİPİ = '" & "Parke'"), 0) + 1: Exit Sub
If Me.TİPİ = "Parke" Then FİŞNO = Nz(DMax("FİŞNO", "Sipariş", "TİPİ = '" & "Parke'"), 0) + 1
iyi çalışmalar..
