belli kritere göre otomatik artan sayı

karaayhan

Access Cevaplanmış Soruları

2800

09/12/2013, 22:38 #3

Aktif Üye

karaayhan

Bul

Aktif Üye

Adı Soyadı:

Yaşı: 37

Konum: Muğla

Ofis Versiyonu: Ofis 2003

Son Oturumu: 01/05/2024,18:57

Yorumları: 512

Konuları: 89

Kayıt Tarihi: 02/11/2008

Teşekkür Puanı: 12

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

Son Düzenleme: 09/12/2013, 22:40, Düzenleyen: karaayhan.

Cevapla