Dreamweaver
Well-known member
- Local time
- Today, 23:35
- Joined
- Nov 28, 2005
- Messages
- 2,466
This relates to isladogs CheckCurrentUsers_v?
I have found using the below code with the connection sting below it works just fine
C:\Database Dreams\Project Manager\Project Manager Data.accdb
But with this one it fails
C:\Database Dreams\Project Manager\Clients A-Z Folders\D\Database Dreams\Project - Works Manager - P-41-52\Design Version\Works Data.accdb
my test form I had my developer verson as user version connected to that data file
I have found using the below code with the connection sting below it works just fine
C:\Database Dreams\Project Manager\Project Manager Data.accdb
But with this one it fails
C:\Database Dreams\Project Manager\Clients A-Z Folders\D\Database Dreams\Project - Works Manager - P-41-52\Design Version\Works Data.accdb
Code:
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Form_Load()
On Error GoTo Err_Handler
Dim C As Long
cn.Provider = CurrentProject.Connection.Provider
'Get data source
cn.Open "Data Source=" & Replace(CurrentDb.TableDefs("TableName").Connect, ";DATABASE=", "")
'The user roster is exposed as a provider-specific schema rowset
'You have to use a GUID to reference the schema, as provider-specific schemas
'are not listed in ADO's type library for schema rowsets
Set rs = cn.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
While Not rs.EOF
C = C + 1
rs.MoveNext
Wend
Me![txtNo] = C
Exit_Handler:
Exit Sub
Err_Handler:
'errors with network files to be ignored
If Err = 3705 Or Err = 3704 Or Err = -2147467259 Or Err = 94 Then Resume Next
'If Err <> 3265 Then
MsgBox "Error " & Err.Number & " in " & " procedure : " & vbNewLine & _
Err.Description, vbExclamation, "Program error"
'End If
Resume Exit_Handler
End Sub
Attachments
Last edited: