30-10-2018, 23:16
sabah, ogle aksam Mesaj 41'e yeniden bakabilirsiniz. VBA kodu degil Metin kutusu denetim kaynaginda olmalidir.
Sira numara alinmasinda tablo ismi hatali olmus, yeni yilda sira_no devam etsin deyince, asagidaki gibi yapilabilir. format 0#### yerine 0000 olmali ki standart yakalansin, goz kontrolu yapilabilir.
Sira numara alinmasinda tablo ismi hatali olmus, yeni yilda sira_no devam etsin deyince, asagidaki gibi yapilabilir. format 0#### yerine 0000 olmali ki standart yakalansin, goz kontrolu yapilabilir.
Visual Basic
- Private Sub Btn_YeniIletisim_Click()
- Me.IletisimSiraNo = Format(Date, "yyyy") & Format(DMax("Clng(Mid(IletisimSiraNo,5,len(IletisimSiraNo)))",
- "Tbl_Iletisim") + 1, "0000")
- End Sub