企劃課代號：C
行銷課代號：B
編號設定
想要有判別出今日(16/5/21)屬於此部門(企劃課) 且是今天是屬於(企劃課)的第3筆資料
結果:C16052103
試過dcouunt的寫法,
但是遇到日期就無法判別都是0
Private Sub 取數_Click()
Dim i
d = Me.客訴日期
i = DCount("[客訴日期]", "客訴記錄", "[客訴日期]=" & d)
a = DCount("*", "客訴記錄", "部門= '" & "#" & Me.部門.Value & "#" & "'")
Me.[取數].Value = i + 1
End Sub |
發表於 2016-5-21 17:48
| 
