Autoselect dao version when form is open

His is actually a continuation to my PAQ "connecting outlook to sql server"

Here's the problem, I have the following code working, but when a workstation have the new DAO that is not compatible with the old one, I would like to have the form autoselect the connection for me.  The coding goes as follows (with arrows pointing at the error)


Option Explicit
'Script level declarations
Dim dbe
Dim wrkODBC
Dim conDB
Dim Rs
Dim gstrAppName
'Dim page objects and control collections
Dim objPage
Dim objControls
Dim objPagePO
Dim objControlsPO
'DAO constants dim
Dim dbUseODBC
Dim dbDriverComplete
Dim dbDriverNoPrompt
Dim dbDriverPrompt
Dim dbDriverCompleteRequired
Dim dbOpenSnapshot
Dim dbOpenForwardOnly
Dim dbOpenDynamic
dbUseODBC=1
dbDriverComplete=0
dbDriverNoPrompt=1
dbDriverPrompt=2
dbDriverCompleteRequired=3
dbOpenSnapshot=4
dbOpenForwardOnly=8
dbOpenDynamic=16
dim MyNum

Dim txtOrderID

Sub Item_open()
Dim curExtension
Dim lngOrderID
Dim i
Dim strSQL
If Not (GetODBCConnection("autonum","ODBC;DSN=SMS",dbDriverCompleteRequired)) Then
    Exit Sub
End If
strSQL = "Select ID from autonum"
set Rs = conDB.openrecordset(strsql,dbopensnapshot)
'rs.movelast
rs.movefirst
mynum = rs(0)
Set objPage = Item.GetInspector.ModifiedFormPages("General")
Set objControls = objPage.Controls                                  
Set txtOrderID = objControls("txtOrderID")              
if txtorderid.text = "0" then
  strSQL = "update autonum set id = id + 1"
  conDB.execute strSQL
  txtOrderID.text = mynum
end if
End Sub

Function GetODBCConnection (ByVal MyDSN, ByVal MyConn, ByVal MyPrompt)
Dim strUser
Dim strPass
Dim dbUseODBC
'Must assign values to constants in VBScript
dbUseODBC=1
strUser=""
strPass=""
Set dbe= Item.Application.CreateObject("DAO.dbEngine.35") <~~~~~~~ error over here
Set wrkODBC = dbe.CreateWorkspace("ODBCworkspace", strUser, strPass, dbUseODBC)
dbe.Workspaces.Append wrkODBC
Set conDB = wrkODBC.OpenConnection("Connection1", MyPrompt, , MyConn)
GetODBCConnection = True
End Function

Function Item_Close()
conDB.Close
wrkODBC.Close
End Function
LVL 1
nl4jyAsked:
Who is Participating?

[Webinar] Streamline your web hosting managementRegister Today

x
 
jessnjeffConnect With a Mentor Commented:
You are stuck because of the funky (non)error handling available in a form.

Try adding ON error resume next in your function, then add

code here for your error

Set dbe= Item.Application.CreateObject("DAO.dbEngine.35") <~~~~~~~ error over here

if err.number <> 0 then Set dbe= Item.Application.CreateObject("DAO.dbEngine.36")
0
 
nl4jyAuthor Commented:
Okay, I tried that, but now, when I tried to open up the form, I have the following error on the new boxes:

Can't load DLL: 'MSRDO20.DLL'
on the same error line.

Any idea what this mean and how to fix it?
0
 
nl4jyAuthor Commented:
Oops, actually it's the next line over.  at

Set wrkODBC = dbe.CreateWorkspace("ODBCworkspace", strUser, strPass, dbUseODBC)
0
Easily manage email signatures in Office 365

Managing email signatures in Office 365 can be a challenging task if you don't have the right tool. CodeTwo Email Signatures for Office 365 will help you implement a unified email signature look, no matter what email client is used by users. Test it for free!

 
nl4jyAuthor Commented:
Oops, actually it's the next line over.  at

Set wrkODBC = dbe.CreateWorkspace("ODBCworkspace", strUser, strPass, dbUseODBC)
0
 
nl4jyAuthor Commented:
Never mind, that fixed it, I didn't publish the form so the new code didn't save.  Thanks.  but before I hand these points over, if you know what the msrdo20 error is, please do tell.  Thanks again.
0
 
jessnjeffCommented:
I got a reference to it in VS and it is the MS Remote Data Object 2.0.
0
 
nl4jyAuthor Commented:
That's fine.  As long as this program seems to be working, U deserve the points.  Thanks.
0
 
jessnjeffCommented:
Thank you
0
All Courses

From novice to tech pro — start learning today.