การ Lock time(ให้เครื่อง Client ใช้เวลา จาก Server เมื่อเปิด Access)
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 323   7
URL.หัวข้อ / URL
การ Lock time(ให้เครื่อง Client ใช้เวลา จาก Server เมื่อเปิด Access)

การ Lock time(ให้เครื่อง Client ใช้เวลา จาก Server เมื่อเปิด Access) ไม่ทราบ อ.สุภาพ และอ.Badman หรือท่านอื่นใช้วิธีอะไร สำหรับผมยังไม่มี ขอความรู้ด้วยนะครับ  ผมจำได้ว่า อ.สุภาพเคยให้ Code ไว้แต่ผมยังมีปัญหาอยู่(สังสัย Code จะอยากไป สำหรับผม)

7 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R01912
<< ขออนุญาต คัดลอกมานำเสนอ >> การกำหนดเวลาที่เครื่อง Client ให้เท่ากับเวลาที่เครื่อง Server ------------------------------------------------------------------------ หากคุณใช้ NT Server แล้วเขียนโปรแกรมเกี่ยวกับวันเวลา หากไม่สามารถดึงเวลาปัจจุบัน จาก Database ได้แล้วหละก็ API funtion นี้ช่วยคุณได้มากทีเดียว ประกาศคำสั้ง API ไว้ใน Form หรือใน Module ก่อนเรียกใช้ Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long การเรียกใช้งานโดย function จะถูกเรียกทุกครั้งเมื่อ Form Load ให้เปลี่ยน \\Komkrich เป็นชื่อ Server ของคุณเองเช่น \\Internet เป็นต้น Private Sub Form_Load() Call ShellExecute(0&, "Open", "NET", "TIME " & "\\KOMKRICH" & " /SET /YES", 0&, 0) End Sub * ข้อควรระวัง การใช้คำสั่ง Windows API ควรจะมีการประกาศค่าตัวแปรให้ตรงกับ ตัวแปรที่ Funtion ต้องการผ่านค่าให้ และควรจะประกาศตัวแปรให้ครบถ้วนไม่เช่นนั้นแล้วอาจจะทำให้เครื่องแฮงค์ได้ทันที อ้างอิง : http://web.domaindlx.com/devforum/
2 @R01920
ขอบพระคุณครับ อ. แล้ว อ.Badman ปกติจะ set เวลาของProgram อย่างไรครับ
3 @R01921
เป็นโค้ดที่สั้นแต่ว่าใช้ได้ผลครับ สั้นกว่าตัวที่ผมเคยแนะนำไว้เยอะ ผมลองทดสอบแล้ว Works ครับ มันจะเปลี่ยนทั้งวันที่ และเวลา ให้พร้อมกันเลย
4 @R01927
ผมยังไม่เคยทำเกี่ยวกับเรื่องนี้เลยครับ ..โดยเฉพาะโปรแกรมที่วิ่งบน LAN
5 @R01928
ไม่ต้องเป็นเครื่อง Server ก็ทำได้ครับ ถ้ามีเครื่องคอมฯ อยู่ใน LAN ก็สามารถใช้โค้ดข้างต้นได้เลย
6 @R02106
วันนี้ผมไปอ่านกระทู้ต่างประเทศที่
http://www.utteraccess.com/forums/showflat.php?Cat=&Board=visualbasic&Number=192744&page=0&view=&sb=&o=&fpart=&vc=1&PHPSESSID=

เขาต้องการเปลี่ยนเวลาของเครื่องฯ

ผมเลยตอบเขาไปดังนี้

Check Date statement and Time statement in Access Help out.
ให้อ่าน Date และ Time statement ใน Help
Or try the function below.
หรือลองฟังก์ชันข้างล่างดู

Function SetDateTime(NewDate As Date, NewTime As String) As Date

Date = NewDate
Time = NewTime
SetDateTime = Now

End Function

Here's how to call the function.
วิธีการใช้งาน


Change current machine time to 13:30:00.
เปลี่ยนเวลาปัจจุบันให้เป็น 13:30:00
? SetDateTime(Date,"13:32:00")

Change current machine date to 3 March 2003.
เปลี่ยนวันที่ปัจจุบันให้เป็น 3 March 2003
? SetDateTime(#3/3/2003#,Now)

7 @R02108
ขอบพระคุณครับ อ. ผมจะทดลองดูแล้วจะแจ้งให้ทราบครับ อ.
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0609s