close

fggg fdgdf fdgdf dfgfg fdggg 

Clean Some Data TablesPublic Function Clean_Reserve_Data_Tables()Dim mySQL As StringDim tempMonth As String' Clean data tables mySQL = "DELETE [Reserve 12 Prior].*" mySQL = mySQL + " FROM [Reserve 12 Prior];" 'Run SQL Statment DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True For i = 1 To 12 If i < 10 Then tempMonth = "0" & i Else tempMonth = "" & i End If mySQL = "DELETE [Reserve " & tempMonth & " Current].*" mySQL = mySQL + " FROM [Reserve " & tempMonth & " Current];" mySQL = mySQL + " FROM [Trace " & tempMonth & " ];" ' Run SQL Statment DoCmd.SetWarnings False DoCmd.RunSQL mySQL DoCmd.SetWarnings True Next i End Function  .msgcontent .wsharing ul li { text-indent: 0; } 分享 Facebook Plurk YAHOO!

 

好站連結：http://tw.myblog.yahoo.com/gemmua4572303


arrow
arrow
    全站熱搜
    創作者介紹
    創作者 djmpznwoljzysg 的頭像
    djmpznwoljzysg

    陡然转凉

    djmpznwoljzysg 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