Results 1 to 4 of 4
  1. #1
    Join Date
    Aug 2004
    Posts
    173

    Unanswered: Search Form - Works in Access 03 but not in 2007

    Attached is an Access 2003 file - this typedown search form works in Access 2003 - but not in 2007

    Can anyone look at this code and let me know what to do to make it work as it is in 2007?

    I have a few applications that use this method on many search forms - when users open the db in Access 07 - the typedown function does not work.

    to use this file type clo - will show "clothing"
    then click clear
    type blue - will go to "blue" in any field..

    I do not want to convert all the search forms to use the default Access 07 search, and I like the look and feel of the search forms better than the access 07 search at the bottom of the form....

    Another reeason is that some users have 03, and others have 07 - so I need this to work in both versions.

    Any help is appreciated - AB
    Attached Files Attached Files

  2. #2
    Join Date
    May 2005
    Location
    Nevada, USA
    Posts
    2,888
    Provided Answers: 6
    Repeating what I posted elsewhere you posted the question, the Requery appears to work differently in 2007 than previously. I got your code to work by dropping the requery and adding .Text to references to the textbox.
    Paul

  3. #3
    Join Date
    Nov 2007
    Location
    Adelaide, South Australia
    Posts
    4,049
    Bah... ya beat me to it
    Owner and Manager of
    CypherBYTE, Microsoft Access Development Specialists.
    Microsoft Access MCP.
    And all around nice guy!


    "Heck it's something understood by accountants ... so it can't be 'that' difficult..." -- Healdem
    "...teach a man to code and he'll be frustrated for life! " -- georgev

  4. #4
    Join Date
    Sep 2007
    Location
    Global Village
    Posts
    185
    replace your txtSearch_KeyUp with this and it works in 2007 but I didn't check it with 2003

    Private Sub txtSearch_KeyUp(KeyCode As Integer, Shift As Integer)
    Me.Recalc
    TypeDown IIf(IsNull(Me.txtSearch), "", Me.txtSearch)
    Me.txtSearch.SelStart = Nz(Len(Me.txtSearch), 0)
    End Sub

    Cheers

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •