กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
285 3
URL.หัวข้อ /
URL
... เรียนอาจารย์สุภาพครับ ...
คือว่า พอ run แล้วมันขึ้นว่า
Too few parameters. Expected 2
หมายความว่าอย่างไรเหรอครับ
คือผมต้องการให้มันดึง record ที่มีฟิล emp_department เป็น ออฟฟิศ และ มีฟิล emp_position เป็น ผู้จัดการ จากตาราง employee ขึ้นมาแสดงบน YYH_MANAGERNAME ( textbox ) น่ะครับ (ดึงมา แค่สามฟิลคือ คำนำหน้าชื่อ ชื่อและนามสกุล)
โค๊ด ครับ
Private Sub Form_Load()
Dim strDepart As String
Dim strPosit As String
strDepart = "ออฟฟิศ"
strPosit = "ผู้จัดการ"
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select emp_initial,emp_name,emp_surname from employee where emp_department = '" & strDepart & "' and emp_position = '" & strPosit & "'")
YYH_MANAGERNAME = rst!EMP_INITIAL & " " & rst!EMP_NAME & " " & rst!EMP_SURNAME
End Sub
ควรแก้ไขอย่างไรดีครับ
Too few parameters. Expected 2
หมายความว่าอย่างไรเหรอครับ
คือผมต้องการให้มันดึง record ที่มีฟิล emp_department เป็น ออฟฟิศ และ มีฟิล emp_position เป็น ผู้จัดการ จากตาราง employee ขึ้นมาแสดงบน YYH_MANAGERNAME ( textbox ) น่ะครับ (ดึงมา แค่สามฟิลคือ คำนำหน้าชื่อ ชื่อและนามสกุล)
โค๊ด ครับ
Private Sub Form_Load()
Dim strDepart As String
Dim strPosit As String
strDepart = "ออฟฟิศ"
strPosit = "ผู้จัดการ"
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("select emp_initial,emp_name,emp_surname from employee where emp_department = '" & strDepart & "' and emp_position = '" & strPosit & "'")
YYH_MANAGERNAME = rst!EMP_INITIAL & " " & rst!EMP_NAME & " " & rst!EMP_SURNAME
End Sub
ควรแก้ไขอย่างไรดีครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R03961
ลองเปลี่ยนเป็น OnOpen ดูครับ
2 @R03964
ลองดูแล้วครับ (ไม่ทราบว่าเปลี่ยนจาก Form_Load เป็น Form_Open ใช่หรือปล่าว) มันก็ไม่ได้เหมือนเดิมน่ะครับ ขึ้น เหมือนเดิมเลย
แต่พอเปลี่ยนเป็น Form_Current() แล้วมันก็ไม่เกิดอะไรขึ้นเลย
แก้ไขอย่างงไรดีครับ
แต่พอเปลี่ยนเป็น Form_Current() แล้วมันก็ไม่เกิดอะไรขึ้นเลย
แก้ไขอย่างงไรดีครับ
3 @R03965
ปัญหาน่าจะอยู่ที่ Select ... ครับ
ดูว่าพิมพ์ชื่อฟีลด์อะไรถูกต้องหรือเปล่า
ถ้ายังไม่ได้ ให้ลอง DLookup() แทนครับ
YYH_MANAGERNAME = DLookup("[emp_initial] & [ emp_name] & ' ' & [emp_surname]", "employee", "[emp_department] = '" & strDepart & "' and [emp_position] = '" & strPosit & "'")
ดูว่าพิมพ์ชื่อฟีลด์อะไรถูกต้องหรือเปล่า
ถ้ายังไม่ได้ ให้ลอง DLookup() แทนครับ
YYH_MANAGERNAME = DLookup("[emp_initial] & [ emp_name] & ' ' & [emp_surname]", "employee", "[emp_department] = '" & strDepart & "' and [emp_position] = '" & strPosit & "'")
Time: 0.1099s