แสดงกระทู้

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 - WISSANU

หน้า: [1]
1
ปัญหาคือ เวลาผมเลือก รายการใน combobox1 แล้วไฟของปุ่ม Numlock  ชอบดับเองตลอดเวลา  แล้วเวลาเลือกรายการอีกตรั้งก็จะติด เลือกรายการครั้งที่ 3 ก็จะดับ
ช่วยด้วยครับคืออยากให้ไฟติดตลอดเวลาไม่ว่ากี่ครั้งที่เลือกรายการครับ เป็น Windows 10 , Access 2007 ครับ

ขั้นตอนนะครับ
1.สร้าง Module ใส่โค้ดในลงไปแล้วเซฟ

โค๊ด: [Select]
Option Compare Database
 Private Type OSVERSIONINFO
        dwOSVersionInfoSize As Long
        dwMajorVersion As Long
        dwMinorVersion As Long
        dwBuildNumber As Long
        dwPlatformId As Long
        szCSDVersion As String * 128   '  Maintenance string for PSS usage
      End Type
      ' API declarations:
      Private Declare Function GetVersionEx Lib "Kernel32" _
         Alias "GetVersionExA" _
         (lpVersionInformation As OSVERSIONINFO) As Long
      Private Declare Sub keybd_event Lib "user32" _
         (ByVal bVk As Byte, _
          ByVal bScan As Byte, _
          ByVal dwflags As Long, ByVal dwExtraInfo As Long)

      Private Declare Function GetKeyboardState Lib "user32" _
         (pbKeyState As Byte) As Long

      Private Declare Function SetKeyboardState Lib "user32" _
         (lppbKeyState As Byte) As Long
      ' Constant declarations:
      Const VK_NUMLOCK = &H90
      Const VK_SCROLL = &H91
      Const VK_CAPITAL = &H14
      Const KEYEVENTF_EXTENDEDKEY = &H1
      Const KEYEVENTF_KEYUP = &H2
      Const VER_PLATFORM_WIN32_NT = 2
      Const VER_PLATFORM_WIN32_WINDOWS = 1
Function IsNumLockOn() As Boolean
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
        IsNumLockOn = keys(VK_NUMLOCK)
End Function

Sub ToggleNumLock()
        Dim o As OSVERSIONINFO
        o.dwOSVersionInfoSize = Len(o)
        GetVersionEx o
        Dim keys(0 To 255) As Byte
        GetKeyboardState keys(0)
          If o.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then  '=====Win95
                keys(VK_NUMLOCK) = Abs(Not keys(VK_NUMLOCK))
                SetKeyboardState keys(0)
          ElseIf o.dwPlatformId = VER_PLATFORM_WIN32_NT Then   '=====WinNT
          'Simulate Key Press
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
          'Simulate Key Release
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
               Or KEYEVENTF_KEYUP, 0
          End If
End Sub

Sub mySendKeys(sKeys As String, Optional bWait As Boolean = False)
Dim bNumLockState As Boolean
    bNumLockState = IsNumLockOn()
    SendKeys sKeys, bWait
    If IsNumLockOn() <> bNumLockState Then
        ToggleNumLock
    End If
End Sub

ขั้นตอนที่ 2 ไปที่ฟอร์ม เราจะทำกับ Control ตัวไหนให้กำหนด Event GoFocus ได้เลยเช่น

โค๊ด: [Select]
Private Sub Combo1_GotFocus()
Call ToggleNumLock
End Sub


Credit http://access.mvps.org/
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

2
1. น่าจะเป็นที่วินโดว์ครับ ต้องทดสอบกับเครื่องอื่นดูครับ ที่ไม่ใช่เครื่องที่ติดตั้งจากแผ่นเดียวกัน
2. ติดตั้ง Access2007 ไม่เต็ม (ให้เลือกแบบกำหนดเอง)

น่าจะเป็นที่วินโดว์มากกว่า   :cool: :cool: :cool:
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

3
List ชื่อไฟล์ในโฟลเดอร์ และในซับโฟลเดอร์เข้าสู่  Table ทีเคยเห็นมีแต่แสดงลงใน ComboBox , ListBox แต่ยังไม่เคยเห็นลงใน Table เลยครับ

ช่วยผมที่ครับ
ใน Table จะมี
---------------
Filename
Path
Date_Modified

ผมได้สร้างตัวอย่างโดยเอาโค้ดจากเว็บนอกครับ เครดิต Allen Browne นะครับ มาประยุกต์ใช้กับตัวอย่างนี้
น่าจะตอบโจทย์ที่คุณอยากได้

คุณสามารถนำไปกำหนดค่าเพิ่มเติมได้เช่น

Private Sub Command2_Click()
Dim StrFloderpath As String
Dim strPath As String
Dim strFileSpec As String
Dim booIncludeSubfolders As Boolean

    StrFilePath = Me.txtFloderpath
    strPath = StrFilePath
    strFileSpec = "*.*"            'ค้นหากำหนดคุณลักษณะเช่นหาเฉพาะไฟล์นามสกุลที่ระบุเช่น  strFileSpec = "*.doc"    เป็นต้น
    booIncludeSubfolders = True  ' กำหนดให้ค้นหาได้ว่าเอาเฉพาะ Folder หลัก (กำหนดเป็น False) หรือหาใน SubFolder ด้วย (True)
    ListFilesToTable strPath, strFileSpec, booIncludeSubfolders
End Sub


โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

4
 :question:
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

5
ขอบคุณมากๆครับ :want: :want:
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

6
ทำได้แล้วววววววววว งมยุนานนนนน แต่ก็ยังติดอยู่อีกนิดนึง คือ ค้นจาก C: แล้วมันวิ่งไปค้นไฟล์ไม่ทั่วถึง แต่ระบุ path ไปเลย เช่น C:\Program Files แบบนี้ค้นได้ดี  ใครที่ทำได้ดีแล้วจากโค๊ด อ.สันติสุข ก็เอามาแบ่งปันบ้างนะครับ  :grin: :grin: :meaw: :meaw:
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

7
ขอบคุณครับ แต่ติด Error ตามไฟล์ที่แนบมานี้ครับ

อยากได้แบบนี้ครับ รบกวน อ.สันติสุข อีกทีครับ
โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

8
ข้อควรระวังในการพิมพ์ข้อความ,โค้ดหรือสคริปต่างๆ

เนื่องด้วยตัวเว็บบอร์ดมีการเปิดให้สามารถใช้งานสคริปในการตกแต่งข้อความ
เช่น [b.]=ตัวหนา , [i ]=ตัวเอียง , [u-]=ขีดเส้นใต้  และอื่นๆอีก สังเกตุดูจะเห็นว่าในตัวอย่างจะมีการเติม".",เว้นว่าง หรือ"-"
ถ้าไม่เติมอะไรไปจะแสดงผลออกมาเป็น  =ตัวหนา , =ตัวเอียง , =ขีดเส้นใต้   หรืออย่าง [A]+[B ]=[C] กลับแสดงผลว่า [A]+=[C] เป็นต้น :dizzy:
หรือใช้วิธีพิมพ์ในกล่องโค้ด# ก็ได้ครับ

โค๊ด: [Select]
[A]+[B]=[C]
ดังนั้น ควรงดใช้คำพวกนี้ หรือก่อนโพสกด"แสดงตัวอย่าง"เพื่อตรวจดูความถูกต้องก่อนครับ(สมาชิกจะสามารถแก้ข้อความใหม่ได้ :XD:)

โพสต์นี้ได้รับคำขอบคุณจาก: WISSANU

หน้า: [1]