กระทู้เก่าบอร์ด อ.Yeadram
        
           3,462   11		  
          
					  
		    URL.หัวข้อ / 
		    URL
        
        อยากทราบชื่อเครื่องในโปรแกรมที่เขียนด้วย Access 20      
    
      ขอความช่วยทุกท่าน ผมต้องการ ดึงชื่อเครื่องให้มาแสดงในโปรแกรม Access ที่ผมเขียนขึ้นมา  โดยจะเก็บชื่อเครื่องไว้ในฐานข้อมูล แต่ไม่ทราบคำสั่ง ในการดึงชื่อเครื่องมาใช้งานได้อย่างไร 
เรียน ถามอาจารย์ทุกท่าน ใช้คำสั่งอะไร ต้องเขียนแบบไหนครับ
    
    
  เรียน ถามอาจารย์ทุกท่าน ใช้คำสั่งอะไร ต้องเขียนแบบไหนครับ
				11 Reply in this Topic. Dispaly 1  pages and you are on page number 1 
				
        
    2 @R04610    
        
  
      แปะไม่ได้ครับ  เอามาใส่แล้วใช้ไม่ได้ครับ  รบกวนอาจารย์ช่วยส่ง files ตัวอย่าง มาให้หน่อยได้ไหมครับ
(ผมทำใน Microsoft Access 2003 ครับ)
    
    
  (ผมทำใน Microsoft Access 2003 ครับ)
        
    3 @R04612    
        
  
      ใช้คำสั่ง
Environ("ComputerName")
เช่น msgbox Environ("ComputerName")
นอกจาก คำว่า ComputerName แล้วยังมีอีกหลายคำที่คุณสามารถใช้ Environ() ค้นหาได้ เช่นคำว่า
UserName
SystemDrive
OS
Windir
ฯลฯ
    
  Environ("ComputerName")
เช่น msgbox Environ("ComputerName")
นอกจาก คำว่า ComputerName แล้วยังมีอีกหลายคำที่คุณสามารถใช้ Environ() ค้นหาได้ เช่นคำว่า
UserName
SystemDrive
OS
Windir
ฯลฯ
        
    4 @R04862    
        
  
      ขอบคุณ  user :  Yeadram     ที่ให้คำแนะนำครับ
คำสัี่งพวกนี้ จะหาอ่านได้ที่ไหนบ้างครับ มี Web หรือคู่มือ แนะนำหรือไม่ครับ
    
    
  คำสัี่งพวกนี้ จะหาอ่านได้ที่ไหนบ้างครับ มี Web หรือคู่มือ แนะนำหรือไม่ครับ
        
    5 @R04868    
        
  
      ลองพิมพ์คำว่า
"Ms Access โปรแกรมสุดหวง"
ในGoogle ก็จะเจอลิงค์แรก ไปลองดาวน์โหลดใช้ดูครับ แต่มันมีวิธีแก้อะไรสักอย่างอยู่ดี ผมเองก็ไม่รู้เหมือนกัน :-P
    
  "Ms Access โปรแกรมสุดหวง"
ในGoogle ก็จะเจอลิงค์แรก ไปลองดาวน์โหลดใช้ดูครับ แต่มันมีวิธีแก้อะไรสักอย่างอยู่ดี ผมเองก็ไม่รู้เหมือนกัน :-P
        
    6 @R04904    
        
  
      รบกวนถามอาจารย์ครับว่า
Environ ให้แสดง Mac Ip ได้มั๊ยครับ
    
  Environ ให้แสดง Mac Ip ได้มั๊ยครับ
        
    7 @R04905    
        
  
      พอดีไปเห็นหน้านี้ครับ แต่ไม่ค่อยเข้าใจครับ รบกวนช่วยอธิบายครับ หากมันใช้ไม่ได้กับMs Access ก็ไม่เป็นไรครับ
ขอบพระคุณครับ
    
  ขอบพระคุณครับ
        
    8 @R04906    
        
  
      ลืมใส่ Addressครับ
http://vbnet.mvps.org/index.html?code/network/macaddress.htm
    
  http://vbnet.mvps.org/index.html?code/network/macaddress.htm
        
    9 @R04907    
        
  
      จากคำว่า
To a form add a command button (Command1), and a text box (Text1). Labels and frames are optional. Add the following:
ผมได้สร้าง ฟอร์มมาฟอร์มหนึ่ง และ a command button (Command1), and a text box (Text1).
แต่ตรงนี้
Labels and frames are optional. Add the following
ผมไม่เข้าใจครับอาจารย์ รบกวนอาจารย์ช่วยอธิบายด้วยนะครับ
ขอบพระคุณครับ
    
  To a form add a command button (Command1), and a text box (Text1). Labels and frames are optional. Add the following:
ผมได้สร้าง ฟอร์มมาฟอร์มหนึ่ง และ a command button (Command1), and a text box (Text1).
แต่ตรงนี้
Labels and frames are optional. Add the following
ผมไม่เข้าใจครับอาจารย์ รบกวนอาจารย์ช่วยอธิบายด้วยนะครับ
ขอบพระคุณครับ
        
    10 @R04909    
        
  
      ตอบคุณเกรียงไกร
ผมก็ค้นๆ มาเหมือนกันครับ
เลยใช้มาตลอด 2-3ปีมานี้แหละครับ ใช้อยู่ไม่กี่ตัว พอคุณเกรียงไกรถามมา ก็เลย ลองค้นอีกทีครับ
ลองดูลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
คุณ BenTen ครับ
คำถามแรก จะหาไอพีได้อย่างไร ผมค้นมาให้ครับ ดูตามลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
ส่วนคำถามที่สอง ผมคิดว่า คงต้องตามเข้าไปอ่านดีกว่า อาจจะตอบได้ตรงประเด็น ก็เลยลองเข้าไปตามลิงค์ที่คุณ BenTen ให้มา โอ้วววว ยาวจัง ไม่ค่อยจะคล่องภาษาอังกฤษเท่าไหร่ ขอยอมแพ้ไว้ก่อนครับ คิดว่า คำตอบของคำถามแรกน่าจะช่วยได้แล้วล่ะครับ หรือไม่ ยังไงก็ลองแจ้งอีกทีครับ
    
  ผมก็ค้นๆ มาเหมือนกันครับ
เลยใช้มาตลอด 2-3ปีมานี้แหละครับ ใช้อยู่ไม่กี่ตัว พอคุณเกรียงไกรถามมา ก็เลย ลองค้นอีกทีครับ
ลองดูลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
คุณ BenTen ครับ
คำถามแรก จะหาไอพีได้อย่างไร ผมค้นมาให้ครับ ดูตามลิงค์นี้นะครับ
http://www.utteraccess.com/forums/printthread.php?Board=53&main=693880&type=post
ส่วนคำถามที่สอง ผมคิดว่า คงต้องตามเข้าไปอ่านดีกว่า อาจจะตอบได้ตรงประเด็น ก็เลยลองเข้าไปตามลิงค์ที่คุณ BenTen ให้มา โอ้วววว ยาวจัง ไม่ค่อยจะคล่องภาษาอังกฤษเท่าไหร่ ขอยอมแพ้ไว้ก่อนครับ คิดว่า คำตอบของคำถามแรกน่าจะช่วยได้แล้วล่ะครับ หรือไม่ ยังไงก็ลองแจ้งอีกทีครับ
        
    11 @R04917    
        
    
      ขอบคุณครับ อาจารย์
ช่วงนี้ผมคงใช้แบบเช็คCPUไปก่อนครับ
ขอบพระคุณครับ
    
  ช่วงนี้ผมคงใช้แบบเช็คCPUไปก่อนครับ
ขอบพระคุณครับ
      Time: 0.5977s
    
      
		
สร้าง form และ สร้าง command button ขึ้นมา 1 อัน ( command0)
แล้ว เอา code ข้างล่าง นี้ไปแปะดู
Private Const MAX_COMPUTERNAME_LENGTH As Long = 31
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Sub Command0_Click()
Dim dwLen As Long
Dim strString As String
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
Command0.Caption = strString
End Sub