Search results

I think I would tackle this problem in this fashion. In the FE, open a form and keep it hidden. In the timer event of this form I would probably use an IF...THEN statement. If current time is >= to "After Work hours" then close all open forms, then Application.Quit. You will have to...

So copy the above code into a module. Then in the "Browse" button click event add this: me.yourTextBoxName = GetFolder()

As it stands, it would probably be better to add to module and call the function in a click event of a button, then assign the value to your textbox.

This is a function I use for similar requirements. It requires Microsoft Office XX.X Object Library reference. Public Function GetFolder(Optional ByVal strPath As String = "") As String Dim fldr As FileDialog Dim sItem As String Set fldr =...

Just to add debate: http://www.access-experts.com/%5Cdefault.aspx?selection=TutorialSplitDB&sm=18 Someone else's opinion on why to split an Access database.

Yes, among other things. It can also reduce the data corruption resulting from multiple users in the same shared front end. If each user has their own copy of the front end, nearly all of these data corruption issues are elminated, if not reduced. And there are examples of AutoUpdaters in...

The code above provided by MarkK is a 95% solution. You just need to provide the correct .Connect string for your SQL Server.

It may or may not be an 'empty query'. And by empty query in this context, I mean a query without any SQL statement. The line of code we are discussing assigns a SQL statement to the query named qryMTOBetweenDates. You use the field names defined in the query. Per the query strSQL = " SELECT...

Just to clarify, the code that namliam submitted was Currentdb.querydefs("qryBetweenDates").sql = strSQL But you listed CurrentDb.QueryDefs("qryMTOBetweenDates").SQL = strSQL Which is fine as long as the query you have created is named "qryMTOBetweenDates". The error you are reporting leads...

I believe that in order for Conditional Formatting to work, the control has to have focus. So you may have to do the Conditional Formatting in code in order to avoid giving the control the focus.

I know what you mean. I'm just glad I could give just a little back! :)

A possibility is to copy the report's recordsource and use that to create a querydef. Then base the DCount off of the new query def. Dim qry as QueryDef Dim strSQL as String Dim lngCount as Long strSQL = Me.RecordSource Set qry = CurrentDB.CreateQueryDef("TEMP",strSQL) lngCount =...

Question: What exactly is in ME.txt_Title? Does it have the extension in it, or is it just the base file name? If it is just the base file name, then you need to copy the file extension from the original filename, then append it to the contents in Me.txt_Title. You could use something like...

Ok, this query is doing a bit of filtering. Basiclly the query is eliminating all the records from tblData where tblData.txtField <> tblData2.txtField. So your DCount statement must make the same 'eliminations' in order to return the correct count. Maybe the simplest way is to base you dcount...

What is the recordsource for the report?

Have you determined how the textbox is getting the focus? ie, is the user simply clicking the control and the form allows the control to gain focus? Next, is there any code that explicitly set the focus for the textbox, or changes the Enabled / Locked statuses?

This is almost exactly how I started. Biggest difference was that I was about 12. Almost retirement age....;)

Also, your code isn't the most efficient method. The code ends up repeating a lot of the comparisons.

AaronB50, Your code is a nested loop, or a loop within a loop. The outer loop is "i" and the inner loop is "x". For each increment of the outer loop i, the inner loop x has completed a complete cycle, or in this case from 0 To List13.ListCount - 1. If Me.List13.ItemData(i) =...

Sure! I would use an update query to set a "default value" to a field that contained NULL. WHERE NZ(tblName.Notes,"") = "" This WHERE statement will return all the records where Notes truly contains an empty string AND all the records where Notes is NULL. Then I would then: SET tblName.Notes...