Recent content by Bushido121

Add this calculated field to your query and set sort to Ascending for this new field. SortOrder: IIf([TableName]![Primary/Alternate/Reference]="P",1,IIf([TableName]![Primary/Alternate/Reference]="A",2,3)) Complete SQL Below: My Tables name is SortOrder SELECT SortOrder.Name...

Try this SELECT CDate([Dates]![Month] & "/" & [Dates]![Day] & "/" & [Dates]![Year]) AS [Date] FROM Dates WHERE (((CDate([Dates]![Month] & "/" & [Dates]![Day] & "/" & [Dates]![Year]))>#1/1/2000#)); Concatnate the Month, Day, Year together with a slash in between, THEN use the cDate function to...

You are missing the file extension Call rtItem.EMBEDOBJECT(1454, "", "C:\scott\BidRequest") Should be Call rtItem.EMBEDOBJECT(1454, "", "C:\scott\BidRequest.doc") Jerid

You commented out the line that moves the recordset to the next field. 'RstTmp.MoveNext You need to move to the next field each time you go through the loop or your code will always send the first entry. Jerid

The reason you didn't need the () is because you were not collecting the return value from the function. (SendMail returns a value) If you do then the () would need to stay. Example vReturn = SendMail("gareth.chappell@manor-bakeries.co.uk","Test","This is a test mail") As far as your second...

I think it depends on what program is playing the sound file. What code do you use to open the file. Jerid

You could always set the report to visible=false so you can't see it open, then use the line DoCmd.Close acReport, "Name", acSaveNo to close it after it's been created, and put your send code in the Report_Close event. This way the report opens, you can't see it, the file gets created, the...

Put this line in a module. Public bReadOnly As Boolean Put this procedure in your form that will open either ReadOnly or Not. Private Sub Form_Load() If bReadOnly = False Then Me.AllowEdits = True Else Me.AllowEdits = False End If End Sub Use these for your two button click...

Am I correct in assuming that the line DoCmd.OpenReport "QuotationEmail", acNormal, "", "

This should do it for you. Sub TestNetSend() Dim sString As String Dim vReturn As Variant sString = "net send name message" vReturn = Shell(sString, vbNormalFocus) End Sub 'Net Send Syntax 'Sends messages to other users, computers, or messaging names on the network. The...

Remove the () from your line of code SendMail("gareth.chappell@manor-bakeries.co.uk","Test","This is a test mail") Example SendMail "gareth.chappell@manor-bakeries.co.uk","Test","This is a test mail" Jerid

Thanks for your help. I was trying to avoid using DAO or ADO just because of the time it takes compared to a query. Just wanted to see if there was a way to do it that I wasn't aware of. I looks like SquishIt is the only way. Thanks Again.

Try this. SELECT * FROM Prices WHERE PriceDate in (SELECT Max(PriceDate) FROM Prices ORDER BY Max(PriceDate))

Thanks, but what I need to do is concatenate the rows in the table for that one field. Example: All of the Store rows for that one specific account number would be concatenated and all of the descriptions for that account number would be concatenated. Giving me the AcctNumber, All of the...

Hello, listed below is an example of what I'm trying to do. Any thoughts? Example of Table AccountNum Desc Amount Comments --------------------------------------- 112233344445555 #1 100.00 C#1 112233344446666 #2 150.00 C#2 112233344447777 #3 50.00 C#3 112233344448888...