Recent content by tuxalot

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: -...