กรอกข้อมูล
กระทู้เก่าบอร์ด อ.Yeadram

 1,381   8
URL.หัวข้อ / URL
กรอกข้อมูล

อยากสอบถามว่าคือเราสร้างโปรแกรมให้บันทึกข้อมูลขึ้นมา
อันดับแรกเราต้องการสร้างให้ผู้ป้อนข้อมูลว่ามีข้อมูลกี่รายการ สมมุติมี 2 รายการ
แล้วเมื่อเราใส่เลข2ไปแล้ววจะมีช่องให้ใส่ขึ้นมาแค่2รายการ
*ถ้าเราใส่เลข3 ก็จะมีช่องให้กรอกข้อมูล 3 รายการขึ้นมา
*ถ้าเราใส่เลข1 ก็จะมีช่องให้กรอกข้อมูล 1 รายการขึ้นมา
พอจะมีวิธีแนะนำบ้างไหมครับ

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

1 @R01016
มาให้กำลังใจครับ
ผมก็อยากได้แบบคล้าย ๆ ๆนี้เหมือนกัน กำลังหาวิธีอยู่ครับ
รอด้วยคน
2 @R01017
อ่านก่อนครับ http://thai-access.com/yeadram_view.php?topic_id=47

ถ้ายังไม่ตรงหรือยังไม่ได้แนวทางใดๆ เลยจากกระทู้นั้น ก็ถามเพิ่มมาได้ครับ

ถ้าคิดว่าการใช้โค้ดเพื่อเพิ่มหรือลด คอนโทรล ในขณะรัน น่าสนใจและอยากได้ตัวอย่างโค้ด อาจต้องอ่านกระทู้นี้ด้วยครับ
http://thai-access.com/yeadram_view.php?topic_id=35
3 @R01018
ลองไป download ศึกษาดูครับ
http://freefilehosting.net/download/42669

ผมทำให้เป็นตัวอย่างเท่านั้น ใช้
"ชื่อ field".visible = false
"ชื่อ field".visible = true
4 @R01047
ขอบคุณครับผมดาวน์โหลดมาศึกษาแล้ว
แต่อยากสอบถามเพิ่มนิดหนึ่งในกรณีของผมสร้าง Textbox เพิ่มขึ้นมาอีก
ที่นี้มันมีปัญหาที่เมื่อเราใส่เลข1 แล้วenter เคเซอร์มันก็จะไปที่Textbox ที่เราสร้างขึ้นมาใหม่ ทำอย่างไรเมื่อเราใส่เลขที่ 1 หรือ 2 หรือ 3 โดยกำหนดให้เคเซอร์จะต้องไปอยู่ที่ Text2 โดยอัตโนมัตครับ
5 @R01048
6 @R01053
ผมไม่ได้โหลดตัวอย่างมาดูนะครับ
แต่ผมเห็นท้าย ๆ ของความเห็น มีคำถาม
"ทำอย่างไรเมื่อเราใส่เลขที่ 1 หรือ 2 หรือ 3 โดยกำหนดให้เคอร์เซอร์จะต้องไปอยู่ที่ Text2 โดยอัตโนมัติครับ"
ผมคิดว่าน่าจะช่วยได้ (หรือเปล่า?)

การกำหนดตำแหน่งของ เคอร์เซอร์ ไม่ว่าจะอยู่ในเหตุการณ์ใดๆ
ชื่อคอนโทรล.setfocus

เช่นจากโจทก์ในกระทู้ ก็ลำดับงานดังนี้

คำสั่ง สร้าง textbox
text2.setfocus

7 @R01054
เพิ่ม
If Text0 = 0 Then
     Text2.visible = False
     Text4.visible = False
     Text6.visible = False
     Text8.visible = False
Else
เพื่อไม่ให้ไป Text2 เวลาใส่ ค่า 0

เพิ่ม

Private Sub Text0_KeyPress(KeyAscii As Integer)
     Text2.visible = True
End Sub


setfocus ไม่ได้เพราะเราทำ visible=false ไว้ครับมัน check หลัง enter แล้วทำให้กระโดดไป field ที่ visible


8 @R01060
ขอบคุณครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3268s