กระทู้เก่าบอร์ด อ.Yeadram
        
           2,330   6		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        สอนการทำพจนานุกรมหน่อยค่ะ      
    
      ไม่เคยเรียนรู้เรื่อง access เลยค่ะ
ซื้อหนังสือมาเปิดแล้วทำตาม แต่ไม่สามารถหยิบมาใช้กับสิ่งที่ต้องการได้ค่ะ
ไปไม่เป็นเลยค่ะ 
 
(สรุปได้ว่าไม่เข้าใจอะไรเลย)
สถานการณ์เท่าที่ได้ตอนนี้นะคะ
- มี table ที่เป็นฐานข้อมูล 2 table
- มี query จาก table
- มี form จาก query
สิ่งที่ต้องการ
- เมื่อพิมพ์คำลงไปในช่อง inserch word ใน form แล้วกด enter หรือปุ่ม search คำศัพท์ที่ต้องการก็จะแสดงขึ้นมา
โดยสามารถพิมพ์ได้ทั้ง 3 ภาษา (ไทย ญี่ปุ่น อังกฤษ)
ตอนนี้สร้างหน้าตาของฟอร์มได้แบบนี้ค่ะ
 
-ส่วนของ result ที่แสดงความหมายได้ทำการเชื่อมเข้ากับ query แล้ว (ถูกหรือเปล่าคะ)
แต่ช่อง inserch word กับปุ่ม seach เชื่อมยังไง เชื่อมกับตรงไหนเหรอคะ
ถึงจะได้
ขอความกรุณาด้วยค่ะ
ขอบคุณมากๆ ถึงมากที่สุดค่ะ
    
  ซื้อหนังสือมาเปิดแล้วทำตาม แต่ไม่สามารถหยิบมาใช้กับสิ่งที่ต้องการได้ค่ะ
ไปไม่เป็นเลยค่ะ
 
 
(สรุปได้ว่าไม่เข้าใจอะไรเลย)
สถานการณ์เท่าที่ได้ตอนนี้นะคะ
- มี 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 
				
        
    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
    
  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 หรือว่าอะไรคะ
ขอโทษจริงๆค่ะ
    
  ตัวหนังสือที่ให้มาน่ะค่ะ
ต้องเอาไปวางที่ไหนเหรอคะ
พยายามพิจารณาแล้ว ไม่สามารถจริงๆค่ะ
เป็นของ macro หรือว่าอะไรคะ
ขอโทษจริงๆค่ะ
        
    5 @R09519    
        
  
      VB เขียนโค๊ดครับเวลาออกแบบForm  นำไปวางไว้ตรงออกแบบForm ตั้งชื่อให้ตรงกับ ปุ่ม กับ เหตุการณ์ on Click   ชื่อTextBox
ปุ่มชื่อ Seach เกิดเหตุการณ์ เมื่อคลิก Private Sub Seach_Click()
InSerchWord (ชื่อTextBoxไว้ใส่คำ)
จีน (ชื่อTextBox ภาษาจีน)
ไทย (ชื่อTextBox ภาษาไทย)
Eng (ชื่อTextBox ภาษาอังกฤษ)
    
    
  ปุ่มชื่อ Seach เกิดเหตุการณ์ เมื่อคลิก Private Sub Seach_Click()
InSerchWord (ชื่อTextBoxไว้ใส่คำ)
จีน (ชื่อTextBox ภาษาจีน)
ไทย (ชื่อTextBox ภาษาไทย)
Eng (ชื่อTextBox ภาษาอังกฤษ)
        
    6 @R09520    
        
    
      ส่งไฟล์ ตัวอย่างมาให้ผมแก้ไขให้ก็ได้ แต่ Table ไม่ต้องเอาข้อมูลมาหมดนะครับ
คงเยอะ เอามาแค่ 20-30 เรคอร์ด ให้ค้นหาก็พอ [email protected]
    
  คงเยอะ เอามาแค่ 20-30 เรคอร์ด ให้ค้นหาก็พอ [email protected]
      Time: 0.0637s
    
      
		
จะใช้ 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
ประมาณนี้ ลองทำดู