AccessTr.neT
Otomatik Numara Verme - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Soruları ve Cevapları (https://accesstr.net/forum-visual-basic-6-sorulari-ve-cevaplari.html)
+--- Konu Başlığı: Otomatik Numara Verme (/konu-otomatik-numara-verme.html)



Otomatik Numara Verme - kayaaltin - 24/06/2018

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


Cvp: Otomatik Numara Verme - C*e*l*o*y*c*e - 25/06/2018

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


Cvp: Otomatik Numara Verme - kayaaltin - 25/06/2018

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


Cvp: Otomatik Numara Verme - C*e*l*o*y*c*e - 26/06/2018

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


Cvp: Otomatik Numara Verme - kayaaltin - 28/06/2018

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.


Cvp: Otomatik Numara Verme - kayaaltin - 28/06/2018

(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