เปิดฟอร์มที่เราต้องการ
กระทู้เก่าบอร์ด อ.Yeadram

 1,687   8
URL.หัวข้อ / URL
เปิดฟอร์มที่เราต้องการ

ทำการสร้างฟอร์มขึ้น2 ฟอร์มค่ะ
เมื่อทำการกรอกข้อมูลในฟอร์มที่ 1 แล้ว เมื่อคลิกที่ปุ่มข้างหลัง ตามรูปที่ 1
จะใ้ห้เปิดฟอร์มที่ 2 เพื่อทำการกรอกข้อมูลส่วนที่เหลือลงไป
แต่เมื่อกดปุ่มข้างหลังแล้ว ฟอร์มที่ 2 จะไม่ลิงค์กับฟอร์มที่ 1 ค่ะ
จะโชว์ข้อมูลแรกของตาราง ไม่โชว์ข้อมูลที่เราคลิกค่ะ
ไม่ทราบว่าต้องเขียนโค้ดยังไงค่ะ
รูปฟอร์มที่ 1

8 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06187
รูปฟอร์มที่ 2 ค่ะ
2 @R06188
ลองค้นเวปบอร์ดนี้ด้วยคำว่า "openform" หรือ "rowsource" ดูครับ คำถามลักษณะนี้มีคนถาม-ตอบเยอะแล้ว
3 @R06191
ถ้าเอาแบบง่ายสุดๆก็ใช้ตัว wizard สร้าง form ที่ 2 ครับ
จะมีขั้นตอนนึงที่ถามว่าตอน open form จะให้ filter หรือไม่ ก็ตอบว่าให้ filter
แล้วก็ set บอกมันว่า filter จาก field อะไร
4 @R06197
ทำได้แล้ว
ขอบคุณค่ะ แดน มากนะค่ะ
5 @R06252
รบกวนถามอีกครั้งค่ะ
เมื่อเรา คลิกปุ่ม ที่ฟอร์มที่ 1 แล้วเวลาิลิงค์ไป
ฟอร์มที่ 2 ที่เราจะไม่แสดงรายละเอียดในทันที่ค่ะ
จะต้องปิดหน้าฟอร์มที่ 2 ก่อน แล้วเปิดใหม่อีกครั้งถึงจะโชว์ให้ค่ะ
ไม่ทราบว่าจะต้องเขียนโค้ด หรือว่าตั้งตรงไหนค่ะ
ขอบคุณค่ะ
6 @R06261
แหล่งข้อมูลของฟอร์ม 1 คืออะไร
แหล่งข้อมูลของฟอร์ม 2 คืออะไร
เกี่ยวข้องกันหรือเปล่า มีการ Lock ข้อมูลไว้หรือเปล่า (ดูจากคุณสมบัติของฟอร์ม)

โค้ดในปุ่มคำสั่งเขียนว่าอย่างไร
ลองต่อท้ายด้วยคำสั่งว่า
Forms("ชื่อฟอร์ม2").Requery
ดูหรือยัง
7 @R06269
คือว่าทั้งฟอร์มที่ 1 และ ฟอร์มที่ 2 เชื่อมกันด้วย filed HN ค่ะ
โดยตอนที่สร้างการลิงค์จากฟอร์มที่ 1 ไปยังฟอร์มที่ 2
ทำตามขั้นตอนที่คุณ แดน แนะนำค่ะ
โค้ดในปุ่มคำสั่ง
Private Sub Command28_Click()
On Error GoTo Err_Command28_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "person"
    
    stLinkCriteria = "[HN]=" & "'" & Me![HN] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command28_Click:
    Exit Sub

Err_Command28_Click:
    MsgBox Err.Description
    Resume Exit_Command28_Click
    
End Sub
8 @R06272
แหล่งข้อมูลของฟอร์ม 1 คืออะไร
แหล่งข้อมูลของฟอร์ม 2 คืออะไร
แหล่งข้อมูลของพวกมัน เกี่ยวข้องกันหรือเปล่า หรือเป็นตารางเดียวกันหรือเปล่า หรือเป็นคิวรี่เดียวกันหรือเปล่า มีการ Lock ข้อมูลไว้หรือเปล่า (ดูจากคุณสมบัติของฟอร์ม)

โค้ดในปุ่มคำสั่งเขียนว่าอย่างไร
ลองต่อท้ายด้วยคำสั่งว่า
Forms("ชื่อฟอร์ม2").Requery

เช่น
Private Sub Command28_Click()
DoCmd.OpenForm "person", , , "[HN]=" & "'" & Me![HN] & "'"
Forms("person").Requery
End Sub

ดูหรือยัง
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3397s