Search results

Does desc need it too ?

Did I post my VBA with the proper format ? Not sure what to enclose the code with?

No, same end of VBA on first INSERT INTO attempt

Did that

Code all worked before I tried to add this last field.

{code} Private Sub Command4_Click() On Error GoTo ErrorHandler Dim db As DAO.Database Dim rstholdings As DAO.Recordset Dim savaccount As String Dim savsymbol As String Dim savdescription As String Dim straccount As String Dim strsymbol As String Dim strBegin As String Dim strEnd As String Dim...

The insert into table field name is desc and it is loaded from the "input" table with a field named description (I know it's a reserved name now) So in the vba I refer to that source table field as [description] - but still errors out on the SQL Insert?

=INDEX('C:\CollectorCards\EXCEL\Cards\[55BOFOOT_Sheet1.XLS]Sheet1'!$D$1:$D$113,MATCH(B7,'C:\CollectorCards\EXCEL\Cards\[55BOFOOT_Sheet1.XLS]Sheet1'!$B$1:$B$113,0)) Looks like this is working for me.

I don't get an error, just don't get the correct value returned ....

I am trying to match a COL B row from 1st book to the COL B ROW(s) of another 2nd BOOK - and bring back to COL D OF the 1st book - THE COL D value in THE MATCHED COL D ROW of the 2nd book.

I think it is because I am still using version 2002 and it has to do with the order of the data in the LOOKUP'd sheet. That should not be so difficult, but I guess it is so.

=LOOKUP(B7,'C:\CollectorCards\EXCEL\Cards\[55BOFOOT_Sheet1.XLS]Sheet1'!$B$1:$B$113,'C:\CollectorCards\EXCEL\Cards\[55BOFOOT_Sheet1.XLS]Sheet1'!$D$1:$D$113)

Worked perfectly !!!

That makes sense but must be a slight error in that code ? It's in Red.

They are defined Date/Time with Format = short date

Validation text comes up: End Date must be greater than start date

how does the comparison of dates actually work then ??

print lastsaturday 5/16/2020 print lastfriday 12/31/9999 run time error 3316

Hello ! Both are date/time Short Date

strSQL = "insert into rates ([customer], [ratecode], [saturdaystart], [fridayend], [rate]) values (""" & [findcust] & """, 'L', " & [LastSaturday] & ", " & [LastFriday] & ", " & Me.RateperHour & ")" CurrentDb.Execute strSQL, dbFailOnError On debugging, I see that value of [LastFriday] is...