AccessTr.neT

Şöyle bir şey yaptım ama "Invalid use of null " hatası alıyorum  aşağıdaki kodda yanlışlık var mı?

KYT0002 diye artarak  kayıt üretmesi lazım daha doğrusu tablonun en son kaytında ID alanında değer yoksa hata veriyor.

module

Function nurmaraAl(yb As String) As String

    Dim donenDeger As String

    Dim i As Integer

    donenDeger = ""

    For i = 1 To Len(yb)

        If Mid(yb, i, 1) >= "0" And Mid(yb, i, 1) <= "9" Then

            donenDeger = donenDeger + Mid(yb, i, 1)

        End If

    Next

 nurmaraAl = donenDeger

End Function

form olayı

Private Sub Form_Current()

Dim strOldID As String

    Dim lngCurrentNumber As Long

    Dim lngNextNumber As Long

    Dim strNextNumber As String

    Dim strNewID As String

    

    strOldID = DLast("[ID]", "t_Nakliyeler") 'tabloda ID Alanı boş değil

       

    lngCurrentNumber = nurmaraAl(strOldID)

    lngNextNumber = lngCurrentNumber + 1

    strNextNumber = String(4 - Len(CStr(lngNextNumber)), "0") & CStr(lngNextNumber)

    strNewID = "KYT" & strNextNumber

    Me.t_islemno = strNewID



End Sub

strOldID =dmax("Cint(mid([ID],4))") +1
strNewID = "KYT" & format(strOldID ,"0000")

gibi bir kodu deneseniz?

Aynı hatayı türkçe veriyor bu sefer "Geçersiz Boş kullanımı"

  strOldID = DMax("Cint(Mid([ID],4))", "t_Nakliyeler") + 1

    strNewID = "KYT" & Format(strOldID, "0000")

çalışmanızı ekleyin inceleyelim.

en son kendi çalışmamda aşağıdaki kodu denedim çalıştı

strOldID = DMax("Mid([dosyano],4)", "[denetim]") + 1

    strNewID = "KYT" & Format(strOldID, "0000")

 strNewID = "KYT" & Format(strOldID, "0000")

    strOldID = DMax("Nz([ID],0)", "t_Nakliyeler") + 1

    Debug.Print

bu şekilde type mismatch hatası veriyor

strNewID = "KYT" & Format(strOldID, "0000")

    strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1

    Debug.Print

bu şelikde sadece KYT üretiyor numara vermiyor

bendeki  ilk kodu şu şekilde değiştirdim

strOldID = DLast("[ID],0", "t_Nakliyeler") + 1



strOldID = DLast("Nz([ID],0)", "t_Nakliyeler") + 1 'yenisi