Search results for query: *

Writing a data conversion app that concatenates groups of two digit state codes and is written in ECXEL vba. I redd the data into an array and output what I need to an output array Rout, and when done write the result to a worksheet. There is one column that I would like to sort immediately...

Writing a data conversion app that concatenates groups of two digit state codes and is written in ECXEL vba. I redd the data into an array and output what I need to an output array Rout, and when done write the result to a worksheet. There is one column that I would like to sort immediately...

I want to compare two cells in an excel spreadsheet and if they are the same I want to concatenate two cells and put them in the cell different from the formula location. Example =IF((B2 = B3),R3=CONCATENATE(G2,G3),"") I tells me false. Windows 7 Office 10 Thanks in advance jpl

Have a column in a table that contains various codes but I only want to look at the following codes in that column: GP4_1/2H GP4_1HR GP4_1H_F GP_IMP-A GP_IMP-J My Like clause is the following: Like "GP4_*" Or Like "GP_*" I get back all the right things but also get back: GR10 XR10 FRMONE FNYI...

I need to constrain a query based on the alias that I created for a column. I have one that works and another that doesn't. The following works: RDate: [PUB_PSHISTOR]![PSH-Date] is in the line of the QBE Grid #7/17/2014# is in the criteria line for the above and it works fine. neither of the...

I have written a specialized email application In ACCESS 2010 for my department. At first I couldn't send email outside our domain so the server folks turned on relay and gave me a static IP address. However, now the mail server does not reject bad email addresses unless I leave off everything...

I have an older program that uses the following: DoCmd.RunSQL "UPDATE Last_Update_Date SET Last_Update_Date.LastUpdate = Now()" It works perfectly. But the old app is MDB I have a new app That is accdb that uses the following: DoCmd.RunSQL "UPDATE lastEupdateTbl SET lastEupdateTbl.LastUpdate =...

I have a table The contains an Yess/No column that is set false in the default value. This table gets it's entries from Program A with the following code: DoCmd.SetWarnings False SentSql = "INSERT INTO SentEmailTbl(Account_Number, Event, DateSent, Redempt_Value) " & _ "Values('" &...

Have a one page ACCESS report that I am sending to a number of folks via email. However, I cant get it to stop using two pieces of paper instead of one when it prints. The report and a blank sheet of paper I have resized the width of the report in design mode and set the width property, but...

Have the following code: Dim EmKeySql As String EmKeySql = "SELECT Max(SentEmailTbl.EmKey) AS MaxOfEmKey " & _ "FROM SentEmailTbl" Dim EMailcon As ADODB.Connection Set EMailcon = CurrentProject.Connection Dim EMailRs As New ADODB.Recordset...

Using the following code that I got from Andrzejek. I have made some small changes(this is the original), and it works great. Now I have the need to send multiple attachments and I can't figure out how to do that. I think the change is in this bit of code. ACCESS 10, Windows 7 Public Sub...

Have the following code where I need to insert data plus the Date and Time it's inserted Dim SentSql as String SentSql = "INSERT INTO SentEmailTbl(Account_Number, Event, DateSent) Values('" & GBL_Master_Id & "', '" & GBL_Event & "', NOW())" (This example is right from the web) In the immediate...

Was making a lot of changes when this happened. Tried to open the database (Access) and got the following: "The database has been placed in a state by user 'Admin' on machine 'My Machine' that prevents it from being opened or locked" I was the only user. Hope there is a way out of this, lots...

Need to add a barcode serial number to a report that will be used as a coupon. The serial number is kept in GBL_SerNo. CouponSerNo is a textbox on the report that is set to barcode 39 font. The following code will print the bar code, but it will not scan. I found that I need to add an asterisk...

Trying to get the number of records in an ADO recordset, using the following code: If mailRs.Supports(adApproxPosition) = True Then Me.EmCount.Value = mailRs.RecordCount End If It skips the second line of code indicating that my RS does not support the cursor type. How do you set...

In design mode there is nothing to "Grab" on the right side so I can resize a form. I have also tried :DoCmd.MoveSize 1440, .5*1440, 8 * 1440, 5.75 * 1440. But on open the form fill the entire screed. My problem might be in the options which I have tried al sort of combinations. Any help...

Creating an email application that has a form and a report. The form has the email code in an OnClick event of a button. the emails I wand to send out must have a serial number on them, so I created a report with a textbox named valCouponSerno. In the form is the following code Dim serNo As...

I have scoured the web and read a number of posts in here, tried sample code but I have questions. Most of what I've read and tried is old (2005 or so, XP etc.). Looked for tutorials but they all seem to require a priori knowledge. We would prefer not to use OUTLOOK. We have a customer list with...

Got some great help here for an Insert problem. However, When I run the code on some records in the record set I get: Run-time error '3134' Syntax error in INSERT INTO statement I have examined the previous record that gets inserted and compared it to the record that bombs and I see no syntax...

Want to insert a record from a recordset into and existing empty ACCESS table. The following code is inside some loops, but the code bombs on the docmd.RunSQL addata with this error: Invalid use of '.','!',or (). in query expression BallsRs.Fields(0).Value. Just testing to get the insert...