Recent content by webcats

So for example, if your data is: John_Doe@earthlink.net in a field called Address1, then in a query you can do this: new_email: Left([Address1],InStr([Address1],"@")-1) & "@aol.com" ----------------------------------------- Never, ever approach a computer saying, or even thinking, "I will...

BridgeRE, You have to create an DSN on your computer to the SQL Server: 1)Go to Control Panel on your computer. 2)Open Administrative Tools. 3)Open Data Sources (ODBC). 4)Click on System DSN tab. 5)Click on Add button. 6)Choose Driver (SQL Server). 7)Name the DSN. 8)Specify the Server and...

Have a look at this site... there's a piece of code that will export to an existing ss http://www.danielklann.com/access/export_an_access_table.htm

Yes, they're real tables. I got it to work. I imported the other query (from the other area that does work), and changed the table names to match the Fresno area and now it works. Very strange. Can a query be corrupted? Thanks!

Exactly! That's why it's driving me to drink... I've compacted/repaired, I've created a blank database and imported all the objects into it, I've checked all my References, I've re-compiled all the code (I figured it couldn't hurt), I rebooted my computer (twice) - still the same error...

Hi PH, Here is the SQL: SELECT Sum([earned_current]+[unearned_current]) AS [Total Current] FROM tbl308_PreviousMonth_FS INNER JOIN tlkpTranslate_Descr_Fresno ON tbl308_PreviousMonth_FS.Serv_Code = tlkpTranslate_Descr_Fresno.Service_Code; Thanks!

Hi all, I've tried searching for this problem (this site and Google), but I haven't found an answer yet. I have a query that was working fine until today. In the Field area of the QBE grid I have: Total Current: Sum([earned_current]+[unearned_current]) The query is grouped and I have the...

Try this: Create a function- Function setImagePath() Dim strImagePath As String On Error GoTo PictureNotAvailable strImagePath = CurrentProject.Path & Me.Pic Me.Cover.Picture = strImagePath Exit Function PictureNotAvailable: strImagePath = CurrentProject.Path...

Thanks cheerio, that helped me figure out how to enter the formula correctly. The problem was the mixed notation, as you and Skip pointed out. Now to fix the extreemely slow code. Changing the active cell really is slow, like you said. I guess I didn't notice it before when I was only...

I don't think that will work as I have a different formula if the day is the 22nd: Do While ActiveCell.Value <> "" If Day(ActiveCell.Value) = 22 Then ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[1]" ActiveCell.Offset(1, 0).Select Else...

Sorry, I forgot to say that I have to loop through an unknown amount of cells and put the formula in each one. I currently have about 1561 cells and the number will grow every day.

Hi Skip, I also hate R1C1 notation... The data that the formula uses gets written each time the program is run. I'm pulling data in from an Access database. Basically what the formula does is subtracts the previous day's cumulative total from today's cumulative total to get the daily total...

Hi, I have a formula which works in my spreadsheet, but I need to set it with VBA after loading the data. I've done easy formulas like: ActiveCell.Offset(0, 1).FormulaR1C1 = "=RC[1]-R[-1]C[1]" which work fine, but this one is more complicated. The formula as it works in the spreadsheet is...

I have had that same error when I imported a form that had code in it to another database. There was no way to fix the problem. In order to avoid that in the future, you have to immediately open the form in design view after you import it and go to the code and compile it.

Try DoCmd.SendObject