Re: .BeginTrans

From: Chris (a_at_b.com)
Date: 01/19/05 

Date: Wed, 19 Jan 2005 09:30:43 -0000

Compile error:
Method or data member not found (Highlighting the .BeginTrans)

I can't get the options for ADO connections just the ones for DAO
connections.

"Brendan Reynolds" <brenreyn at indigo dot ie> wrote in message
news:eM1lTrZ$EHA.3236@TK2MSFTNGP15.phx.gbl...
> 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" <a@b.com> wrote in message
> news:uZoJBlY$EHA.2104@TK2MSFTNGP14.phx.gbl...
> > 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
> >
> >
>
>

Relevant Pages

  • Re: Asynchronous socket operations and threadpool
    ... client thread itself stalls on the socket read statement, ... Dim LocalHost As New IPEndPoint(ServerAddress, ... WriteLog("Ready for IP Connections") ... Dim ClientName As String = "" ...
    (microsoft.public.dotnet.framework)
  • ADODB using 97
    ... Compile error, ... Public Function GetUserAs String ... Dim lngSize As Long, lngRetVal As Long ...
    (comp.databases.ms-access)
  • Re: Problem with saving .txt attachement
    ... Dim Inbox As MAPIFolder ... Dim strSubject As String ... Next Item 'Compile Error: ... >> for the attachement n let u know i made it. ...
    (microsoft.public.outlook.program_vba)
  • Re: Mid function compile error
    ... compile error machines and identify any MISSING references. ... Running it on another machine I get a compile error with the Mid function ... Dim firstLine As Boolean, firstSmp As Boolean, firstPlot As Boolean ... Dim fileFilter As String, Title As String, fullFileName As String, file As ...
    (microsoft.public.excel.programming)
  • Re: Mid function compile error
    ... "Tim Zych" wrote: ... Running it on another machine I get a compile error with the Mid function ... Dim firstLine As Boolean, firstSmp As Boolean, firstPlot As Boolean ... Dim fileFilter As String, Title As String, fullFileName As String, file As ...
    (microsoft.public.excel.programming)