กระทู้เก่าบอร์ด อ.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
ลงเลขที่และคะแนนตามฟอร์ม
ประกอบด้วยฟิลด์ 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
2 @R06458
ลืมอีกประเด็นครับ
คือฟอร์มที่สร้างขึ้นมา
เป็นแบบคอนทีนิวอัสฟอร์ม
แล้วเลขที่ของลูกค้าจะโชว์ขึ้นมาต่อเนื่อง
แต่เมือกรอกคะแนนแล้ว
มันจะเป็นคะแนนเดียวกันหมดทุกรายเลย
ตัวอย่างเ่ช่น
เลขที่ 1 คะแนน 22
2
3
4
5
ปัญหาอีกอย่างคือ เมื่อเรากรอกคะแนนลกค้ารายแรก
จำนวนคะแนนของลูกค้าทุกรายจะขึ้นมาเหมือนรายแรกทั้งหมด
ต้องทำอย่างไรต่อดีครับ
คือฟอร์มที่สร้างขึ้นมา
เป็นแบบคอนทีนิวอัสฟอร์ม
แล้วเลขที่ของลูกค้าจะโชว์ขึ้นมาต่อเนื่อง
แต่เมือกรอกคะแนนแล้ว
มันจะเป็นคะแนนเดียวกันหมดทุกรายเลย
ตัวอย่างเ่ช่น
เลขที่ 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 จะช่วยดูให้ครับ
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 ด้วยนะ สะดวกกว่า ผมชอบวิธีนี้ครับ
อื่ม ทำไมไม่ใช้วิธีการสร้างฟอร์ม จากคิวรี่ที่กรองเอาเฉพาะลูกค้าที่ต้องการ แล้วใส่ข้อมูลเข้าไปตรงๆเลยล่ะครับ
ไม่ต้องส่งผ่าน VBA ด้วยนะ สะดวกกว่า ผมชอบวิธีนี้ครับ
7 @R06509
ทำไมคอนโทรลในฟอร์มทำเป็น unbound control ทำไมไม่ bound เข้ากับ sid และ score เลย
8 @R06511
ขอโทษที่คิดซับซ้อนมากไปหน่อย
เลยทำให้ยากขึ้น
เปลียนมากรอกเข้าตรง ๆ เลยแล้วละครับ
แต่ก็ขอบคุณทุกๆ ท่านนะครับ
เลยทำให้ยากขึ้น
เปลียนมากรอกเข้าตรง ๆ เลยแล้วละครับ
แต่ก็ขอบคุณทุกๆ ท่านนะครับ
Time: 0.3051s
ที่หน้า 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
ลองดูนะครับ