- ขั้นตอนต่อไปคือ สร้าง texebox ในส่วน " ท้ายของหน้า" กำหนดControlSource "=Runsum_Salary"
- สร้าง textbox ในส่วน " ท้ายของหน้า" ชื่อ "Pagesum_Salary"
- แล้วก็ไปสร้าง โค๊ต
- สร้าง textbox ในส่วน "หัวของหน้า" 2 อัน อันแรก กำหนดControlSource =Page อันที่ 2 กำหนด ControlSource =Pages
ใช่หรือไม่ครับ

ใช่ครับ

แต่ผมสงสัยว่าจะถามอีกทำไม ขั้นตอนเหล่านี้คุณได้ทำผ่านมาหมดแล้วไม่ใช่หรือ ไม่งั้นก็จะออกรายงานตามที่บอกผมว่าทำได้แล้วในคำตอบก่อนหน้านี้ไม่ได้หรอกครับ

ใช่ครับ เพราะว่าตอนนั้น ผมดูทาง ตัวอย่างก่อนพิมพ์ครับ ยังไม่ได้ส่งพิมพ์ออกทางเครื่องปริ๊นเตอร์ครับ พอสั่งพิมพ์ออกทางเครื่องปริ๊นเตอร์ ทำมัยถึงได้เป็นอย่างนี้ก็ไม่ทราบครับ ผมงงจริงๆ

ลองพิมพ์ไปเลยโดยไม่ preview ดูว่าจะเป็นยังไง

เหมือนเดิมครับ ผมจะลองนับหนึ่งใหม่ครับ ขอขอบคุณคุณสันติสุขมากครับ ที่สละเวลามาช่วยชี้แนะ ถ้าได้ผลยังไง จะแจ้งให้ทราบอีกครั้งครับ

ส่งไฟล์มาอีกที แล้วบอกรายละเอียดด้วยว่าต้องเรียกฟอร์ม/รายงานอะไร กดอะไร ป้อนอะไร เพื่อที่จะให้ได้รายงานนั้นออกมา

ผมส่งไฟล์ไปให้แล้วนะครับ ใช้อันที่ 2 นะครับ อันแรกลืมบอกรายละเอียดไป

ส่งผิดที่หรือเปล่าครับ ไม่มีนะครับ

ขอโทษอีกครั้งครับ ผมส่งไปผิดจริงๆครับ พอดีเลิกงานก่อน มาเปิดที่บ้าน เดี๋ยวพรุ่งนี้(29/2/55) ผมส่งไปให้อีกครั้งนะครับ

พรุ่งนี้ผมไปพบลูกค้านะครับ ยังไม่มั่นใจว่าจะตอบได้เมื่อไหร่

-ผมส่งไฟล์ข้อมูลให้แล้วนะครับ
-ไม่เป็นไรครับว่างตอนไหนก็ค่อยดูครับ ตอนนี้ผมก็ใช้โปรแกรมเดิมไปก่อนครับ

พิมพ์ได้ปกติแล้วครับ จากคำตอบที่ R12278 "ลองพิมพ์ไปเลยโดยไม่ preview ดูว่าจะเป็นยังไง"

อีกนิดครับ ที่ผมเคยถามว่า
1.ผลรวมแต่ละหน้า ให้ "RunSum" ไปโชว์ที่หน้าสุดท้าย ต่อจากบรรทัด PageSum เพราะว่าตอนนี้ที่ผมทำไป แต่ละหน้าจะเป็นแบบนี้ครับ

บรรทัดแรก     = PageSum
บรรทัดต่อมา   = RunSum

2.แล้วก็ในส่วนของ "ขีดเส้นใต้" ของ "RunSum " ให้โชว์ที่หน้าสุดท้ายเหมือนกันครับ

รบกวนอีกครั้งครับ จะเสร็จสมบูรณ์แล้วครับ

แปลงมาเป็น .mdb ด้วยครับ

ผมส่ง mail ให้แล้วนะครับ

ผมงงจริงๆ โค้ดที่ให้มา ก็ยังไม่ทำได้ตามที่ผมบอกในกระทู้นี้-หน้าที่ 3-คำตอบที่ R12218 เลย โค้ดของคุณก็ยังเป็น Me!RunSum_SumOfj.Visible = (Me.Page = Me.Pages) อยู่ดี   ทำไมคุณไม่เปลี่ยนชื่อ RunSum_SumOfj เป็นชื่อของเท็กซ์บ็อกซ์ที่แสดง RunSum_SumOfj ตามที่ผมบอก แต่ในคำตอบต่อไปที่ R12222 คุณบอกว่าคุณทำได้แล้ว ตกลงมันยังไงครับ ?!? คุณส่งไฟล์ที่คุณทำแล้วมีปัญหามาให้ผมหรือเปล่า หรือส่งไฟล์ที่คุณยังไม่ได้แก้ไขมาให้ผมกันแน่ ?!?

ส่วนเมื่อพิมพ์ออกมา ก็ไม่เห็นว่าจะเป็นเครื่อง ##### อย่างที่คุณบอก ของผมพิมพ์ออกมาเป็นตัวเลขเหมือนที่ Preview ทุกประการ

แล้วที่ถามในเมล์บอกว่า

" 1. อยากให้ RunSum และเส้นใต้ 2 เส้น ไปโชว์ที่หน้าสุดท้ายของ Report ต่อจากบรรทัด PageSum ครับ (จาก Report ชื่อ Pay1 ระบุเดือน = 02 , ระบุปี = 02 , ระบุประเภท = 001 )"

ตอบ : ต้องการให้เส้นที่ขีดเส้นใต้ "รวมทั้งสิ้น" แสดงในหน้าสุดท้ายพร้อมกับ RunSum นั้น ก็ให้เขียนโค้ดเหมือนที่ให้ RunSum แสดงหน้าสุดท้ายนั่นแหล่ะครับ ก็จะเป็น

Me.Line156.Visible = (Me.Page = Me.Pages)
Me.Line157.Visible = (Me.Page = Me.Pages)

และอีกคำถาม "2. จาก Report Pay1 เมื่อดูจาก preview แล้ว ลำดับที่ 15 ของหน้าที่ 1 ตรงยอดสุทธิ ที่ออกมาจะผิดตรงจุดครับทศนิยม(จาก Query ชื่อ จ่ายค่าแรง2 ผมระบุที่ ฟิลด์ T1:[Sum Of J]*3\100 จากเดิม T1:[Sum Of J]*3/100 ที่เปลี่ยนเพราะว่าผมค้นหาใน Board เรื่องทศนิยมครับ"

ตอบ : ผมไม่รู้ว่า T1 จะทำอะไร (หรือจะหา 3% ของค่า [Sum Of J]) แต่คุณรู้หรือเปล่าว่าเครื่อง \ เอาไว้ทำอะไร ? มันเป็นการหาเศษเหลือของจำนวนที่หารด้วย 100 ไปแล้ว นั่นหมายถึง [Sum Of J]*3 ได้เท่าไหร่ เอาไปหาร 100 แล้วเศษเหลือได้เท่าไหร่ นั่นแหล่ะคือคำตอบของเครื่องหมาย \ นี้นะครับ ถ้าจะหาร ก็ใช้เครื่องหมาย / ธรรมดานี่แหล่ะครับ

ปล. โปรดอย่าเขียนคำถามถามผมลงในเมล์ที่ส่งมาเท่านั้น ให้เขียนลงในบอร์ดนี้ด้วย เพราะผมบอกแล้วว่าเพื่อให้คนอื่นได้รู้ด้วย ไม่งั้นคนมาอ่านนี่งงตายเลย จู่ๆผมมาตอบคำถามอะไรมาจากไหนกัน ใช้บอร์ดนี้ให้เป็นประโยชน์ที่สุดนะครับ

แก้ไขจาก "โค้ดที่ให้มา ก็ยังไม่ทำได้" เป็น "โค้ดที่ให้มา ก็ยังไม่ได้ทำ"

ใช่เลยครับเพราะว่าตอนแรก textbox ที่แสดง RunSum_Sum Of J ผมไปสร้างเป็น combobox พอแก้ไขแล้วก็ไม่ได้ย้อนไปดู R12218 ตอนนี้ใช้ได้แล้วครับ
RunSum + ขีดเส้นใต้ 2 เส้น ไปโชว์ที่หน้าสุดท้ายได้แล้วครับ

คำถามที่ 2 ดูจากรูปภาพประกอบนะครับ
T1:[Sum Of J]*3/100 คือยอดหักประกันสังคม 3% ได้จาก ค่าจ้างรับ*3/100
แต่ที่ผมบอกว่า "ที่เปลี่ยนเพราะว่าผมค้นหาใน Board เรื่องทศนิยมครับ" คือก่อนที่ผมจะเปลี่ยน "/" เป็น "\" ยอดตรงช่อง "รวมเงิน" ลบ "ประกันสังคม" ผลที่ออกมาคือ ตรงจุดทศนิยมไม่ตรงกับความเป็นจริงครับ
ยกตัวอย่าง
ลำดับที่ 15 ค่าจ้างรับ*3/100 = ประกันสังคม
                 2650.69*3/100 = 79.52(ทศนิยม 0 ตำแหน่ง)
    หาผลรับสุทธิ (ค่าจ้างรับ+ล่วงเวลา+............+ตกเบิก = รวมเงิน - ประกันสังคม = รับสุทธิ)
            2650.69+0+0+.........+0=2650.69-80=2571.17(แทนที่จะเป็น 2570.69)
ถามต่อเลยนะครับ
3. ผมจะให้ "ประกันสังคม"คูณ "ค่าจ้างรับ" ถ้า "0.5" ให้ปัดขึ้น แต่ไม่โชว์จุดทศนิยม
4. ช่อง "รวมเงิน" ลบ "ประกันสังคม" ให้ผลออกตามความเป็นจริง(2650.69-80=2570.69)
ร่ายมาซะยาว เขียนเอง งงเอง
ประมาณนี้ครับ คุณสันติสุข
ปล.ขอขอบคุณอีกครั้ง และขอโทษด้วยครับที่ทำงานไม่รอบครอบ ไปข้างหน้าเรื่อย ไม่ย้อนมาดูข้างหลัง

ถ้าปัดเป็นจำนวนเต็ม โดยที่ตั้งแต่เศษ 0.5 ให้ปัดขึ้น ถ้าน้อยกว่าให้ปัดลง ก็ใช้ฟังก์ชั่น int( cdec( ( นิพจน์ ) + 0.5) ) ) ครับ

ส่วนจะให้แสดงทศนิยมกี่ตำแหน่ง ให้กำหนดจำนวนตำแหน่งของทศนิยมที่ Decimal Place property ของเท็กซ์บ็อกซ์ที่แสดง เช่น 0=ไม่แสดงทศนิยม, 2=ทศนิยม 2 ตำแหน่ง

ที่ต้องจำไว้ก็คือ จำนวนทศนิยมที่แสดงออกมาเป็นค่าเท่าไหร่ ไม่ได้หมายความว่าภายในจะเก็บค่าตามนั้นเสมอไป ตรงนี้ต้องระวัง เช่นค่าจริงๆคือ 1.567 ถ้ากำหนด Decimal Place เป็น 2 มันจะแสดง 1.57 แต่ถ้าเอาเท็กซ์บ็อกซ์นี้ไปคำนวนต่อ มันจะใช้ค่าจริงคือ 1.567 ไปคำนวนครับ

อีกนิดครับ
1.ฟังก์ชั่น int( cdec( ( นิพจน์ ) + 0.5) ) ) ไปวางไว้ตรงไหนครับ
2.นิพจน์ คือ "[Sum Of J]*3/100" ที่ผมกำหนดในฟิลด์ "T1" ของ Query "จ่ายค่าแรง2" ใช่หรือไม่ครับ