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


Sub SendMessageToLineNotify()

Dim myurl As String, iMessage As String, postDATA As String, winHttpReq As Object
iMessage = Me.TxtMessage
Set winHttpReq = CreateObject("Microsoft.XMLHTTP")
myurl = "https://notify-api.line.me/api/notify "

postDATA = "message= " & iMessage
winHttpReq.Open "POST", myurl, False
winHttpReq.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
winHttpReq.SetRequestHeader "Authorization", "Bearer " & Me.TxtToken
winHttpReq.Send (postDATA)
MsgBox winHttpReq.responsetext

End Sub

ที่มา

เวลา import ข้อมูลเยอะแล้ว จะขึ้นเป็นนาฬิกาทราย ผู้ใช้อาจจะคิดว่า error หรือไม่ทราบว่าต้องรอนานขนาดไหน ถ้าเปลี่ยนนาฬิการทรายเป็น Progress meter น่าจะดีกว่า ต้องทำอย่างไรบ้างครับ
แบบรูปที่แนบมาครับ

สวัสดีค่ะ

มีวิธีที่ทำให้ Query โชว์ค่าล่าสุดแค่ค่าเดียวได้มั้ยคะ

Table ชื่อ : 7515

field:   ID        PartNumber     Week
          1               05               38     
          2               09               40
          3               77               40

อยากให้โชว์ใน Query เป็น
          ID        PartNumber     Week
           3               77               40

ข้อมูลจะมีการอัพเดทเรื่อยๆ อยากให้วิธีทำที่ง่ายที่สุด เพราะพึ่งเริ่มเรียนรู้ Access ค่ะ
ขอบคุณนะคะรบกวนด้วย
 

คลิกขวา Query->ผลรวม->เปลี่ยนจาก group by เป็น last ทั้ง ID  PartNumber   Week   ไม่รู้ใช้ที่ต้องการหรือเปล่า มือใหม่เหมือนกัน อยากลองตอบ อิอิ