แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Un

หน้า: 1 ... 5 6 7 [8] 9 10 11 ... 14
127
ได้แล้วครับ ขอบพระคุณมากครับอาจารย์

128


เหมือนของผมก็มีแล้วครับอาจารย์

130
อยากได้ตัวอย่าง
คลิกปุ่มแล้วเปิดหน้าต่างเลือกไฟล์(Textfile)
เมื่อเลือกแล้ว มีปุ่มกดเพื่อนนำเข้าไฟล์นั้นมาในฐานข้อมูล
ขอบคุณครับ

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

132
ลองแบบนี้ดูนะครับ
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  ไปต่อท้าย ง่ายสุดแล้วครับ
ขอบพระคุณครับอาจารย์

133
จะทำอะไรเหรอครับ   แล้ว 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


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

135
อันนี้เด็ดจริง ถ้าเพิ่ม คลิกลงไปตรงไหนแล้ว ละติจูด กับลองติจูด
เข้าไปบันทึกในฐานข้อมูลได้ จะยอดเยี่ยมเลยครับ

136
ที่เคยใช้คือ เอาไฟล์ฝากไว้ใน One Drive แล้วใช้ได้ไม่มีปัญหานะครับ
เจอข้อจำกัดอะไรมั่งยังครับ เช่น ฐานที่มีขนาดใหญ่ หรือการใช้ร่วมกันหลายๆ คน

137
ขอบคุณครับอาจารย์ TTT

138
สำเร็จแล้วครับ อาจารย์ ขอบพระคุณอีกครั้งครับ

139
ไม่ได้ครับมัน Error

140
โอเคเลย เข้าใจหลักการครับ เดี๋ยวลองดูก่อน
อาจารย์ครับ แล้วจะก็อปรูปจากนามสกุล .jpg จาก ไดว์หนึ่ง ไปอีกไดว์หนึง เขียนโคตยังงัยครับ

141
1.เราสามารถการเชื่อมโยง text file ที่เปลี่ยนชื่อไปเรื่อยๆ ได้มั้ยครับ
2.เราสามารถเขียนโค๊ตให้เชื่อโยง text file ได้รึป่าวครับ

142
อ่านแล้ว งง คำถาม แต่ งง ไปอีก ทำไมอาจารย์เก่งจัง
เดาได้ด้วยว่าเค้าถามอะไร

:question: พูดแล้วผมเองก็อยากรู้เลยว่าคำถามไหน ยังพอจำโพสนั้นได้ไหมครับ

มีหลายกระทู้เลยครับ ผมอ่านแล้วไม่เข้าใจว่าเค้าถามเรื่องอะไร
แต่อาจารย์มาตอบ คุยกับเค้ารู้เรื่องเฉยเลย ก็คิดว่า ความรู้ผมน้อยผมไม่เข้าใจ
แต่พออาจารย์ตอบ อ้าว เรื่องนี้เอง อะไรแบบนี้ครับ

143
อ่านแล้ว งง คำถาม แต่ งง ไปอีก ทำไมอาจารย์เก่งจัง
เดาได้ด้วยว่าเค้าถามอะไร

144
อะไรที่เป็นรายได้ของเวป ทำเลยครับ

หน้า: 1 ... 5 6 7 [8] 9 10 11 ... 14