If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
.BeginTrans
Hi All. I'm trying to use the ADO connection event .BeginTrans. However my
program always gives me the DAO members list when I type the "." I have copied the code from an access book that I am working on and it works fine in the example. Any Ideas Problem is last line of code Dim strMessage As String Dim rstIssues As New ADODB.Recordset Dim cnn As Connection Dim VarPosition As Variant ' Make sure NewAssignee has a value selected. If IsNull(NewAssignee) Then DisplayMessage "You must select an employee to assign issues to." Exit Sub End If ' Make sure one or more issues are selected. If IssueList.ItemsSelected.Count = 0 Then DisplayMessage "You must select issues to reassign." Exit Sub End If ' Confirm the reassignment. strMessage = "Reassign selected issues to " & NewAssignee.Column(1) & "?" If Confirm(strMessage) Then ' Display the hourglass icon while reassigning issues. DoCmd.Hourglass True 'Open a recordset object in the current database Set cnn = CurrentProject.Connection rstIssues.Open "tblStatofAffairs", cnn, adOpenKeyset, adLockOptimistic, _ adCmdTableDirect 'Begin a transaction before changing the data. - cnn.BeginTrans -- error Option Compare Database Option Explicit Public Const conAppName = "Issue Tracking" Public Sub DisplayMessage(strMessage As String) ' Display an important message to the user. MsgBox strMessage, vbExclamation, conAppName End Sub Public Function Confirm(strMessage As String) As Boolean ' Ask the user to confirm an action, returning True or False. Dim bytChoice As Byte bytChoice = MsgBox(strMessage, vbQuestion + vbOKCancel, conAppName) If bytChoice = vbOK Then Confirm = True Else Confirm = False End If End Function |
Thread Tools | |
Display Modes | |
|
|