Search results for query: *

No need to reply. I have a code that functions well. If anyone would like to improve upon or needs this code feel free to use it. Dim LogonControl Dim conn Dim funcControl Dim TableFactoryCtrl Dim RFC_READ_TEXT Dim eQUERY_TAB Dim tblOptions Dim tblData Dim tblFields Dim retcd Dim strExport1...

Sorry, I didn't ask the question. I am needing to do multiple part numbers with all their operations at one time. Thanks.

All, I hate to keep posting things, but I have another SAP question. I am trying to pull longtext from SAP tables and can do it one part number and one operation at a time with the following code. Public Sub ReadText() Set objFileSystemObject =...

PHV, Thanks for the reply. To get it to work I played around with it and you have to do it like the VALUES in SQL. Here is the code I used that worked wonderful. "MATNR IN ('" & StrMaterial1 & "', '" & StrMaterial2 & "', '" & StrMaterial3 & "') AND WERKS = '6104'" Thanks for your help.

No that did not work and I tried several variations. I know that when I go into SAP I can copy and paste up to 75 different part numbers and it will pull the information, but I do not know how to replicate that in and RFC call.

I am not sure but I will try that. I am not real familiar with the RFC commands and have just started experimenting with them.

I am just wondering if anyone has any experience with RFC calls into SAP from access. Here is my current code I have that works well. Dim LogonControl Dim conn Dim funcControl Dim TableFactoryCtrl Dim RFC_READ_TABLE Dim eQUERY_TAB Dim tblOptions Dim tblData Dim tblFields Dim retcd Dim...

Thanks to all who helped. The xlTextPrinter worked like a charm.

They should have all been xlText. I was playing with the code trying to get the quotation marks to go away.

Here is the code for a button to export the sheet: Dim PartNumber As String Dim FileName As String PartNumber = Range("C52") Application.ScreenUpdating = False Application.DisplayAlerts = False Sheets("Shield Splice TTP File").Select Sheets("Shield Splice TTP File").Copy...

Yes it does. This is an example of the string. AW: 7#7, 18M

I have a VBA code I run to select a sheet, copy that sheet, and save it as a .txt file. It pastes several strings of text and one just one of them it always adds quotes at the front and back. These quotes do not show up in the cell in which the text is contained. The sheet that is copied has...

Randy, It is working good. It places the value that the person enters in the InputBox into the Qty Delivered field of the Part Number it is supposed to. I know I should have probably dimensioned Qty as a string, but it works for now. Duane, I am using SelectedControl to pull the name from...

I got it. Thanks for all help. here is the code that worked. DoCmd.SetWarnings False Dim strSQL As String Dim SelectedControl As Control Dim Qty As Integer Set SelectedControl = Screen.ActiveControl Qty = InputBox("Enter Amount Delivered", "Delivered Short or in Excess") strSQL = "UPDATE...

I used your update statement PHV as follows, Public Sub DeliveredShort() DoCmd.SetWarnings False Dim strSQL As String Dim Qty As Integer Dim ChangedQty As String Qty = InputBox("Enter Amount Delivered", "Delivered Short or in Excess") strSQL = "UPDATE tblPending" & _ "SET [Qty Delivered] ="...

Duane, I don't want to insert a record with just the Quantity Delivered populated. I just want to modify a record and populate Quantity Delivered for a particular Part Number. This is for the warehouse operators to enter how much they delivered. I will try your suggestions and see how they worl.

I am adding some things my boss requested to the database I am building to keep track of warehouse orders. I have a form that displays all of the current pending orders the warehouse needs to fill. I have a button that they can click to indicate that they have totally filled the order and it...

Worked like a charm. Thanks a bunch.

I am building a database to keep track of orders requested from our warehouse. I have most of it built, but am having trouble building the query below: Private Sub cmdDisplay1_Click() Dim strSQL As String strSQL = "SELECT * FROM tblPending WHERE PartNumber = '&lblPN1.Caption&' INSERT INTO...

@MajP - Thanks for the help. I just had to make sure to put the code "Set glblRtnControl = me.yourControlName" in the code that opens the form. Works like a charm.