Experts,

I have an OpenArgs statement with 2 criteria
but I need to add a 3rd: Nz(Form_subfrmProjects_Extended_List.Batch_No, "")   .....Its text
I have been trying to do this but its out of my skillset.  

Thank you for your kindness.  

Dim MyArgs As String

MyArgs = Nz(Form_subfrmProjects_Extended_List.Buy_CP, "")
MyArgs = MyArgs & ";"
MyArgs = MyArgs & Nz(Form_subfrmProjects_Extended_List.Trade_No, "")

    DoCmd.OpenForm "frmLetterOfCredit", , , , , , MyArgs

Select all Open in new window

then on the On Load of the form:

 Dim ArgsSplit() As String 'array to hold the string we've sent in
    If Nz(Me.OpenArgs, "") = "" Then
         Exit Sub 'no arguments were sent in so bail
    End If
    ArgsSplit() = Split(Me.OpenArgs, ";") 'two values, positions 0 and 1 holding strings you want to use
    If ArgsSplit(0) <> "" Then 'there was a first argument, Chr 34 is code for double quotes
        Me.Filter = "[Buy_CP] = " & Chr(34) & ArgsSplit(0) & Chr(34)
    End If
    If ArgsSplit(0) <> "" And ArgsSplit(1) <> "" Then 'two arguments
         Me.Filter = Me.Filter & " AND [Trade_No] = " & Chr(34) & ArgsSplit(1) & Chr(34) 'add on the second WHERE condition
    End If
    If ArgsSplit(0) = "" And ArgsSplit(1) <> "" Then 'only second arguments
         Me.Filter = "[Trade_No] = " & Chr(34) & ArgsSplit(1) & Chr(34) 'Just add the second WHERE condition
    End If

    Me.FilterOn = True

Select all Open in new window

I've imported a set of records into a table from a software inventory application. It has some useful information, e.g. computer/server (field is called 'computer'), software name (field is called 'name'), publisher, version etc.  The records are basically formatted in a row for each piece of software installed on each computer, so for e.g.

•      Computer1 – software1
•      Computer1 – software2
•      Computer1 –software3
•      Computer2 – software1
•      Computer2 – software2
•      Computer2 – software3
•      Computer3 – software1
•      Computer3 – software2
•      Computer3 – software3

What I was hoping to do is identify any computers/servers which do not have a specific piece of software installed upon them (when they should) using an access query, so I'd specify the actual software name somewhere in the clause and it  produce a unique list of computers servers which do not have that software installed on it. I'm trying to identify the best way of doing this initially as there are a few apps I am particularly interested in.

And then whether I could get a count for each unique piece of software in the data - a list of corresponding computers/servers which do not have that piece of software installed upon them. Again the key columns would be computer and name.

So it would produce:

•      Software1 – not installed on computer1, computer8, computer15 etc.
•      Software2 –not installed on computer5, computer22, computer 86 etc.

Experts,

I need to append to tblProjects if [Trade#1] is NOT IN [Trade No].
I am not sure if my query is correct.
If it is correct, when I execute it  it says I can not add records due to type conversion failure and key violations.

this is my query:

INSERT INTO tblProjects ( [date], Trade_No_2, Trade_No, Buy_CP, Quantity_BBLS, Batch, Origin_Deal, Sale_CP )
SELECT XL.Date, XL.[Trade #1], I2A.Trade_No, XL.[Buy CP], XL.[Quantity BBLS], XL.Batch, XL.[Origin / Deal], XL.[Sale CP]
FROM XLImportToAccess AS XL LEFT JOIN tblProjects AS I2A ON XL.[Trade #1] = I2A.Trade_No
WHERE (((XL.Date) Is Not Null) AND ((I2A.Trade_No) Is Null));

Select all Open in new window

I have attached the db. There are only 2 tables and 1 query.  If you could kindly take a peek at it and let me know I would appreciate.
EE_NotIn.accdb

Is there an easy way to show a progress bar in MS Access.  When I click on a button I want a pop up that runs for maybe 3 to 5 seconds.

To give you some background perspective... O the click of the button, a form and several subforms open... but this is taking about 5 seconds and the user does not know what is happening.  There I want some progress bar so the user knows that the forms are being loaded.

thanks much!
Joy

Experts,

I am importing from excel and sometimes I need to add a CoName to the db as that company has not been added yet.  I have to manually add that CoName to tblCompanies and its starting to be a real pain.  I think what I am after is an INSERT INTO tblCompanies.CoName when the excel file company_name is NOT IN tblCompanies.  I do not know how to first check if the company name is contained in tblCompanies.CoName first and then automatically add that excel file company_name into tblCompanies.CoName

I hope that makes sense.  Let me know if I have missed something.  

thank you

I have a Access table (tblExcelProductivity) that includes FullName, FieldOffice, Mnth , and Goal. I would like to use an update query to update the Maximum Goal number with 0 for each like record based on FullName, FieldOffice and Mnth. For example below, Mary has 2 records in Arlington in the month of DEC with Goals of 45 and 67.2. In this case 0 would be updated 67.2 the max for the 2 records.






qrySumAgedCase1.xlsx

Experts, in query design, I need to subtract 2 days from a [Window_Date] but but the count does not include the weekends (Sat Sun).  Only work week days are counted.  How could a query be developed for this criteria?

thank you

Experts

I need to update tblLetterOfCredit.Amount to tblPricing.[Calc Price] where tblLetterOfCreditID.LetterOfCreditID = me.LCID
I am calculating a price on tblPricing.[Calc Price] and have a button that if clicked will update tblLetterOfCredit.Amount to this value in tblPricing.[Calc Price]

How can I do this?  I am not sure if this is an "Insert into tblLetterOfCredit" code.

If I have missed something let me know.  

Thank you

Experts, I have a report and I need to add a “My Group” to this report in the query developer.


If [DateSentToBank] is not null and [DateOfIssueSB] is null then “Pending”
If [DateOfIssueSB] is NOT null then “Issued”
So, if at anytime, [DateOfIssueSB] is not null then its "Issued" but if [DateOfIssueSB] is null and [DateSentToBank] is not null then "Pending"

The below is not correct but It would look something like this:
MyGroup: IIf(Nz([DateSentToBank],"") and notisnull([DateOfIssueSB]) "Issued","Pending"))
I dont think I can use notisnull like I am doing.

I might be going about it the wrong way, open to any new suggestions how to do this.  


Thank you

In Access I have created a customer database and an invoice for my customers.  When a new customer comes in I input their info in the customer database and then in the invoice I us a combo box to find the customer and populate the info in the invoice. The problem I am running into is that when I enter a new customer and then go to the invoice it cannot find the customer info..  I have to click on refresh, refresh all, before it will see the new customer even though I have created a saved button and click on "save".   Is there a way to get Access to save the customer record so that I can go directly to the invoice and pull up the customer info without going through so many steps?

Hello,

I have a report.  I would like to add a button in my form to save the report as a PDF to the location the user specifies.

Thanks much!
Joy

I would like to use a function to determine which field of a table to use in a rowsource of a form. The following works if called in Load event of the form:

Me.cmbCustStatus.RowSource = "SELECT Code, Txt" & gUser.Lang & " FROM Codes WHERE ID=5 ORDER BY CODE"

However, I have not found a way to use this directly on the form properties. I tried

SELECT Code, Txt1 & gUserLang() FROM Codes WHERE ID=6 ORDER BY CODE;

but did not yield the desired result. Thank you so much for any help.