Recent content by KP_SoCal

Below is a simple block of code that allows you to change the "ODBC Connect Str" property for a specific query to the desired connection string. Dim db As DAO.Database Dim qdf As DAO.QueryDef Set db = CurrentDb Set qdf = db.QueryDefs("Query Name") ' Change the connect string: qdf.Connect =...

As a workaround, I set the default value of the field to be ' ', and it worked. DCount("[OrderID]","Orders,"OrderID = ' '")>0 :cool:

Wierd, I tried is both ways and am unable to make it work. If the OrderID has a value, if I specify it in my criteria (eg: "OrderID = '501'"), it works. But it's not working for "OrderID Is Null" or "IsNull("OrderID). Any ideas??? DCount("[OrderID]","tblNeedsLTS",IsNull("OrderID"))>35

The expression below fires an action when "There are more than 35 entries in the OrderID field of the Orders table." DCount("[OrderID]", "Orders")>35 I'm looking for a condition that would fire when "There are more than 35 entries in OrderID field that are NUll for the Orders table." Any...

Of course you won... :o See what I get for speed typing, ha! I haven't had a chance to test it yet, but it looks fairly intuitive. If I run into any snags, I post another thread. Have an outstanding week and thanks again for everything! :D

Great! Thanks for the bonus effort in getting this helpful information for me. No wonder you were nominated for the VBA Academy Award this year! :D

Bob, if you are still out there. I have been using the code you developed for the past couple of months and it works great! For everyone's reference, I reposted it below. However, is it possible to only transpose records that meet a certain criteria? For instance, is there a way to include a...

vbaInet...wow, thanks for piecing together all that code, but I'm afraid I must respite. :confused: I'm just not strong enough in VBA to troubleshoot the errors I'm getting or impliment my own loops (I have some homework to do). Even though I was not able to impliment (due to my own lack of...

You rock!!! Please get some sleep tough. I can always touch bases with you tomorrow. Thanks again. Cheers!!! :cool:

vbaInet, help!!! I'm having a VBA ignoramous attack!!! (laugh/joke) :o I took a stab at implimenting the code based on one of your older threads (see below), but I'm just not sure where to go from here. Without question your response below describes the solution of exactly of I'm trying to...

Thanks, I'll give this a whirl. One correction I need to make is that what I meant by barely being a VBA novice is that I'm not even close to achieve a novice level in VBA. Basically, I'm a VBA ignoramous pretty much. Ha! But thanks for your suggestion. I'll try to make sense of it and see...

I attached a database that further demonstrates the end results that I'm looking to achieve without having to relay on multiple append queries each with their own different criteria. The data I'm actually working with could include signicantly more combinations that would require endless...

Calling any VBA genius! Here’s what I’m trying to do. I attached an excel document that ties in with my question. In Query1, I pull my raw data to create Table1. I need Query2 to evaluate the fields in each row of Table1 that match the Master Table and clear the fields (or set to Null)...

When I try and run this, it gives me an error message, "Cannot update. Database or object is read-only." When I run the debugger, it highlights the .Edit that is right below the If IsNull(fld.Value) Then line. Any ideas?

jdraw, that did it. Thanks! Now my question is, is there a way to apply this to all tables in my Db by writing only one sub routine? I have about 15 tables. Below is an example of where I'm wanted to head, but obviously the way I have it written below will currently not work. Public Sub...