Search results for query: *

Hiya Ace. Thanks for the pointers. I can use all I can get :) Much cleaner now. Have a great Sunday!

I'm an idiot. I used your other code and it's working! Thanks again for the assistance.

Thanks MajP but I really only want to change the button ForeColor which changes the text color only. These properties are available in the property sheet when I select a button so I wonder why it won't work?

Thanks for the response MajP. Not quite working. I put this in the option groups click event Private Sub grpSections_Click() Call changeColor At the below line I am getting an error "object doesn't support this property or method" Public Function changeColor() Dim ctrl As...

Here's my button code, and I want to see if I can do something different so I don't have to repeat the same code for each of my 14 buttons in my option group: Private Sub grpS1_LostFocus() Dim intCount As Integer Dim lngRed As Long, lngBlack As Long lngRed = RGB(186, 20, 25)...

Thanks Duane. Could you possibly provide a code example to point me in the right direction? I am still getting my head wrapped around Access.

Here is the SQL for the query. PARAMETERS [forms]![frmSurveyResponses]![sfrmReportSelect].[Form]![cboSrvID] Long; TRANSFORM First(tblResponses.Rspns) AS FirstOfRspns SELECT tblHotelInfo.HName AS [Hotel Name], tblSrvRspns.SurveyStartDate AS [Survey Date] FROM tblHotelInfo INNER JOIN...

Thanks Duane. What I am working on is a modification of your At Your Survey DB. I've attached a relationship report (PDF). What is the preferred way to provide sample records here in the forum?http://www.mediafire.com/?dzd848rpr1pax1d

I have a query that produces data like this: name date q1 q2 q3 q4 q5 Subject A 3/1/08 1 2 1 2 1 Subject A 5/3/09 1 2 1 1 2 Subject A 6/4/10 2 1 2 2 2 Subject B 4/5/08 1 1 2 1 2 Subject C 2/7/09 1 2 2 2 1 Subject C 3/8/10 1 2 1 2 1 q1-100 represent responses to questions. I am only...

Thanks Randy! Slight change to the code, and it's working: Dim intcount As Integer Dim ctl As Control intcount = DCount("*", "tblSections") For Each ctl In Me.Controls If TypeOf ctl Is ToggleButton Then If ctl.Tag > intcount Then ctl.Visible = False Else...

Hi Ace. I had thought of that, but I like the simplicity of a single click interface. In this project clicking a choice in the option group loads a query that sets the recordset for a subform. So a user can quickly move between sections with a single click. Understood that a listbox can...

I have a 2 column table that looks like such 1 apple 2 banana 3 orange 4 tomato 5 strawberry This table could have up to 15 rows but may have as few as 3. On my main form I have an option group with 15 toggles and values of 1-15. I would like to make the togglebuttons.visible = false for rows...

Thanks Duane. Got it going.

The project is a modification of Duane Hookom's At Your Survey and questions are presented in a series of subforms each on a tab control. I would like to make a label visible on the main form with a colored background when the questions for a given tab have all been answered. As questions are...

I need to be able to click on a link (word doc) in excel and have Word launch, and open the linked file. These links would ideally be visible in a userform, with the ability to be clicked. Other options for the WORD link in Excel would include doing the following, all from within Excel: -...

You're very welcome. I'm new to VBA, so it's nice giving a little back (even though I don't really know what I'm doing). Glad it worked out. Sky

I have a similar macro. This solution is nice since if you toggle between two workbooks but only wish to have the custom menu present in one of the two, your menu will only be available from the correct workbook. This is accomplished with the use of the following "AddMenus" and...

Sub test() Application.ScreenUpdating = False Sheets(&quot;Sheet2&quot;).Activate Dim checker As Variant Set checker = range(&quot;A1&quot;) If checker <> &quot;&quot; Then Sheets(&quot;Sheet3&quot;).Select Application.Dialogs(xlDialogPrint).Show...

Anybody out there ever used this program? If so, I would appreciate any feedback / insight into this program ! Thanks, sky

Hi GG, Thanks for your post. I will be trying your suggestion later today. I appreciate your input. Darin