please read again my explanation in the comment..
i use date picker ONLY
ON MY FIRST Method.. second method i didn't use it..
This is my code for First method using datetimepicker to create no_booking..
Private Sub dp1_ValueChanged(sender As Object, e As EventArgs) Handles dp1.ValueChanged
Call koneksi()
Dim tambah As Long
Dim tgl = Format(Date.Now, "ddMMyy")
Dim Dpick As String = Format(dp1.Value, "ddMMyy")
sql = "select no_booking from booking where date_service = #" & dp1.Value.Date & "# order by no_booking desc"
cmd = New OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
txtnobooking.Text = "AN" + Dpick + "01"
ElseIf dr.HasRows Then
If Microsoft.VisualBasic.Right(dr.GetString(0), 2) > 3 Then
MsgBox("No Booking is Full")
Exit Sub
Else
Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
Dim dtl As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim latestdate = Format(dtl, "ddMMyy")
tambah = Microsoft.VisualBasic.Right(dr.GetString(0), 2) + 1
dafnoantrean.Text = "AN" + latestdate + Microsoft.VisualBasic.Right("00" & tambah, 2)
End If
End If
End Sub
This is my code for Second method to create no_booking ..
Public Sub nobookingautomatic()
Call koneksi()
Dim tambah As Long
Dim tgl = Format(Date.Now, "ddMMyy")
sql = "select top 1 no_booking from booking where date_service in (select top 1 date_service from
booking group by date_service having count (date_service) < 4) order by no_booking desc"
cmd = New OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
sql = "select top 1 no_booking from booking order by no_booking desc"
cmd = New OleDbCommand(sql, conn)
dr = cmd.ExecuteReader
dr.Read()
If Not dr.HasRows Then
txnobooking.Text = "AN" + tgl + "01"
Else
Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
Dim dtl As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim latestdate = Format(dtl, "ddMMyy")
Dim dtb As DateTime = dtl.AddDays(1)
Dim nextdate = Format(dtb, "ddMMyy")
dafnoantrean.Text = "AN" + nextdate + "01"
End If
Else
Dim st = Microsoft.VisualBasic.Mid(dr.GetString(0), 3, 6)
Dim dtl As Date = Date.ParseExact(st, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
Dim latestdate = Format(dtl, "ddMMyy")
tambah = Microsoft.VisualBasic.Right(dr.GetString(0), 2) + 1
txnobooking.Text = "AN" + latestdate + Microsoft.VisualBasic.Right("00" & tambah, 2)
End If
' date service
Dim sst = Microsoft.VisualBasic.Mid((tbnobooking.Text), 3, 6)
Dim sdt As Date = Date.ParseExact(sst, "ddMMyy", System.Globalization.DateTimeFormatInfo.InvariantInfo)
dp1.Text = sdt
End Sub
