Merhaba;

kayıt numarasını toplam kayıt sayısını bulup, üzerine +1 ekleyerek KayitNo bolumune giriş yapıyorum.

fakat benim istediğim KayıtNo bolumundeki en son kayıt numarasına (LKMS18-0500024) +1 ekleyip , yeni kayıt numarası verdirmek.
yani demek istediğim aradan herhangi bir kayıt silindiğinde , yeni kayıt numarası bundan etkilenmeden son kayıt numarasına göre devam etmesi.

nasıl yapabiliriz?

Sayın sidd, 

Sorunuza çözüm bulmak adına hazırladığım kod için yaklaşık 30 dakika uğraştım.
Lütfen sizde uğraşıp örnek uygulamanızdaki verileri copy-paste yaparak hazırlamayın, örnek uygulamanızdaki veriler tutarlı olsun, atanacak sayı birbirinden farklı olmalı ancak örnek uygulamanızda aynı kayıt no birden fazla defa kullanılmış.


cboFirmaTipi açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle,



Kaydet butonundaki


Kodunu sil.

(23/05/2018, 16:27)ozanakkaya yazdı: Sayın sidd, 

Sorunuza çözüm bulmak adına hazırladığım kod için yaklaşık 30 dakika uğraştım.
Lütfen sizde uğraşıp örnek uygulamanızdaki verileri copy-paste yaparak hazırlamayın, örnek uygulamanızdaki veriler tutarlı olsun, atanacak sayı birbirinden farklı olmalı ancak örnek uygulamanızda aynı kayıt no birden fazla defa kullanılmış.


cboFirmaTipi açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle,

Dim SQL1 As String
Dim rs As Recordset
Dim GKayit, GDizi, GSayi As Integer
Dim GKFirmaTipi, GSonSayimiz As String
                         
SQL1 = "SELECT KayitNo, FirmaTipi, Left([KayitNo],InStr(1,[KayitNo],'-')-1) AS GFir, Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000') AS GKNo FROM tblKayitlar GROUP BY KayitNo, FirmaTipi, Left([KayitNo],InStr(1,[KayitNo],'-')-1), Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000') ORDER BY Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000');"
                  
Set rs = CurrentDb.OpenRecordset(SQL1)

If rs.RecordCount > 0 Then

    Do Until rs.EOF = True
    
        If rs!FirmaTipi = Me.cboFirmaTipi Then
        GSonSayimiz = rs!GKNo
        End If
    rs.MoveNext
    Loop
    
Else

GSonSayimiz = 0

End If

 Select Case Me.cboFirmaTipi
    
        Case 1
            GKFirmaTipi = "LKMS"
        Case 2
            GKFirmaTipi = "YBMS"
        Case 3
            GKFirmaTipi = "ACNT"
    
    End Select

Me.txtKayitNo = GKFirmaTipi & Mid(Year(Date), 3, 2) & "-" & Format(GSonSayimiz + 1, "0000000")

Kodu Seç

Kodu Kopyala

Kaydet butonundaki

Me.txtKayitNo = FirmaTipId & yil & "-" & ay & Format(KayitSayi, "0####")

Kodu Seç

Kodu Kopyala

Kodunu sil.

Çok teşekkürler Ozan Bey, emeğinize vaktinize sağlık.
haklısınız ogrenmek için gelişigüzel yazılmıs bir örnekti, numaraları sırasıyla düzenledim.
verdiğiniz kodlar işe yaradı, tekrar çok teşekkürler.

(23/05/2018, 16:52)sidd yazdı:

(23/05/2018, 16:27)ozanakkaya yazdı: Sayın sidd, 

Sorunuza çözüm bulmak adına hazırladığım kod için yaklaşık 30 dakika uğraştım.
Lütfen sizde uğraşıp örnek uygulamanızdaki verileri copy-paste yaparak hazırlamayın, örnek uygulamanızdaki veriler tutarlı olsun, atanacak sayı birbirinden farklı olmalı ancak örnek uygulamanızda aynı kayıt no birden fazla defa kullanılmış.


cboFirmaTipi açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekle,

Dim SQL1 As String
Dim rs As Recordset
Dim GKayit, GDizi, GSayi As Integer
Dim GKFirmaTipi, GSonSayimiz As String
                         
SQL1 = "SELECT KayitNo, FirmaTipi, Left([KayitNo],InStr(1,[KayitNo],'-')-1) AS GFir, Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000') AS GKNo FROM tblKayitlar GROUP BY KayitNo, FirmaTipi, Left([KayitNo],InStr(1,[KayitNo],'-')-1), Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000') ORDER BY Format(Mid([KayitNo],InStr(1,[KayitNo],'-')+1),'0000000');"
                  
Set rs = CurrentDb.OpenRecordset(SQL1)

If rs.RecordCount > 0 Then

    Do Until rs.EOF = True
    
        If rs!FirmaTipi = Me.cboFirmaTipi Then
        GSonSayimiz = rs!GKNo
        End If
    rs.MoveNext
    Loop
    
Else

GSonSayimiz = 0

End If

 Select Case Me.cboFirmaTipi
    
        Case 1
            GKFirmaTipi = "LKMS"
        Case 2
            GKFirmaTipi = "YBMS"
        Case 3
            GKFirmaTipi = "ACNT"
    
    End Select

Me.txtKayitNo = GKFirmaTipi & Mid(Year(Date), 3, 2) & "-" & Format(GSonSayimiz + 1, "0000000")

Kodu Seç

Kodu Kopyala

Kaydet butonundaki

Me.txtKayitNo = FirmaTipId & yil & "-" & ay & Format(KayitSayi, "0####")

Kodu Seç

Kodu Kopyala

Kodunu sil.

Çok teşekkürler Ozan Bey, emeğinize vaktinize sağlık.
haklısınız ogrenmek için gelişigüzel yazılmıs bir örnekti, numaraları sırasıyla düzenledim.
verdiğiniz kodlar işe yaradı, tekrar çok teşekkürler.

Ozan Bey, numalarndırma ACNT da farklı, LKMS de farklı, YBMS de farklı oluyor, orneğin 5 tane ACNT varsa, yeni kayıda 6 noyu veriyor,  10 tane LKMS varsa, yeni kayıda 11 noyu veriyor , ben genel olarak son rakamı vermesini istiyorum.
yani toplam 24 kayıt varsa, 25.noyu versin, hangi kodla basladığı onemli olmasın, onu nasıl yaparız.

birde eklenen örneklere, örnek, deneme, deneme1, deneme2, denem son, deneme önceki  gibi kelimeler yazmak yerine, konunun içeri ile alakalı birşeyler yazılsa daha iyi olur. mesela örneğinizin ismi de kayıt numarası olabilirdi,

Örneğinizin düzenlenmiş hali ektedir, inceleyip olumlu-olumsuz bildirimde bulununuz.