ส่งไฟล์ตัวอย่างมาให้ดูครับ

ติดปัญหาจริงๆด้วยครับท่านแต่ถ้าจะสร้างดัดแปลงการค้นหาแบบนี้ได้ไหม
1.เมื่อได้ Crosstab มาแล้ว ให้ Append มายัง ตารางใหม่ และ กำหนด Form กับตารางใหม่นั้นมันก็จะสามารถค้นหาได้เหมือนกันครับ
Private Sub Command62_Click()
DoCmd.ApplyFilter , "[DateA] Between Forms.FinalOutput.DateFrom And Forms.FinalOutput.DateTo"
End Sub
Private Sub Form_Open(Cancel As Integer)
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM TblFinalOutput"
    DoCmd.OpenQuery "MakeTblFinalOutput", acViewNormal
    Me.Form.Requery
End Sub

จากข้อมูลเทเบิ้ลมีรายละเอียดดังนี้
Code          Status        Final
001                A
001                D
001                D
002                A
003                D
004                P
004                A
005                C
005                D
005                D
ถ้าผมจะคิวรี่โดยมีเงื่อนไขดังนี้
ถ้า ฟิลด์ Code - 001 มี Status A กับ C กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status A อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - Code 001 มี Status A กับ D ให้อัพเดทในฟิลด์ Final เป็น A
ถ้า ฟิลด์ Code - 001 มี Status D อย่างเดียว ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status C กับ D ให้อัพเดทในฟิลด์ Final เป็น D
ถ้า ฟิลด์ Code - Code 001 มี Status P กับ D ให้อัพเดทในฟิลด์ Final เป็น P

ต้องคิวรี่อย่างไรบ้างครับ ขอบคุณมากครับผม

ลองดูตัวอย่างนี้นะครับ
ผมใช้วิธีสร้าง CrossTab ขึ้นมาก่อนเพื่อ ต้องการดูว่า Field ไหน มีข้อมูลอยู่บ้าง
ต่อไปใช้ IIF Function  กำหนดเงื่อนไขเพื่อหาผลลัพท์
เมื่อได้ผลลัพท์มาแล้ว จากที่เราจะอัพเดทลงในตารางเดิม ก็สร้างตารางใหม่ขึ้นมาเลย


ตัวอย่างด้านล่างครับ

=DSum("[ชื่อTextboxที่จะคำนวน]","[ชื่อตารางหรือคิวรี่]")
ใช้ Dsum แทนนะครับ

Val  กับ  Cdbl  ใช้ยังงัยครับ

ใช้ในกรณีที่ต้องการเปลี่ยนค่าของ นิพจน์ แปลเป็นค่าที่เฉพาะเจาะจง
Cdbl คือการเปลี่ยน นิพจน์ให้เป็น Double ครับ
ยกตัวอย่าง ผมกำหนด Integet กับ Double เพื่อให้เห็นความแตกต่าง
Dim MyDouble, MyInt
MyDouble = 2345.5678    ' MyDouble แสดงค่าเป็น  Double.
MyInt = CInt(MyDouble)    ' MyInt แสดงค่าเป็น 2346. คือ Integer

ตัวอย่าง Val กำหนดตัวแปร
Dim MyInt, MyVar
MyInt = 1554    ' MyInt คือค่าจำนวนเต็มตัวเลข หรือว่า Integer.
MyVar = CVar(MyInt & "0000")   จะเห็นได้ว่าเราแทนค่าตัวแปร Var = 0000 ออกมา
MyVar จะแสดงผลออกมาดังนี้ 15540000.
ในกรณีที่จะ ใช้ในการคำนวนยกตัวอย่างเชื่อ
มีชื่อมูลตัวเลข ที่เราเก็บไว้ใน Record เป็น Sting
ชื่อ text 1 = 1.5 และ text 2 = 6.1 ผลการรวทที่ได้ กรณี text1+text2 คือ 1.56.1
ซึ่งเมื่อเราต้องการคำนวน แล้วให้แสดงค่าเป็น  Double ต้องกำหนดดังนี้
(CDbl(text1)) + (CDbl(text1)) ผลที่ได้คือ 7.7 นั้นเอง

ยังมีการเปลี่ยนค่าของ นิพจน์ แปลเป็นค่าที่เฉพาะเจาะจง
ซึ่งยังมี อีกหลายรูปแบบด้วยกันดังนี้

CBool  Boolean   สตริงที่ที่ถูกต้องหรือนิพจน์ใด ๆ

CByte  ไบต์  0 ถึง 255

CCur สกุลเงิน -922,337,203,685,477.5808 เพื่อ 922,337,203,685,477.5807

CDate  วันที่  นิพจน์วันที่ที่ถูกต้องใด ๆ

CDbl  Double

CDec  เลขฐานสิบ
+/ 79,228,162,514,264,337,593,543,950,335 สำหรับศูนย์ปรับขนาดตัวเลข นั่นคือ ตัวเลข โดยไม่มีจุดทศนิยม สำหรับตัวเลขที่มีตำแหน่งทศนิยม 28 คือช่วง
+/ 7.9228162514264337593543950335 หมายเลขที่ไม่ใช่ศูนย์เป็นไปได้น้อยที่สุดคือ 0.0000000000000000000000000001

CInt  จำนวนเต็ม  -32768 ถึง 32767 แทนเศษส่วนจะถูกปัดเศษ

CLng ความยาว   -2147483648 เพื่อ 2147483647 แทนเศษส่วนจะถูกปัดเศษ

