belli kritere göre otomatik artan sayı
Tarih
09/12/2013 16:51
Konu Sahibi
karaayhan
Yorumlar
4
Okunma
1513
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



karaayhan
Aktif Üye
Kullanici Avatari
Aktif Üye
428
02/11/2008
12
Muğla
Ofis 2003
20/02/2017,21:06
Çözüldü 
Sponsor Reklam
konu cevaplanan sorulara taşındı ancak sorum bu konunun devamı niteliğinde olduğundan
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 ..

Visual Basic Code
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..



Ek Dosyalar
.rar   parke değişti otomatikartansayi.rar (Dosya Boyutu: 18,86 KB / İndirme Sayısı: 6)
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Dim a, b As Integer
b = (Nz(DMax("[FİŞNO]", "Sipariş", "[TİPİ]= Forms!frm_siparis!MyTipi And [dizin] = Forms!frm_siparis!Mydizin"), 0))
a = (Nz(DMax("[FİŞNO]", "Sipariş", "[TİPİ]= Forms!frm_siparis!MyTipi And [dizin] = Forms!frm_siparis!Mydizin"), 0)) + 1


If b = 0 Then
If Me.MyTipi = "Model" Then
Me.Mynumara = 1001
ElseIf Me.MyTipi = "Parke" Then
Me.Mynumara = 2001
ElseIf Me.MyTipi = "File" Then
Me.Mynumara = 3001
End If
Else
Me.Mynumara = a

End If


Yalnız bir ürünün sayısı 999 u aşınca numaralar çakışacaktır sanırım.. Kolay gelsin



Ek Dosyalar
.rar   parke değişti otomatikartansayi.rar (Dosya Boyutu: 29,57 KB / İndirme Sayısı: 18)
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

karaayhan
Aktif Üye
Kullanici Avatari
Aktif Üye
428
02/11/2008
12
Muğla
Ofis 2003
20/02/2017,21:06
Çözüldü 
Sponsor Reklam
If b = 0 Then
If Me.MyTipi = "Model" Then
Me.Mynumara = 1001
ElseIf Me.MyTipi = "Parke" Then
Me.Mynumara = 1
ElseIf Me.MyTipi = "File" Then
Me.Mynumara = 3001
End If
Else
Me.Mynumara = a

Yalnız bir ürünün sayısı 999 u aşınca numaralar çakışacaktır sanırım.. Kolay gelsin
[/quote]

yukarıdaki kod'da kırmızı yazılı numarayı değiştirince sorun kalmadı...
ayrıca 999'a kadar eski kayıtlar siliniyor o yüzden sorun olmayacaktır.

sayın Puletin ilginize ve EMEĞİNİZE teşekkür ederim..
saygılarımla..
Dünya düşünenler için bir komedi, Hissedenler için bir trajedidir ***
Hugh WALPOLE
Cevapla

Puletin
Uzman
Kullanici Avatari
Uzman
1.716
01/11/2008
416
Ülke Dışı
Ofis 2003
24/12/2016,00:18
Çözüldü 
İşinize yaradığına sevindim. Img-grin
Kaplumbağa ya dikkat et...
Sadece başını çıkartıp risk aldığında ilerleyebiliyor...
Cevapla

oosmaner
Üye
Kullanici Avatari
Üye
O.... E....
9
3
03/09/2015
0
İzmir
Ofis 2013 64 Bit
19/02/2017,22:30
Sponsor Reklam
S.a sizden yıllara göre sayı verebilecegimiz bir kod üretebilirmisini evrak kayıt için
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Birinci ComboBox seçimine göre ikincisinde kriter değerlerini gösterme İbrahim Şenol 5 57 17/02/2017, 21:01 atoz112
  Select Box Değerlerine Göre Veri Getirme İbrahim Şenol 4 51 16/02/2017, 21:36 İbrahim Şenol
  Raporda otomatik artan tarih alanı QATLET 3 45 16/02/2017, 14:51 QATLET
  Gelir Giriş formunda Yeni Kayıt dediğimde Açılır Kutudaki Teknik otomatik Gelmesi haziran4 2 42 09/02/2017, 17:53 haziran4
  Veri çekerken kritere göre listeleme hk. okumas 2 56 07/02/2017, 14:01 okumas


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya