ขอบพระคุณครับ อ.ปิ่นณรงค์

พออาจารย์ ขอดูโค๊ด ผมเลยไปเปิดให้มัน Error แต่มันไม่ Error ครับ
มานึกอีกที ผมแยกฐานข้อมูล อาจจะมีตารางที่ผม ทำไม่เหมือนกันครับ

เครื่องบาร์โค๊ด มันสามารถตั้งค่าให้ ยิงปุ๊บ Enter เลยได้นะครับ ลองศึกษาดู ทำให้การใช้งานสะดวกขึ้นเยอะ

จะใช้คำสั่ง Alt+ลูกศรลง เพื่อให้  combo ลงอัตโนมัติ แต่ไม่รู้ ว่าจะโค๊ตยังงัยครับ รบกวนอาจารย์ด้วยครับ

 

DoCmd.RunSQL "DELETE tblName.* FROM tblName WHERE [MemberCode]=" & MySearch!MemberCode & " AND tblName.[Date]=" & CDbl(MySearch!MaxOfDate)

แก้ชือตารางให้ตรงด้วยนะครับ

แก้แล้วครับอาจารย์

ตอนคุณ Count หนะ ให้คุณเพิ่ม Max(Date) ไปด้วย เพื่อจะได้รู้ว่าวันที่หลังสุดคือวันอะไร

ไม่เข้าใจครับ  Count แล้วจะเพิ่ม Max(Date) ยังงัยครับอาจารย์
พอ Count มันก็จะนับรวมกัน ลบไม่ได้

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

มีฟิล Date กับ MemberCode

ขอบคุณครับ

ใช้แบบนี้ดูครับซ่อน เลขหน้า หน้าสุดท้าย

Private Sub Report_Load()
If Me.Page = Me.Pages Then
Me.Section(acPageHeader).Visible = False
End If
End Sub

ก็ยังไม่ได้ครับ

Me.Section ต้องไม่มี s ต่อท้าย ไม่ใช่หรือครับ ส่วนชื่อ PageHeaderSection ต้องเป็นชื่อของพื้นที่ ที่เราจะทำการซ่อน เช่นถ้าเราต้องการซ่อนพื้นที่ในส่วนของ Header ก็คล๊กที่พื้นที่ Header นั้น ในมุมมองออกแบบ แล้วดูที่ Property > Other > Name ว่าใช้ชื่อว่าอะไรก็ใส่ให้ตรงกับชื่อนั้น ส่วนการเทียบ Page = Pages เราจำเป็นต้องสร้าง Control Text Box ขึ้นมา โดย Control Source กำหนดเป็น [Pages] จะแสดงหรือไม่ก็ได้แต่ต้องมี เพื่อให้การนับหน้าทั้งหมดทำงาน เราถึงจะเทียบค่ากับหน้าปัจจุบันได้จริง ประมาณนี้ครับ

คำตอบนี้ ทำให้ผมเข้าใจเพิ่มว่า แต่ละ Section เปลี่ยนชื่อได้ และเอาจุดนี้ไปอ้างอิง
ที่สร้าง Control Text Box ขึ้นมา ผมลองทำแล้ว มัน Error ที่บรรทัด ที่อ้างคอนโทลเลยครับ
ผมลองเอา Control Text Box  ไปไว้ในส่วนต่างๆ ทัง Detail , ReportHeader และ PageHeader มันก็ยัง Error
ลองเปลี่ยน Event ดู ที่ On Load ยัง Error เหมือนเดิม ไปไว้ที่ On Format ไม่ Error แต่ ไม่มีผลอะไรเกิดขึ้นครับ