Herkese selam,

resmini gönderdiğim formumun üzerinde bir adet Kayıt Numarası kayıt alanı (TalepNu) var. ben formdaki bütün alanları doldurup kaydetttiğimde yıllara göre 2019-A-000001 gibi kayıt numarası veriyor ve her kayıt için bir arttırıyor. Ancak ben herhangi bir değişikllik için daha önce kaydettiğim bir kayda döndüğümde ve değişikliği yaptığımda Kaydet tuşuna basarsam yeni bir kayıt numarası veriyor. Bunu engellemek ve kayıt numarasında değişiklik yapmamak mümkün müdür acaba?
kaydet Butonunun altındaki Kodu da aşağıya ekledim;

Private Sub Komut9_Click()
On Error GoTo Err_Komut9_Click
Dim EnSon As Long
Me.TalepNu = vbNullString
EnSon = Nz(DMax("mid(TalepNu,8,len(TalepNu))", "Tbl_Emlak_Alici_Talep_Kayit", "Mid([TalepNu],1,4)=" & Year(Date) & " And Mid([TalepNu],6,1)='" & "A" & "'"), 0)
Me.TalepNu = Year(Date) & "-" & "A" & "-" & Format(IIf(EnSon = 0, 1, EnSon + 1), "000000")
SatisAlis.Value = "ALIŞ"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
DoCmd.RunCommand acCmdSaveRecord
DoCmd.RefreshRecord
Exit_Komut9_Click:
    Exit Sub
    DoCmd.GoToControl "Sec"
Err_Komut9_Click:
    MsgBox Err.Description
    Resume Exit_Komut9_Click
End Sub

Me.TalepNu = vbNullString <-- talep numarasını boşaltıyorsunuz, boşaltmak yerine eğer boşsa kontrolü yapmak daha uygun olur bence


yerine aşağıdaki gibi deneyin
dilerim işinize yarar
iyi çalışmalar

Sayın halily,

Yazmış olduğunuz kodu işlerimin yoğunluğu sebebiyle ancak bir defa deneyebildim maalesef çalışmadı. Ancak bu hafta sonu tekrar deneyeceğim. Aslında çalıştı ama benim istediğim şekilde değil. Bu hafta sonu tekrar denediğimde sizinle sonucu paylaşacağım. Geç cevap verdiğim için kusura bakmayın...Unutmam mutlaka dönüş yaparım

Teşekkür ederim.

Selamlar,

Özel işlerimden dolayı uzun süredir sitemize giremedim. Sayın halily'e geri dönüş için sözüm vardı, biraz geç oldu ama nihayet dönebildim. Yukarıdaki mesajlarda belirttiğim konuda deneme yaptım ancak aynı zamanda zorunluluktan dolayı veri tabanında da değişiklik yaptım. Eski kullandığım koda döndüm, sayın hahily'nin verdiği kod ile birleştirmeye çalıştım, aşağıdaki kod ortaya çıktı, uygulamamda aynı kaydı kaydetmek için denediğimde ise "IlanTalepNu" alanında yeni bir numara vermedi, diğer alanlarda yaptığım değişiklikleri kabul etti ancak Type Mismatch hatası verdi. (Daha önceki mesajlarımdaki TalepNu alanını mecburen IlanTalepNu olarak değiştirdim.)

En son uyguladığım kod aşağıdaki gibidir.

Dim EnSon As Long
If nz(Me.IlanTalepNu, "" = "" then
EnSon = Nz(DMax("mid(IlanTalepNu,8,len(IlanTalepNu))", "Tbl_Emlak_Alici_Satici_Ilan_Kayit", "Mid([IlanTalepNu],1,4)=" & Year(Date) & " And Mid([IlanTalepNu],6,1)='" & IIf(Me.Sec = 1, "A", IIf(Me.Sec = 2, "S", vbNullString)) & "'"), 0)
 
Me.IlanTalepNu = Year(Date) & "-" & IIf(Me.Sec = 1, "A", IIf(Me.Sec = 2, "S", vbNullString)) & "-" & Format(IIf(EnSon = 0, 1, EnSon + 1), "000000")
End If

Yardımınızı bekliyorum şimdiden teşekkürler...

Calismanizin son halini bilmediğimden kesin 1 set söylemem ama yukardaki kod If nz(Me.IlanTalepNu, "" = "" then kısmi hatalı yazılmış
Dogrusu

olacak
Not: bu aralar bilgisayara erişimim kısıtlı olduğundan ayrıntılı inceleyemedim

Sayın halily,
teşekkür ederim sorun sayenizde çözülmüştür.