CSng  เดี่ยว  -3.402823 e 38 ถึง - 1.401298 e-45 สำหรับค่าลบ 1.401298 e-45 ถึง 3.402823 e 38 สำหรับค่าบวก

CStr สตริง ส่งกลับค่าสำหรับ CStr ขึ้นอยู่กับอาร์กิวเมนต์นิพจน์

CVar ตัวแปร ช่วงเดียวกันเป็นคู่สำหรับ numerics ช่วงเดียวกันเป็นสตริงที่สำหรับ numerics ไม่ใช่

ไม่ต้องอ้างคำสั่ง form!... แล้วคับ ใส่ชื่อ control ที่ ระบุวันที่ได้เลย

สอบถามครับ
ผมทำระบบงานบันทึกด้วย Access มีผู้ใช้งานร่วมกัน 4 คน ทำการบันทึกข้อมูลไปเรื่อย ๆ ปริ้นงานออกมาของแต่ละ Record ปกติ
แต่เมื่อเข้าไปดูที่ฐาน (ผ่านไประยะหนึ่ง) บาง Record ไม่มีอยู่ในฐานครับ หาสามาเหตุไม่ได้ว่าเพราะอะไร
เป็นไปได้ไหมที่ข้อมูลที่เข้าไปบันทึกมันชนกัน ช่วยทีครับ ..... ขอบคุณมากครับ

คำถามมันกว้างไปหน่อย เพราะสาเหตุที่น่าจะเกิดขึ้นได้มีหลายปัจจัยมาก คงต้องดูที่การออกแบบตัวโปรแกรมว่ามีจุดบกพร่องตรงไหน
คงต้องไล่ดูเป็นส่วนๆ
1.ส่วนที่เพิ่มข้อมูลใหม่ลงในฐานข้อมูล ต้องมีระบบดักจับ ตรวจสอบข้อผิดพลาด ระหว่างการเพิ่มข้อมูลเพื่อให้ได้ข้อมูลครบถ้วน
2.ส่วนแก้ไขข้อมูลที่มีอยู่ในฐานข้อมูล  ส่วนนี้มีส่วนไหนที่ผู้ใช้งานอาจจะเข้าไปเพลอกดลบ Record ได้หรือไม่ (ถ้ามีระบบแก้ไข)
3.ส่วนของการลบข้อมูล  (ถ้ามีระบลบข้อมูลได้ โดย User)
4.ส่วนของการจัดระเบียบและดูข้อมูลด้วยวิธีต่างๆ  เช่นสอบถามข้อมูล การใช้งานคิวรี่ อื่นๆ อาจจะมีผลกระทบกับตัวฐานข้อมูล
5.ส่วนของการใช้งานหลายๆคน อาจจะเกิดจากการนำเข้าข้อมูลไม่ครบถ้วน ขาดส่วนไหนไปโดยไม่ตั้งใจ หรืออาจจะลืมบันทึกไปก็มีส่วนเหมือนกันครับ

มันมีหลายแบบทั้ง Tahoma MS Sans Serif Arial Verdana และอื่นๆ แต่ส่วนตัวผมใช้ Arial  เพราะฟ้อนพวกนี้ มีทุกเครื่อง และใช้ได้ทั้งไทยและอังกฤษครับ เรื่องขนาด แล้วแต่การออกแบบครับ

ผมได้สร้างตารางการยืมสมุด ซึ่งในตาราง Table1 ประกอบด้วย NameBorrow,DateDeadline ซึ่งผมได้สร้างคิวรี่การยืมเกินกำหนด ชื่อ qryOverdue โดยนำตาราง Table1 มาแสดงในคิวรี่และได้เพิ่มฟิลด์ Overdue: [DateDeadline]-Date()
คำถาม คือ ผมต้องการจะสร้าง Report โดยมี Combo Box ซึ่งมีลิสต์ให้เลือก ระหว่าง ไม่ถึงกำหนดคืน กับ เกินกำหนดคืน จะมีวิธีการอย่างไรบ้างครับ เพื่อให้รีพอตออกมาแบบนี้ครับ ขอบคุณมากครับ

ผมว่าตรง [DateDeadline]-Date()  เปลี่ยนเปนหาว่า เกินกำหนดคืน หรือยังดีกว่านะครับ
ซึ่งเราอาจจะใช้ฟังชั่น IIF เช่น
CheckOverdue: IIf([Datedeadline]>Date(),"ไม่เกินกำหนดคืน","เกินกำหนดคืน")ที่ช่อง Criteria ของ CheckOverdue ดังนี้
[Forms]![Form1]![CheckOverdue]แล้วสร้างฟอร์ม มา 1 form ผมตั้งชื่อว่า Form1 กับ ComboBox ชื่อ CheckOverdue โดย มี List ไม่เกินกำหนดคืน กับ เกินกำหนดคืน
แล้วกด ปุ่ม เพิ่มเปิดรายงานขึ้นมา

ผมสร้างฟอร์มกรอกข้อมูลลูกค้าโดยมีปุ่มเพิ่มข้อมูล ซึ่งในฟอร์มนี้มีซับฟอร์มลูกค้า ซึ่งผมต้องการให้ เมื่อกรอกข้อมูลเสร็จ แล้วกดปุ่มเพิ่มข้อมูล
ข้อมูลที่เพิ่งกรอกไปจะมาโชว์ในซับฟอร์มทันที จะมีวิธีไหนอย่างไรบ้างไหมครับ ขอบคุณครับ

ที่คำสั่งต่อท้ายด้วย me.ชื่อของ sub form.requery