Güncelleme

[sinnernekolens]

iyi akşamlar, ekli çalışmamda veriyi kaydettik den sonra dosya numarasından çağırıp o veri üstünde güncelleme yapıp tekrar kaydedebilir miyim?
Birde Yeni kayıt butonuna basınca otomatik sıra numarası verebilir mi? Örnek 17-ZNM-01, 17-ZNM-02 gibi. Yardımlarınızı rica ederim

 

[Asri]

Ekli dosyayı kontrol ediniz.
Ara ile kayıt seçerseniz KAYIT butonu güncelleme olarak çalışacak.
Yeni kayıt ile işlem yaparsanız KAYIT butonu yeni kayıt olarak çalışacaktır.

Kayıt no arttırmak için aşağıdaki şekilde kod yazıldı.
Bura önemli olan sizin son kayıt numaranız.
03 ile bitiyor ise programı 04, 05 diye kadar arttıracaktır.
0003 ile bitiyor ise programı 0004, 0005 diye arttıracaktır.

Function kayitnoarttir(kayitstr As String) As String
   ilkkod = Mid(kayitstr, 1, InStrRev(kayitstr, "-"))
   sonkodstr = Mid(kayitstr, InStrRev(kayitstr, "-") + 1, Len(kayitstr))
   sonkodi = (0 + sonkodstr) + 1
   yenikodstr = Trim(Str(sonkodi))
   If Len(sonkodstr) <> Len(sonkodi) Then
      For i = 1 To Len(sonkodstr) - 1
          yenikodstr = "0" & yenikodstr
      Next i
   End If
   kayitnoarttir = ilkkod & yenikodstr
End Function

 

[sinnernekolens]

Teşekkür ederim tam istediğim gibi oldu.