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 ...
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 