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 |