I don't see what I'm doing wrong with this update, no error occurs, but no update either. Both rec2 and rec5 are ADO. rec2 comes from Oracle, rec5 from Access.
Do While Not rec2.EOF
With rec5
.MoveFirst
.Find "[po] = " & rec2!PO_NUMBER, , adSearchForward...
PHV - That works, and makes sense now... took the resume next out and it still works -
Hap007 I stuck your code in one of the columns it also does not error, thanks.
The list box is populated by a query. The table the query comes from for column(9) has a data type of Currency, the query for column 9 has no format properties. Not sure where the variant comes into play though.
btw... Val stopped working after I did a compact and repair, so I recently went...
dhookom - being single it should, 0 erred out, "0" does not for some reason.
Hap007 - conversion function - excellent idea, never thought of that CSng but it gave me the error 13 type mismatch unfortunately, tried the CDbl and CCur as well, no luck
Ahhh... just tried Val - that worked...
I use this code to sum up column 9 into a list box whenever its requeried but if there isn't at least a $0.00 in the column it says I have a data type problem. It's hung up on the NULL's. The data type in the table the value is held is set to currency. I've tried NZ, I've tried Format...
My users have 3 values from a combo box to chose from which is used to isolate the data they need to a listbox. I'd like them to have the ability to retrieve all data if the combo box is blank. How can i accomplish this?
I've tried using the 'Switch', 'IIF', and 'NZ' funtions in the crieria...
Oh, I tried a variation of things such as:
Child: BALANCE_ID
Master: Forms!FRM_MAIN!LST_OPEN_BALANCES.Column(0)
or
Child: BALANCE_ID
Master: Forms!FRM_MAIN!TAB_OPEN_BALANCES!LST_OPEN_BALANCES.Column(0)
And I always get the "Enter Paramter Value" window or nothing happens at all.
I'm trying to link a listbox on page index 1 (second tab from left) to a subform on that same page. Seems like it would be easy but it's not taking anything I give it. Subform would keep notes to each record in the listbox I select with the mouse.
Tab Control: TAB_CTRL_PAGES
Page...
Thank you PWise, not as easy as before but it works, this exported 631K rows in 15 seconds into Excel 2007 from Access 2003: I had to do the object as CreateObject("Excel.Application.12"), I had never thought of using a version number in there before.
Private Sub cmd_Dish2_Click()...
I hope they come out with a simple service pack or hotfix for it - Most of us use '03 still. I guess Access 2007 didn't even have this functionality until SP2 came out. Rediculous.
I find it hard to believe that this doesn't work in A03, is it true a03 will not do a transfer spreadsheet to excel 07? I usally can't find the little secrets around this site so I'm asking here.
Option Compare Database
Private Sub cmd_XFER_2007_Click()
Call XFERExcel2007
End Sub...
I have 3 items I need to consilate, but I can't lose part of the detail.
Right now 3 lines look like:
INVOICE DESC AMT
123 TAX 5.00
123 FREIGHT 7.00
123 PAPER 9.00
Need it to 1 line and look like:
INVOICE DESC AMT...
SELECT GL_DATA.PK, GL_DATA.[Invoice Date] AS INVOICE_DATE, GL_DATA.[Line Number] AS LINE_NUMBER, GL_DATA.GROUP_ID, GL_DATA.[Line Amount] AS LINE_AMOUNT
FROM GL_DATA
ORDER BY GL_DATA.PK;
Well done MajP... I still don't understand how it works yet - its coming slowly, but after I put in an autonumber pk it worked perfectly.
Private Sub CMD_GROUP_Click()
Dim rs As DAO.Recordset
Dim con1 As DAO.Database
Dim tempDate As Date
Dim tempLineNumber As Integer
Dim groupID As...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.