Otomatik Numara Verme

selamınaleyküm,

vb6 da add tuşuna bastığımda otomatik numara vermesi yani eğer kayıt yoksa 0001 varsa önceki kayıt kaçsa ona göre 1 arttıracak örnek:0001 ise 0002 olacak bunu accesste yapmıştık ama vb ye uyarlayamadım 

accesste
 If MsgBox("Otomatik Kayıt Numarası Verilsin mi?", vbYesNo, "NUR YAZILIM") = 6 Then
DoCmd.GoToRecord , , acNewRec
    stok_no = Format(Nz(DMax("stok_no", "tbl_stok_giris_karti"), 0) + 1, "0##")
stok_adi.SetFocus
mus_no_ver.Enabled = False

Else
Undo
stok_no.SetFocus
End If


ama vb6 da nasıl bulamadım yardım lütfen

A.S.  kardeşim
Ben vb net ile program yazarken bu kodu kullanırım sizde bunu kendinize çevirebilirsiniz.

 sqL = "SELECT ID FROM TBL_KISILER ORDER BY ID DESC;"

            ConnDB()
            cmd = New OleDbCommand(sqL, conn)
            dr = cmd.ExecuteReader(CommandBehavior.CloseConnection)
            If dr.Read = True Then
                txtID.Text = dr(0) + 1
            Else
                txtID.Text = 1
            End If

Yardımın için teşekkürler fakat bu kodları kabul etmiyor

tabiki bu kodlar birebir olmaz,ya örneğinizi ekleyeceksiniz,vb6 dan anlayan bakacak yada siz bu kodları kendinize uyarlayacak,başka yolu yok.

selamın aleyküm arkadaşlar,
yapmak isteyipte yapamadığım olay için örnek yolluyorum inşallah yapılabilir.
 yardımlarınız şimdiden teşekkürler.

(26/06/2018, 05:49)C*e*l*o*y*c*e yazdı: tabiki bu kodlar birebir olmaz,ya örneğinizi ekleyeceksiniz,vb6 dan anlayan bakacak yada siz bu kodları kendinize uyarlayacak,başka yolu yok.

dosyayı ekte yolladım