rekhaaddula
New member
- Local time
- Today, 10:38
- Joined
- Feb 19, 2018
- Messages
- 5
Hi,
I am new to VBA coding which used in Ms access programming. I have Ms access(Ms access 2007) database which connects to Lotus notes database but when this database is migrated to Ms access 2016,the same application is unable to connect to LN database.
i have run in debug mode it threw error as "error 429: activex Component can't create object"(for statement "if ns is nothing then") in Ms Access 2016 environment.
Please kindly help.
Sample code is
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim vw As NotesView
If ns Is Nothing Then
MsgBox "Cannot open Lotus Notes client.", vbOKOnly + vbCritical, "Error"
Exit Function
End If
Call ns.Initialize
Set db = ns.GetDatabase(Notes_GetServerName("Shipment Report"), Notes_GetDBName("Shipment Report"))
If db Is Nothing Then
MsgBox "Cannot connect to the Lotus Notes Shipment Report db!" & vbCrLf & vbCrLf & _
"Please check the Lotus Notes Settings.", vbOKOnly + vbCritical, "Error"
Exit Function
Else
MsgBox db.Title
Exit Function
End If
If Not db.IsOpen = True Then
Call db.Open
End If
I am new to VBA coding which used in Ms access programming. I have Ms access(Ms access 2007) database which connects to Lotus notes database but when this database is migrated to Ms access 2016,the same application is unable to connect to LN database.
i have run in debug mode it threw error as "error 429: activex Component can't create object"(for statement "if ns is nothing then") in Ms Access 2016 environment.
Please kindly help.
Sample code is
Dim ns As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim vw As NotesView
If ns Is Nothing Then
MsgBox "Cannot open Lotus Notes client.", vbOKOnly + vbCritical, "Error"
Exit Function
End If
Call ns.Initialize
Set db = ns.GetDatabase(Notes_GetServerName("Shipment Report"), Notes_GetDBName("Shipment Report"))
If db Is Nothing Then
MsgBox "Cannot connect to the Lotus Notes Shipment Report db!" & vbCrLf & vbCrLf & _
"Please check the Lotus Notes Settings.", vbOKOnly + vbCritical, "Error"
Exit Function
Else
MsgBox db.Title
Exit Function
End If
If Not db.IsOpen = True Then
Call db.Open
End If