Recent content by mikeyp3

oops!....forgot to set err.number back to zero

Is there a better way to do this...I have a bunch of db's that have linked tables, we will be password protecting these linked db's with possibility of any 1 of 4 different passwords. My thought is coded below>>>if password 1 errors 'incorrect password' try password 2....etc Do...

Nevermind, found an alternative way to do this

Nevermind,found an alternative way to do what i need

How can you import a module from another DB using VB?

How can you import a module from another DB using VB? Mike

Thanks for the response. I was able to debug my code to find that excel would stay open due to a format I was placing on some cells. If i didnt run this format, the xls would close. Thanks again...

Did anyone figure this out? I am having the same issue. I do issue a quit and set the object to nothing.... Set eapp = CreateObject("Excel.Application") eapp.Visible = True 'open file Set edoc = eapp.workbooks.Open(UserFile2) Set worksheet = edoc.ActiveSheet ...

Hello, I'm looking to copy a recordset to certain columns in excel. I am familiar with moving a complete recordset to a range in excel, but is there code to place: rst.field(1) in cell("b10") and rst.field(4) in cell (I10) here is my code to copy an entire recordset Dim db As New...

I got it working...Thanks for the responses...I swear I had tried that an hour ago...FYI below is some of the code... Private Sub Txtdate_Exit(Cancel As Integer) Dim db As New ADODB.Connection Dim rst As New ADODB.Recordset Dim counter Set db = CurrentProject.Connection Dim formdate As Date...

Any way to do that with a variable that is a date? I get a data type mismatch in criteria expression... MP