การเก็บค่าInputตามDigitที่กำหนดไว้


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

28 พ.ค. 61 , 15:26:19
ตอบกลับ #16

Earth

: การเก็บค่าInputตามDigitที่กำหนดไว้
« ตอบกลับ #16 เมื่อ: 28 พ.ค. 61 , 15:26:19 »
อ่อ แก้แล้วค่ะ Error


โค้ด
โค๊ด: [Select]
Private Sub Command72_Click()
Dim l           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String

For Each Tx In Split("QRID,Summarystage,PartNo,LotNo,Qty,Space1,IssueDate,Space2,SerialNo,PartName,Remark1,Remark2,PONo,RoHS", ",")
    Set TxCtrl = Forms("Table1")(Tx)
    l = CurrentDb.TableDefs("Table1")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(192), l)
Next

Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("Table2")
    rst.AddNew
    rst!Result = Str

    rst.Update
End Sub

 

28 พ.ค. 61 , 15:40:00
ตอบกลับ #17

สันติสุข

: การเก็บค่าInputตามDigitที่กำหนดไว้
« ตอบกลับ #17 เมื่อ: 28 พ.ค. 61 , 15:40:00 »
เท็กซ์บ็อกซ์ด้านขวา เป็นชื่อ Text... ทั้งนั้นเลย ต้องแก้ให้เป็น Space2,SerialNo,...
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 
โพสต์นี้ได้รับคำขอบคุณจาก: Earth

28 พ.ค. 61 , 16:04:45
ตอบกลับ #18

Earth

: การเก็บค่าInputตามDigitที่กำหนดไว้
« ตอบกลับ #18 เมื่อ: 28 พ.ค. 61 , 16:04:45 »
พลาดตรงนี้เอง ขอบคุณมากค่ะ :miao:

 

26 มิ.ย. 61 , 14:36:02
ตอบกลับ #19

Earth

: การเก็บค่าInputตามDigitที่กำหนดไว้
« ตอบกลับ #19 เมื่อ: 26 มิ.ย. 61 , 14:36:02 »
สอบถามอาจารย์ค่ะ โค้ดนี้สามารถนำมาประยุกต์บน vb.net ได้อย่างไรบ้างคะ


โค้ดที่ทำการหาข้อความผลลัพธ์ เอาชื่อฟอร์มและเทเบิลที่ถูกต้องมาใส่แทนด้วยครับ

โค๊ด: [Select]
Dim L           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String   ' เก็บข้อความผลลัพธ์

For Each Tx In Split("ITEM ID,NAME,LOT", ",")  ' ลิสท์รายชื่อของเท็กซ์บ็อกซ์ คั่นแต่ละชื่อด้วยเครื่องหมาย "," และจะมีกี่ชื่อก็ได้
    Set TxCtrl = Forms("ชื่อฟอร์ม")(Tx)
    L = CurrentDb.TableDefs("ชื่อเทเบิล")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(255), L)
Next

 

26 มิ.ย. 61 , 15:14:07
ตอบกลับ #20

สันติสุข

: การเก็บค่าInputตามDigitที่กำหนดไว้
« ตอบกลับ #20 เมื่อ: 26 มิ.ย. 61 , 15:14:07 »
ไม่ทราบครับ ไม่มีความรู้ VB.NET ครับ
ช่วยพกถุงผ้า/ถุงพลาสติกใช้แล้วไปซื้อของเพื่อลดการใช้พลาสติก ขยะ รักษาสิ่งแวดล้อม และไม่ให้ภาวะโลกร้อนวิกฤติเร็วขึ้นกว่านี้
ช่วยคลิกโฆษณาข้างล่างนี้ เพื่อสนับสนุนเวปบอร์ดด้วยครับ
:nice day:
 


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