กระทู้เก่าบอร์ด อ.Yeadram
1,532 12
URL.หัวข้อ /
URL
ขอคำแนะการบันทึกข้อมูลหลายฟอร์ม หลายตาราง
แบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะ
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะแบบฟอร์ม Form1
id
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
แบบฟอร์ม Form2
หมายเลขรถ
ทะเบียนรถ
ยางที่ใช้
ถนนที่เดินทาง
จังหวัด
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ตาราง1 เก็บข้อมูล Form1
id ชื่อ นามสกุล อายุ เพศ รายได้ ตำแหน่ง
ตาราง2 เก็บข้อมูล Form2
id หมายเลขรถ ทะเบียนรถ ยางที่ใช้ ถนนที่เดินทาง จังหวัด
ตาราง4 เก็บข้อมูล Form4
id น้ำหนักที่บรรทุก ความสูงรถ จีพีเอสที่ใช้ ระยะทางที่เดินทาง
แบบฟอร์ม 1-3 จะเก็บ ข้อมูลเก็บข้อมูลลงในตารางที่ 1-3
โดยใช้ เลข id เดียวกัน โดยใช้ id จากตารางที่ 1 ให้บันทึกเลข id อัตโนมัติจากตารางที่ 1 ลงใน ตารางที่ 2 และตารางที่ 3
คือว่าเห็นฐานข้อมูลต่างประเทศเขาออกแบบฟอร์มให้เก็บข้อมูลในตารางแยกกันตามที่เลือกไว้ คือ ฟอร์มที่ 1 เก็บข้อมูลในตารางที่ 1
ฟอร์มที่ 2 เก็บข้อมูลในตารางที่ 2 และ ฟอร์มที่ 3 เก็บข้อมูลในตารางที่ 3 ตัว id ไม่ใช่ ค่า auto number ที่โปรแกรมกำหนดให้นะคะ เราจะกรอกลงเอง
แต่จะใช้เป็นค่า primary ของทั้ง 3 ตาราง จริงๆ จะเก็บมันเยอะมากกว่าที่โปรแกรม access กำหนดไว้ คือยาวเกิน 255 colum ต้องการเก็บข้อมูลประมาณ 600 ตัวแปร (colom)
ต้องทำฟอร์มและตารางมากกว่านี้คือ ประมาณ 12 ฟอร์ม 12 ตาราง แต่ละตารางจะเก็บข้อมูลยาวประมาณ 50 colum
เราต้องใช้ คำสั่งยังไงคะ ท่านไหนพอจะให้คำแนะนำได้บ้างคะ
รบกวนช่วยแนะนำด้วยนะคะ
12 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23211
คำถามยังไม่ชัดเจนครับ สิ่งที่คุณอยากทราบคืออะไร เช่น การออกแบบฐานข้อมูล หรือการออกแบบฟอร์มกรอกข้อมูล เป็นต้น
3 @R23212
id =txtID ในตาราง ชือ ID
ชื่อ =txtName ในตาราง ชือ name
นามสกุล =txtLastname ในตาราง ชือ lastname
อายุ =txtAge ในตาราง ชือ age
เพศ =txtGender ในตาราง ชือ Gender
รายได้ =txtIncome ในตาราง ชือ Income
ตำแหน่ง =txtRank ในตาราง ชือ Rank
แบบฟอร์ม Form2
หมายเลขรถ =txtNumber ในตาราง ชือ number
ทะเบียนรถ =txtregisnumber ในตาราง ชือ regesnumber
ยางที่ใช้ =txtTire ในตาราง ชือ tire
ถนนที่เดินทาง =txtStreet ในตาราง ชือ Street
จังหวัด =txtProvince ในตาราง ชือ Province
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก =txtWeight ในตาราง ชือ Weight
ความสูงรถ =txtHigh ในตาราง ชือ High
จีพีเอสที่ใช้ =txtGps ในตาราง ชือ Gps
ระยะทางที่เดินทาง =txtDistance ในตาราง ชือ Distance
กำหนด ตารางชื่อ Table1 ,Table2 ,Table3 นะครับ
Sub appeSaveT1()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1", dbOpenDynaset) 'ใส่ชื่อตารางแรกที่จะบันทึก
rs.AddNew
rs![ID] = txtID
rs![name] = txtName
rs![lastname] = txtLastname
rs![age] = txtAge
rs![gender] = txtGender
rs![income] = txtIncome
rs![rank] = txtRank
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Sub appeSaveT2()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table2", dbOpenDynaset) 'ใส่ชื่อตารางที่ 2
rs.AddNew
rs![ID] = txtID
rs![number] = txtNumber
rs![regisnumber] = txtregisnumber
rs![tire] = txtTire
rs![street] = txtStreet
rs![province] = txtProvince
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Sub appeSaveT3()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table3", dbOpenDynaset) 'ใส่ชื่อตารางที่ 3
rs.AddNew
rs![ID] = txtID
rs![weight] = txtWeight
rs![high] = txtHigh
rs![gps] = txtGps
rs![distance] = txtDistance
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Private Sub cmdSave_Click() 'เมื่อกำหนดค่าการบันทึกข้อมูล แต่ละตาราง แล้ว ก็มากำหนดปุ่มบันทึก ตั้งค่า Event เมื่อคลิก
On Error GoTo Err_Err
Call appSaveT1
Call appSaveT2
Call appSaveT3
Call ResetForm 'เรียกคำสั่งเพื่อเคลียหน้า Form รับค่าใหม่หลังจากบันทึกข้อมูล
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("Data fail try again")
Resume Exit_err
End Sub
Sub ResetForm()
'Dim iControlCount As Integer
On Error GoTo Err_Err
Dim ctl As Control
For Each ctl In Me
If ctl.ControlType = acComboBox Then
ctl = Null
ctl.Visible = False
End If
If ctl.ControlType = acTextBox Then
ctl = Null
If Left$(ctl.Name, 4) = "txtR" Then
ctl.Visible = False
End If
If Left$(ctl.Name, 4) = "txtV" Then
ctl.Visible = False
End If
If Left$(ctl.ControlName, 4) = "txtO" Then
ctl.Visible = False
End If
' With ctl
' .SetFocus
' .Enabled = True
' .Height = 400
' .SpecialEffect = 0
'End With
End If
If ctl.ControlType = acCheckBox Then
ctl = False
End If
Next ctl
'For iControlCount = 4 To Controls.Count - 1
' Value = Null
'Next iControlCount
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("datafail")
Resume Exit_err
End Sub
ประมาณนี้ครับลองดูหรือนำไปประยุกต์ใช้ได้ ครับ ในส่วนของClearForm ถ้ากดแล้วมี textbox หรือ Combobox อันไหนหายไป ให้ไปกำหนดในคำสั่ง ResetForm เช่น ถ้า textbox ชื่อ txtWeight หายไปก็ เขียนคำสั่งว่า Me.txtWeight.Visible = True เป็นต้น
ของผมเป็นคำสั่งบ้านๆ นะครับ เพื่อช่วยได้
ชื่อ =txtName ในตาราง ชือ name
นามสกุล =txtLastname ในตาราง ชือ lastname
อายุ =txtAge ในตาราง ชือ age
เพศ =txtGender ในตาราง ชือ Gender
รายได้ =txtIncome ในตาราง ชือ Income
ตำแหน่ง =txtRank ในตาราง ชือ Rank
แบบฟอร์ม Form2
หมายเลขรถ =txtNumber ในตาราง ชือ number
ทะเบียนรถ =txtregisnumber ในตาราง ชือ regesnumber
ยางที่ใช้ =txtTire ในตาราง ชือ tire
ถนนที่เดินทาง =txtStreet ในตาราง ชือ Street
จังหวัด =txtProvince ในตาราง ชือ Province
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก =txtWeight ในตาราง ชือ Weight
ความสูงรถ =txtHigh ในตาราง ชือ High
จีพีเอสที่ใช้ =txtGps ในตาราง ชือ Gps
ระยะทางที่เดินทาง =txtDistance ในตาราง ชือ Distance
กำหนด ตารางชื่อ Table1 ,Table2 ,Table3 นะครับ
Sub appeSaveT1()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table1", dbOpenDynaset) 'ใส่ชื่อตารางแรกที่จะบันทึก
rs.AddNew
rs![ID] = txtID
rs![name] = txtName
rs![lastname] = txtLastname
rs![age] = txtAge
rs![gender] = txtGender
rs![income] = txtIncome
rs![rank] = txtRank
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Sub appeSaveT2()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table2", dbOpenDynaset) 'ใส่ชื่อตารางที่ 2
rs.AddNew
rs![ID] = txtID
rs![number] = txtNumber
rs![regisnumber] = txtregisnumber
rs![tire] = txtTire
rs![street] = txtStreet
rs![province] = txtProvince
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Sub appeSaveT3()
On Error GoTo Err_Err
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("Table3", dbOpenDynaset) 'ใส่ชื่อตารางที่ 3
rs.AddNew
rs![ID] = txtID
rs![weight] = txtWeight
rs![high] = txtHigh
rs![gps] = txtGps
rs![distance] = txtDistance
rs.Update
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("save data fail")
Resume Exit_err
End Sub
Private Sub cmdSave_Click() 'เมื่อกำหนดค่าการบันทึกข้อมูล แต่ละตาราง แล้ว ก็มากำหนดปุ่มบันทึก ตั้งค่า Event เมื่อคลิก
On Error GoTo Err_Err
Call appSaveT1
Call appSaveT2
Call appSaveT3
Call ResetForm 'เรียกคำสั่งเพื่อเคลียหน้า Form รับค่าใหม่หลังจากบันทึกข้อมูล
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("Data fail try again")
Resume Exit_err
End Sub
Sub ResetForm()
'Dim iControlCount As Integer
On Error GoTo Err_Err
Dim ctl As Control
For Each ctl In Me
If ctl.ControlType = acComboBox Then
ctl = Null
ctl.Visible = False
End If
If ctl.ControlType = acTextBox Then
ctl = Null
If Left$(ctl.Name, 4) = "txtR" Then
ctl.Visible = False
End If
If Left$(ctl.Name, 4) = "txtV" Then
ctl.Visible = False
End If
If Left$(ctl.ControlName, 4) = "txtO" Then
ctl.Visible = False
End If
' With ctl
' .SetFocus
' .Enabled = True
' .Height = 400
' .SpecialEffect = 0
'End With
End If
If ctl.ControlType = acCheckBox Then
ctl = False
End If
Next ctl
'For iControlCount = 4 To Controls.Count - 1
' Value = Null
'Next iControlCount
Exit_err:
Exit Sub
Err_Err:
MsgBox Error$
MsgBox ("datafail")
Resume Exit_err
End Sub
ประมาณนี้ครับลองดูหรือนำไปประยุกต์ใช้ได้ ครับ ในส่วนของClearForm ถ้ากดแล้วมี textbox หรือ Combobox อันไหนหายไป ให้ไปกำหนดในคำสั่ง ResetForm เช่น ถ้า textbox ชื่อ txtWeight หายไปก็ เขียนคำสั่งว่า Me.txtWeight.Visible = True เป็นต้น
ของผมเป็นคำสั่งบ้านๆ นะครับ เพื่อช่วยได้
4 @R23213
คำสั่งนี้ใช้สำหรับ Form1 อันใช้ ปุ่มบันทึก อันเดียว จัดเก็บ 3 ตาราง ครับโดยใช้ ID เดี่ยวกันเพื่อใช้ในการ กำหนด Relationship ของ 3 ตาราง แต่ของคุณ พลอยใส ได้ออกแบบหน้า Form ที่จะจัดเก็บข้อมูลอย่างไรครับ
ใช้ปุ่มบันทึก อันเดียว หรือเป็นแบบไหนครับ ขอดูตัวอย่างได้ไหม
ขอแก้ ข้อมูลนิดนึงพอดีลืมแก้ตัวใหญ่ตัวเล็ก
ใช้ปุ่มบันทึก อันเดียว หรือเป็นแบบไหนครับ ขอดูตัวอย่างได้ไหม
ขอแก้ ข้อมูลนิดนึงพอดีลืมแก้ตัวใหญ่ตัวเล็ก
5 @R23214
id =txtID ในตาราง ชือ ID
ชื่อ =txtName ในตาราง ชือ name
นามสกุล =txtLastname ในตาราง ชือ lastname
อายุ =txtAge ในตาราง ชือ age
เพศ =txtGender ในตาราง ชือ gender
รายได้ =txtIncome ในตาราง ชือ income
ตำแหน่ง =txtRank ในตาราง ชือ rank
แบบฟอร์ม Form2
หมายเลขรถ =txtNumber ในตาราง ชือ number
ทะเบียนรถ =txtregisnumber ในตาราง ชือ regesnumber
ยางที่ใช้ =txtTire ในตาราง ชือ tire
ถนนที่เดินทาง =txtStreet ในตาราง ชือ street
จังหวัด =txtProvince ในตาราง ชือ province
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก =txtWeight ในตาราง ชือ weight
ความสูงรถ =txtHigh ในตาราง ชือ high
จีพีเอสที่ใช้ =txtGps ในตาราง ชือ gps
ระยะทางที่เดินทาง =txtDistance ในตาราง ชือ distance
ชื่อ =txtName ในตาราง ชือ name
นามสกุล =txtLastname ในตาราง ชือ lastname
อายุ =txtAge ในตาราง ชือ age
เพศ =txtGender ในตาราง ชือ gender
รายได้ =txtIncome ในตาราง ชือ income
ตำแหน่ง =txtRank ในตาราง ชือ rank
แบบฟอร์ม Form2
หมายเลขรถ =txtNumber ในตาราง ชือ number
ทะเบียนรถ =txtregisnumber ในตาราง ชือ regesnumber
ยางที่ใช้ =txtTire ในตาราง ชือ tire
ถนนที่เดินทาง =txtStreet ในตาราง ชือ street
จังหวัด =txtProvince ในตาราง ชือ province
แบบฟอร์ม Form3
น้ำหนักที่บรรทุก =txtWeight ในตาราง ชือ weight
ความสูงรถ =txtHigh ในตาราง ชือ high
จีพีเอสที่ใช้ =txtGps ในตาราง ชือ gps
ระยะทางที่เดินทาง =txtDistance ในตาราง ชือ distance
6 @R23218
คุณควรแยกตารางเป็นส่วนๆ ตามประเภทให้ชัดเจนก่อนป่าวครับ เช่น
ตาราง พนักงาน
--------------------------
Employee_ID -------------------------
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
--------------------------
ตาราง รถบรรทุก
--------------------------
Truck_ID
หมายเลขรถ
ทะเบียนรถ
สีรถ
น้ำหนักรถเปล่า
--------------------------
ตาราง การขนส่ง
--------------------------
Employee_ID --------------------> ตาราง พนักงาน: Employee ID
Truck_ID -------------------------> ตาราง รถบรรทุก: Truck_ID
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ถนนที่เดินทาง
จังหวัด
--------------------------
แล้วเชื่อมโยงตารางกัน อะไรประมาณนี้
ตาราง พนักงาน
--------------------------
Employee_ID -------------------------
ชื่อ
นามสกุล
อายุ
เพศ
รายได้
ตำแหน่ง
--------------------------
ตาราง รถบรรทุก
--------------------------
Truck_ID
หมายเลขรถ
ทะเบียนรถ
สีรถ
น้ำหนักรถเปล่า
--------------------------
ตาราง การขนส่ง
--------------------------
Employee_ID --------------------> ตาราง พนักงาน: Employee ID
Truck_ID -------------------------> ตาราง รถบรรทุก: Truck_ID
น้ำหนักที่บรรทุก
ความสูงรถ
จีพีเอสที่ใช้
ระยะทางที่เดินทาง
ถนนที่เดินทาง
จังหวัด
--------------------------
แล้วเชื่อมโยงตารางกัน อะไรประมาณนี้
7 @R23222
ผมว่าเหมือนคุณ TTTบอกนะครับ จริงๆแล้วคุณพลอยใสต้องออกแบบฐานข้อมูลและสร้างความสัมพันธ์ให้เรียบร้อยก่อนนะครับ ซึ่งถ้าออกแบบฐานข้อมูลให้ดีจะประกอบด้วยตาราง3ตารางถูกต้องอยู่แล้วและเมื่อมีการบันทึกข้อมูล ก็จะจัดเก็บในตารางของมันอยู่แล้วครับ หากมีการเขียนโค้ดให้โปรแกรมบันทึกข้อมูลเองผมว่าน่าจะมีปัญหาภายหลังได้ครับ เช่นรถทะเบียนเดิมแต่มีการเปลี่ยนพนักงานใหม่ เป็นต้นครับ
8 @R23235
1. จริงๆ ใจต้องออกแบบฟอร์ม 12 ฟอร์ม 13 ตาราง นะคะ ใช้ id เดียวกันทั้ง 13 ตาราง
ข้อมูลส่วนอื่น ในแต่ละตารางจะไม่เหมือนกัน เลยต้องแยกตารางและฟอร์มออกจากกัน
2. สมมติว่าทำ ออกแบบฐานข้อมูลและสร้างความสัมพันธ์ เสร็จแล้ว
แต่ละ ตารางจะใช้ id จากตารางที่ 1 เพื่อรีเช็คว่าเป็นข้อมูลของ id เดียวกัน
เราต้องการกรอก id ลงในฟอร์มแรกและกรอกไอดีเพียงครั้งเดียวและเมื่อกดบันทึกแล้วข้อมูล id ถูกบันทึกใน 12 ตารางพร้อมกันเลย พอกดปุ่มไปฟอร์มที่ 2 ก็ให้เริ่มกรอกข้อมูล หมายเลขรถ เลย ไม่ต้องมี Text box id ในฟอร์มที่ 2 ซ้ำอีก
ให้ค่า id ในฟอร์มที่ 1 ไปบันทึกในตารางที่ 2 , 3 ,4,5,7,8,9,10,11และ 12 ได้เลย เพราะค่า id ตัวนี้จะให้เสมือนว่าเป็นเลขบัตรประชาชน 1 id ต่อ1 คน ค่า id นี้จะต้องถูกบันทึกในทุกตารางคะ
3.พอเรากรอกข้อมูลครบทั้ง ในฟอร์มแรก จะให้กดปุ่มเพื่อไปฟอร์มที่ 2 กรอกข้อมูลครบทั้ง ในฟอร์ม 2 จะให้กดปุ่มเพื่อไปฟอร์มที่ 3 เรื่อยๆ จนถึง ฟอร์มที 12
4. หลังจากกรอกข้อมูลในฟอร์ม 12 ครบ ต้องการให้มีปุ่ม save ข้อมูล ทั้ง 12 ฟอร์มลงใน ตาราง 12 ตารางได้ไหมค่ะ
5. ในฟอร์มที่ 12 หลังกรอกข้อมูลเสร็จ ต้องการสร้่างปุ่ม New record ในฟอร์มที่ 12 โดยให้มีคำในสั่งที่สามารถสร้าง new record(id ใหม่นั่นเอง) พอเรากด new record แล้ว cursur ไปอยู่ที่ ช่องแรกของฟอร์มที่ 1 เลย พร้อมกับเคลียร์ข้อมูลทั้งหมด 12 ฟอร์มเพื่อพร้อมสำหรับกรอกข้อมูลของ id ใหม่
ไม่ทราบว่าพอจะเข้าใจไหมค่ะ
ในนี้ไม่มีช่องให้ใส่ภาพ หรืออะไรที่มันเป็นรปได้ แต่พยายามเขียนให้เข้าใจมากที่สุดแล้วค่ะ
ขอบคุณนะคะ
ข้อมูลส่วนอื่น ในแต่ละตารางจะไม่เหมือนกัน เลยต้องแยกตารางและฟอร์มออกจากกัน
2. สมมติว่าทำ ออกแบบฐานข้อมูลและสร้างความสัมพันธ์ เสร็จแล้ว
แต่ละ ตารางจะใช้ id จากตารางที่ 1 เพื่อรีเช็คว่าเป็นข้อมูลของ id เดียวกัน
เราต้องการกรอก id ลงในฟอร์มแรกและกรอกไอดีเพียงครั้งเดียวและเมื่อกดบันทึกแล้วข้อมูล id ถูกบันทึกใน 12 ตารางพร้อมกันเลย พอกดปุ่มไปฟอร์มที่ 2 ก็ให้เริ่มกรอกข้อมูล หมายเลขรถ เลย ไม่ต้องมี Text box id ในฟอร์มที่ 2 ซ้ำอีก
ให้ค่า id ในฟอร์มที่ 1 ไปบันทึกในตารางที่ 2 , 3 ,4,5,7,8,9,10,11และ 12 ได้เลย เพราะค่า id ตัวนี้จะให้เสมือนว่าเป็นเลขบัตรประชาชน 1 id ต่อ1 คน ค่า id นี้จะต้องถูกบันทึกในทุกตารางคะ
3.พอเรากรอกข้อมูลครบทั้ง ในฟอร์มแรก จะให้กดปุ่มเพื่อไปฟอร์มที่ 2 กรอกข้อมูลครบทั้ง ในฟอร์ม 2 จะให้กดปุ่มเพื่อไปฟอร์มที่ 3 เรื่อยๆ จนถึง ฟอร์มที 12
4. หลังจากกรอกข้อมูลในฟอร์ม 12 ครบ ต้องการให้มีปุ่ม save ข้อมูล ทั้ง 12 ฟอร์มลงใน ตาราง 12 ตารางได้ไหมค่ะ
5. ในฟอร์มที่ 12 หลังกรอกข้อมูลเสร็จ ต้องการสร้่างปุ่ม New record ในฟอร์มที่ 12 โดยให้มีคำในสั่งที่สามารถสร้าง new record(id ใหม่นั่นเอง) พอเรากด new record แล้ว cursur ไปอยู่ที่ ช่องแรกของฟอร์มที่ 1 เลย พร้อมกับเคลียร์ข้อมูลทั้งหมด 12 ฟอร์มเพื่อพร้อมสำหรับกรอกข้อมูลของ id ใหม่
ไม่ทราบว่าพอจะเข้าใจไหมค่ะ
ในนี้ไม่มีช่องให้ใส่ภาพ หรืออะไรที่มันเป็นรปได้ แต่พยายามเขียนให้เข้าใจมากที่สุดแล้วค่ะ
ขอบคุณนะคะ
9 @R23236
ขอโทษนะคะ
12 ฟอร์ม 12 ตารางคะ
12 ฟอร์ม 12 ตารางคะ
10 @R23240
อธิบายโจทย์ได้ละเอียดแล้วครับ ความจริงที่คุณถามมาก็ไม่ได้ยากอะไร ทำได้แน่นอน และทำได้หลายวิธี เพียงแต่ใครจะออกแบบวิธีการทำงานของโปรแกรมให้เป็นอย่างไร ซึ่งถ้าเป็นผม ผมก็จะใช้ความสามารถของมาโคร ควบคู่กับการใช้งานคิวรี่ (เช่น Append Query กับ Update Query) คือใช้แค่เครื่องมือที่ MS-Access มีให้มาก็พอ ไม่จำเป็นต้องเขียน Coding เอง หรือ VBA เลยก็ได้ครับ ลองส่งเมล์มา แล้วจะทำส่งไปให้ดูเป็นตัวอย่างนะครับ saifar@outlook.com
11 @R23243
รบกวนหน่อยนะคะ
pattarapa_007@hotmail.com
ขอบคุณค่ะ
pattarapa_007@hotmail.com
ขอบคุณค่ะ
12 @R23244
รบกวนส่งไฟล์ที่ทำไว้แล้วมาให้ด้วยนะครับ จะได้ทำต่อให้เลย ไม่ต้องสมมุติและออกแบบตารางเองใหม่ (ลบข้อมูลออกหมดก่อนก็ได้ครับถ้าเกรงว่าจะไม่ปลอดภัย)
Time: 0.3357s
โพสครั้งเดียวทำไมข้อความมันซ้ำกัน 2 ครั้ง