ขอบคุณคุณ chai มากครับ
ผมลองทดสอบ แล้วใช้งานได้ครับ
แต่แปลกมากครับว่าทำไม Set เลยทำไมมันไม่ทำงาน
ทีแรกก็เข้าใจว่าเป็นที่ Form Popup มันเลยเป็นอาการแบบนี้
แต่แปลกตรงพอคลิ๊กที่ Form ก็ยัง Focus อยู่
แสดงว่า การให้มันทำงานที่เดิมซ้ำๆ ทำให้ตัว Text มันเองก็ไม่สามารถทำตามคำสั่งทัน(เข้าใจเองครับ)
ต้องให้มันไป Active ที่อื่นก่อนค่อยมาทำที่ตัวมันใหม้ เป็นทริคที่ใกล้ แต่มองไม่ออกจริงๆครับ

ขอบคุณครับ

ขอขอบคุณทั้ง 2 ท่านมากครับ
ท่าน UnKnown และ ท่านnonc31 ครับ

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

ท่านnonc31 ครับตรงวันที่ปกติเป็น Now() ครับมันเกิดจากเครื่องจับเวลางานออกครับ
ผมนำมากรองข้อมูลเลยเอาแต่วันที่มา แต่ผมยังนึกไม่ออกว่าจะรวมกันยังไงครับ

เบื้องต้นขอทำตามคำแนะนำท่าน UnKnown ก่อนครับ
หากพอจะอะธิบายต่่อได้ก็ ขอรบกวนด้วยครับ


ขอบคุณครับ

ขอบคุณ คุณnonc31มากครับ
ทดลองตามแล้วใช้งานได้ครับ

ขอบคุณครับ nonc31 ครับ
เดี๋ยวผมเอา Code ไปทดลองดูครับ
เพราะว่าพึ่งเปลี่ยนการเขียนตามที่แจ้งไปครับ แต่ก็น่าสนใจเรื่อง
ตัว Code ที่ให้มาครับ เพราะหากเขียนบน Form ก็จะต้อง
เขียน Code ที่ Form เพื่อให้โปรแกรมทำงานอีก
แต่หากบังคับโปรแกรมที่ปิดโดยตรงเลยน่าจะประหยัดเวลากว่าครับ
โดยไม่ต้องเขียนเปิดที่ Form สั่ง  เปิดสั่งปิดตรงๆเลย ดีครับ
ขอบคุณทั้ง 2 ท่านครับ UnKnown และ nonc31

เข้าใจมากขึ้น และนำไปปรับใช้ได้หลาย อย่างเลยครับ
ขอบคุณมากครับผม

เรียนอาจารย์
ขอสอบถาม Code หาค่าใน Query ครับ
คือ หาค่า ACTUAL ที่มากที่สุด
ที่ตาราง QR_Test2
ที่ Field WO(ค่าTextครับ) = WO และ
ที่ Field S1(ค่าวันที่ครับ) = S1 จะเขียนยังไงครับ ลองผิดลองถูกไม่ได้ซักทีครับ
คืออีกอย่าง ถ้าวันที่ S1 มี Format วันที่ไม่เหมือนกันคือตารางที่เทียบมันมีเวลามาด้วยครับ
หาก Format ไม่เหมือนกันผมจะเทียบแค่วันที่ไม่เอาเวลาจะเขียนยังไงครับ

คือตอนนี้เอามาทำ Query ก่อน แล้วกำหนด Format ให้เหมือนกัน แล้วค่อยเทียบครับ
แต่ก็ยังไปเทียบไม่ได้นะครับ ติดตรงสูตรเงื่อนไขนี่แหละครับ
อันนี้ที่ลองเขียนครับ
S2: DMax("ACTUAL","QR_Test2","WO = " & [WO] & " and S1 = " & [S1])
คือไม่ค่อยเป็น SQL ครับ ปกติก็ Coppy มาดัดแปลงเอาครับ รบกวนด้วยครับ
ขอบคุณครับ

เรียนอาจารย์และสมาชิกทุกท่านครับ
     
     ผมอยากได้ Code ที่สั่งปิดโปรแกรม PowerPoint ที่เปิดอยู่ครับ
คือผมไอ้ Code ที่เปิดโปรแกรม PowerPoint คือ


Function OpenPPT(sFile As String, Optional bRunAsSlideShow As Boolean)
Dim oPPT As Object
On Error Resume Next
Set oPPT = GetObject(, "PowerPoint.Application")
If err.Number <> 0 Then
err.Clear
Set oPPT = CreateObject("PowerPoint.Application")
End If
On Error GoTo Error_Handler
oPPT.Visible = True
oPPT.Presentations.Open (sFile)
If bRunAsSlideShow Then oPPT.ActivePresentation.SlideShowSettings.Run
Error_Handler_Exit:
On Error Resume Next
Set oPPT = Nothing
Exit Function
Error_Handler:
MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
"Error Number: " & err.Number & vbCrLf & _
"Error Source: OpenPPT" & vbCrLf & _
"Error Description: " & err.Description, _
vbCritical, "An Error has Occured!"
Resume Error_Handler_Exit
End Function


 '***************************************************************
 ' ที่ปุ่มคำสั่ง

Private Sub Command13_Click()
        Call OpenPPT("D:\Program\file1.ppsx", True)
End Sub


แล้วถ้าจะสั่งให้ปิดละครับ ต้องเขียนยังไงครับ
ขอบคุณครับ

ขอบคุณครับ