Ahh Haa - I will have to think a little on this one - the quick and dirty way to do it is to use function sendkeys -
i.e. grab your textbox values like
Dim MyDate1 as Date
Dim MyDate2 as Date
MyDate1 = Date1.Text
MyDate2 = Date1.Text
Then when you get to
"xlApp.Workbooks.Open...
Can you post what that query looks like?
I am just trying to figure out what method to send the dates using. When it asks for the dates are you displaying custom date pickers or is it just missing query data?
UPDATE tblFinal SET tblFinal.fldFixedCode = Right([tblFinal]![fldRawCode],InStr(1,[tblFinal]![fldRawCode]," ",1)-1)
WHERE (((tblFinal.fldRawCode) Like "* *"));
Think I got it!
It will contain a space if there is text so thats the ticket to look for!
Field A will always contain a 3 digit number which might or migh not be matched in TableB
Field A might contain 2 or 3 sets of 3digit numbers separated by a "." dot.
230 COLUMN
470.715
401 Conc
200.400 asph
400
420
421.400.255 hello
I only want the comments that proceed the 3 digit codes
Might try something like
Dim db as database
Dim rs as recordset
set db = current db
set rs = db.openrecordset(MySQL & MyWhere & MyGroup)
text1.text = rs("MyField")
Hello all,
Having some troubles updating some records. I need to run some code that will erase a portion of the record.
fieldA (Text) Value might equal "400.401 my text"
I have another table that contains all the codes like
400
401
500
504
324
i need to delete any portion that matches any...
Hmmm, never heard of Redemption. We aren't allowed to install 3rd party software to these machines. If thats what redemption is? Plus I can't get the secutity knocked down cause IT wont allow it. Guess I'm screwed on this one. O well, they can pay me to take the long route I guess.
History -
I wrote the app in Access 2K and it sent email through Outlook97
We upgraded to Office 2003
I have a custome app in Access that utilizes the ability to send email through Outllook. It worked with Access2K and Outlook97 - it works in Access2K3 but Outlook gives a warning for every...
Is there a way I can grab the systems Temporary Internet Files directory and through it into a string type variable?
Dim F as string
F = GetTempPath ' This gets the temp folder - I need temporary internet files folder
OK -
Just wanted to post a follow up with the currunt solution.
I did a netmeeting with the people that were having problems seeing the database. (Atlanta) office. I tried to ping the server and of course got a timeout.
So I went to the IT department and come to find out they created a...
Now we are getting somewhere.....
We have 1000+ employees stretched across 21 offices. I dont want to have to go through our IT dept. That would take an act of GOD to get them to help out. We develope around them and we have no rights to modify any connections.....
Hello all,
1st off, thanks for anytime that you spend replying to the post. I have a database that I connect to using VB6.0 for the front end. We have 21 different offices and most of them are connected at least through the WAN. My problem occurs with the offices that are connected with VPN...