ใส่ค่าใน textbox อัตโนมัติ



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

15 ส.ค. 63 , 20:05:34
อ่าน 137 ครั้ง

napat2020

  • สมาชิกไท.Access
  • กระทู้: 15

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

ใส่ค่าใน textbox อัตโนมัติ
« เมื่อ: 15 ส.ค. 63 , 20:05:34 »
สวัสดีครับอาจารย์ทุกท่าน
รบกวนขอความรู้ด้วยครับผม
 โจทย์ของผมคือ
ผมมี textbox อยู่ 12 ตัว ความต้องการคือ
เมื่อกรอกข้อมูลลง textbox ใดก็ตาม
textbox ถัดไปทั้งหมดจะต้องมีค่าเหมือนกันทั้งหมด ส่วน textbox ก่อนหน้านี้ไม่ต้องเติมข้อมูลใดๆ คือคงค่าไว้
ขอบคุณมากครับผม


 

16 ส.ค. 63 , 19:48:38
ตอบกลับ #1

สันติสุข

: ใส่ค่าใน textbox อัตโนมัติ
« ตอบกลับ #1 เมื่อ: 16 ส.ค. 63 , 19:48:38 »
ควรสร้างเท็กซ์บ็อกซ์ชื่อเดียวกันแต่มีเลขลงท้ายไล่ไปตั้งแต่ 1 ถึง 12   สมมุติชื่อ Textbox1 - 12 
ใส่ sub procedure ไว้ในฟอร์ม

Private Sub CopyText(N As Integer)
   Dim I As Integer

   For I = N+1 to 12
      Me("Textbox" & CStr(I)) = Me("Textbox" & CStr(N))
   Next
End Sub

และในทุก AfterUpdate event procedure ของ Textbox1 - 11 ก็แค่ใส่โค้ด
   Call CopyText(เลขท้ายของ Textbox)
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: UnKnown, napat2020

17 ส.ค. 63 , 05:43:51
ตอบกลับ #2

napat2020

  • สมาชิกไท.Access
  • กระทู้: 15

  • ขอบคุณ ไท.Access

    • ดูรายละเอียด

: ใส่ค่าใน textbox อัตโนมัติ
« ตอบกลับ #2 เมื่อ: 17 ส.ค. 63 , 05:43:51 »
สวัสดีครัย อาจารย์
ผมขอขอบพระคุณมากครับผม

ขอบครับครับผม

 


บอร์ดเรียนรู้ Access สำหรับคนไทย