แสดงกระทู้

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.


Messages - udomchok

หน้า: [1]
1
ห้อง MS Access / : Generate Auto Number แบบ Fixed Format
« เมื่อ: 25 พ.ค. 61 , 14:18:31 »
ขอบคุณค่ะ คุณปิ่นณรงค์ เดี๋ยวจะลองใช้ดู แล้วจะรายงานผลค่ะ

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 ค่ะ

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

หน้า: [1]