... เรียนอาจารย์สุภาพครับ ...
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 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

ควรแก้ไขอย่างไรดีครับ

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() แล้วมันก็ไม่เกิดอะไรขึ้นเลย

แก้ไขอย่างงไรดีครับ
3 @R03965
ปัญหาน่าจะอยู่ที่ Select ... ครับ

ดูว่าพิมพ์ชื่อฟีลด์อะไรถูกต้องหรือเปล่า

ถ้ายังไม่ได้ ให้ลอง DLookup() แทนครับ

YYH_MANAGERNAME = DLookup("[emp_initial] & [ emp_name] & ' ' & [emp_surname]", "employee", "[emp_department] = '" & strDepart & "' and [emp_position] = '" & strPosit & "'")
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1099s