Form Filter - Opening To "New" Record : Microsoft, Access, 2007

May 17, 2008 05:53am pdt

1. LSMConsu... 293,052
2. capricorn1 287,153
3. DatabaseMX 181,792
4. harfang 175,200
5. boag2000 160,625
6. TextReport 128,946
7. peter57r 128,281
8. jimhorn 79,799
9. matthews... 71,730
10. ee_rlee 59,772
11. MikeToole 50,825
12. jefftwilley 49,200
13. JimFive 46,607
14. omgang 44,035
15. angelIII 42,620

1. capricorn1 906,598
2. LSMConsu... 525,171
3. DatabaseMX 484,517
4. peter57r 365,790
5. harfang 356,748
6. jefftwilley 345,415
7. jimhorn 274,789
8. mbizup 229,700
9. stevbe 206,414
10. matthews... 202,619
11. boag2000 200,537
12. frankytee 169,793
13. MikeToole 155,875
14. rockiroads 147,183
15. TextReport 129,446

05.02.2008 at 12:46PM PDT, ID: 23372802

	[x] Attachment Details

[x]

The Solution Rating System

With so many solutions, how can you tell which solutions are most likely to help you and which ones are not? To provide you with a tool to use, we rate our solutions based on various elements that most accurately determine if a solution is a quality solution. To explain what factors affect the solution rating, here are the elements we take into consideration when formulating our solution rating.

The Grade of the Solution
The Zone Rank of the Expert Providing the Solution
The Number of Author and Expert Comments
The Number of Experts Contributing
The Feedback of the Community

Your Input Matters
Because of the way the system is set up, the most important variable in this equation is you. As a member of Experts Exchange, you are able to cast your vote on the quality of the solutions in regard to how complete, accurate, helpful and easy to understand each solution is. When you provide your feedback, each rating is adjusted accordingly. So, if you see a solution that has a poor rating that you think is a good solution, let us know by rating it. As you do, the rating will be adjusted and will become more accurate for other members of our site.

If you have any suggestions that you would like to make for our rating system, please ask a question in the Suggestions Zone of Community Support.

Thank you!

9.0

Form Filter - Opening To "New" Record

Zones: Access Coding/Macros, Microsoft Access Database, Access Forms

Tags: Microsoft, Access, 2007

The below code successfully opens the form, but it opens to a new record. However, the Filter property contains the proper filter and the proper bid number. If I open the form from the navigation bar (as opposed to using the coded command button), the form opens to the first record in the table.

         
           
             1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

           
           
             Private Sub cmdOpenBid_Click()
Dim iCount As Integer
 
iCount = DCount("*", "qryBidInProcess")
 
If iCount = 0 Then
    MsgBox "There are currently no bids in process."
Else
 
If IsNull(Me.sfrmBidInProcess.Form.BidNumber) Then
    MsgBox "Please select a bid number."
Else
    Dim stLinkCriteria As String
    stLinkCriteria = "[BidNumber]=" & Me!sfrmBidInProcess.Form.BidNumber
    DoCmd.OpenForm "frmBidOpen", , , stLinkCriteria
End If
End If
 
End Sub

           
         

Start your free trial to view this solution

Question Stats

Zone: Microsoft

Question Asked By: alliedtech

Solution Provided By: capricorn1

Participating Experts: 2

Solution Grade: B

Translate:

Loading Advertisement...

Microsoft

Internet Protocols
Applications

Development
OS

Hardware
Windows Security

Apple

Operating Systems
Hardware

Programming
Networking

Software

Internet

Search Engines
File Sharing
WebTrends / Stats
Spy / Ad Blockers

Web Browsers
New Net Users
Web Development
Chat / IM

Anti Spam
Web Servers
Anti-Virus
Email Clients

Gamers

Tips
Online / MMORPG
Puzzle
Emulators

Action / Adventure
Role Playing
Consoles
Game Programming

Strategy
Sports
Misc
Computer Games

Digital Living

Hardware
New Net Users
New Users

Software
Digital Music
Gaming World

Home Security
Apple
Networking Hardware

Virus & Spyware

Vulnerabilities
IDS
Encryption
Anti-Virus

