ผมเคยเจอปัญหา Access จากเดิมรันได้ อยู่มาวันหนึ่งก็รันไม่ได้
(โปรแกรมเดิม/Code เดิม ปล.โปรแกรมมีการใช้ ActiveX)
ลองถอนการติดตั้งแล้วลง Access ใหม่ แบบปกติก็แล้ว แบบแอดวานด์ก็แล้ว จัดการ Registry ก็แล้ว
แต่ก็ไม่สามารถรันได้ สุดท้ายคือลงวินโดว์ใหม่ ถึงรันได้
...กรณีแบบนี้ท่านทั้งหลายมีวิธีแก้ไขอย่างไรครับ โดยที่ไม่ต้องติดตั้งวินโดว์ใหม่...

Private Sub Form_Open(Cancel As Integer)
    Me.TimerInterval = 150
End Sub

Private Sub Form_Timer()
    Me.TimerInterval = 0
    Me.Image1.picture = Me.pathPic
End Sub

น่าจะพอแก้ขัด 

เปลี่ยนจาก visible เป็น enabled น่าจะดีกว่ามั๊ยครับ

 

Private Sub Command4_Click()
DoCmd.SetWarnings False
    SQL = "UPDATE Table1 SET Table1.[เลือก] = True;"
    DoCmd.RunSQL SQL
    Me.Refresh
End Sub

Private Sub Command5_Click()
DoCmd.SetWarnings False
    SQL = "UPDATE Table1 SET Table1.[เลือก] = False;"
    DoCmd.RunSQL SQL
    Me.Refresh
End Sub

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

https://www.thai-access.com/index.php?action=dlattach;topic=485.0;attach=419
สงสัยต้องแจ้งให้เวปทำตัวอักษรชื่อไฟล์ที่อับโหลดขึ้นให้มันใหญ่แล้วครับ 

ต้องการค้นหาไฟล์ที่ระบุแบบเจาะจง เช่นต้องการค้นไฟล์ abc.doc ในทุกโฟลเดอร์/สับโฟลเดอร์ หาในgoogleแต่ใช้ไม่เป็น รันไม่ผ่าน
มี code นึงเหมือนจะได้ รันผ่าน แต่เป็นการอ่านชื่อโฟลเดอร์ ส่วนการค้นหาไฟล์ผมไปต่อไม่เป็น

Private Sub Command3_Click()
Dim MyPath, MyName As String
MyPath = "C:\Program Files (x86)\"
MyName = Dir(MyPath, vbDirectory)   ' Retrieve the first entry.
Do While MyName <> ""   ' Start the loop.
      ' Use bitwise comparison to make sure MyName is a directory.
      If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
         ' Display entry only if it's a directory.
         MsgBox MyName
      End If
        MyName = Dir()   ' Get next entry.
Loop
End Sub

ใครมี Code มีลิงค์ รบกวนขอด้วยครับ

TRANSFORM First(register.grade) AS FIRSTofgrade
SELECT student.id, student.name, student.room, student.num
FROM subject INNER JOIN (student INNER JOIN register ON student.id = register.id) ON subject.code = register.code
GROUP BY student.id, student.name, student.room, student.num
ORDER BY student.room, student.num, [type] & "-" & [register].[/color]
PIVOT [type] & "-" & [register].[code];
 :ouch: :ouch: :ouch: