Microsoft Access Development
 
Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
 
User Name:
Password:
Remember me
 
Go Back   Dev Articles Community ForumsDatabasesMicrosoft Access Development

Reply
Add This Thread To:
  Del.icio.us   Digg   Google   Spurl   Blink   Furl   Simpy   Y! MyWeb 
Thread Tools Search this Thread Display Modes
 
Unread Dev Articles Community Forums Sponsor:
  #1  
Old February 23rd, 2004, 06:49 AM
cjr_chris cjr_chris is offline
Registered User
Dev Articles Newbie (0 - 499 posts)
 
Join Date: Feb 2004
Posts: 7 cjr_chris User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: < 1 sec
Reputation Power: 0
VBA in Access 2000 HELP!!

Hi, Im struggling with some code, i want a query to run after i have clicked off a textbox on a userform. So first of all i used the OnExit property of the textbox on the userform, and then used vba to hopefullly perform what i want to happen. The code i used is:

Private Sub Departure_Exit(Cancel As Integer)
If DoCmd.OpenQuery(Qrydepdes) Then
Exit Sub
Else
DoCmd.OpenForm (FrmNewJourney)
End Sub

I need the query to give the result as yes there are results or no there isn't results.
and this code brings up the error to do with the .OpenQuery part. don't know what to do!
It comes up with a Compile error, expected function or variable.
Thanks for any help!!

Last edited by cjr_chris : February 23rd, 2004 at 01:07 PM. Reason: Wasn't quite correct

Reply With Quote
  #2  
Old March 28th, 2004, 10:31 AM
ineuw ineuw is offline
Contributing User
Dev Articles Newbie (0 - 499 posts)
 
Join Date: Mar 2004
Posts: 82 ineuw User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 1 h 31 m 10 sec
Reputation Power: 6
Quote:
Originally Posted by cjr_chris
Hi, Im struggling with some code, i want a query to run after i have clicked off a textbox on a userform. So first of all i used the OnExit property of the textbox on the userform, and then used vba to hopefullly perform what i want to happen. The code i used is:

Private Sub Departure_Exit(Cancel As Integer)
If DoCmd.OpenQuery(Qrydepdes) Then
Exit Sub
Else
DoCmd.OpenForm (FrmNewJourney)
End Sub

I need the query to give the result as yes there are results or no there isn't results.
and this code brings up the error to do with the .OpenQuery part. don't know what to do!
It comes up with a Compile error, expected function or variable.
Thanks for any help!!

' You can't use the "If" with DoCmd. . . . and this negates the whole procedure.
Also
' DoCmd requires the object name enclosed in quotes parenthesis outside the quotes is optional. If you correct this first, the whole procedure will show up as an error.

' Is the Departure control a text box?, a check box?, an option button?, or is it really a
' text field? Something here is incorrect.

' Use the AfterUpdate or Click Property of the Departure control.
' Test for the value of the Departure control.

' Test Query for .BOF and .EOF properties (empty).
' An empty Select Query will display with or without records.
' Add End If, if it's a multi line IF statement

Reply With Quote
  #3  
Old March 28th, 2004, 10:37 AM
ineuw ineuw is offline
Contributing User
Dev Articles Newbie (0 - 499 posts)
 
Join Date: Mar 2004
Posts: 82 ineuw User rank is Just a Lowly Private (1 - 20 Reputation Level) 
Time spent in forums: 1 h 31 m 10 sec
Reputation Power: 6
Sorry, a follow up correction to my previous answer.
.OpenForm or .OpenQuery paramaters can only be enclosed with double quotation. Parenthesis is not an option.

Reply With Quote
Reply

Viewing: Dev Articles Community ForumsDatabasesMicrosoft Access Development > VBA in Access 2000 HELP!!


Thread Tools  Search this Thread 
Search this Thread:

Advanced Search
Display Modes  Rate This Thread 
Rate This Thread:


Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

vB code is On
Smilies are On
[IMG] code is On
HTML code is Off
View Your Warnings | New Posts | Latest News | Latest Threads | Shoutbox
Forum Jump




 Free IT White Papers!
 
Create the Optimal Architecture for your Critical Applications
Warburton's the largest independently owned bakery in the UK faced a number of difficult challenges in providing the most robust yet efficient IT infrastructure for their organization's success. IBM's services combined with their xSeries servers created the perfect platform for their SAP environment with sufficient flexibility, and did so in very time effective fashion.

Request Your Free Technology Downloads!
 
Five Best Practices for Deploying a Successful Service-Oriented Architecture
This white paper describes the benefits you can expect with SOA, and how IBM can help take your business there.

Request Your Free Technology Downloads!
 
Gartner Magic Quadrant for Application Delivery Controllers
Gartner summarizes its view on Application Delivery Controllers, evaluates strengths and weaknesses of solutions, and provides Magic Quadrant reporting for a quick comparison across all vendors. Learn from Gartner how you can benefit from an all-in-one device like Citrix NetScaler that delivers the highest levels of availability, performance and security.

Request Your Free Technology Downloads!
 
Knowledge is Power
What you don't know can hurt you, and is likely costing you money and increasing your security risks during an era of scarce resources. This white paper proposes six key strategies that enterprise security managers can use to improve their network defense posture.

Request Your Free Technology Downloads!
 
Rationalizing the Multi-Tool Environment
The rationalized multi-tool approach is flexible, scalable and cost effective. It provides the necessary input to the IT service management business processes. It preserves prior investments in monitoring tools, empowers technologists to select the best tools with which to do their jobs, and enhances effective response to incidents.

Request Your Free Technology Downloads!
 

Forums: » Register « |  User CP |  Games |  Calendar |  Members |  FAQs |  Sitemap |  Support | 
  
 




© 2003-2010 by Developer Shed. All rights reserved. DS Cluster 2 Hosted by Hostway
For more Enterprise Application Development news, visit eWeek