Recent content by ChrisTheIntern

Has anyone ever had this problem where the top-most textbox on a tabbed form is highlighted every time you change tabs? If so, is there a setting to make it stop doing that? It's weird because sometimes it doesn't do that. By highlighted I mean like when you select text to copy paste, you...

Sounds like you are looking for is a crosstab query. I would leave Table Cats to not hold monthly budget data because tables shouldn't be used to calculate sums or anything. On tblExpenses, just make sure you include the date(month and year) on it. The crosstab will create new columns based on...

Thank you guys, it was because the code was in KeyDown as Mark stated. I should've been more specific that it was leftmouseclick.

Hi Gemma, I Googled what autokeys macro is and it sounds like it is something I make. I have not made an autokeys macro before this. The code within the ctrl+A case works fine and it is just that it will not go into the ctrl+click case.

Hi guys, I am having trouble triggering the code within the ctl+click case in this code. The code for ctl+A works fine but not for ctl+click. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'Redefining Hotkeys 'Stop ctl+A from triggering Access hotkey for "select all records"...

Glad I can give back some help to the forum. Replace the DCount with this: intCount = rs.RecordCount I think DCount only works for tables or queries that are concrete? Like in the navigation form, not a temporary one that is made within a sub.

I just had an epiphany. I created three new fields in my dummy table which are CurrentMonth, LastMonth, and 2MonthsPrior. Then I used VBA to populate those fields from the crosstab query when the user clicks to generate the report form. Now the report form is based off of this single table...

By then, it would be simpler to DCount a temporary rs... Dim strSQL As String Dim rs As DAO.RecordSet Dim db As DAO.Database Dim intCount As Integer Set db = CurrentDb() strSQL = "SELECT DISTINCT dateAssessed FROM R_P_Data_P WHERE Activity = 'Audit'" Set rs = db.OpenRecordset(strSQL...

I just realized, RunSQL doesn't return anything. What about... Dim strSQL As String Dim rs As DAO.RecordSet Dim db As DAO.Database Dim intCount As Integer Set db = CurrentDb() strSQL = "SELECT COUNT(*) As UniqueDates FROM (SELECT DISTINCT dateAssessed FROM R_P_Data_P WHERE Activity = 'Audit')...

I'm a beginner but I would try something like this: Dim sqlStatement As String sqlStatement = "SELECT COUNT(*) As UniqueDates FROM (SELECT DISTINCT dateAssessed FROM R_P_Data_P WHERE Activity = 'Audit') AS tmp" DoCmd.RunSQL sqlStatement

Thanks jdraw, What I got from the checklist is that the problem is: the query is based on another query that is read-only. I feel like that justifies my current attempt: splitting the form such that [Query1] has its own subform and the table is in the main form so that the form query...

Hey guys, I need help on a problem where I want to create a form where I can write different recommendations on each textbox while displaying some information from a crosstab query (aka Query1) next to it. I have included snapshots in the attachments for better visual. My Ideal Outcome on...

It looks like you are using the template for importing data from a specific worksheet in ALL EXCEL Files in a single folder into separate tables in Access. Just double checking that is what you want. strPath should not have the Excel file name in it. The path should stop at the final subfolder...

Going on a limb here + also a lunch break right now. Here is some's code I found on a different forum. I tweeked it to fit my needs but I found it very helpful in getting mine started. This pretty much covers most of the ways you can import from excel...

I apologize for my bad GUI design. This is the first one I've ever made.