SELECT [Place - Boxes (In)].Place, Nz([SumOfBoxin])+0 AS [จำนวนรับเข้า (ลัง-ห่อ)], Nz([SumOfBoxout])+0 AS [จำนวนจ่ายออก (ลัง-ห่อ)], [จำนวนรับเข้า (ลัง-ห่อ)]-[จำนวนจ่ายออก (ลัง-ห่อ)] AS [จำนวนคงเหลือ (ลัง-ห่อ)], Nz([SumOfPCSin])+0 AS [จำนวนเศษรับเข้า (ชิ้น)], Nz([SumOfPCSout])+0 AS [จำนวนเศษจ่ายออก (ชิ้น)], [จำนวนเศษรับเข้า (ชิ้น)]-[จำนวนเศษจ่ายออก (ชิ้น)] AS [จำนวนเศษคงเหลือ (ชิ้น)]
FROM (([Place - Boxes (In)] LEFT JOIN [Place - Boxes (out)] ON [Place - Boxes (In)].Place = [Place - Boxes (out)].Place) LEFT JOIN [Place - Pcs (In)] ON [Place - Boxes (In)].Place = [Place - Pcs (In)].Place) LEFT JOIN [Place - Pcs (out)] ON [Place - Boxes (In)].Place = [Place - Pcs (out)].Place;U

UNION SELECT T1.*, (select sum(T3.Inboxes) from [In] as T3 where T3.place = T1.place) AS [Sum]
FROM [In] AS T1

WHERE (((T1.date)=(select max(T2.[date]) from [In] as T2 where T2.place = T1.place)));



ลบตรงสีแดงออกครับ

ลองรีเซ็ตเครื่องดูหรือยังครับ ถ้ายังไม่ได้จริงๆ ก็ลบ OFFICE แล้วลงใหม่ครับ และปิดระบบ WINDOWS UPDATE ด้วยนะครับ

ใช้ IF Check สถานะ textbox ก่อนก็ได้ครับ เช่น

Private Sub Command107_Click()
If IsNull(Me.txt_Start) Or IsNull(Me.txt_End) Then
MsgBox "กรุณาระบุวันที่ให้เรียบร้อยก่อน", vbInformation, "แจ้งเตือน!!"
Else
ใส่โค้ดค้นหาอันเดิมตรงนี้ได้เลย
End If
End sub

หรือเปลี่ยนโค้ดมาใช้แบบนี้ก็ได้ครับเป็นการกำหนด RecordSource
ผมสมมุติตารางของข้อมูลชื่อ Table1

Private Sub Command107_Click()
If IsNull(Me.txt_start) Or IsNull(Me.txt_end) Then
MsgBox "กรุณาระบุวันที่ให้เรียบร้อยก่อน", vbInformation, "แจ้งเตือน!!"
Else
Me.RecordSource = "SELECT * FROM Table1 WHERE (((Table1.[Posting Date]) Between [forms]![frm_service invoice]![txt_start] And [forms]![frm_service invoice]![txt_end])) ORDER BY Table1.[Posting Date];"
End If
End Sub

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

ผมสมมุติชื่อ Field ดังนี้

Field ชื่อ CustomerName  Datatype Text  เก็บชื่อลูกค้า
            OutCardDate     Datatype Date&Time  เก็บวันออกบัตร
            ExpireCardDate Datatype Date&Time  เก็บวันหมดอายุ

Table ชื่อ Table1

ที่คิวรี่ เอา sql นี้ไปวางได้เลย
SELECT table1.CustomerName, table1.OutCardDate, table1.ExpireCardDate, IIf(Date()<[ExpireCardDate],"เหลือ " & [ExpireCardDate]-Date() & " วัน","บัตรหมดอายุ") AS สถานะ
FROM table1;


ต้อง Dim ...... as ....... ครับ

การกำหนดให้ค่า มากกว่า หรือ น้อยกว่า ได้จะต้องเป็นค่าตัวเลข นะครับเช่น

Private Sub Text0_AfterUpdate()
Dim Msg as string
Dim  Report as Integer
Msg = "สไกล้หมดแล้ว"
Report = Me.Text0
If Report < 5 Then
 MsgBox (Msg), vbInformation, "status"
 End If
End Sub

ข้อมูลประจำปีมาจาก 2 ตารางใช่หรือเปล่าครับเช่น Area2018 กับ Area2019
สร้าง Union Query และ Group By Field ID กับ MEMBER_ID  ครับ

หรือการ Join Table เชื่อมความสัมพันธ์ของ Field ID และ MEMBER_ID ของสองตารางเข้าด้วยกันและดึง Area...... ของทั้งสองปีลงมา
และสร้าง Field ลบจำนวนแปลงขึ้นมา  /  ส่วนของ remake ใช้การดึงค่าที่มีมาแสดงทั้งสองอย่างได้
เช่น area2018 Remark1 ระบุ  ขุดบ่อปลา
      area2019 Remark2 ระบุ  ตัดถนนเข้าสวน

ตรงField Remark เราก็ระบุเช่น SRemark:Remark1 & "," & Remark2
ข้อมูลที่แสดงจะได้เป็น ขุดบ่อปลา,ตัดถนนเข้าสวน เป็นต้น
หรือถ้าจะแสดง remark แค่ปีล่าสุดเท่านั้นก็ดึง remark2 มาแสดงได้เลย

หรือถ้าไม่อยาก Fix ปีทั้งสองไว้แบบตายตัว จะสร้างฟอร์มกำหนดปีที่จะแสดงข้อมูลก็ทำได้เหมือนกันครับ
โดยใช้การUnion Query ข้อมูลทั้ง 2 ตารางเข้าด้วยกันและกรองข้อมูลจาก Control ระบุปีมาก่อนแล้วสร้างคิวรี่ย่อยในการแสดงข้อมูล

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

เป็นภาษาไทย หรืออังกฤษ ครับ
ถ้าภาษาอังกฤษลองดูตัวอย่างนี้ครับ

ที่ Module ใส่โค้ดนี้เข้าไป

Option Compare Database
Option Explicit
Function MySpeak(str As String)
Dim objVo As Object
Set objVo = CreateObject("SAPI.SpVoice")
objVo.Speak str
End Function

ที่ฟอร์ม สร้าง textbox ชื่อ txtSpeak กรอกข้อความภาษาอังกฤษ แล้ว สร้างปุ่มขึ้นมา 1 ปุ่มใส่โค้ดนี้เข้าไป

Private Sub CmbVoice_Click()
Call MySpeak(txtSpeak)
End Sub

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

แบบนี้เปล่าครับ

text6 ได้จากการคำนวนตรงส่วนไหนครับ

ส่วน text5 โค้ดตามนี้ครับ

Sub Calculate()
Me.Text5 = CDbl(Nz(Me.Text1, 0)) + CDbl(Nz(Me.Text2, 0)) + CDbl(Nz(Me.Text3, 0)) + CDbl(Nz(Me.Text4, 0))
End Sub

Private Sub Text1_AfterUpdate()
Call Calculate
End Sub
Private Sub Text2_AfterUpdate()
Call Calculate
End Sub
Private Sub Text3_AfterUpdate()
Call Calculate
End Sub
Private Sub Text4_AfterUpdate()
Call Calculate
End Sub