How to get my VBA Function to Work in Access 2010

Hi there,
I am new to VBA programming. I need to run a huge query, which the simple query function cannot perform. I have coded this query in the VB editor inside a standard module and it accepts the code, but I do not know how to execute the function I have created.
I tried creating a command button in a new form and it just keeps coming up "Compile Error: Expected End Sub"
Please can you take a look at my code and tell me where I am going wrong please:
Function RunQuery()
Dim strSQl As String
strSQl = "SELECT M.[EB Status (Desc)], M.[HB Status (Desc)], M.[PB Status (Desc)], TBL_Status.Status" & _
"FROM M INNER JOIN TBL_Status ON M.[ISBN (eBook)] = TBL_Status.Status" & _
"WHERE(((M.[EB Status (Desc)])='Available')AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB
Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Contracted') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available')
AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Awaiting
Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status
(Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Distribution On Hold')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Planned')
AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB
Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Out For Conversion')) OR" &
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Contracted') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Distribution On Hold')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Out For Conversion')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Awaiting Distribution'))
OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Awaiting Distribution')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Planned')
AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Awaiting Distribution')) OR"
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB
Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Planned') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB
Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Planned')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Awaiting Distribution')) OR"
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Withdrawn') AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='In Production') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Withdrawn') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Print') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Awaiting Distribution')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Contracted') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status
(Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Out of Stock') AND ((M.[PB Status (Desc)])='Out of Print') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='In Production')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status (Desc)])='Planned') AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB
Status (Desc)])='Available') AND ((TBL_Status.Status)='Withdrawn')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)]) Is Null) AND ((M.[PB Status (Desc)])='Available') AND ((TBL_Status.Status)='Withdrawn')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Withdrawn') AND
((M.[PB Status (Desc)])='Out of Stock') AND ((TBL_Status.Status)='Live')) OR" & _
"(((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='In Production') AND ((M.[PB Status (Desc)]) Is Null) AND ((TBL_Status.Status)='Live')) OR (((M.[EB Status (Desc)])='Available') AND ((M.[HB Status (Desc)])='Available') AND ((M.[PB Status
(Desc)]) Is Null) AND ((TBL_Status.Status)='Withdrawn'))" & _
End Function
Any help is greatly appreciated!!
Thanks,
Luke

If it's too complex as a query it won't run in code either. And structurally speaking, you have a couple errors that I see. There is no space before FROM and WHERE.
Try breaking the query down into separate smaller queries with each set of criteria. Then put them all in a UNION query. Maybe that will run as you want.
Bill Mosca
www.thatlldoit.com
http://tech.groups.yahoo.com/group/MS_Access_Professionals

Similar Messages

How to get PHP mail() function to WORK?

The topic title speaks for itself. I only want the exact following code to actually send an e-mail, just as it does on any external server:
<?php
mail(an e-mail address, a subject, some text);
?>
Is it possible?
I have the sendmail_path set to /usr/sbin/sendmail -t -i in php.ini, and MAILSERVER=-YES- in hostconfig.
I would like to avoid using sendmail's -f option if possible (this does not work for all e-mail addresses anyway).
Mac mini Core Duo Mac OS X (10.4.7)

Hi Neithan,
 If, as your profile indicates, you are using Tiger, you are using postfix when you use the "sendmail" command. Sendmail is no longer installed but postfix comes with an "emulator" to keep legacy stuff from breaking. It's still a good command line method for sending mail.
 I'm not sure if setting MAILSERVER=-YES- causes postfix to listen on the smtp port or just for local connections. However, I thought that local connections were sufficient to send mail. Try it and if it doesn't work use Postfix Enabler. Just remember that changing the hostconfig file doesn't take effect until the next reboot. (or run of SystemStarter)
 Also remember that most ISPs don't accept mail from unrecognized machines anymore.
Gary
~~~~
 Money isn't everything -- but it's a long way ahead of
 what comes next.
 -- Sir Edmond Stockdale

How do I get the tint function to work in CS5?

I rrecently installed CS5 In Design in Windows 7. How do I get the tint function to work?

This is how you create a tint:
If it's not working, you might try restoring your InDesign preferences:
Trash, Replace, Reset, or Restore the application Preferences

Hi out there. To capture a screen shot one uses: Command-Shift-3 or 4. I have done this for a long time. Now suddenly neither screen shot works anymore. Suggestions how to get this useful function back? Thanks, Georgx

Hi out there. To capture a screen shot one uses: Command-Shift-3 or 4. I have done this for a long time. Now suddenly neither screen shot command works anymore. Suggestions how to get this useful function back? Thanks, Georgx

