กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
342 5
URL.หัวข้อ /
URL
อยากจะเปลี่ยน PK จาก Text เป็น AutoNumber
ผมได้แนบ File ตัวอย่าง Search ของ อ. สุภาพ
อยากจะขออนุญาติ แก้ไขนิดหน่อย โดยเปลี่ยน
PK จาก Text เป็น AutoNumber ปัญหาคือ
การประกาศค่าตัวแปร string ให้เป็น integer
และไม่ทราบทำอย่างไร ครับให้ query รับค่า
in ( ) แล้วส่งไป Show ที่ Form
ขอความกรุณาท่านผู้รู้ด้วยครับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06161
ผมได้ลองเปลี่ยนโค๊ดตามคำแนะนำของ อาจารย์
แต่ยังไม่ได้ครับ ไม่ทราบจะทำอย่างไรต่อดีครับ
PK เดิมเป็น Text แล้วผมเปลี่ยน PK เป็น AutoNumber
ปรากฏว่าหลังจากเลือกใน Combo box แล้ว กลายเป็น
Show รหัสพนักงาน แทน ชื่อพนักงาน (ต้องการ show ชื่อพนักงาน)
ขอความอนุเคราะห์ อาจารย์อีกครั้งครับ
ขอบพระคุณอย่างสูง
แต่ยังไม่ได้ครับ ไม่ทราบจะทำอย่างไรต่อดีครับ
PK เดิมเป็น Text แล้วผมเปลี่ยน PK เป็น AutoNumber
ปรากฏว่าหลังจากเลือกใน Combo box แล้ว กลายเป็น
Show รหัสพนักงาน แทน ชื่อพนักงาน (ต้องการ show ชื่อพนักงาน)
ขอความอนุเคราะห์ อาจารย์อีกครั้งครับ
ขอบพระคุณอย่างสูง
3 @R06237
ขอความอนุเคราะห์ อาจารย์หรือท่านผู้รู้ อีกครั้งครับ
4 @R06238
1.ตรงความกว้างสดัมภ์( cboFirstName)=0ซม.;3ซม.;3ซม.
2.ตรงนี้ตัด ' ออก txtListName = "" & cboFirstName.Value & ""
3.ตรงนี้ใช่แบบนี้หรือเปล่าครับ SQLStr = "Select tblEmployee.EmployeeID,tblEmployee.FirstName,tblEmployee.LastName,tblEmployee.Section," & _
"tblEmployee.Salary,tblEmployee.HomeAddress,tblEmployee.HomeTelephone,tblEmployee.Picture" & _
" From tblEmployee Where EmployeeID In(" & txtListName & " )" เพราะถ้าเป็นแบบตัวอย่างที่ให้มาจะไม่มีข้อมูลให้รายงานครับ
2.ตรงนี้ตัด ' ออก txtListName = "" & cboFirstName.Value & ""
3.ตรงนี้ใช่แบบนี้หรือเปล่าครับ SQLStr = "Select tblEmployee.EmployeeID,tblEmployee.FirstName,tblEmployee.LastName,tblEmployee.Section," & _
"tblEmployee.Salary,tblEmployee.HomeAddress,tblEmployee.HomeTelephone,tblEmployee.Picture" & _
" From tblEmployee Where EmployeeID In(" & txtListName & " )" เพราะถ้าเป็นแบบตัวอย่างที่ให้มาจะไม่มีข้อมูลให้รายงานครับ
5 @R06267
ทำได้แล้วครับ ขอบคุณมากครับคุณ sjs
Time: 0.0949s
txtListName = txtListName & "," & "'" & cboFirstName.Value & "'"
ไปเป็น
txtListName = txtListName & "," & cboFirstName.Value