What error? What's the message? Is there a number?
--
Brendan Reynolds (MVP)
http://brenreyn.blogspot.com
The spammers and script-kiddies have succeeded in making it impossible for
me to use a real e-mail address in public newsgroups. E-mail replies to
this post will be deleted without being read. Any e-mail claiming to be
from brenreyn at indigo dot ie that is not digitally signed by me with a
GlobalSign digital certificate is a forgery and should be deleted without
being read. Follow-up questions should in general be posted to the
newsgroup, but if you have a good reason to send me e-mail, you'll find
a useable e-mail address at the URL above.
"Chris" wrote in message
...
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