Command-Shift-3 and 4 works just fine on several Macs that I have here.
Try restarting your Mac....or post in the specific support area for your Mac model....for more advice.
https://discussions.apple.com/index.jspa

I have tried to reindex my messages but I still can not get the search function to work in email

I have tried reindecing my messages by rebuilding the library but I still can't get my message function to work in mail. Any proposed solutions much appreciated.

Some of your user files (not system files) have incorrect permissions or are locked. This procedure will unlock all your user files, reset their ownership, and remove their access-control lists. If you've set special values for those attributes, they will be reverted. In that case, either stop here, or be prepared to recreate the settings if necessary. Do so only after verifying that those settings didn't cause the problem. If none of this is meaningful to you, you don't need to worry about it.
Back up all data.
Step 1
If you have more than one user, and the one in question is not an administrator, then go to Step 2.
Enter the following command in the Terminal window in the same way as before (triple-click, copy, and paste):
{ sudo chflags -R nouchg,nouappnd ~ $TMPDIR..; sudo chown -R $UID:staff ~ $_; sudo chmod -R u+rwX ~ $_; chmod -R -N ~ $_; } 2>&-
This time you'll be prompted for your login password, which won't be displayed when you type it. You may get a one-time warning to be careful. If you don’t have a login password, you’ll need to set one before you can run the command. If you see a message that your username "is not in the sudoers file," then you're not logged in as an administrator.
The command may take several minutes to run, depending on how many files you have. Wait for a new line ending in a dollar sign ($) to appear, then quit Terminal.
Step 2 (optional)
Take this step only if you have trouble with Step 1, if you prefer not to take it, or if it doesn't solve the problem.
Start up in Recovery mode. When the OS X Utilities screen appears, select
Utilities ▹ Terminal
from the menu bar. A Terminal window will open. In that window, type this:
res
Press the tab key. The partial command you typed will automatically be completed to this:
resetpassword
Press return. A Reset Password window will open. You’re not going to reset a password.
Select your startup volume ("Macintosh HD," unless you gave it a different name) if not already selected.
Select your username from the menu labeled Select the user account if not already selected.
Under Reset Home Directory Permissions and ACLs, click the Reset button.
Select
 ▹ Restart
from the menu bar.

Hi, I have a late 2011 MacBook Pro but cant get the mirroring function to work with Apple TV. I've got the most recent Software 10.7.5 but cant see the mirroring icon or turn this on. I'm able to mirror from my Ipad but not my Mac, any thoughts?

Hi, I have a late 2011 MacBook Pro but cant get the mirroring function to work with Apple TV. I've got the most recent Software 10.7.5 but cant see the mirroring icon or turn this on. I'm able to mirror from my Ipad but not my Mac, any thoughts?

Welcome to the Apple Support Communities
AirPlay Mirroring is supported on your Mac, but it needs OS X Mountain Lion (10.8). See > http://support.apple.com/kb/HT5404
You have two possibilities:
1. Make a backup, open App Store and purchase Mountain Lion to upgrade to this OS X. Then, you will find the AirPlay Mirroring icon at the top right of the display, on the menu bar, or on System Preferences > Displays.
2. Keep OS X Lion and use AirParrot > http://www.airparrot.com
Both options work properly, but I recommend AirPlay Mirroring as it doesn't need a third-party program

How to get the current function name in java

How to get the current function name in java.
In c it is done as
printf("%s",__func__);
Thanx in advance.

j0o wrote:
System.out.println("Class Name: " + new Exception().getStackTrace()[0].getClassName() +
"/n Method Name : " + new Exception().getStackTrace()[0].getMethodName() +
"/n Line number : " + new Exception().getStackTrace()[0].getLineNumber());
I pointed the OP at this approach yesterday in one of his multi-posts. I still have not been given my Dukes!

I have a MacBook, made in 2010. I can't get the eject function to work. I have a DVD in now and want to eject it and put another one in. Command-E, dragging it to the trash or Find-Eject does not work. Ideas?

I have a MacBook, made in 2010. I can't get the eject function to work. I have a DVD in now and want to eject it and put another one in. Command-E, dragging it to the trash or Find-Eject does not work. Ideas?

Hi there. Hear are some other options . Hold down for click on the track pad while restarting and keep it down all the way thru boot. Or use right click on a mouse. If it's stuck, sometimes sticking a business card in top edge of slot while trying the eject option can work.

Missing Sparsity Advisor in AWM, how to get/activate this function?

