กระทู้เก่าบอร์ด อ.Yeadram
        
           2,159   3		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        สร้างปุ่ม ค้นหา จาก combobox 2อัน      
    
      จะรบกวนสอบถามนะค่ะ
คือตอนนี้ หญิงทำ combobox 2อัน
อันที่ 1 ให้เลือก ยี่ห้อรถ ชื่อคือ cmbmake
อันที่ 2. ให้เลือก รุ่นรถ ชื่อคือ combo2
โดยที่ 2 combobox ลิงค์กันเรียบร้อย
แต่ติดปัญหาที่ว่าจะ สร้างปุ่ม Search เพื่อหาข้อมูลที่ระบุใน combobox 2อันนี้
โดยจะให้เปิดฟอร์ม อีกฟอร์มนึงที่สร้างรอไว้แล้วนะค่ะ
รบกวนด้วยนะค่ะ ลองเขียนโค้ดหลายวิธี แต่ไม่ได้สักที
รับกวนด้วยนะค่ะ
    
  คือตอนนี้ หญิงทำ combobox 2อัน
อันที่ 1 ให้เลือก ยี่ห้อรถ ชื่อคือ cmbmake
อันที่ 2. ให้เลือก รุ่นรถ ชื่อคือ combo2
โดยที่ 2 combobox ลิงค์กันเรียบร้อย
แต่ติดปัญหาที่ว่าจะ สร้างปุ่ม Search เพื่อหาข้อมูลที่ระบุใน combobox 2อันนี้
โดยจะให้เปิดฟอร์ม อีกฟอร์มนึงที่สร้างรอไว้แล้วนะค่ะ
รบกวนด้วยนะค่ะ ลองเขียนโค้ดหลายวิธี แต่ไม่ได้สักที
รับกวนด้วยนะค่ะ
				3 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    1 @R11268    
        
  
      ลองส่ง รูป Form ที่สร้างไว้ และ code ที่ลองแล้วคิดว่าใกล้เคียง หรือ ที่ถนัดมาให้ดูก่อนดีกว่าครับ จะได้ต่อยอดจากที่มีได้
    
  
        
    2 @R11270    
        
  
      ขอ แจม นะครับ
ใช่ จินตนาการ แบบนี้มั้ย
ปุ่ม search
Dim strDocName as string
Dim strLinkCriteria as string
'ตรวจสอบ ยี่ห้อรถ cmbMake
if Not Isnull(cmbMake) then
'ตรวจสอบ รุ่นรถ combo2
if not isnull(commbo2) then
strLinkCriteria="[ยี่ห้อรถ]='" & cmbMake & "' AND " & _
"[รุ่นรถ] ='" & combo2 & "'"
docmd.OpenForm "ชื่อฟอร์มที่ต้องการเปิด",,,strLinkCriteria
else
msgbox "ต้องเลือกรุ่นรถ ก่อน"
exit sub
end if
Else
msgbox "ต้องเลือกยี่ห้อรถ ก่อน"
exit sub
End if
    
    
  ใช่ จินตนาการ แบบนี้มั้ย
ปุ่ม search
Dim strDocName as string
Dim strLinkCriteria as string
'ตรวจสอบ ยี่ห้อรถ cmbMake
if Not Isnull(cmbMake) then
'ตรวจสอบ รุ่นรถ combo2
if not isnull(commbo2) then
strLinkCriteria="[ยี่ห้อรถ]='" & cmbMake & "' AND " & _
"[รุ่นรถ] ='" & combo2 & "'"
docmd.OpenForm "ชื่อฟอร์มที่ต้องการเปิด",,,strLinkCriteria
else
msgbox "ต้องเลือกรุ่นรถ ก่อน"
exit sub
end if
Else
msgbox "ต้องเลือกยี่ห้อรถ ก่อน"
exit sub
End if
        
    3 @R11273    
        
    
      รูป ของ combobox นะค่ะ
 
รูปของ from หลักนะค่ะ
 
หญิงยังทำไม่ได้เลยนะค่ะ
    
   
รูปของ from หลักนะค่ะ
 
หญิงยังทำไม่ได้เลยนะค่ะ
      Time: 0.0800s
    
      
		