แสดงกระทู้
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.
เราจะสามารถนำรายชื่อไฟล์ทั้งหมด มาแสดงใน combo box ได้อย่างไรครับ
Public Function fnGetFilenames(Folder As String) As String
Dim strPath As String
Dim strFileName As String
strPath = Replace(Folder & "\", "\\", "\")
strFileName = Dir(strPath & "*")
Do
fnGetFilenames = fnGetFilenames & ";" & strFileName
strFileName = Dir()
Loop While Len(strFileName) > 0
If Len(fnGetFilenames) > 0 Then fnGetFilenames = Mid(fnGetFilenames, 2)
End Function
ตั้งค่า ชนิดแหล่งข้อมูลแถว ของ Combobox เป็น "รายการค่า" หรือ "Value List" ในเมนูภาษาอังกฤษPrivate Sub comboFilenames_GotFocus()
Me.comboFilenames.RowSource = fnGetFilenames("C:\")
End Sub
Me.comboFilenames.RowSource = fnGetFilenames("D:\Program\myProgram\") 
SELECT IIf(IsNull([Field1]),0,1) AS A, IIf(IsNull([Field2]),0,1) AS B, IIf(IsNull([Field3]),0,1) AS C, IIf(IsNull([Field4]),0,1) AS D, ([A]+ [B] +[C]+[D]) AS นับจำนวน
FROM Table1;
SELECT IIf(IsNull([Field1]),0,[Field1]) AS A, IIf(IsNull([Field2]),0,[Field2]) AS B, IIf(IsNull([Field3]),0,[Field3]) AS C, IIf(IsNull([Field4]),0,[Field4]) AS D, ([A]+ [B] +[C]+[D]) AS นับจำนวน
FROM Table1;
