เพิ่มข้อมูลในเทเบิลผ่านทางฟอร์ม
กระทู้เก่าบอร์ด อ.Yeadram

 1,927   8
URL.หัวข้อ / URL
เพิ่มข้อมูลในเทเบิลผ่านทางฟอร์ม

มีเทเบิลชื่อ score
ประกอบด้วยฟิลด์ sid และ score
ฟอร์มที่จัดทำขึ้น
ประกอบด้วย ฟิลด์ 2 ฟิลด์
1 cid เลขที่ของลูกค้า
2 unboun ชื่อ cscore เพื่อลงคะแนน
หลังจากลงคะแนนแล้ว
โค๊ตหลังการปรับปรุงเพื่อเปิดเทเบิล score
เพื่อให้ลงคะแนนและเลขที่ลูกค้าตามฟอร์ม

โค๊ต

DoCmd.OpenTable "score", acViewNormal, acnew
DoCmd.GoToRecord acDataTable, "score", acNewRec

มันจะเปิดเทเบิลให้และเรคคอร์ดใหม่
แต่จะให้ลงคะแนนเอง เขียนต่อไม่เป็น
ต้องเขียนอย่างไรต่อไป เพื่อ ให้เทเบิล score
ลงเลขที่และคะแนนตามฟอร์ม

8 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06457
ขอโทษนะครับ ขอแนะนำครับ
ที่หน้า Form นั้น คุณ ตั้งชื่อ ฟิวด์ตัวที่ 1= Txtsid และ ฟิวด์ตัวที่ 2 = Txtscore ก็ได้ครับ และสร้างปุ่ม Button ขึ้นมา 1 ปุ่ม ตั้งชื่ออะไรก็ได้ครับ แล้วใส่โค๊ตนี้เข้าไปตรง On Click
DoCmd.RunSQL ("INSERT INTO Score ( sid, score ) SELECT [Forms]![Form1]![Txtsid] AS Txtsid, [Forms]![Form1]![Txtscore]*1 AS TxtScore")
    DoCmd.OpenTable "Score", acViewNormal, acEdit
    DoCmd.GoToRecord acDataTable, "Score", acLast
ลองดูนะครับ
2 @R06458
ลืมอีกประเด็นครับ
คือฟอร์มที่สร้างขึ้นมา
เป็นแบบคอนทีนิวอัสฟอร์ม
แล้วเลขที่ของลูกค้าจะโชว์ขึ้นมาต่อเนื่อง
แต่เมือกรอกคะแนนแล้ว
มันจะเป็นคะแนนเดียวกันหมดทุกรายเลย
ตัวอย่างเ่ช่น

เลขที่ 1 คะแนน 22
          2              
           3
           4
            5

ปัญหาอีกอย่างคือ เมื่อเรากรอกคะแนนลกค้ารายแรก
จำนวนคะแนนของลูกค้าทุกรายจะขึ้นมาเหมือนรายแรกทั้งหมด

ต้องทำอย่างไรต่อดีครับ
3 @R06459
ขอโทษทีครับ ผมลืมสั่งให้มันเคลียร์ Txtsid กับ Txtscore ให้ครับแก้ไขโค๊ดอันเก่าอีกทีครับ
    Me.Txtsid = ""
    Me.Txtscore = ""
    DoCmd.OpenTable "Score", acViewNormal, acEdit
    DoCmd.GoToRecord acDataTable, "Score", acLast
และที่หน้า Design Form ตรง Data Entry ใส่เป็น Yes ครับ
ถ้ายังไงก็ส่งไฟล์ไปให้ดูก็ได้ครับ
Piyaphan@Se-ed.com จะช่วยดูให้ครับ
4 @R06504
ถ้าส่งไฟล์ไปให้แล้วผมต้องขอโทษด้วยครับ ตอนนี้เมล์ที่บริษัทล่มอยู่ครับ ยังเปิดเมล์ไม่ได้เลยครับ
5 @R06507
ไม่ได้ส่งให้ครับ
เพราะทดลองดูแล้ว
มันยังใช้งานไม่ได้อยู่
เพราะพอสั่งให้ เป็น ." "
ทุกอันที่ลงจะกลายเป็น ว่างหมด
แต่ก็ขอบคุณครับที่ช่วยเหลือ

6 @R06508
...

อื่ม ทำไมไม่ใช้วิธีการสร้างฟอร์ม จากคิวรี่ที่กรองเอาเฉพาะลูกค้าที่ต้องการ แล้วใส่ข้อมูลเข้าไปตรงๆเลยล่ะครับ

ไม่ต้องส่งผ่าน VBA ด้วยนะ สะดวกกว่า ผมชอบวิธีนี้ครับ
7 @R06509
ทำไมคอนโทรลในฟอร์มทำเป็น unbound control ทำไมไม่ bound เข้ากับ sid และ score เลย
8 @R06511
ขอโทษที่คิดซับซ้อนมากไปหน่อย
เลยทำให้ยากขึ้น
เปลียนมากรอกเข้าตรง ๆ เลยแล้วละครับ
แต่ก็ขอบคุณทุกๆ ท่านนะครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3051s