Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย
@ เขียนคำถามให้ผู้ตอบเข้าใจ จะช่วยให้ผู้ถามได้คำตอบที่ชัดเจนและรวดเร็ว / @ คุณได้คำตอบที่ต้องการแล้วหรือยัง? กลับมาอีกสักครั้งเพื่อแจ้งผู้ตอบ.
0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้
Private Sub Command72_Click()Dim l As IntegerDim Tx As VariantDim TxCtrl As Access.TextBoxDim Str As StringFor 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)NextDim rst As DAO.RecordsetSet rst = CurrentDb.OpenRecordset("Table2") rst.AddNew rst!Result = Str rst.UpdateEnd Sub
โค้ดที่ทำการหาข้อความผลลัพธ์ เอาชื่อฟอร์มและเทเบิลที่ถูกต้องมาใส่แทนด้วยครับโค๊ด: [Select]Dim L As IntegerDim Tx As VariantDim TxCtrl As Access.TextBoxDim 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
Dim L As IntegerDim Tx As VariantDim TxCtrl As Access.TextBoxDim 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