Re: .BeginTrans

From: Brendan Reynolds (brenreyn)
Date: 01/18/05 

Date: Tue, 18 Jan 2005 20:18:05 -0000

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: Update DB table from visual basic script
    ... Dim dbs As Database ... Public Function UpdateDB(dbName As String) As Boolean ... Public Function updateDB_fnameAs Boolean ... On Error Resume Next ' if proc does not exist then return blank string ...
    (comp.databases.ms-access)
  • Load registry hive (AdjustTokenPrivileges error)
    ... Public PrivilegeCount As Int32 ... Public Function RegLoadKey(ByVal hKey As Int32, ... String, ByVal lpFile As String) As Int32 ... Dim strKeyName As String ...
    (microsoft.public.vb.winapi)
  • Load registry hive (AdjustTokenPrivileges error)
    ... Public PrivilegeCount As Int32 ... Public Function RegLoadKey(ByVal hKey As Int32, ... String, ByVal lpFile As String) As Int32 ... Dim strKeyName As String ...
    (microsoft.public.dotnet.languages.vb)
  • Search pattern
    ... Dim strfile As String ... Dim bAddressFound As Boolean ... Dim strCurrentChar As String ...
    (comp.databases.ms-access)
  • Re: Help creating object in excel VBA
    ... Dim confirm, sent As Boolean ... Dim rowColArrayAs String ... ' TODO: Call CreateEmailMsg ... Public Function GetApptRecAs String, ...
    (microsoft.public.excel.programming)