มีคำสั่งไหนแทน Sendkey {Enter} ได้บ้าง

[Un]

มีคำสั่งไหนแทน Sendkey {Enter} ได้บ้างครับ

[สันติสุข]

จะทำอะไรเหรอครับ   แล้ว Sendkeys ไม่ตอบโจทย์ยังไง

[Un]

จะทำอะไรเหรอครับ   แล้ว Sendkeys ไม่ตอบโจทย์ยังไง

ปัญหาเดิมครับอาจารย์ มันกด Numlock เอง

ผมไป Copy ฟอร์มของกระทู้
https://www.thai-access.com/index.php?topic=935.msg4116#new
(พิกัด ละติจูด-ลองติจูดผูกกับฐานข้อมูล ms access กับ google map ใครพอมีตัวอย่าง)

แล้วเอามาแก้ไข ให้พอเลือกบ้านที่ผมมีพิกัดอยู่แล้วให้มันขึ้นแผนที่เลย
ไม่ต้องมากดปุ่มค้นหาอีก ตอนแรกผมก็ลองใช้คำสัง Call ไปที่ On Click ของปุ่มนี้
มันก็ขึ้น Error ลอง Copy คำสังมาต่อใน Code มันก็ขึ้น Error อีก เลยใช้คำสั่ง
ให้ไป Setfocus ที่ปุ่ม แล้ว Sendkey {Enter} มันใช้ได้ดีเลยครับ ติดที่มันสั่ง
 Numlock

[chai]

ลองแบบนี้ดูนะครับ
1.สร้าง Subprocedure ให้ทำงานตามต้องการ
2.สร้าง Function() เรียกการทำงาน Call Subprocedure
3.สร้าง Macro เรียกการทำงานของ Function (ก่อนเรียก Function ให้ GotoControl เพื่อไป Focus)
4.ที่ Event On_Focus ของ Control เรียกการทำงานของ Macro (Docmd.RunMacro)
คือพยายามเลี่ยง SendKeys ผมเคยลองใช้วิธีนี้ได้ผลครับ มันไม่กด Numlock
หรือถ้ามีวิธีอื่น รอท่านอื่นๆมาตอบครับ

[สันติสุข]

หาว่า error เพราะอะไรและแก้ไขที่จุดนั้น จะเป็นสิ่งที่ถูกกว่าเลี่ยงมาใช้ Sendkeys ครับ  ส่วนอาการ NumLock เท่าที่เคยได้ยิน เป็นบักของ VBA ครับ แก้ไขไม่ได้ แต่สั่ง Sendkeys "{NUMLOCK}", True ไปอีกทีเพื่อให้กลับสถานะเดิมพอจะกล้อมแกล้มไปได้ แต่ได้ผล 100% ไหม อันนี้ไม่ทราบครับ

[PNR]

เลยใช้คำสั่ง
ให้ไป Setfocus ที่ปุ่ม แล้ว Sendkey {Enter} มันใช้ได้ดีเลยครับ ติดที่มันสั่ง
 Numlock

ใช้ Event  Enter ของปุ่มช่วยก็ได้ครับเช่น
สมมุติปุ่มชื่อ ShowMap
Private Sub ShowMap_Enter()
คำสั่งแสดงแผนที หรือคำสั่งที่ต้องการ
End Sub

ที่ปุ่มที่ต้องการกดก็สั่ง

Private Sub Command1_Click()
Call ShowMap_Enter
End Sub

ถ้าจะทำเงื่อนไขต่อไปเลยแบบไม่ต้องกดปุ่มอื่นๆ ก็ใช้
Call ShowMap_Enter
ได้เลยซึ่งเป็นการประยุกต์ใช้คำสั่งแทนการกด Enter เองได้เลย แบบนี้ทำให้ SendKey ไม่ต้องใช้อีก และไม่ต้องสั่ง setfocus ด้วย
หรือถ้าท่านสั่ง Setfocus ปุ่มShowMap      Event Enter ก็จะทำงานทันทีเช่นกันคับ โดยไม่ต้อง Call อีก

