สอนการทำพจนานุกรมหน่อยค่ะ
กระทู้เก่าบอร์ด อ.Yeadram

 2,166   6
URL.หัวข้อ / URL
สอนการทำพจนานุกรมหน่อยค่ะ

ไม่เคยเรียนรู้เรื่อง access เลยค่ะ
ซื้อหนังสือมาเปิดแล้วทำตาม แต่ไม่สามารถหยิบมาใช้กับสิ่งที่ต้องการได้ค่ะ
ไปไม่เป็นเลยค่ะ
(สรุปได้ว่าไม่เข้าใจอะไรเลย)

สถานการณ์เท่าที่ได้ตอนนี้นะคะ
- มี table ที่เป็นฐานข้อมูล 2 table
- มี query จาก table
- มี form จาก query

สิ่งที่ต้องการ
- เมื่อพิมพ์คำลงไปในช่อง inserch word ใน form แล้วกด enter หรือปุ่ม search คำศัพท์ที่ต้องการก็จะแสดงขึ้นมา
โดยสามารถพิมพ์ได้ทั้ง 3 ภาษา (ไทย ญี่ปุ่น อังกฤษ)

ตอนนี้สร้างหน้าตาของฟอร์มได้แบบนี้ค่ะ


-ส่วนของ result ที่แสดงความหมายได้ทำการเชื่อมเข้ากับ query แล้ว (ถูกหรือเปล่าคะ)
แต่ช่อง inserch word กับปุ่ม seach เชื่อมยังไง เชื่อมกับตรงไหนเหรอคะ
ถึงจะได้

ขอความกรุณาด้วยค่ะ
ขอบคุณมากๆ ถึงมากที่สุดค่ะ

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

1 @R09171
'หมายเหตุ InSerchWord ก็คือTextBox ไม่มีข้อมูลอะไร
จะใช้ Private Sub Seach_Click()หรือPrivate Sub InSerchWord_AfterUpdate() ก็ได้

Private Sub Seach_Click()
DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.ไทย.SetFocus
docmd.FindRecord InSerchWord

DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.Eng.SetFocus
docmd.FindRecord InSerchWord

DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.จีน.SetFocus
docmd.FindRecord InSerchWord

End Sub
ประมาณนี้ ลองทำดู
2 @R09172
Private Sub Seach_Click()
DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.ไทย.SetFocus
docmd.FindRecord InSerchWord
If InSerchWord = ไทย then Exit Sub    

DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.Eng.SetFocus
docmd.FindRecord InSerchWord
If InSerchWord = Eng then Exit Sub

DoCmd.GoToRecord acDataForm, Me.name, acFirst
me.จีน.SetFocus
docmd.FindRecord InSerchWord
If InSerchWord = จีน then Exit Sub   

End sub
3 @R09176
ขอบคุณมากๆเลยนะคะ สำหรับคำแนะนำ
เดี๋ยวไปลองทำดูก่อน
ได้ผลยังไงจะมารายงานให้ทราบอีกครั้งค่ะ
4 @R09206
สวัสดีค่ะ คุณ Propat

ตัวหนังสือที่ให้มาน่ะค่ะ
ต้องเอาไปวางที่ไหนเหรอคะ
พยายามพิจารณาแล้ว ไม่สามารถจริงๆค่ะ

เป็นของ macro หรือว่าอะไรคะ

ขอโทษจริงๆค่ะ
5 @R09519
VB เขียนโค๊ดครับเวลาออกแบบForm นำไปวางไว้ตรงออกแบบForm ตั้งชื่อให้ตรงกับ ปุ่ม กับ เหตุการณ์ on Click   ชื่อTextBox
ปุ่มชื่อ Seach เกิดเหตุการณ์ เมื่อคลิก Private Sub Seach_Click()
InSerchWord   (ชื่อTextBoxไว้ใส่คำ)
จีน (ชื่อTextBox ภาษาจีน)
ไทย (ชื่อTextBox ภาษาไทย)
Eng (ชื่อTextBox ภาษาอังกฤษ)
6 @R09520
ส่งไฟล์ ตัวอย่างมาให้ผมแก้ไขให้ก็ได้ แต่ Table ไม่ต้องเอาข้อมูลมาหมดนะครับ
คงเยอะ เอามาแค่ 20-30 เรคอร์ด ให้ค้นหาก็พอ propat@sanook.com
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2448s