Search results for query: *

I've had good results with Function noDups(myStr As String) As String Dim myA() As String, myB As String, myI As Integer myA = Split(Trim(myStr), ",") For myI = LBound(myA) To UBound(myA) If InStr(myB, LTrim(myA(myI))) = 0 Then myB = myB & "," & myA(myI) End If Next myI noDups = Mid(myB, 2) End...

I'm afraid I can't help with identifying the forms or reports that are currently open when the application closes so hopefully someone else can step in. The following code on a form or report's open and close events will pull and push screen locations from/to a table called tblObjState with...

If you create queries with the appropriate joins and without criteria, your boss should be able to get the results you need. Give the queries recognizable names like SalesPeople_And_Their_Revenue SalesPeople_And_Their_Customers Customers_And_Their_Spend

Take a look at http://r937.com/relational.html for normalizing.

Instead of setting the print margin to 3", play around with the height of the Report Header - leave 2" blank space at top and set the print margin to 1".

Tom, understand that for a computer, Schickele is not "Like" Shikeley. While these names may sound alike, as far as the characters and their locations in each name, the only resemblance between the two is that they have an "S" in the first character slot. The logic behind having a computer...

Look at thread702-817933 and go to the last post in the thread for the correct link.

temp = DLookup("[File_Number]", "[Vessel]", "[Hull_Number] = '" & Forms![Hull_Number] & "'")

Something like 'to set the focus to the beginning of the field Private Sub t1_GotFocus() t1.SelStart = 0 End Sub 'Use the Current Event to turn tabstops on. Private Sub Form_Current() Dim ctl As Control For Each ctl In Me.Controls ctl.TabStop = True Next ctl End Sub 'After Updating, turn...

Two things: If you create a query based on your table (selecting all fields into the query) and base your form on the query instead of the table itself, it will give you a lot more flexibility. In design view of your form, highlight the magic wand on the toolbox and then add a command button...

In the query design grid, select the field and open the properties window. On the Format line, type Fixed or Currency and on the Decimal Places line type 2. Or use CCur(RevHist$)

On the practical side: Would suggest sudoku or the like for air travel. Extra batteries for your laptop. Books on tape for road trips. Good luck.

Don't know of any way to run an event off of a report view. The following may work for you. I created a from called frmPrintThis with a single command button "Print rptAcc". Set the Form's border to 'none', No dividing lines, scroll bars, record selectors, etc. Made the form as small as...

DoCmd.Maximize on the Form's Activate Event DoCmd.Restore on the Form's Deactivate Event.