社群: 艾鍗學院 Blog - 文件區(Access VBA) 台灣數位學習數位教學平台 RSS feed provider zh-tw http://lms.xms.com.tw/board.php?courseID=143&f=doclist&folderID=1743 [Access VBA] 表單傳遞資料 http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9544 Access VBA表單傳遞資料的方式 Method 1: 從表單找到控制項,取值  Forms("資料表單").Controls("StudentNo").Value  Method 2: 使用Form.OpenArg  開智表單並傳傳參數  DoCmd.OpenForm stDocName, , , stLinkCriteria, , , StudentNo  被開智的表單,利用Form.OpenArgs 取得傳入的參數   lbl_studentNo.Caption = Me.OpenArgs    ' set studentNo to correct data Thu, 03 Jan 2013 09:30:36 +0800 [Access VBA] tab Control http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9534 As gemma has suggested, the OnClick event for a tabbed control is nearly useless! You have to use the OnChange event. Here's a short tutorial:The first thing to understand is that tabbed pages are indexed starting with zero, i.e. the first page has a value of 0, second page has a value of 1, third page has a value of 2, etc.Secondly, you need to understand that the OnClick event of a tabbed page only fires when you click on the page itself, not the tab at the top of the page!Lastly, you need to understand that the tabbed control change event fires anytime the tabbed pages change. But to base something on the change event, you have to identify the particular page that has focus.Code:Private Sub YourTabbedControl_Change() If Me.YourTabbedControl.Value = 0 Then 'First Page 'Do code for Page 1 ElseIf Me.YourTabbedControl.Value = 1 Then 'Second page 'Do code for Page 2 ElseIf Me.YourTabbedControl.Value = 2 Then 'Third page 'Do code for Page 3 End If End Sub Sat, 29 Dec 2012 18:47:46 +0800 [Access VBA] Send Email from Access VBA http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9475 Private Sub Command0_Click()Dim olApp As ObjectDim objMail As ObjectOn Error Resume Next 'Keep going if there is an errorSet olApp = GetObject(, "Outlook.Application") 'See if Outlook is openIf Err Then 'Outlook is not openSet olApp = CreateObject("Outlook.Application") 'Create a new instance of OutlookEnd If'Create e-mail itemSet objMail = olApp.CreateItem(olMailItem)With objMail'Set body format to HTML.BodyFormat = olFormatHTML.To = "your email; your second email".Subject = "Subject".HTMLBody = "<HTML><H2>The body of this message will appear in HTML.</H2><BODY>Type the message text here. </BODY></HTML>"'.Send     ' 直接寄出.Display  ' 顯示outlookEnd With參考資料: http://msdn.microsoft.com/en-us/library/office/ff861332.aspx Tue, 11 Dec 2012 20:01:26 +0800 [Access VBA] 如何得知表單資料內容已更新? http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=9474  Private Sub Form_BeforeUpdate(Cancel As Integer) Call Check_Dirty(Me)End SubPublic Sub Check_Dirty(myform As Form)      If myform.Dirty Then         If MsgBox("本筆資料已修改!要儲存嗎?", vbYesNo, "確認儲存") = vbNo Then            myform.Undo         End If              End IfEnd Sub    為什麼是在BeforeUpdate 事件裡檢查?    因為.Form.dirty 指的是資料改變到尚未儲存該筆資料的這段期間,   所以在"更新前"先提示使用者, 若是在AfterUpdate 事件,那時候表示資料已儲存了.   故Form.dirty 會是false 的狀態,不是true  ###When do we use each of them, and what does it mean.Rather, how do i know what to use when....dbOpenDynasetdbOpenDynamicdbOpenForwardOnlydbOpenSnapshotdbOpenTabledbOpenOptimistic Tue, 11 Dec 2012 19:58:59 +0800 [Access VBA] 如何滙出資料到Excel http://lms.xms.com.tw/board.php?courseID=143&f=doc&cid=8949 Q1:  in  VBA code ,   Dim appExcel As Excel.Application why ?? 在執行的時候會出現 "使用者自訂型態尚未定義"Answer:     在工具->設定引用項目  ,選擇 Microsoft Excel 12.0 Object Library Tue, 21 Aug 2012 18:13:02 +0800