Search results

Here is another method. I use this with a IIS6 SMTP relay that communicates with hosted Exchange services. The strTo variable is populated by a dlookup function in a table that lists recipients in a field like this: user@domain.tld;user2@domain.tld The other method I use to loop through a...

Try: Option Base 1 Or For I = 0 to (12-actuals) By default, VBA starts counting at zero.

< less than > greater than. Sorry for the typo. I would piggy back the approve / reject event to requery the subform.

The example I provided is from a VBA project / Access 2007. As long as the variable type is declared as a Date, you should be fine. I have found that using a string like 1/1/2001 must be wrapped like this #1/1/2001# to be interpreted as a date. If you are in fact using vb.net and not VBA...

If Me is working, stick with it for now then troubleshoot it after you get the code working the way you want. >1 is basically zero in this context. If a single record exists in the subform then the recordcount is not >1. This thread explains the Form_Current event pretty well. To answer...

Have you tried using the query builder? Copy the SQL then adjust the where clause with variables in code. Here's an example of one of my WHERE clauses built in VBA: " WHERE (((Incidents.[Occurrence Date]) Between " & datBegin & " And " & datEnd & "))" _

I have to join multiple values into a string for summarizing data on reports and exports. This process in vba is taking up to 10 minutes to process and will get worse as the size of these reports grow. My method so far is to query the individual items into a recordset, loop through the...

1. I don't like the use of Me. Forms![Form Name] is more consistent and less error prone. 2. Try this Private Sub Form_Current()Dim ctl As Control If Forms![Form Name].RecordSet.RecordCount >1 Then For Each ctl In Me.FormFooter.Controls ctl.Visible = False Next ctl Else For...

Create a data entry form separate from the master list. When the data entry form is closed, trigger the refresh of data on the list form.

Create a query for the basis of the report and change the query before opening the report. You cannot edit the recordsource property of the report unless you are in design mode. Here's an example: Function IT_Request_Report(strID As String) Dim DB As DAO.Database Dim QDF As DAO.QueryDef Dim...

This isn't related to Access but I like to share code when I come up with it. Feel free to use this. I have been downloading music from the internet but the albums come packed with the artist name and track number built into the filename. This annoys me and manually renaming files gets old...

@ColinEssex I use a level two holster on my right hip. Level two holster requires releasing a retention clip before drawing the weapon which helps prevent people from just grabbing it or havingit fall out if a hand to hand encounter happens. There are varying models with thumb breaks on the...

In reply to the Open vs. Concealed question. It depends on where I am going and teh season. If I am on my way to Wal-Mart in Summer, I open carry and have found that it was a deterrant to criminals as in one case where thugs passed me up and stole the purse from another lady instead of my...

RESOLVED: I found the error in my base query, I had failed to replace the direct reference in to the form with the variable in one of the four instances it is used. Thank you all for letting me pick your brains on this one.

Thanks CJ but I haven't made it to the crosstab query yet. I still need to get the headings so I can define them then refer to them for the report. I am still troubleshooting the error 3061 issue at this point an may just use a static query to get around the recordset problem.

Allow me to clarify. I have no declared parameters in the query, the query itself is built with preceding VBA statements that plaster the variables directly into the SQL, rewriting the query definition meaning I have no PARAMETERS statement in the SQL itself. I see your point but having a...

Bob, Thank you for the suggestion but there are no parameters for the RPTBASE_BROKER_PRICING query. That query is built from tables connected to Oracle 10g via ODBC. It does depend on a combo box to choose the broker for pricing and a date field to choose the proper price book by effective...

I am gettign Error 3061 Too Few parameters, Expected=1 Dim RSH_W As DAO.Recordset strSQL_WH = "SELECT DISTINCT RPTBASE_BROKER_PRICING.CONTAINER_SIZE FROM RPTBASE_BROKER_PRICING" _ & " WHERE ((RPTBASE_BROKER_PRICING.Product_Type) = 'W')" _ & " ORDER BY...

Review this page: http://www.techonthenet.com/access/functions/advanced/switch.php Other suggestions for this issue are here: http://www.utteraccess.com/forum/Find-number-string-Ins-t1746052.html

You can try a compact and repair operation on the database if you think the issue is with a corrupted database. You can also try a decompile operation: All one line for the command, adjust your paths appropriately. "c:\program files\microsoft office\office\msaccess.exe"...