I have a form that has command buttons that are used to open other forms; I tried to develop one master form to display certain record types. Certain times the command button will pressed but the table will not contain any records; thus the form will be blank. Is there a way to have an error message state “there are no records for the selected type”? And not open the form?
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |
-
Command Buttons (Access 2002)
Home » Forums » AskWoody support » Productivity software by function » MS Access and database help » Command Buttons (Access 2002)
- This topic has 7 replies, 2 voices, and was last updated 19 years, 8 months ago.
Viewing 0 reply threadsAuthorReplies-
WSHansV
AskWoody LoungerSeptember 27, 2005 at 4:05 pm #975668 -
WSMigAnt
AskWoody Lounger -
WSHansV
AskWoody LoungerSeptember 27, 2005 at 4:11 pm #975672Say that FormA is based on TableA (it could also be a query, that isn’t important here). The On Click code of the command button that opens FormA could look like this:
Private Sub cmdOpenFormA_Click()
If DCount("*", "TableA") = 0 Then
MsgBox "There are no records to display.", vbInformation
Else
DoCmd.OpenForm "FormA"
End If
End Sub
Substitute the correct names. -
WSMigAnt
AskWoody Lounger -
WSHansV
AskWoody LoungerSeptember 27, 2005 at 8:01 pm #975724If you search for OpenForm and/or WhereCondition in this forum, you’ll find many examples, such as post 513,200, post 497,573, post 496,798 etc.
WhereCondition is used to limit the records displayed in a form to those satisfying a certain condition, not to open the form only if a specific condition is met.
-
WSMigAnt
AskWoody Lounger -
WSHansV
AskWoody LoungerSeptember 28, 2005 at 12:58 pm #975887The idea could be like this:
Private Sub cmdOpenFormA_Click()
Dim strCondition As String
' The restriction for the records to be displayed
strCondition = "..."
If DCount("*", "TableA", strCondition) = 0 Then
MsgBox "There are no records to display.", vbInformation
Else
DoCmd.OpenForm FormName:="FormA", WhereCondition:=strCondition
End If
End Sub
The contents of strCondition must be determined by you; it could be something like
strCondition = "[CompanyID] = 37"
or
strCondition = "[LastName] Like 'R*'"
or
strCondition = "[InvoiceDate] > #09/01/2005#"
-
-
-
-
Viewing 0 reply threads -

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
AMD : Out of Bounds (OOB) read vulnerability in TPM 2.0 CVE-2025-2884
by
Alex5723
5 hours, 46 minutes ago -
Totally remove or disable BitLocker
by
CWBillow
4 hours, 39 minutes ago -
Windows 10 gets 6 years of ESU?
by
n0ads
1 hour, 29 minutes ago -
Apple, Google stores still offer China-based VPNs, report says
by
Nibbled To Death By Ducks
16 hours, 32 minutes ago -
Search Forums only bring up my posts?
by
Deo
16 hours, 46 minutes ago -
Windows Spotlight broken on Enterprise and Pro for Workstations?
by
steeviebops
1 day, 4 hours ago -
Denmark wants to dump Microsoft for Linux + LibreOffice
by
Alex5723
20 hours, 51 minutes ago -
How to get Microsoft Defender to honor Group Policy Setting
by
Ralph
1 day, 4 hours ago -
Apple : Paragon’s iOS Mercenary Spyware Finds Journalists Target
by
Alex5723
1 day, 14 hours ago -
Music : The Rose Room – It’s Been A Long, Long Time album
by
Alex5723
1 day, 16 hours ago -
Disengage Bitlocker
by
CWBillow
1 day, 6 hours ago -
Mac Mini M2 Service Program for No Power Issue
by
Alex5723
1 day, 18 hours ago -
New Win 11 Pro Geekom Setup questions
by
Deo
16 hours, 41 minutes ago -
Windows 11 Insider Preview build 26200.5651 released to DEV
by
joep517
2 days, 1 hour ago -
Windows 11 Insider Preview build 26120.4441 (24H2) released to BETA
by
joep517
2 days, 1 hour ago -
iOS 26,, MacOS 26 : Create your own AI chatbot
by
Alex5723
2 days, 5 hours ago -
New PC transfer program recommendations?
by
DaveBoston
10 hours, 12 minutes ago -
Windows 11 Insider Preview Build 22631.5545 (23H2) released to Release Preview
by
joep517
2 days, 9 hours ago -
Windows 10 Build 19045.6029 (22H2) to Release Preview Channel
by
joep517
2 days, 9 hours ago -
Best tools for upgrading a Windows 10 to an 11
by
Susan Bradley
1 day, 21 hours ago -
The end of Windows 10 is approaching, consider Linux and LibreOffice
by
Alex5723
1 day, 1 hour ago -
Extended Windows Built-in Disk Cleanup Utility
by
bbearren
1 day, 10 hours ago -
Win 11 24H2 June 2025 Update breaks WIFI
by
dportenlanger
3 days, 4 hours ago -
Update from WinPro 10 v. 1511 on T460p?
by
CatoRenasci
2 days, 2 hours ago -
System Restore and Updates Paused
by
veteran
3 days, 6 hours ago -
Windows 10/11 clock app
by
Kathy Stevens
2 days, 17 hours ago -
Turn off right-click draw
by
Charles Billow
3 days, 10 hours ago -
Introducing ChromeOS M137 to The Stable Channel
by
Alex5723
3 days, 13 hours ago -
Brian Wilson (The Beach Boys) R.I.P
by
Alex5723
2 hours, 2 minutes ago -
Master patch listing for June 10, 2025
by
Susan Bradley
3 days, 15 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.