推薦:怎樣用代碼隱藏、最大化、最小化ACCESS的主窗口該函數能用來完全隱藏 Access 窗口并將你自己的窗體顯示在桌面上。在彈出式窗體的 Open 事件中使用 SW_HIDE 參數調用fSetACCESSWindow 函數實現。
注意:如果你隱藏了 Access 主窗口,要確定
一直以來,ACCESS數據庫中的申報數據在分公司與總公司之間傳遞,用EXCEL或DBASE、TXT甚至ACCESS等格式,我總覺得不太理想。最近看了一本書,不經意間發現了一個方法,使用ACCESS數據庫生成申報數據與讀入數據似乎簡單了不少,特拿出來與大家分享。同時,也希望能得到更多的指點。
附上示例:
以下為引用的內容:
Sub Mwrite() On Error GoTo thiserr Dim rs As New ADODB.Recordset rs.Open "dlmd", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, acTable rs.Save "a:\dlmd.adtg", adPersistADTG rs.Close Set rs = Nothing thisexit: Exit Sub thiserr: MsgBox Err.Description Resume thisexit End Sub Sub Mread() On Error GoTo Merr Dim i As Integer Dim rsDe As New ADODB.Recordset Dim rsSo As New ADODB.Recordset rsSo.Open "a:\dlmd.adtg", "provider=mspersist" rsDe.Open "dlmd", CurrentProject.Connection, adOpenKeyset, adLockOptimistic, acTable Do Until rsSo.EOF rsDe.AddNew For i = 0 To rsSo.Fields.Count - 1 rsDe.Fields(i) = rsSo.Fields(rsDe.Fields(i).Name) Next i rsDe.Update rsSo.MoveNext Loop rsSo.Close rsDe.Close Set rsSo = Nothing Set rsDe = Nothing Mexit: Exit Sub Merr: MsgBox Err.Description Resume Mexit End Sub
|
分享:轉換Access數據庫以獲得更優性能Access 2002自動以Access 2000格式存儲所有的數據庫文件,這一點對于較小的數據庫來說非常重要,并且能使您能夠和ACCESS 2000用戶共享您的數據庫文件。
但是,如果您不打算與Access 2000用戶