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

[Earth]

สวัสดีค่ะ
สอบถามวิธี การเก็บค่าInputตามDigitที่กำหนดไว้เพื่อนำไปทำQR Codeค่ะ
ตามรูปด้านล่างนี้

อธิบาย>>>

หน้าฟอร์มมีTextboxทั้งหมด 3กล่อง สำหรับInputค่า โดยมาจากตารางที่เก็บค่าคือ
ItemID >> Field size = 10
Name  >> Field size = 20
Lot >> Field size = 10
ต้องการให้inputค่ากี่Digit จะไปเก็บลงอีกTable เท่ากับDigitที่กำหนดไว้ค่ะ
เช่น ItemID >> Field size = 10 กรอกมาแค่ A0001 (5ตัว) ค่าที่ไปเก็บในอีกTableคือ A0001เคาะเคาะเคาะเคาะเคาะ ประมานนี้ค่ะ

[สันติสุข]

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

โค๊ด: [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


[Earth]

ตอนนี้ทำออกมาตามรูปค่ะ
ผลลัพธ์จะให้ไปเก็บในTable2

ปุ่มSave ใส่โค้ด

โค๊ด: [Select]

Private Sub Command11_Click()
Dim L           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String 

For Each Tx In Split("ID,name,lot", ",")

    Set TxCtrl = Forms("Table1")(Tx)
    L = CurrentDb.TableDefs("Table2")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(255), L)
Next
End Sub



Errorที่แสดงรูปล่าง หนูเข้าใจส่วนไหนผิดคะ

[สันติสุข]

CurrentDb.TableDefs("Table2") ต้องเป็น CurrentDb.TableDefs("Table1") สิครับ

โค้ดที่ให้ไป ไม่มีอะไรเกี่ยวกับการบันทึกลงที่ไหน มีแต่ให้ผลลัพธ์เท่านั้น

[Earth]

ขอบคุณมากค่ะ ตอนนี้ทำได้แล้วค่ะ เพิ่มโค้ดแอดข้อมูลลงตารางไป

โค๊ด: [Select]

Private Sub Command11_Click()
Dim L           As Integer
Dim Tx          As Variant
Dim TxCtrl      As Access.TextBox
Dim Str         As String

For Each Tx In Split("ID,name,lot", ",")
    Set TxCtrl = Forms("Table1")(Tx)
    L = CurrentDb.TableDefs("Table1")(TxCtrl.ControlSource).Size
    Str = Str & Left$(TxCtrl & Space(255), L)
Next

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("select * from Table2")

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

    rst.Update
End Sub



[สันติสุข]

ตัดบรรทัดเหล่านี้ออกไป

Set rst = CurrentDb.OpenRecordset("select * from Table2")
numOfRecords = rst.RecordCount

เพราะเหมือนไม่ได้เกี่ยวอะไรกับสิ่งที่ต้องการทำเลย ยกเว้นว่าจะมีการเอา numOfRecords ไปใช้ที่อื่น

[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


[สันติสุข]

ชื่อเท็กซ์บ็อกซ์บนฟอร์มน่าจะไม่ใช่ชื่อ QRID ครับ

[Earth]

ใช้ชื่อQRIDค่ะ





**พอลองลบฟิลด์ที่เออเร่อออกจากตาราง และฟอร์ม มันก็มาเออเร่อฟิลด์ถัดมาเหมือนกันค่ะ

[สันติสุข]

ลองทำการ compile โค้ดดูว่าจะมี error แสดงออกมาที่ไหนหรือไม่ครับ (ใน VBA Editor เมนู Debug > Compile ...)

[Earth]

Compile ใหม่ไม่ได้ค่ะ
แต่ตอนError กด DebugดูเจอErrorแบบนี้ค่ะ

[สันติสุข]

compile เป็นตัวจางหมายถึงหลังการแก้ไขโค้ดครั้งหลังสุด ได้ผ่านการ compile มาแล้ว

แล้วก่อนหน้านี้มันเคยทำงานได้ใช่ไหมครับ

[Earth]

ใช่ค่ะ ก่อนหน้านี้ทำงานได้

[สันติสุข]

ลองอัพโหลดโปรแกรมมาให้ดูได้ไหม

[Earth]

ไฟล์ตัวอย่างค่ะ

[สันติสุข]

ผมไม่ได้มองด้านท้ายของบรรทัด split( ... ) คุณลืมเติมส่วนหลังไป ต้องเป็น split(".....",",") และลิสท์ของชื่ออย่ามีช่องว่างก่อนหรือหลังชื่อฟิลด์ครับ ให้เป็น  QRID,Summarystage,PartNo ติดๆกันไปเลย

[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 ครับ