กระทู้เก่าบอร์ด อ.Yeadram
4,915 23
URL.หัวข้อ /
URL
อยากแสดงรายกานลงใน command botton
รบกวนสอบถามหน่อยครับว่า
table test1 ผมมีฟิลด์ชื่อว่า item
aa
bb
cc
dd
อยากให้แสดง command botton ใน form โดยแสดงเป็น
command botton1 aa, command botton2 bb
command botton3 cc, command botton4 dd
หรือถ้า command botton ทำไม่ได้แล้วใช้ตัวไหนทำได้ในลักษณะนี้บ้างครับ
ขอบคุณมากครับ
table test1 ผมมีฟิลด์ชื่อว่า item
aa
bb
cc
dd
อยากให้แสดง command botton ใน form โดยแสดงเป็น
command botton1 aa, command botton2 bb
command botton3 cc, command botton4 dd
หรือถ้า command botton ทำไม่ได้แล้วใช้ตัวไหนทำได้ในลักษณะนี้บ้างครับ
ขอบคุณมากครับ
23 Reply in this Topic. Dispaly 2 pages and you are on page number 2
22 @R04783
ในฟอร์มหลัก - ในโค้ดของปุ่ม cmdList - ในลูป
ก่อนนี้คุณใช้
frm.Controls("btt" & Format(y, "00")).Caption = rs("FAMILY_CD")
ให้เปลี่ยนเป็นเขียนสองคำสั่งดังนี้
frm.Controls("btt" & Format(y, "00")).Caption = rs("DESCS")
frm.Controls("btt" & Format(y, "00")).ControlTipText = rs("FAMILY_CD")
ในฟอร์มย่อย - ในโค้ดฟังก์ชั่น insCaption - ในประโยค sql ที่คุณจะนำเป็น เรคคอร์ดเซ็ต - ใน ส่วนของ Where - ให้คุณเปลี่ยนจาก caption เป็น ControlTipText
ดังนี้ ของเก่า
rs.Open "Select * from tblMenu where FAMILY_CD = '" & Me(bttName).Caption & "' ;", CurrentProject.Connection, 1
ให้เปลี่ยนเป็น
rs.Open "Select * from tblMenu where FAMILY_CD = '" & Me(bttName).ControlTipText & "' ;", CurrentProject.Connection, 1
แม้เราจะใช้ คำอธิบายเป็นตัวโชว์ แต่เรายังต้องใช้ รหัสของมันในการทำงานอยู่ดี และเมื่อความต้องการของเรา ไม่สามารถให้ รหัสมันมาอยู่ใน caption ได้ ก็ต้องหาทางเอาไปฝากไว้ที่อื่น ในคอนโทรล แต่ละชนิดมีที่ฝากหลายที่ครับ อย่างน้อยๆ ก็ที่พาทำนี่แหละครับ คือ ControlTipText
ลองใช้วิธีนี้ประยุกต์ใช้กับงานอื่นๆ ดูนะครับ
ก่อนนี้คุณใช้
frm.Controls("btt" & Format(y, "00")).Caption = rs("FAMILY_CD")
ให้เปลี่ยนเป็นเขียนสองคำสั่งดังนี้
frm.Controls("btt" & Format(y, "00")).Caption = rs("DESCS")
frm.Controls("btt" & Format(y, "00")).ControlTipText = rs("FAMILY_CD")
ในฟอร์มย่อย - ในโค้ดฟังก์ชั่น insCaption - ในประโยค sql ที่คุณจะนำเป็น เรคคอร์ดเซ็ต - ใน ส่วนของ Where - ให้คุณเปลี่ยนจาก caption เป็น ControlTipText
ดังนี้ ของเก่า
rs.Open "Select * from tblMenu where FAMILY_CD = '" & Me(bttName).Caption & "' ;", CurrentProject.Connection, 1
ให้เปลี่ยนเป็น
rs.Open "Select * from tblMenu where FAMILY_CD = '" & Me(bttName).ControlTipText & "' ;", CurrentProject.Connection, 1
แม้เราจะใช้ คำอธิบายเป็นตัวโชว์ แต่เรายังต้องใช้ รหัสของมันในการทำงานอยู่ดี และเมื่อความต้องการของเรา ไม่สามารถให้ รหัสมันมาอยู่ใน caption ได้ ก็ต้องหาทางเอาไปฝากไว้ที่อื่น ในคอนโทรล แต่ละชนิดมีที่ฝากหลายที่ครับ อย่างน้อยๆ ก็ที่พาทำนี่แหละครับ คือ ControlTipText
ลองใช้วิธีนี้ประยุกต์ใช้กับงานอื่นๆ ดูนะครับ
23 @R04784
ขอบคุณมากครับ อ.yeadram
Time: 0.4154s
ผมได้ลองไปปรับตามตัวอย่างที่ อ. ให้ไว้แล้วนะครับ
ผมก็เลยส่งไฟล์กลับมาให้ อ. ได้ดู อยู่ใน gmail accboard@gmail.com
แต่ผมติดปัญหาคือ ใน tblFamily ซึ่งแสดงในฟอร์มแรก ผมอยากให้แสดง DESCS เป็น description ใน command button
และเมือกด command button เข้าไป ก็จะแสดง tblMenu ในฟอร์ม2 โดยให้ใช้ field FAMILY_CD ในการอ้างอิงครับ
ขอบคุณมากครับ