09-12-2013, 19:00
aşağıda belirttiğim kodlarla "Tipi=Parke" olanların fiş no'larından en son verilene +1 ekleyerek devam eden bir uygulama,ancak varolan fiş numarasını yani "Tipi=Parke" olanları 1'den başlatmam gerekiyor.. burada yapmam gereken değişiklik nedir eski kayıtların da durması gerekiyor...
şimdiden teşekkürler
örnek ek'te..
Visual Basic
- 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
şimdiden teşekkürler
örnek ek'te..
