Search results for query: *

Thanks Roy declaring it as: Dim rs As DAO.Recordset solved it. Thanks for the help.

...Long startval = 10100 Set rs = CurrentDb.OpenRecordset("tblPricePick") 'Select records to be updated Set rs = CurrentDb.OpenRecordset _ ("SELECT * FROM tblPricePick WHERE AREA444 = '10Pantry' and category <> 'janitorial' and category <> 'paper' ORDER BY [Bin#444]") rs.MoveFirst...

I have a bound object frame that is a control in a report. I have an entry form that contains the bound object frame control. The contents of the frame is 4 pages of text and images that have been copied from a Word document and pasted into the bound object frame on the form. When I print the...

Yes I realize that now and that will be my course of action. I'll just use the query that is the record source for the form. Thanks for pointing that out to me. Appreciate your time.

I have the following code: Private Sub Command71_Click() On Error GoTo Err_Command71_Click Dim stDocName As String stDocName = "frmPriceUSF" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, _ stDocName, "C:\Documents and...

The following line of code: qdf.Parameters(0) = sYr is producing a runtime error 3265 “Item not found in this collection” I know I can use a form for the qdf.Parameters(0) line like this: qdf.Parameters(0) = [Forms]![frm52Weeks]![cboYr] But I don’t want to use a form in this particular...

Thanks Ed that does the trick. Also thank you PHV for getting the ball rolling. theSizz Success has many fans, failure always dies an orphan.

Sorry, I'm just not getting it. I don't understand how this would put up a message box if the user selected radio button 2 (op2) or radio button 3 (op3). If the user does not have the first radio button selected I want to advise them that they must select this button before they continue on...

The frame name is "PickRpt" and has the 3 radio buttons in it. How would I make reference to whether the first radio button is selected or not?

I have a form that contains an option group with 3 option buttons (radio type). For this example let’s call them op1,op2, and op3. I am trying to write an if statement in the after update event of a control on the form that will put up a message box that advises the user that they need to select...

Yes Remou that's the problem why the query doesn't return any records. I didn't realize that Now() returns time to the second. So rather than format the expression I'm using Date()like you suggested and it works fine. Thanks for the quick reply. theSizz

I put this expression in the QBE grid’s criteria row of a select query. What I’m trying to accomplish is have a query use for its criteria today’s date in other words I want the date the criteria uses to be dynamic. This is the expression that produces the error...

...As Control) Dim strRptList Dim rpt As Object Dim oRpt As Report For Each rpt In CurrentProject.AllReports If rpt.Name Like "*SUB*" Then 'skip this one Else DoCmd.OpenReport rpt.Name, acViewDesign, , , acHidden Set oRpt =...

...that is used to populate the combo box with the report names. SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.Name) Not Like "*Sub*") AND ((MSysObjects.Type)=-32764)) ORDER BY MSysObjects.Name; Using this method I end up with a drop down list that the user views with cryptic...

I am trying to format the form header section of a form in access 2007. I select the form header section in design view, choose the auto format button from the arrange menu on the ribbon, and then click on the desired format. Seems pretty simple. However, I don't get the format that's shown in...

Yes Duane, that does it. Perfect, thank you very much. theSizz

I’m trying to do a lookup in a report that that uses a totals query as its record source. The report should show sales for week 12 of this year versus sales for week 12 of last year. The table that the query uses has a field named Yr whose data type is number and a field named Week whose data...

I have a form that has a combo box control that uses a value list for its row source type. My problem is the appearance of the list. The drop down list contains 2 and 3 digit numbers. I can't find a way to make the numbers in the list align to the right as you would expect to see normal number...

Thanks Remou that works. As a side note for the week ending dates to compute properly the formula should read: CDate(#1/6/2008#)+[daynum]-Weekday(CDate(#1/6/2008#)+[daynum])+1 changing the date from 1/1/08 to 1/6/08 makes everything work fine. Thanks very much.

...Date startval = #1/6/2008# Set rs = CurrentDb.OpenRecordset("tbldates") 'Select records to be updated Set rs = CurrentDb.OpenRecordset _ ("SELECT * FROM tblDates ") rs.MoveFirst Do rs.Edit rs.Fields("WkEnds") = startval 'field to update...