Forms :: Open A Form For Saving Results Of Query To A Text File On Desktop
May 6, 2015
I have a BE database, that when opened, opens a form for saving the results of a query to a text file on the desktop. It works fine, if the full path is entered.
The problem is, I want this saved on any users' desktop. I did some digging and found the %userprofile% variable, which when used, gives me the error.
I understand this should work in both Windows XP and Windows 7, which are the environments the full DB will operate in. So far the "EXPORT" button on the form has the following for the code:
Code:
Private Sub BTN_Export_Click()
DoCmd.TransferText acExportDelim, , "QRY_ExportPublicComment", "C:UsersMark N. McAllisterDesktopPubComExp.txt"
End Sub
When I tried this:
Code:
Private Sub BTN_Export_Click()
Dim strPath As String
strPath ="%userprofile%desktopPubComExp.txt"
DoCmd.TransferText acExportDelim, , "QRY_ExportPublicComment", strPath
End Sub
I have researched on here how to print the results of a query to a text file. I put the code in and I get an error on the openrecordset line. The error says "too few parameters, expected 4"
I tried the query in another report I export to excel and the query works.
I tried printing the whole table using "Select * from tbl_Customers" and it works????
Here is the code:
Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("qryBell1", dbOpenSnapshot) Dim fs, TextFile Set fs = CreateObject("Scripting.FileSystemObject") Set TextFile = fs.CreateTextFile(pathname, True)
[Code] ....
the query returns 6 fields for printing and can filter based on whether 3 fields are filled or not on the form - Date, Campaign, Status
I have a table that holds the SQL texts for ca. 1000 Select queries (mostly minor variants that are used to programmatically swap out RowSource strings for combo boxes). I'd like to have a quick and easy way to open/review/modify these queries.
One strategy would be to display the SQL strings in a field on a Datasheet form, then use an onClick event on a text box linked to the SQL-holding field (or perhaps an onClick event tied to an unbound text box on the form) to open the associated query. That would allow me to view the SQL of the query that I want to open, allow me to quickly scroll through the list of stored SQL texts, and give me options for sorting or limiting the SQL-texts displayed in the datasheet form.
But, I can't seem to get the onClick event to work. The problem seems to be that I can't figure out how to pass the SQL string contained in the field to a function that will use that string to open the query .
Hello. I have a problem which has me stymied. I have created a Query-by-Form in which the criteria for the query is two combo boxes. I had no problems setting that up, but I want to display the results of this query in another form. I know this is possible, but do I need code for this? Any help/suggestions would be greatly appreciated!
I want to open a report with the results from a filtered form.
I want to use a similar format to the attached Allene Browne search2000 as the base to filter the records initially, but not sure how to get the filtered results into a report and the most efficient way.
I have a main form (start_protocol) with an unbound subform (placeholderform).
Using a button in mainform I open a search form (search_protocol) inside the unbound form, by the code: ------------------------------------------------------------------- [placeholderform1].Visible = False [placeholderform].Visible = True Me.placeholderform.SourceObject = "SEARCH_PROTOCOL" -------------------------------------------------------------------- The search form (has a run query button) is build from a query named: search_protocol.
I want to be able, as soon as I pass the button, to have the results (from the query) inside the unbound subform, of the main form (Start_protocol).
I have a table having fields, Group, Subgroup, Emails.
I want to make a searchable form that asks user to select Group and select sub group. And click on some Export button to export the results in to excel file.
As per my data in table, There are some subgroups in group and many emails in subgroups.
Hi, I have created a form (Form1) based on a table (Table1) and also a Query based on this table (Query1). I calculate a field in the query (Expr1: [column1] + [column2]) Now i have created a text box on Form1 that should display Expr1. I know I could also calculate the value directly via the expression builder, but I would prefer to simply display Expr1 from my query. Which is the syntax I have to use in the Expression Builder? I tried "= [Query1]![Expr1]" but it does not work. Thanks for your help Tigrou
In my frontend code, I include a table with a version #. In my backend, I also include a version table. The front end will compare wih back end, and if it's different, it will force to get the updated version that it's stored in the LAN.
However, I do not want the user to open the file directly from the LAN because it might cause slow performance problem if multi-user,etc.
So I want to implement a code to force the application to be open only from desktop.
So far, I have a strUsername which detect the user network environ. Then, it will check the application path to determine if it was opened from:
C:Users<strUsername>Desktop
If not, then an error message will prompt to alert the member to copy the file in the LAN and save on their desktop.
It works on my laptop, all fine. Today I didnthe test in my user desktop, but the message saying that the file has to be opened from desktop keep appearing.
I double check the user folder and the Username environ is (cd98) but the user folder was setup as "CD98" capital letter. Does that affect the coding?
How can I make my code to not distinguish between lower or upper case either for username and folder user as well?
I was trying from a button on my form that will go to and bring up the desktop. I want it so I can put this database on anyone's computer and the button will work.
I am using this and it works but only on my computer.
Application.FollowHyperlink "C:UsersBryanDesktop"
I also tried this
Application.FollowHyperlink "C:Show Desktop.scf" And Application.FollowHyperlink "C:WINDOWSSystemShow Desktop.scf"
Both gives Runtime error 490 cannot open specified file.
I need code for save dialog file ,and select the file from textbox and save it to the selected location.i have only this code and i dont know what else i can do with this because it just opens the save file dialog !
I have one table containing name of restaurant with its address etc. Then i created another table to list out the restaurant workers names and details. Just as an example,
Table:Restaurant Restaurant name Address line 1 Address line 2 Restaurant # Website
Table:StaffContact Staff Role Name speciality email phone
I have the main form that has all the restaurant details only. And i have another form containing the Staff information. Please note the two table have a relation and it works well.
Now to make it user friendly(basically easier for the lazy ones), I dragged the staff contact form on to my main form and displayed it as a datasheet(basically a sub form).
Now, my boss does not want users to add/delete on this sub form(datasheet). So,he wants me to create buttons to open new record of staff for each restaurant(new form)
My issue is with opening a new record to enter a new person to the staff list and give them a role as well in form view.The new form has
So i ran a Macro, with open form with Where condition
I have an Access database that needs to open a file. Unfortunately, the text file is named 17.Ghost.Y87777_Extract.txt, where Y87777 changes per file. What I am trying to accomplish is have a text box on a form that you will type in a value, such as the Y87777 and let the entire string open a text file through a VBA. The problem is that, in my VBA I get an error file not found. The text box is called txtImport. In my VBA, I have the code set up as:
Dim myRecord as string
myRecord = Me.txtImport
Then to open the file:
C:Import17.Ghost.MyRecord_Extract.txt
Does placing myRecord inside of the string cause the problem?
I have a Inventory DB and i want to integrate scanning. So far i have a table called StockInfo, this table holds information about bar codes (device type, make, model). I have a form called Scan_Barcode, on this form I want to be able to scan a bar code into a text box (text0) and use a afterupdate and requery function to display the results onto a form called EnterInventory.
Not only just the results but I want certain columns from the query to display in certain text boxes on this form. I have a query called FindProduct. that filters the criteria by whats entered on the Scan_Barcode text box (text0). So when i scan a certain bar code i can get the query to display certain product information for the bar code. I just cant get the results onto the HarwareStock form.
why access 2007 is displaying an image oddly on a 2003/2008 terminal server farm. I am reasonably sure the problem is an access on terminal server issue because if you view the image in paint, image viewer, or word it displays fine on the terminal server. I don't think it is a resolution or color issue because once again it displays fine in paint, etc regardless of color depth.
The image below shows the difference in the png graphic. The image is transparent (the blue section being the background)
[URL]
As you can see the terminal server image is pixelated.
The form the image is sitting on has a blue gradiant that goes light to dark left to right. The form properties are below
How can I convert a web Access file to desktop aplication? I've created it from a model from Office.com, but I need create code in vba and it don't permit.
I have successfully put together some VBA code that will accept a user's input into a textbox on a form. A cmdFindprinter button is clicked and the query is ran. The user is asked via an inputbox for their login ID so that the query is exported to a text file on the desktop. The query then pops up in a new tab and also automatically exports the queried record to a text file on the desktop. I have upward of 30 users using this form at any given time and I need the following automated.
What I would like to do is to have the text file go into a specific format. For example:
IP address: Serial number: Location:
The name of one of the queries is "Xerox IP Query", the field names would be "IP Address", "SerialNumber", and "Site Name".
This is what comes up in the text file right now:
"CXF345946","157.229.243.58","123 Happy Ave"
I'd like to remove the quotes and have the info fall into place as shown in the example above.
This is the code so far:
Code: Private Sub cmdFindprinter_Click() On Error GoTo cmdFindprinter_Click_Err Dim strPath As String userNT = InputBox("Please enter your NT ID", "ServiceBase Xerox Printer Query", "Enter your NT ID") strPath = "C:Users" & userNT & "DesktopPrinterQuery.txt" If Heading = 0 Then Exit Sub
Here are some background . My company got a access file in a network drive.The data entry simply open the file in the network drive.But once the data has increased (~400mb) sudddendly,all process slow down. Like search , using report etc.Is there any method to imporive the situation?Some guys suggest me to copy the data file to the desktop and sync them.Can it it work?IF works,how to do that?
I have a bit of a problem with a database in Access 2013. On 1 of the forms, I have a number of buttons which open other forms and filter the results using an embedded macro. All has been well until a few days ago when error 2950 pop up box started appearing. After fiddling around for a while it all works OK (without actually changing anything) until next time the database is opened. I checked to make sure the location is "trusted" and all seems OK.
I have a form for meeting records. One text box contains meeting notes, which is linked to ntext variable (SQL linked table) on the underlying table. The database has about 40 users but this particular form get no more than 10 new records per day, not so much activity.
This is the problem: sometimes a user start filling a new record, fill the meeting notes, but when he saves the record the text box gets blank and the record is saved with null value in the text box. This happens randomly but not very frequently.
Sometimes frustrating because the text may contain a full page of text and then when the user save the record all the typing is lost! Text box is with RTF formatting. I suspect it has to do with the Ntext data type of the underlying table. Shall I convert it to varchar(max)?
