กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
294 3
URL.หัวข้อ /
URL
ต้องการความช่วยเหลือครับ
เรียน อ.สุภาพ, อ.BADMan และผู้รู้ทุกท่าน
ผมได้ทำโปรแกรม Filing ตามไฟล์ประกอบที่แนบมาครับ ความต้องการผมคือ
1. เปิด Form file1 ถ้ามี record ใหม่ ก็ใส่ record ใหม่ได้เลยตามปกติ
2. แต่ถ้าต้องการค้นหา record เก่าเพื่อดูหรือแก้ไข ให้กดปุ่ม Search จะปรากฎ Form Search ขึ้น
มา
3. เลือก record จาก file_id (cboFileID) ตามที่ต้องการ แล้วข้อมูลทุกตัวจะปรากฎขึ้นมาเอง
4. กดปุ่ม Search โปรแกรมจะทำการดึงข้อมูลทุกตัวมาปรากฎที่ Form file1
5. ปิด Form Search
ปัญหาคือไม่สามารถดึงข้อมูลได้ ลองดูตัวอย่าง ไฟล์ประกอบอาจจะเข้าใจมากกว่าครับ
ขอบคุณทุกท่านล่วงหน้าครับ
ผมได้ทำโปรแกรม Filing ตามไฟล์ประกอบที่แนบมาครับ ความต้องการผมคือ
1. เปิด Form file1 ถ้ามี record ใหม่ ก็ใส่ record ใหม่ได้เลยตามปกติ
2. แต่ถ้าต้องการค้นหา record เก่าเพื่อดูหรือแก้ไข ให้กดปุ่ม Search จะปรากฎ Form Search ขึ้น
มา
3. เลือก record จาก file_id (cboFileID) ตามที่ต้องการ แล้วข้อมูลทุกตัวจะปรากฎขึ้นมาเอง
4. กดปุ่ม Search โปรแกรมจะทำการดึงข้อมูลทุกตัวมาปรากฎที่ Form file1
5. ปิด Form Search
ปัญหาคือไม่สามารถดึงข้อมูลได้ ลองดูตัวอย่าง ไฟล์ประกอบอาจจะเข้าใจมากกว่าครับ
ขอบคุณทุกท่านล่วงหน้าครับ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R02258
แก้ใขปัญหาได้แล้วครับ ขอบคุณ อ.สุภาพมากครับ
อาจมีเรื่องรบกวนอีกใน File นี้ ยังไงก็ขอความกรุณาด้วยนะครับ
ขอบคุณอีกครั้งครับ
อาจมีเรื่องรบกวนอีกใน File นี้ ยังไงก็ขอความกรุณาด้วยนะครับ
ขอบคุณอีกครั้งครับ
3 @R02260
ได้แจ้งไว้ข้างในด้วยหรือเปล่าครับ
ผมจะดูใหม่อีกที
ผมจะดูใหม่อีกที
Time: 0.1622s
Private Sub cmdSearch_Click()
On Error GoTo Err_cmdSearch_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "file1"
DoCmd.OpenForm stDocName, , , "file_id =" & Forms!search!cboFileID
DoCmd.Close acForm, "Search"
Exit_cmdSearch_Click:
Exit Sub
Err_cmdSearch_Click:
MsgBox Err.Description
Resume Exit_cmdSearch_Click
End Sub