Recent content by GrahamUK33

The code that I have works how we want it to, apart from the link not being clickable. Can the code below be amended to include speech marks either-side of the link to make the link clickable? "link" Private Sub cmdBrowse_Click() Dim File As Variant File = GetFile() If...

I still have the same problem where the link in not clickable. I did find that the link needs to be in-between " " any idea how I can do that with the code that I posted?

I have added a browse button that inserts a link address to a file on our network. The only problem I have with it is that when the link is clicked on the file does not open up. When a website address is saved, it can be clicked on and the website will open up. I am wondering if there needs to...

I tried that, the colour flickers/flashes when the mouse moved around. The code below does the same, but without the flickering/flashing: MouseMove on label If Not Me.lblLabel1.ForeColor = RGB(68, 84, 106) Then Me.lblLabel1.ForeColor = RGB(68, 84, 106) MouseMove on form If Not...

I just wanted to give the user another option of selecting checkboxes other than selecting the checkboxes individually.

Is it possible to change the colour of the text on a label on hoover, and then change colour back when mouse has moved away, or label has lost focus?

Thanks so much for all your help, I decided not to use the toggle option, I thought that may be a bit confusing for the user. The click and double click options has worked for me, and less confusing for the user. Private Sub lblTitle_Click() Me.chkCheckBox1.Value = True...

The following code does work when selected, but if selected again it doesn't uncheck the tickboxes. Private Sub lblTitle_Click() Me.chkCheckBox1.Value = True Me.chkCheckBox2.Value = True Me.chkCheckBox3.Value = True Me.chkCheckBox4.Value = True Me.chkCheckBox5.Value = True End Sub

I am now using the code that you posted: Private Sub lblTitle_Click() Dim I As Integer For I = 1 to 5 Me("chkCheckBox" & I) = True Next End Sub I am still getting an error: Run-time error 2465 Microsoft Access can't find the field 'chkCheckBox1' referred to in your expression. I used...

Thanks for having a look at this, I am getting an Run-Time error 2465 using the code below: Private Sub lblTitle_Click() Dim I As Integer For I = 1 to 5 Me("chkCheckBox1" & I) = True Me("chkCheckBox2" & I) = True Me("chkCheckBox3" & I) = True Me("chkCheckBox4" & I) = True...

I have a form with a number of checkboxes that can be selected independent of each other. As an additional feature, is there a simple way of adding a click event to lblTitle to select/deselect (tick/untick) all five checkboxes together? lblTitle chkCheckBox1 chkCheckBox2 chkCheckBox3...

I have used the qryProjectTotals as the record source of rptProjectTotals Text box 'txtProject' control source is 'Project' Text box 'TotalProjectRecords' control source is 'CountOfProjectID' Total amount of Projects using =Count([Project]) Total records using...

I have renamed the text box Project to txtProject and changed the code to the following: =DLookUp("CountofProjectD","qryProjectTotals","[Project] = '" & [txtProject] & "'") The report shows #Error for the value (TotalProjectRecords)

I am entering the code into the Control Source of a text box called 'TotalProjectRecords' within the report called 'rptProjectTotals'. The other text box that gives the Project name is called 'Project'. The Query qryProjectTotals works, giving me the project name and the number of records...

The following code is now displaying #Error =DLookUp("CountofProjectD","qryProjectTotals","[Project] = '" & [Project] & "'")