แสดงกระทู้
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.
สำคัญ กำลังลบ Access Services 2010 และ Access Services 2013 ออกจาก SharePoint รุ่นถัดไป เราขอแนะนำให้คุณอย่าสร้างเว็บแอปใหม่ และโยกย้ายแอปที่มีอยู่ของคุณไปยังแพลตฟอร์มอื่น เช่น Microsoft Power Apps
If Me.lstDepartment.Selected(0) = True Then
Exit Sub
Else
For Each varItem4 In Me.lstDepartment.ItemsSelected
strsearch4 = strsearch4 & "," & Me!lstDepartment.ItemData(varItem4)
Next varItem4
If strsearch4 = vbEmpty Then
criteria4 = Null
Else
strsearch4 = Right(strsearch4, Len(strsearch4) - 1)
criteria4 = " And [DepartmentID] in (" & strsearch4 & ")"
End If
End If
'---------------------------------------------------------------------------------------------------------
If Me.lstSection.Selected(0) = True Then
Exit Sub
Else
For Each varItem5 In Me.lstSection.ItemsSelected
strsearch5 = strsearch5 & "," & Me!lstSection.ItemData(varItem5)
Next varItem5
If strsearch5 = vbEmpty Then
criteria5 = Null
Else
strsearch5 = Right(strsearch5, Len(strsearch5) - 1)
criteria5 = " And [SectionID] in (" & strsearch5 & ")"
End If
End If
Private Sub Cmb1_Click()
Dim sql As String
Dim i As Long
Dim currentMonth As String
Dim NextMonth As String
Dim Criteria As String
With Me.lstYearSort
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstMonthSort
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstSection
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstWorkGroup
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstDepartment
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
currentMonth = Month(Date)
NextMonth = Month(Date) + 1
Criteria = " [MonthNum] in " & "(" & currentMonth & "," & NextMonth & ")"
sql = "SELECT * FROM qryPerDay WHERE" & Criteria
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub
ปุ่มที่ 2 โจทย์ข้อ 3 ใส่โค้ดแบบนี้Private Sub Cmb2_Click()
Dim sql As String
Dim i As Long
With Me.lstYearSort
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstMonthSort
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstSection
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstWorkGroup
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
With Me.lstDepartment
.Selected(0) = True
For i = .ListCount To 0 Step -1
.Selected(i) = False
Next i
End With
sql = "SELECT * FROM qryPerDay;"
Forms!frmManpower1!frmqryPerDay.Form.RecordSource = sql
End Sub