Skip to main content

AccessTr.neT


Otomatik Numara Verme

Otomatik Numara Verme

#1
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
Dünya hayatı bir oyun ve eğlenceden başka bir şey değildir. Allah'tan korkanlar için elbette ahiret yurdu daha hayırlıdır. Hâlâ akıl erdiremiyor musunuz? 
(En'am: 32)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Otomatik Numara Verme - Yazar: kayaaltin - 24/06/2018, 14:29
Cvp: Otomatik Numara Verme - Yazar: C*e*l*o*y*c*e - 25/06/2018, 16:14
Cvp: Otomatik Numara Verme - Yazar: kayaaltin - 25/06/2018, 22:01
Cvp: Otomatik Numara Verme - Yazar: C*e*l*o*y*c*e - 26/06/2018, 05:49
Cvp: Otomatik Numara Verme - Yazar: kayaaltin - 28/06/2018, 16:18
Cvp: Otomatik Numara Verme - Yazar: kayaaltin - 28/06/2018, 16:17
Task