Operating Systems Security
Software Firewalls
WebApplications
Cell Phones

Operating Systems
Internet
Hardware Firewalls

Hardware

Handhelds / PDAs
Displays / Monitors
Components
Networking Hardware

Peripherals
Laptops/Notebooks
Storage
Servers

Desktops
New Users
Misc
Apple

Software

System Utilities
Industry Specific
Network Management
Photos / Graphics
Page Layout
VMWare
Misc
Web Development

OS
CYGWIN
Voice Recognition
Message Queue
Quality Assurance
Security
Firewalls
MultiMedia Applications

Development
Database
Office / Productivity
Business Management
OS/2 Apps
Server Software
Internet / Email

ITPro

OS
Storage
Encryption
Operating Systems Security
Apple Hardware
Laptops & Notebooks
Servers
Networking Hardware
Peripherals

Devices
Displays / Monitors
WebTrends / Stats
Search Engines
Firewalls
WebApplications
IDS
Vulnerabilities
Email Clients

File Sharing
Spy / Ad Blockers
Web Browsers
Web Servers
Networking
Anti-Virus
Chat / IM
Anti Spam

Developer

Web Servers
Web Browsers
Game Programming
Dev Tools
Industry Specific
Office / Productivity

Database
CYGWIN
Web Development
Search Engines
File Sharing
WebTrends / Stats

Programming
Content Management
Application Servers
Protocols

Storage

Removable Backup Media
Storage Technology
Servers

Grid
Remote Access
Backup / Restore

Misc
Hard Drives

Miscellaneous
Security
Development
Linux
VMWare

MainFrame OS
Unix
Apple
OS / 2
AS / 400

BeOS
Microsoft
VMS / OpenVMS

Database

Oracle
Miscellaneous
MySQL
Software
Sybase
Contact Management
PostgreSQL
Data Manipulation
Clarion
InterSystems Cache

Siebel
MUMPS
OLAP
SQLBase
SAS
GIS & GPS
4GL
Berkeley DB
DB2
Informix

Interbase / Firebird
FoxPro
Reporting
LDAP
Filemaker Pro
MS SQL Server
dBase
MS Access

Security

Misc
Web Browsers
Software Firewalls
Operating Systems Security
File Sharing

Spy / Ad Blockers
Vulnerabilities
WebApplications
IDS
Anti-Virus

Encryption
Anti Spam
Email Clients
VPN
Chat / IM

Programming

Editors IDEs
Installation
Handhelds / PDAs
Multimedia Programming
System / Kernel

Algorithms
Game
Signal Processing
Project Management
Open Source

Database
Misc
Languages
Processor Platforms
Theory

Web Development

Scripting
Blogs
Web Servers
Software
Search Engines
Web Graphics
Images

Internet Marketing
Images and Photos
Components
Document Imaging
Web Languages/Standards
Illustration
WebApplications

Fonts
WebTrends / Stats
Authoring
Digital Camera Software
Miscellaneous

Networking

Protocols
Apple Networking
Network Management
Message Queue
Application Servers
Content Management
File Servers
Email Servers
Misc
Java Editors & IDEs

Wireless
Networking Hardware
Backup / Restore
System Utilities
ISPs & Hosting
Web Servers
Storage Technology
Removable Backup Media
Servers
Broadband

Grid
OS / 2
Novell Netware
Unix Networking
Windows Networking
Security
Telecommunications
Operating Systems
Linux Networking

Other

Community Advisor
Lounge
Community Support
New Net Users

Philosophy / Religion
Math / Science
Miscellaneous
URLs

Expert Lounge
Politics
Puzzles / Riddles

Community Support

Suggestions
New to EE
New Topics
Community Advisor

CleanUp
Announcements
General

Feedback
Input
EE Bugs

05.02.2008 at 12:57PM PDT, ID: 21489590

Rank: Genius

capricorn1:

open the form frmBidOpen in design view
set the Data Entry property to NO

05.02.2008 at 01:00PM PDT, ID: 21489624

alliedtech:

The Data Entry Property is already set to No....I am really confused as to why the form still opens to New.

05.02.2008 at 01:03PM PDT, ID: 21489656

