so i have MainForm and PopUp (which is also a form). on the MainForm there is a command button that brings up the PopUp form. on this PopUp form, some data will be entered then the PopUp form will be closed via a command button.
whats the code i would need to take a value from a control on PopUp and place it in a control on MainForm, ideally when the command button closes the PopUp form.so i know it has to go on the command button's on click event, probably before the close form code lol... but i cant figure out how to get the value to transfer over..
I have a macro which transfers a fixed width file to my desktop. The name is neppow.txt. Can I have this file land with the date dynamcially populated in the name?
I have setup a query from which I have setup a macro which exports the queried data to a .txt delimited file, does anyone know how I can stop it putting Quotes aroung each field and just leave the commas in.
I have a main data entry form (frmpartquote). From this form I would like to open a new form (products) to create a sub set of records.
When I open the new form to add products to a main quote I would like to transfer the quotenumber on the quote form to the quotenumberfield in the products form.
I use the following code in the on open event in the product
Private Sub Form_Open(Cancel As Integer) If IsOpen("frmpartquote") Then partquotenumber.DefaultValue = Forms!FrmPartQuote!partquoteid End If End Sub
Now this works fine as long as the field is a number.
However I would like to use tartquotenumber as a text field
This is a price check form so it doesnt need to be saved it just needs to display the part no info and quantities with price If i enter a part no into a text box(PN1) on the main form it enters the data into a textbox(PN2) on a subform. Im using a continuous form on the subform and the master/child link is the Part No text box. is there a way to lock the first item to the first line and then be able to enter a second item to display on the next line. I have made the size of the continuous form to one line in my subform but i am only able to enter one part no into the subform because when i setfocus to the PN1 textbox on the main form it clears the first line.
I have filed that has been uploaded from excel file in this format 20110307 , but I need this filed named postdate in date format such as 03/07/2011 . How to transfer text filed into date .I use Format([PostDate],'mm/dd/yy') in update query , but the data completely disappeared off the field.
I'm building a report that requires me to concatenate several fields plus additional words, etc. But not all of the fields are the same data type. I have the date formatted the way I want it in a date/time field in one table (dd mmmm yyyy), and I want to append that date into a text field in another table, maintaining the same format.
Now, when I do a normal append or update query, it appends as medium date format (dd-mmm-yy). If I change the field type in the original table from date/time to text, it also shows up in medium date format.
Any ideas on how to make this work, or other options for concatenating fields with different data types?
edit: I don't want to change the data type of the original field to text.
I have a Table with a Field set to Number, Single, Fixed, 2 Decimal points in which I enter Hours (ie 11.25) then at some point I want to extract those new entries to create a Text file transfer.
I have a Macro which extracts those new entries from the main Table and copies/appends them to a new Table which contains only the new data I need to create the File to upload into a Payroll system (using TransferText option).
It all works well EXCEPT, the File it creates insists on showing 8 decimal points and I just cannot get it to show 2 only.I have tried using a calculated field, setting the secondary Table field to Text.why or where these 8 decimals are coming from.
I have used Transfer text cmd to export query to text in MS access. This works fine. path= "D:/test/"DoCmd.TransferText acExportFixed,"Query1",path,False But i need to change the path dyanmically as my wish when i run this query. Like i may save my txt in desktop or C: or D:. I dont want to hard code path as above.
Is there any way to achieve this? If i get the dyanmic location stored in path variable i can achieve it. But i dont know how to achieve this.
Actually i was confused Docmd.OutputTo acOutputQuery,query1
Above query prompts me for selecting location. But transferText doesn't? why?
As this application is stored on server. If i give a static path, its exporting in Server D:/test/ But i need this to be stored in my local. This can be done only if it prompts box for user to select the location.
I just want to run a series of DoCmd.TransferSpreadsheet commands to export several queries to one Excel Workbook with seperate sheet names for each query.
However my problem is I want this to be a new instance of Excel that the user will then SaveAs after it is complete. I don't want to save it to a specific path first because the Db is on a shared drive and My Documents will have a different path for each user based on their user name. (corporate environment)
There must be some way to just have it open a new workbook without saving isn't there??
From Here I want it to open the ".csv" that I chose (for some reason it doesn't now), Import to a table (I can do this part). Then export to the same location on the server with a different file name of my choosing and covert to .xlsx.
Dim fdlg As FileDialog: Set fdlg = Application.FileDialog(msoFileDialogFilePicker) Do With fdlg .AllowMultiSelect = False .Title = "Select File to Import" .Filters.Clear .Filters.Add "All Files", "*.*", 1
I have a textbox with about 400 characters, I also have 5 textboxes next to it. I want to click a button and I want to transfer the characters to the other textboxes 208 characters at a time.
I am extremely new to writing code, but was able to successfully write code that transfers the data in my form to and excel spreadsheet template and saves it with a different name. The code works perfect and without issue as long as Excel is not running. However if Excel is already open the template remains blank and a warning message appears saying that the form is locked for editing. Below is the code I used.
Private Sub ExcelClear_Click() Dim xlApp As Excel.Application Dim xlwrkBk As Excel.Workbook Dim xlSheet As Excel.Worksheet
Everyday I have to generate a report in excel format and I need it to be added to ms access database. I was hoping to do this on a click of a button. Basically, since i have a new data everyday it should be added to the table.
I am trying to use transferspreadsheet to import access worksheet and then I want to append additional fields. I am able to import the excel sheet into access, but need appending the other fields.
Code:
Dim fd2 As FileDialog Dim xlapp As New Excel.Application Dim xlsht As Excel.Worksheet Dim xlWrkBk As Excel.Workbook Dim db As DAO.Database Dim tb2 As TableDef Dim fdx, fld As DAO.Field
I know its not possible. But Just wanted to confirm. Not at all possible?
Code:
Function PreImport(BookToImport As Workbook) For Each cell In BookToImport.Sheets(1).Rows(1).Cells cell.Value = Trim(cell.Value) Next cell BookToImport.Sheets(1).UsedRange.Rows(1).Replace ".", "_" End Function
i have a customer form and on the form i got a button to add equipment which opens another form, my question is how can i get the same company name from the customer form to be in the equipment form once i press the button?
i have done this so far
docmd.openform "EquipmentF",,,(not sure what to put here....i've tried "company = '" & company & "'" but this just seems to open the first company)
We need to move rich text from an Access memo field to a Word text box. So far the best Ive been able to come up with is in the code below. In this code pprs!What is a record set field of a table memo field that is bound to a text box enabled for rich text. The rich text seems to be stored as html as so I can get word to convert it by enclosing it in html tags.
Dim What As Word.Shape Set What = doc.Shapes.AddTextbox(msoTextOrientationHorizontal , doc.PageSetup.LeftMargin, 225, 534, 0) Dim sPath As String sPath = "G:Temp.html" Open sPath For Output As 1 Print #1, "<HTML>" & pprs!What & " </HTML>" Close #1 What.TextFrame.TextRange.InsertFile (sPath)
I have a form on which there is a series of text box controls relating to different frequencies. At the moment I enter a value in to each of these manually.
However, I would like to have an unbound text box where I can paste in all the values (6 or 8 of them) from excel and then press a button and they would be copied in to the individual boxes.
So far I have my design:
I'm not sure where to start with regard to the code as I don't know how to handle delimited text - is it column delimited in excel?
I imagine some sort of loop, such as a do until will be required but again not sure.
