Recent content by BCullenward

Nevermind. I had that close in the Close Event. I moved this to the Unload event and it works now. Dim ians As Integer ians = MsgBox("Are you sure you wish to exit?", vbYesNo, "Exit App") If ians = vbNo Then cancel = 1 DoCmd.CancelEvent...

I'm looking for a way to cancel the closing of a form/app. I added a button asking if the user is sure they wish to exit, and am having difficulty finding the correct code to cancel the close event. Here is my code Dim ians As Integer ians = MsgBox("Are you sure you wish to exit?"...

I am trying to access a textbox I have on a report within the report but it is not working properly. I have a team average for a field in a textbox called txtTeamAvg, however it is only tracking the results for some of the teams. In my report footer I want to take the average of txtTeamAvg...

I have an excel sheet to which i am exporting a query to, however the sheet then needs to be modified/formatted. Is there an easy way to do this? When I do the export first, then try to insert rows it won't let me and pulling the data I need out, formatting the excel sheet then putting the...

I am working on decreasing the loading times and increasing the efficiency of an over-inflated Access database that is on its last legs. The backbone table is well over 500,000 records and around 142 fields on the SQL Server backend, and the task is to make a local table with a single record...

I am working on decreasing the loading times and increasing the efficiency of an over-inflated Access database that is on its last legs. The backbone table is well over 500,000 records and around 75-85 fields on the SQL Server backend, and the task is to make a local table with a single record...

Hrrmmm... I may have found a solution (for if anyone else runs across this problem). I have my verifying everything in the before update. in the click event I set the focus to a hidden text box (which is not bound and doesn't allow any input) and after setting the focus to that I do my check to...

In the before update I had done my verifying whether the box should be checked or not (it was in the click event) then I had my check to see if all records had been flagged after that in the click event.

I have a checkbox that's bound to a recordset and am trying to find a way to disable a button if all records are checked. However, it appears that the sub must end before I can execute the code to get the correct results of what has been checked. For example: I have 4 records that have been...

no, it's not a primary key. I think I solved the problem when I hit enter, re-typed the exact same CurrentProject.Connection.Execute statement and commented out the previous one. The weird thing is, I've had it pause during execution in other modules from where I formerly had a breakpoint...

Here is what is trying to be executed in the code (where the numbers are built from combobox values). UPDATE AP_Dev SET Title_ID = 1 WHERE Title_ID = 18201 It pops up a Catastrophic Failure message box. When I type that exact same thing as a query in Access it works fine. When this query is...

I get a critical error (don't remember exactly what it is off the top of my head but it's one of those very vague ones) when trying to execute a simple update statement through VBA on a SQL Server linked table. When it crashes, it has actually executed the command but still pops up the...

I want to disable the user from cutting/copying/pasting the value of a text box. What is the keyAscii of SHIFT as well as CTRL so on the keypress event for that textbox I can simply set it to a null. Or is there an easier way to do this?

Does anyone have any examples of a spell checker? I found one that opens a word doc and copies the text into that, but it does not do what I need it to do. The built in spellchecker ignores Upper case values, and breaks after 3-4 tabs/subforms

Used to have the same problem, try this Public Sub SendMessage(strTo As String, strFrom As String, strBCC As String, strAttachment2 As String) 'Send using the Port on a SMTP server Dim attList() As String Dim item As Integer Dim iMsg Dim iConf Dim Flds Dim...