Recent content by lwilly

Sorry, I did not get Remou first post but you are both correct. Thank you

Set statement is the third line and space does not seem to make a difference. When code runs it runs through the connection open and then loops back up to where the sql statement is created.

I have a select statement that I am trying to open but it never makes it past the recordset open command. Here is the function that is causing me grief. Public Function DeptTimes() Dim rst As ADODB.Recordset Dim cnn As ADODB.Connection Set rst = New ADODB.Recordset Dim strSQL...

You should be able to stop prompting the user by simply using reportname.printout False

I have a grid with multiple bands that need to be sorted. When using rs.sort it is only sorting band 0 and I need to apply the same sort on all bands.

Thank you both for the quick replies, I have been scratching around trying to get this and all along it was because my field was an int so it was always rounding down. Thanks again!

Could someone give me an idea of how I can round numbers to the nearest five in a select statement? Thank you, Any help would be appreciated.

Thanks for the response. The period is included in the path variable and CO_NUMBER is alpha numeric. Any other thoughts would be appreciated.

Another clue in this puzzle is that when I replace CO_LN_NO with "001" it works fine.

I have already tried using a one long string with no sucess and I believe the last "&" is need to concatenate the closing ".

This is my sql statement: stsql = "SELECT CO_NUMBER as CoNumber,CO_LN_NO as Line,COMP_WC as Parent,COMP_WC as Item, " & _ "ITEM_DESC as ItemDesc,QUANTITY as AuthorizedQuantity, COMP_PRICE as ListPrice, QUANTITY as OriginalQuantity FROM " & strKnzFSDataSQLPath & "FSExtract_HCPCFG WHERE CO_NUMBER...

Thank you both for the quick response. Took you advice and replaced my code with the Replace() function and of course it works like a charm. Thanks again

I am using this code to find line breaks in a string of text retrieved from our ERP system and replacing it with a carriage return on my report. Dim strNotes As String Dim strFormatNotes As String Dim intEnterPos As Integer Dim i As Integer strNotes = Me.COLIN_XTXT ReDim strTemp(0) As...

Thanks for the quick response. Your response was correct and I appreciate you pointing out the errors of my ways.

I have this sql statement in a module strSQL = &quot;SELECT SUM (IVC_QTY * InvoiceUnitPrice)AS Sales&quot; strSQL = strSQL & &quot; FROM tblSalesDbMaster&quot; strSQL = strSQL & &quot; WHERE IVC_DATE >= &quot; & dteBegin strSQL = strSQL & &quot; AND IVC_DATE <= &quot; & dteEnd Set rst =...