Public Function abc()
On Error GoTo Err_Cmdls_Click
CurrentDb.Execute update 电视剧整理 set 临时=''
Dim Rs As New ADODB.Recordset
Dim date1 As Date
Dim date2 As Date
Dim str1 As String
...
Function DisableBypassADP(blnYesNo As Boolean)
CurrentProject.Properties.Add AllowByPassKey, blnYesNo
End Function
然后在启动时调用 DisableBypassADP(false)
更详细的做法:
Function SetMyPr ...
一天有多少天的函數。
Public Function my_daily(nowdate As Date) As Integer
Dim my_date_first_day As Date '定義當前月的第一天
Dim my_date_last_day As Date'定義當下個月的第一天
Dim my_date_current_da ...