Cara Membuat Nomor Otomatis

 Public Function NomorOtomatis() As String
        strsql = "Select max(right(no_penyewa,2)) as no_penyewa From data_penyewa"
        olecom = New OleDbCommand(strsql, koneksi)
        oledr = olecom.ExecuteReader

        If oledr.Read Then
            Return "NP000" & Format(Val(oledr("no_penyewa").ToString) + 1)
        Else
            Return "NP0001"
        End If
    End Function

Lokasi:

Berbagi :