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


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

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

napat2020

ใส่ค่าใน 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

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

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

 
โพสต์นี้ได้รับคำขอบคุณจาก: khwan ratsame

14 ต.ค. 66 , 13:24:10
ตอบกลับ #3

khwan ratsame

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

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

: ใส่ค่าใน textbox อัตโนมัติ
« ตอบกลับ #3 เมื่อ: 14 ต.ค. 66 , 13:24:10 »
ผมมี ฟอร์มหลัก มี textbox ชื่อ text1   
และมีฟอร์มลอง มี textbox ชื่อ text2
จะสามารถ ใส่ข้อความจาก text1 ฟอร์มหลัก
ฟอร์มลอง text2 ก็ขึ้นข้อความด้วย
ทำได้ไหมครับแบบนี้

 

14 ต.ค. 66 , 15:28:47
ตอบกลับ #4

UnKnown

: ใส่ค่าใน textbox อัตโนมัติ
« ตอบกลับ #4 เมื่อ: 14 ต.ค. 66 , 15:28:47 »
Private Sub text1_AfterUpdate()
        Me.ชื่อฟอร์มย่อย.Form.text2 = Me.text1

        Me.Recalc
End Sub
:ninja:     ลองคิด,ลองทำแนวคนไม่เก่งแอคเซส
หมายเหตุ เพื่อความปลอดภัยโปรดสำรองข้อมูลใว้ก่อนการแก้ไข
 


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


 

Sitemap 1 2 3 4 5