Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih… kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak 🙂
::
::
::
::
Waktu itu uda ya bikin kode otomatis, nah sekarang dimodif lagi nih… kode otomatisnya diambil dari tanggal sekrang dan tambahan string (misal belakangnya 0001).
Nah silakan dicoba yak 🙂
::
::
langsung aja cobain kodingnya yah, jangan lupa dipanggil di Form_Load
————————————————————————————————————————
Sub otomatis()
cmd = New OleDbCommand(“select ID_pemeriksaan from Pemeriksaan order by ID_pemeriksaan desc”, conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
tidp.Text = Format(Today, “yyMMdd”) + “0001”
Else
If Microsoft.VisualBasic.Left(dr.Item(“ID_pemeriksaan”), 6) = Format(Today, “yyMMdd”) Then
tidp.Text = dr.Item(“ID_pemeriksaan”) + 1
Else
tidp.Text = Format(Today, “yyMMdd”) + “0001”
End If
End If
End Sub
———————————————————————————————————————–
Posting Komentar untuk "Koding Otomatis VB .NET Access berdasarkan tanggal sekarang dan tambahan string"