Database.rar (Boyut: 39,34 KB / İndirilme: 23)

  Resim1.PNG (Boyut: 15,34 KB / İndirilme: 22)

Form_BeforeInsert olay yordamında bulunan kod ile aşağıdaki işlemleri yapmaktadır.

Description alanına değer girince; InvoiceNumber alanındaki değeri 1 den başlayıp 2023-05-1 şeklinde sıralamaktadır.

Ancak bu sıralama 2023-05-10 değerine ulaşıp 11. değer girişi yapılacakken işlem yapmıyor.

Yilenen değerler oluştu hata iletisi veriyor. Resim1 deki görüntü

bu şekilde binlerce kayıt yaptırma şansımız yok mudur?

Saygıdeğer üstadların engin bilgisine başvuruyor; Kendilerine şimdiden Teşekkür ediyorum

Private Sub Form_BeforeInsert(Cancel As Integer)
Dim vLast As Variant
Dim InvNext As Integer ' Ekte bualan kodu  LongPtr olarak kalmış doğrusu Integer dir
Me.InvYear = Format(Date, "yyyy") & Format(Date, "mm")
vLast = DMax("SeriesNumber", "Invoice", "InvYear= '" & Me.InvYear.Value & "'")
' Invoce tablonun adıdır.
If IsNull(vLast) Then
InvNext = 1
Else
InvNext = vLast + 1
End If
Me.SeriesNumber = InvNext
Me.InvoiceNumber = Format(Date, "yyyy") & "-" & Format(Date, "mm") & "-" & Me.SeriesNumber
End Sub

anahtar alan olduğu için benzersiz olarak ayarlanmış

(26-05-2023, 22:34)halily demiş ki: anahtar alan olduğu için benzersiz olarak ayarlanmış

Halil Hocam benzersiz olarak 2023-5-1 den 2023-5-10 dahil  işlem yapıyor.
Benim anlamadığım 2023-5-10 dan sonra işlem yapmak isteyince 2023-5-11 yapmak yerine 1. anahtar hatası veriyor.

1.anahtarı kaldırıncada sürekli 2023-5-10 değerini tekrar tekrar yazıyor.

Tüm kayıtları silip 1 den başlayıp tekrar kayıt oluşturun 10. kayıttan sonra bu uyarıyı veriyor.

alanınız metin olduğu için 9 her zaman en büyük olarak alınır
metinsel ifadelerde sıralamaya ilk karakterden bakılmaya başlandığından 10 sayısına değil ilk karakter olan 1 sayısına bakılı o nedenle
9 her zaman 10000000 sayısından büyüktür
metni int ifadesi ile sayıya çevirmeniz gerekli
ifadeyi aşağıdaki gibi düzenleyip dener misiniz?
"int(SeriesNumber)"

yalnız InvoiceNumber alanı tarih mi değil mi? çünkü tarihse veri ekledikçe InvoiceNumber =2023-05-34 gibi tarih formatına uymayan veriler üretecek

(27-05-2023, 11:11)halily demiş ki: yalnız InvoiceNumber alanı tarih mi değil mi? çünkü tarihse veri ekledikçe InvoiceNumber =2023-05-34 gibi tarih formatına uymayan veriler üretecek

Üstadım yabancı bir Access Videosunda gördüm dikkatimi çekti. Bende aynısını uyguladım. Ancak gördüm ki 10. işlemden sonra hata veriyor. Kendim nedenini bulamayınca Üstadlara bir sorayım belki bir yerlerde kullanma gereği duyarım diye arşive eklemek için.

Videoda ingilizcem yok; ama birisi soru soruyor, sanırım soruda yıl ve ay da( 2023-05) 2023 ün 5. ayında (Description= Çeşit) kaç adet işlem var gibi bu sıralama yapılabilirminin cevabı olarak bu işlemi yapıyor.

Bu videoda benim yaptığım gibi işlemi on adet yapmıyor. 10 adet yapsaydı belki de bu hatayı bu işlemi yapan Developer de görecekti. (Ancak o yıl değiştirdi; yeni yıl kaydı ilgili  ay kaydı 1 sayısından başladı aynı yıl içinde ay değitirdi vb.)

Halil hocam bu işleme yeni bir soluk getirdin emeğine sağlık teşekkür ederim.