1
ห้อง MS Access / : Generate Auto Number แบบ Fixed Format
« เมื่อ: 25 พ.ค. 61 , 14:18:31 »
ขอบคุณค่ะ คุณปิ่นณรงค์ เดี๋ยวจะลองใช้ดู แล้วจะรายงานผลค่ะ
แสดงกระทู้
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
หน้า: [1]
2
ห้อง MS Access / : Generate Auto Number แบบ Fixed Format
« เมื่อ: 25 พ.ค. 61 , 12:07:49 »
หนูสร้างฟอร์มแล้วมีการ Generate Auto Number ซึ่ง่ไม่ได้ใช้ Dmax เพราะทำให้โปรแกรมช้าค่ะ แค่ต้องการแค่ Run เลข 4 หลักแบบ "0000" โดยมีเงื่อนไขเพิ่มคือ อิงรหัสหน่วยงาน เพราะแต่ละหน่วยงานมีเลขรัน ไม่เท่ากันค่ะ สิ่งที่หนูทำคือ
สร้าง query หาค่า max ของรหัส ของแต่ละหน่วยงานก่อน และ copy sql ไปใส่ที่คำสั่ง recordset ค่ะ
เวลาบันทึกข้อมูล พอเรา เลือกหน่วยงาน พอคลิกที่ฟิลด์รหัสงาน มันก็จะนำค่า Max มาบวกเพิ่มอีก 1 ใส่ลงในฟิลด์ที่เราคลิกค่ะ
ตามไฟล์แนบ inputscreen ค่ะ
สร้าง query หาค่า max ของรหัส ของแต่ละหน่วยงานก่อน และ copy sql ไปใส่ที่คำสั่ง recordset ค่ะ
เวลาบันทึกข้อมูล พอเรา เลือกหน่วยงาน พอคลิกที่ฟิลด์รหัสงาน มันก็จะนำค่า Max มาบวกเพิ่มอีก 1 ใส่ลงในฟิลด์ที่เราคลิกค่ะ
ตามไฟล์แนบ inputscreen ค่ะ
3
ห้อง 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
หน้า: [1]
