Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. UnicornRainbow

    Remove duplicates from a string...

    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...
  2. UnicornRainbow

    Saving state of open forms

    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...
  3. UnicornRainbow

    Generate SQL FROM clause on-the-fly using code

    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
  4. UnicornRainbow

    Counting Keywords in List Box as an Percentage

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

    Format report to print 2 page letter

    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".
  6. UnicornRainbow

    Query for close or near duplicates

    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...
  7. UnicornRainbow

    Generate SQL FROM clause on-the-fly using code

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

    DLookup problems

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

    Date text boxes in the form __/__/__

    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...
  10. UnicornRainbow

    Search Button

    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...
  11. UnicornRainbow

    Query shows a field decimals differently

    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$)
  12. UnicornRainbow

    Travel for work

    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.
  13. UnicornRainbow

    Print Button on PopUp Preview

    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...
  14. UnicornRainbow

    Maximize ONLY Me

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

Part and Inventory Search

Back
Top