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

[Earth]

อ่อ แก้แล้วค่ะ 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

[สันติสุข]

เท็กซ์บ็อกซ์ด้านขวา เป็นชื่อ Text... ทั้งนั้นเลย ต้องแก้ให้เป็น Space2,SerialNo,...

[Earth]

พลาดตรงนี้เอง ขอบคุณมากค่ะ

[Earth]

สอบถามอาจารย์ค่ะ โค้ดนี้สามารถนำมาประยุกต์บน 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


[สันติสุข]

ไม่ทราบครับ ไม่มีความรู้ VB.NET ครับ