Rank: Genius

capricorn1:

then, i think the form is just opening without any record

DoCmd.OpenForm "frmBidOpen", , , stLinkCriteria

the stLinkCriteria is a filtering the form's data.

05.02.2008 at 02:25PM PDT, ID: 21490138

alliedtech:

I agree....based on the fact that the filter field in the form properties corresponds with the correct BidNumber, I would think that the form would be filtering that field, but as you mentioned, the form is not actually opening to a record. The code above has no noticeable errors in my opinion.

05.02.2008 at 02:41PM PDT, ID: 21490214

Rank: Genius

capricorn1:

try just opening the form without the criteria

DoCmd.OpenForm "frmBidOpen"

05.02.2008 at 02:55PM PDT, ID: 21490278

alliedtech:

DoCmd.OpenForm "frmBidOpen" opens the form and goes to the first record in the source table (which happens to be Bid # 11 in this situation). I assume this indicates that there is some sort of disconnect or error in the ", , , stLinkCriteria" portion of the DoCmd.

05.02.2008 at 03:08PM PDT, ID: 21490348

Rank: Genius

capricorn1:

let us see what the stLinkCriteria is

If IsNull(Me.sfrmBidInProcess.Form.BidNumber) Then
MsgBox "Please select a bid number."
Else

Dim stLinkCriteria As String
stLinkCriteria = "[BidNumber]=" & Me!sfrmBidInProcess.Form.BidNumber

msgbox stLinkCriteria ' <<< add this line

DoCmd.OpenForm "frmBidOpen", , , stLinkCriteria
End If

you should see the stLinkCriteria value in a message box

05.02.2008 at 03:11PM PDT, ID: 21490365

alliedtech:

[BidNumber]=22 (or which ever bid number I select via the record selectors)

05.02.2008 at 03:17PM PDT, ID: 21490400

Rank: Genius

capricorn1:

use this to open the form

DoCmd.OpenForm "frmBidOpen"

is there a bidnumber 22?

05.02.2008 at 03:39PM PDT, ID: 21490475

alliedtech:

The attached code opens the message box ([BidNumber]=22), and then "frmOpenBid" opens and goes to Bid # 11 (Again, the first bid in the source table).

                       
                                Private Sub cmdOpenBid_Click()
Dim iCount As Integer
 
iCount = DCount("*", "qryBidInProcess")
 
If iCount = 0 Then
    MsgBox "There are currently no bids in process."
Else
 
If IsNull(Me.sfrmBidInProcess.Form.BidNumber) Then
    MsgBox "Please select a bid number."
Else
    Dim stLinkCriteria As String
    stLinkCriteria = "[BidNumber]=" & Me!sfrmBidInProcess.Form.BidNumber
    
    MsgBox stLinkCriteria      ' <<< add this line
 
    DoCmd.OpenForm "frmBidOpen"
End If
End If
 
End Sub

Open in New Window

05.02.2008 at 04:44PM PDT, ID: 21490684

Rank: Genius

capricorn1:

do you have a field named BidNumber in the record source of frmBidOpen?

Accepted Solution

05.03.2008 at 12:04AM PDT, ID: 21491575

Rank: Genius

harfang:

Please try this:
* Open your form from the navigation bar
* Navigate to the Bid 22
* With the number selected, filter by selection
* Save and open in design view
* Find the property Filter
* Paste it back here

For example, if your number is stored as text, the syntax will be different:

(YourTable.BidNumber="22")

(°v°)

Assisted Solution

05.05.2008 at 07:13AM PDT, ID: 21500156

alliedtech:

Harfang, interestingly I was unable to navigate past Bid # 18 despite the face that the table had records that went to Bid # 23. The lead me to check the data source of the form...The bids that were not returned by the query were bids that were null on certain fields in the source table. I changed the join properties in the query and the form works perfect now. Thanks for your help guys. I will split the points unless you oppose that decision.

harfang

05.05.2008 at 07:57AM PDT, ID: 21500485

Thanks. I suspected something like this, hence the instructions (testing several potential problems).

Success with your project!
(°v°)

20080236-EE-VQP-29 / EE_QW_2_20070628