[Un]

ลองแบบนี้ดูนะครับ
1.สร้าง Subprocedure ให้ทำงานตามต้องการ
2.สร้าง Function() เรียกการทำงาน Call Subprocedure
3.สร้าง Macro เรียกการทำงานของ Function (ก่อนเรียก Function ให้ GotoControl เพื่อไป Focus)
4.ที่ Event On_Focus ของ Control เรียกการทำงานของ Macro (Docmd.RunMacro)
คือพยายามเลี่ยง SendKeys ผมเคยลองใช้วิธีนี้ได้ผลครับ มันไม่กด Numlock
หรือถ้ามีวิธีอื่น รอท่านอื่นๆมาตอบครับ

คือผม Copy Forms เค้ามาอะครับ แล้ววิธีการก็ อ่านแล้วไม่เข้าใจ
จะเอามาปรับแบบที่ อาจารย์ แนะนำ เลยทำไม่ได้ครับ
ขอบพระคุณครับ ที่มาช่วยตอบ

ใช้ Event  Enter ของปุ่มช่วยก็ได้ครับเช่น
สมมุติปุ่มชื่อ ShowMap
Private Sub ShowMap_Enter()
คำสั่งแสดงแผนที หรือคำสั่งที่ต้องการ
End Sub

ที่ปุ่มที่ต้องการกดก็สั่ง

Private Sub Command1_Click()
Call ShowMap_Enter
End Sub

ถ้าจะทำเงื่อนไขต่อไปเลยแบบไม่ต้องกดปุ่มอื่นๆ ก็ใช้
Call ShowMap_Enter
ได้เลยซึ่งเป็นการประยุกต์ใช้คำสั่งแทนการกด Enter เองได้เลย แบบนี้ทำให้ SendKey ไม่ต้องใช้อีก และไม่ต้องสั่ง setfocus ด้วย
หรือถ้าท่านสั่ง Setfocus ปุ่มShowMap      Event Enter ก็จะทำงานทันทีเช่นกันคับ โดยไม่ต้อง Call อีก

ลองแล้ว ผลออกมาเช่น เดียวกับ การ Call ไปที่ On Click ครับ
ขอบพระคุณครับ ที่มาช่วยตอบ

หาว่า error เพราะอะไรและแก้ไขที่จุดนั้น จะเป็นสิ่งที่ถูกกว่าเลี่ยงมาใช้ Sendkeys ครับ  ส่วนอาการ NumLock เท่าที่เคยได้ยิน เป็นบักของ VBA ครับ แก้ไขไม่ได้ แต่สั่ง Sendkeys "{NUMLOCK}", True ไปอีกทีเพื่อให้กลับสถานะเดิมพอจะกล้อมแกล้มไปได้ แต่ได้ผล 100% ไหม อันนี้ไม่ทราบครับ

วิธีการที่เค้าใช้ผมไม่มีความรู้เลยครับ เลยไม่สามารถ แก้ Error ตามที่อาจารย์แนะนำ
สุดท้าย ผมเอา Sendkeys "{NUMLOCK}", True  ไปต่อท้าย ง่ายสุดแล้วครับ
ขอบพระคุณครับอาจารย์

[TTT]

ลองคำสั่งแบบ API ดูไม๊ครับ เผื่อช่วยได้

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

การใช้งานแทน Sendkey

    keybd_event &HD, 0, 0, 0
    keybd_event &HD, 0, &H2, 0

จะเป็นการส่งคีย์ ENTER

[Un]

ลองคำสั่งแบบ API ดูไม๊ครับ เผื่อช่วยได้

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

การใช้งานแทน Sendkey

    keybd_event &HD, 0, 0, 0
    keybd_event &HD, 0, &H2, 0

จะเป็นการส่งคีย์ ENTER

ขอบคุณครับอาจารย์ เดี๋ยวขะลองทำดูครับ
นี่ยังไม่ว่าทำ แจ้งเตือนในไลน์ กับลูกศรวิ่งได้
ของอาจารย์เลยครับ ><