Have been studying your reply and my entries and I w3as missing a ! Have now entered and it works fine Tks "Douglas J. Steele" wrote: Assuming that CProp, CPO, invdate, curamt, curnote, nextinv and curstatus are variables, you have to put them outside of the quotes so that their values will be put into strSQL: strSQL = "INSERT INTO WorkOrder(Property,PONo,Workdate,totalamt

Assuming that CProp, CPO, invdate, curamt, curnote, nextinv and curstatus are variables, you have to put them outside of the quotes so that their values will be put into strSQL: strSQL = "INSERT INTO WorkOrder(Property,PONo,Workdate,totalamt,wknotes,invno,status) " & "VALUES(" & CProp & ", '" & CPO & "', " & Format(invdate, "\#yyyy\-mm\-dd\#") & ", " & curamt & ", """ & curnotes & """

Tks - that worked fine The fields are in the original code before I called the function In the function I put the debug.print statement and a stop line so I could see what answer it was giving Your solution cut a few liners of code of mine Tks "Douglas J. Steele" wrote: First, your function is written incorrectly: you're not returning a value from it, nor displaying one (which

On Sat, 16 Aug 2008 06:44:01 -0700, Nylex wrote: I use a set routine in quite a few forms I have written the function and Have tested it and it always get the correct answer When I return from the function I can not find the answer This is how I call it NewInvoice (LastInv) Debug.Print InvDate, NextInv Stop Function NewInvoice(LastInv) Dim