แสดงกระทู้
1
ห้อง MS Access / Generate Auto Number แบบ Fixed Format
« เมื่อ: 25 พ.ค. 61 , 10:57:20 »
ขอความช่วยเหลือด้วยค่ะ ไม่ทราบว่า ผิดตรงไหน ทำให้ขึ้นหน้าต่าง error ตามไฟล์แนบ
Private Sub Text352_Click()
Dim rs As Recordset
Dim Q As String
Set rs = CurrentDb.OpenRecordset("SELECT JobDetail.Team1, Max(Val([DptRef])) AS Ref, Left([JobRunning],2) AS [year] FROM JobDetail GROUP BY JobDetail.Team1, Left([JobRunning],2) HAVING JobDetail.Team1=[Forms]![CaseTrack-AdminTab]![Team1] AND Left([JobRunning],2)=61")
Q = Val(rs.Fields(1)) + 1
Me.DptRef = Format(Q, "0000")
End Sub
Private Sub Text352_Click()
Dim rs As Recordset
Dim Q As String
Set rs = CurrentDb.OpenRecordset("SELECT JobDetail.Team1, Max(Val([DptRef])) AS Ref, Left([JobRunning],2) AS [year] FROM JobDetail GROUP BY JobDetail.Team1, Left([JobRunning],2) HAVING JobDetail.Team1=[Forms]![CaseTrack-AdminTab]![Team1] AND Left([JobRunning],2)=61")
Q = Val(rs.Fields(1)) + 1
Me.DptRef = Format(Q, "0000")
End Sub
