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

[napat2020]

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

[สันติสุข]

ควรสร้างเท็กซ์บ็อกซ์ชื่อเดียวกันแต่มีเลขลงท้ายไล่ไปตั้งแต่ 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)

[napat2020]

สวัสดีครัย อาจารย์
ผมขอขอบพระคุณมากครับผม

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

[khwan ratsame]

ผมมี ฟอร์มหลัก มี textbox ชื่อ text1   
และมีฟอร์มลอง มี textbox ชื่อ text2
จะสามารถ ใส่ข้อความจาก text1 ฟอร์มหลัก
ฟอร์มลอง text2 ก็ขึ้นข้อความด้วย
ทำได้ไหมครับแบบนี้

[UnKnown]

Private Sub text1_AfterUpdate()
        Me.ชื่อฟอร์มย่อย.Form.text2 = Me.text1

        Me.Recalc
End Sub