+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Vb Kod Hatası (/konu-vb-kod-hatasi--88249.html)
Vb Kod Hatası - U.ALTUN - 07/04/2021
aşağıdaki kod ile siparişlerime sipariş no verilmektedir. kod oluşumu yıl ay ve sıra no ile oluşuyor şimdi 2 sıra önceki kodu oluşturup hata verip işlem yaptırmıyor sarı numaralarında sayı kayması da yok tüm çabalarıma rağmen hatayı bulamadım başka nerelerde arama gerek yardımlarınız bekliyorum. formun resmini yükledim
1) sıra numarası oluşturma kodu
If NewRecord Then Sirano = DMax("Sirano", "Tbl_Siparisler") + 1
2)sipariş numarası oluşturma kodu
Dim yil, ay As Integer
Dim Sirano As String
yil = Mid(Format(Date, "yyyy"), 1, 4)
ay = Format(Date, "mm")
Sirano = Format(KacKayitVar("Tbl_Siparisler") + 1, "#####")
txtSipno = yil & ay & Sirano
RE: Vb Kod Hatası - berduş - 07/04/2021
KacKayitVar("Tbl_Siparisler") bu fonksiyonun kodları?
RE: Vb Kod Hatası - ozanakkaya - 07/04/2021
if newrecord = true thenŞeklinde olması gerekmiyor mu?
RE: Vb Kod Hatası - U.ALTUN - 08/04/2021
OZAN HOCA TEŞEKKÜRLER SORUN KALMADI