กระทู้เก่าบอร์ด อ.Yeadram
1,098 5
URL.หัวข้อ /
URL
เปิด form แล้วมันไม่ได้ค่าตรงตามที่เลือก
คือผมสร้างฟอร์ม แล้วจะให้ดับเบิ้ลคลิกแล้วเปิดฟอร์มข้อมูลตามที่ดับเบิ้ลคลิกนะครับ แต่มันไม่โชว์ค่าหรือ note ตามที่คลิก ต้องแก้ตรงไหนหรอครับ
Private Sub lstMemo_DblClick(cancel As Integer)
Dim strWhere As String, gstrWhere As String
If Me.lstMemo.ItemsSelected.Count = 0 Then Exit Sub
strWhere = Me.lstMemo.Column(0, Me.lstMemo.ItemsSelected)
gstrWhere = "[ID] = '" & strWhere & "'"
DoCmd.OpenForm ("frmMemo"), acNormal, , "[ID]"
DoCmd.Close acForm, Me.Name
End Sub
Private Sub lstMemo_DblClick(cancel As Integer)
Dim strWhere As String, gstrWhere As String
If Me.lstMemo.ItemsSelected.Count = 0 Then Exit Sub
strWhere = Me.lstMemo.Column(0, Me.lstMemo.ItemsSelected)
gstrWhere = "[ID] = '" & strWhere & "'"
DoCmd.OpenForm ("frmMemo"), acNormal, , "[ID]"
DoCmd.Close acForm, Me.Name
End Sub
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R02635
http://www.thai-access.com/suphap.php?topic_id=485
2 @R02636
คือผมจะให้ข้อมูล ที่เลือกไปขึ้นอีกฟอร์มนะครับ แต่มันไม่ขึ้น
3 @R02637
ไม่ขึ้นเพราะคุณใช้ ItemsSelected ผิดวิธี ลิงค์ที่ให้ไปได้อธิบายวิธีอ้างอิงบรรทัดที่เลือกไว้ใน list เอาไว้แล้ว
4 @R02638
อีกอย่างคือคำสั่ง DoCmd ไม่ได้อ้างถึง gstrWhere
ดังนั้นที่ถูกต้องควรจะเป็น Docmd.OpenForm "frmMemo", acNormal, , gstrWhere
ดังนั้นที่ถูกต้องควรจะเป็น Docmd.OpenForm "frmMemo", acNormal, , gstrWhere
5 @R02639
ขอบคุณมากคับได้แล้ว
Time: 0.2890s