hi all,
I use "Analytic Workspace Manager 10.2.0.3.0A" to create my cubes and dimensions.
In the Demonstration of "Analytic Workspace Manager 10.2.0.3.0", I seen there is the function "Sparsity Advisor" in AWM. But I don't found this function in my "Analytic Workspace Manager 10.2.0.3.0A".
Some one show me how to get/activate this function please!
Thanks in advance!

To Ragnar
to obtain the lastest Schema, I downloaded and installed the "GLOBAL Schema 10.2.0.3.0" found here:
http://www.oracle.com/technology/products/bi/olap/index.html
To Watrost
I did which you said:
SQL> show parameter compatible;
and I obtains this result:
compatible string 10.2.0.1.0
I think I don't have the good version. So I tried to update the lastest patch "10gR2 - 10.2.0.3" but I found another problem.
I don't have acces to Metalink because I installed "Oracle Database 10g Release 2 (10.2.0.1.0) for Microsoft Windows (x64)"
so I don't have the "Support Identifier (CSI, SAC, Access Code etc.)". Or maybe I don't know how to get this "Support Identifier".
Can you tell me how to get this Identifier number?
Is it possible to get the lastest patch 10gR2 - 10.2.0.3 without "Support Identifier" or Metalink?
thanks in advance!

How to get micro sd card to work

how to get micro sd card to work.. my phone says total space 7.40GB for sSD card and that's whats available. I put a micro SD card in but no change?

You put the card in and go to settings and go to storage and scroll down to sd card and click mount ad card

How to get imac 27 inch to work with asus triple mionitors to work through matro triple head 2 go

how to get imac 27 inch to work with asus triple mionitors to work through matro triple head 2 go

I think I got a little ahead of myself explaining my problem, so let me clarify...
Only the one iMac is having the network file deletion problem, but it is included in the network user logon problem. So 4 out of 5 of the iMacs have had or are having logon problems with network users accounts using mobile accounts on the systems. 2 of the 4 I have wiped and started over on and the other 2 have different network accounts being used by the primary system users. The 5th iMac has not caused any problems except I forgot to mention that the USB on it seems flaky.
So we are apparently full of problems.

On Apple TV, my pictures have loaded, but I cannot get the slideshow function to work. It has been "loading" 28 pictures for over 5 minutes. What is wrong?

On Apple TV, my pictures have loaded, but I cannot get the slideshow function to work. It has been "loading" 28 pictures for five minutes. What am I doing wrong? I have Windows 7 on my PC.

I don't have any direct experience with D-Link equipment, but I may be able to provide some general advice. See if you can use a Web browser to connect to the D-Link's configuration screen. This probably involves visiting a URL such as http://www.192.168.0.1 . If you haven't changed the sign-on parameters, a quick Google search should find them for you.
Once there, note as many configuration details as you can find. You'll need those to configure your Time Capsule.
Use the AirPort Utility to configure the Time Capsule.
One last thing: It's quite possible that the Verizon network will have locked onto the "MAC" address of your D-Link router. Something needs to be done to reset this. If there's a separate box at your house that came with the FIOS equipment that's "upstream" from the D-Link router, I'd cycle power on it to see if that does the job. Otherwise you'll probably need to call Verizon to ask them to reset things once your Time Capsule is installed in place of the D-Link router.

Does anyone know how to get an animated screen saver working

Hi I have a imac desktop not even a year old. Does anyone know how to get an animated screen saver working please. Its a gimp screen saver and is it safe to use on my mac?

Go to the website from where you got the screensaver from and read its system requirements and instructions for installation.

How to get the list of users who has access for list of tcodes.

How to get the list of users who has access for list of tcodes.

Go to transaction SUIM, this has a number of reports for users/authorisations
open the Where used>Autorization Values>In Users
and double click to execute
in authorisation object, enter S_TCODE
then press the "Enter Values" button
It will offer entry boxes to put the transaction code you are interesed in.
Then execute and the list of users with access to this transaciton code will be returned.

Why is the scroll function not working after accessing the voice feature in settings?

Why is the scroll function not working after accessing the voice feature in settings?

For some prerecorded audio files the Transpose slider will not work reliably. I found no clear pattern, when it does and when not.
If all fails, create a loop from the audio file. Select the region in the track and use the command "File: Add region to Loop library".
Set the current key and tempo, name the loop, and save the loop.
Now add it from the loop browser to a new track and delete your old track. The search field in the Loop browser will help you to find the loop quickly.
You will be able to transpose the sample as described above, like a regular loop.
For example - a audio file turned into a loop and transposed:

How to get my VBA Function to Work in Access 2010

Similar Messages

Maybe you are looking for