กระทู้เก่าบอร์ด อ.Yeadram
3,261 13
URL.หัวข้อ /
URL
เรื่อง FindRecord ครับ
คือว่าผมสั่งให้มันเปิด forms app แล้วค้นหา JOB_id จาก ข้อมูล JOB_id ใน forms ปัจจุปัน
DoCmd.OpenForm "FRM_app"
DoCmd.FindRecord JOB_id, , , , , acAll, True
จาก code นี้ผมทำแล้วเวลามันไม่เจอ รหัส JOB_id จาก Froms แรก มันก็ไม่ขึ้น error
แต่มันไปที่ Reccord แรกอ่า
ผมอยากให้เวลามันไม่เจอ รหัส JOB_id จาก Froms แรกให้มันขึ้น ข้อความ error
ช่วยผมหน่อยนะครับท่านอาจารย์
DoCmd.OpenForm "FRM_app"
DoCmd.FindRecord JOB_id, , , , , acAll, True
จาก code นี้ผมทำแล้วเวลามันไม่เจอ รหัส JOB_id จาก Froms แรก มันก็ไม่ขึ้น error
แต่มันไปที่ Reccord แรกอ่า
ผมอยากให้เวลามันไม่เจอ รหัส JOB_id จาก Froms แรกให้มันขึ้น ข้อความ error
ช่วยผมหน่อยนะครับท่านอาจารย์
13 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06600
ลองค้นหาในบอร์ดนี้ด้วยคำว่า FindFirst ดูนะครับ
2 @R06602
ครับผม
3 @R06603
ผมไม่เข้าใจอ่ะครับรบกวนหน่อยครับ
4 @R06604
ตรงไหนครับที่ไม่เข้าใจ เอาโค้ดมาวางให้ดูเลย
5 @R06605
ไม่เข้าใจที่ผมไปอ่านดูอ่ะครับ งง งง ผมไม่มีพื้นฐานอะครับ
6 @R06606
เท่าที่ผใลองทำเมื่อกี้ มันก็แค่คันหา record ใน froms นั้นอ่ะครับ
แต่ผมอยากให้มันค้นหาใน forms อื่นครับผม
แต่ผมอยากให้มันค้นหาใน forms อื่นครับผม
7 @R06607
เพราะคุณไม่มีพื้นฐาน จึงยากที่จะมานั่งอธิบายให้ละเอียด เพราะถ้าเขียนให้ละเอียด ก็ไม่ต่างอะไรกับที่เขาเขียนไว้แล้วใน Help File ของ Access แนะนำให้เอาแต่ละคำสั่งไปหาใน Help File เพื่อที่จะได้เข้าใจมากกว่านี้ ผมจะอธิบายเพียงย่อๆเท่านั้น
' ประกาศเรอคอร์ดเซ็ท RS
Dim RS As DAO.Recordset
DoCmd.OpenForm "FRM_app"
' กำหนดให้เรคอร์ดเซ็ท RS เป็นชุดก๊อปปี้ของเรคอร์ดเซ็ทของข้อมูลที่กำลังแสดงในฟอร์ม FRM_app
Set RS = Forms("FRM_app").RecordsetClone
' เลื่อนตำแหน่งเรคอร์ดเซ็ท RS ให้ไปที่เรคอร์ดแรก ถ้าปรากฏว่าเรคอร์ดเซ็ทนั้นมีข้อมูลอยู่
if not RS.EOF then RS.MoveFirst
' ค้นหาเรคอร์ดที่ต้องการ ส่วนสีน้ำเงินอาจมีความแตกต่างกันไปเล็กน้อยขึ้นกับประเภทของข้อมูล
RS.FindFirst "ชื่อฟิลด์ = " & ค่า
' ถ้าหาไม่เจอ ให้แสดงข้อความ
If RS.NoMatch Then
MsgBox "ข้อความเมื่อหาไม่เจอ"
Else ' ถ้าหาเจอ ให้ฟอร์มแสดงเรคอร์ดที่หาเจอ โดยกำหนดให้ตำแหน่งของเรคอร์ดในฟอร์มเป็นตำแหน่งเดียวกับเรคอร์ดในเรคอร์ดเซ็ท RS
Forms("FRM_app").BookMark = RS.Bookmark
Endif
' ปิดเรอคอร์เซ็ทเมื่อไม่ได้ใช้งานแล้ว
RS.Closet: Set RS = Nothing
' ประกาศเรอคอร์ดเซ็ท RS
Dim RS As DAO.Recordset
DoCmd.OpenForm "FRM_app"
' กำหนดให้เรคอร์ดเซ็ท RS เป็นชุดก๊อปปี้ของเรคอร์ดเซ็ทของข้อมูลที่กำลังแสดงในฟอร์ม FRM_app
Set RS = Forms("FRM_app").RecordsetClone
' เลื่อนตำแหน่งเรคอร์ดเซ็ท RS ให้ไปที่เรคอร์ดแรก ถ้าปรากฏว่าเรคอร์ดเซ็ทนั้นมีข้อมูลอยู่
if not RS.EOF then RS.MoveFirst
' ค้นหาเรคอร์ดที่ต้องการ ส่วนสีน้ำเงินอาจมีความแตกต่างกันไปเล็กน้อยขึ้นกับประเภทของข้อมูล
RS.FindFirst "ชื่อฟิลด์ = " & ค่า
' ถ้าหาไม่เจอ ให้แสดงข้อความ
If RS.NoMatch Then
MsgBox "ข้อความเมื่อหาไม่เจอ"
Else ' ถ้าหาเจอ ให้ฟอร์มแสดงเรคอร์ดที่หาเจอ โดยกำหนดให้ตำแหน่งของเรคอร์ดในฟอร์มเป็นตำแหน่งเดียวกับเรคอร์ดในเรคอร์ดเซ็ท RS
Forms("FRM_app").BookMark = RS.Bookmark
Endif
' ปิดเรอคอร์เซ็ทเมื่อไม่ได้ใช้งานแล้ว
RS.Closet: Set RS = Nothing
8 @R06608
ขอบคุณครับบบบบ ซึ้งใจจริงๆ
9 @R06609
รบกวนอีกนิดครับผม RS.FindFirst "ชื่อฟิลด์ = " & ค่า
ตรง ค่า นี้ผมจะเปลี่ยนค้นตามตาม ค่าใน ฟิลด์ ใน froms แรกได้ปะครับแล้วต้ิองทำยังไงครับ
ตรง ค่า นี้ผมจะเปลี่ยนค้นตามตาม ค่าใน ฟิลด์ ใน froms แรกได้ปะครับแล้วต้ิองทำยังไงครับ
10 @R06610
RS.FindFirst "JOB_id =" & Me.JOB_id
แบบนี้มันก็ขึ้น error 3070 อ่ะครับ ไม่เข้าใจ
แบบนี้มันก็ขึ้น error 3070 อ่ะครับ ไม่เข้าใจ
11 @R06611
ได้แล้วครับ
"[่JOB_id]=""" & Me![JOB_id] & """"
ขอบคุณ
คุณ สันติสุข
"[่JOB_id]=""" & Me![JOB_id] & """"
ขอบคุณ
คุณ สันติสุข
12 @R06636
เดานะครับ
RS.FindFirst "JOB_id =" & Forms.Form_app.JOB_id
แบบนี้มันจะหาเจอมะครับ
RS.FindFirst "JOB_id =" & Forms.Form_app.JOB_id
แบบนี้มันจะหาเจอมะครับ
13 @R06637
ลืมอ่านดูว่าได้แล้ว
ลืมอ่านดูว่าได้แล้ว
Time: 0.3536s
