Not sure if this is correct then. I am using this on one button
Dim s As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rsFind As New ADODB.Recordset
Dim Icount As Double
Dim Rcount As Double
Dim MissileID As Double
Dim NewPartName As String
'Open db connection
Set db = CurrentProject.Connection
and then this is what is on another part. It is from Lebans calender program
found here
http://www.lebans.com/monthcalendar.htm
Private Function GetProperty(ByVal strPropName As String, ByRef strPropValue As Variant) As Boolean
' Changed strPropValue as String to as Variant
Const cProcedureName As String = "GetProperty"
On Error GoTo Err_Handler
Dim db As DAO.Database
Set db = CurrentDb
strPropValue = db.Properties(strPropName)
GetProperty = True
I am not real quick with VBA so not sure if it correct.
When I copy what I need from one database into another it gives me
"Compiler Error:"
USER DEFINED-TYPE NOT DEFINED
I am sure I am not referencing it correctly but not sure how to either.
Thanks for the help.