Hello,
Propably I am asking too much but know that Access and VBA can almost do anything.
Is it possible to add a list box on a form to list the spreasheet in a excel file and by clicking on the select record make a print only of that specific spreadsheet?
Thanks.
I am using the selections made of the form to generate a query for the user.
I have a CITIES listbox that is populated with values from a stored query.
I would like to make it multi-select and populate a LOCATIONS list box and a NAMES list box based upon the CITIES that are selected.
I have the locations currently populated from a stored query that reads the City selection from the Form. It looks like this
Code:
SELECT DISTINCT (t_location.LOCATION) AS Expr1
FROM t_location INNER JOIN t_asset_master ON t_location.LOCATION_PHY_ID = t_asset_master.LOCATION
WHERE (((t_location.CITY)=[Forms]![MasterQueryGenerator]![CityList]));
I also want multi-select so that is you can un-select all and get the results for all cities.
Here is my half thought approach.
Code:
Private Sub CityList_AfterUpdate()
'Dim LocQryStr As String
'Dim r As Integer
'Dim ctl9 As Control
'LocQryStr = "SELECT DISTINCT (t_location.LOCATION) " & _
[Code] ...
I intended to have the variable LocQryStr as the row source but I abandoned the idea of having multi-select when I saw that .Selected(I) never returned true. Its like the values aren't read in this subroutine.
i have a multiselect listbox in my form.
The multiselectlistbox contains the names of different persons from tblUsers.
it's allready possible to write the id's of the names to another table (tblPresent).
But what I can't manage to do is re-select the values in another multiselect listbox. This multiselectlistbox is located on my editform.
I can display the values using a valuelistbox, but i need to see the non-selected items too..
hope someone can help me out
Hello,
I've got this multiple select listbox which writes data into a textbox:
Private Sub List2_AfterUpdate()
Dim Cursisten As String
Dim ctl As Control
Dim Itm As Variant
Set ctl = Me.List2
For Each Itm In ctl.ItemsSelected
If Len(Cursisten) = 0 Then
Cursisten = ctl.ItemData(Itm)
Else
Cursisten = Cursisten & "," & ctl.ItemData(Itm)
End If
Next Itm
Me.txtCursisten = Cursisten
End Sub
And I've got a SELECT ALL button to select all records in the listbox:
Private Sub cmdSelectAll_Click()
On Error GoTo Err_cmdSelectAll_Click
Dim i As Integer
If cmdSelectAll.Caption = "Alles Selecteren" Then
For i = 0 To Me.List2.ListCount
Me.List2.Selected(i) = True
Next i
cmdSelectAll.Caption = "Alles De-Selecteren"
Else
For i = 0 To Me.List2.ListCount
Me.List2.Selected(i) = False
Next i
cmdSelectAll.Caption = "Alles Selecteren"
End If
Exit_cmdSelectAll_Click:
Exit Sub
Err_cmdSelectAll_Click:
MsgBox Err.Description
Resume Exit_cmdSelectAll_Click
End Sub
The only thing is that when I use the SELECT ALL button, the function List2_Afterupdate doesn't work anymore. There must be a simple solution but I just can't figure it out. Can anyone please help me?
Tnx a lot!
Hello - just joined today. I hope to be of some help to other users, but am kind of a newbie.
I have an excel ss that I regularly receive which needs to go into my access DB. I set up a macro with transferspreadsheet and that works, except for one problem. I have one field which is designed as text but has data that looks like numbers as well as data that looks like text. When I run the macro, the number-like data doesn't import as text (23602012345 imports as 2.3602e+010). FYI the field in access is already defined as text. Each time I import a ss, I am appending to the existing data in the table
I have tried formatting the excel column as text with no luck. If I remove the data that truly is text in that column (ABC1287567) and leave just the 236* data, and then format the excel column as text, it seems to work fine. It just doesn't like the mixing of the data...at least it seems to me.
Any ideas to avoid manual manipulation of my excel ss before running the macro would be very helpful.
Thanks much in advance!
Hello Peeps,
I'm trying to import an excel spreadsheet into an access table. The excell spreadsheet was created using the access table( by using the 'analyze using excel' feature)
The problem is that I cannot import the updated excell spreadsheet. I get the error message.." An error occured while trying to import the file..the file was not imported"
Does someone have any clues as to how to fix this
Anyone out there have any ideas on how to Import an Excel File (SPECIFIC worksheet) to an Access Database
I am looking to do this at the click of a button or when the database opens...
What I really want to do is......
Is there a way to import this into an already existing table.
Delete the existing records and import the new records from the Excel Spreadsheet?
THanks
I imported an extensive table from Excel. Subsequently, changes were made to the data in the Excel spreadsheet and I would like to incorporate these changes into my Access table. I did not link the two and I do not want to import the Excel spreadsheet again because I have made several changes to the Access table after importing it. Is there any way to have Access go through the information in Excel and make the modifications in the field that suffered the changes?
View 3 Replies View RelatedHi,
I am failry new to Access, and am trying to import an Excel spreadsheet into a Table. I go all the way through the import wizard, and it gives me an error that it cannont create, and then it goes back to the last screen, and I have no Idea what is wrong.
I have looked under many help's and online tips, and searched this site to no avail. As far as I can tell everything should be acceptable to import. I have unique column header titles, no blank rows, nothing over 255 characters, and it still does not work. Can anyone give me some advice on what is wrong in this spreadsheet causing it not to be imported?
Thanks!
Tony
Hi, apologies if this is a bit of a simplistic query, but I hope there is an equally simple solution to it.
I'm trying to set up a database which is linked to an excel spreadsheet so that the owner of the spreadsheet can continue updating the spreadsheet (inexplicably he refuses to learn to use access!), while other people can still view the data without being able to edit it.
However I have come up against a problem. The spreadsheet contains various address fields, and some of these fields only contain numbers, such as Zip codes for US address'. When I link the table access automatically assigns the address fields as "text" fields which is fine, but then any entry that is just a number in the spreadsheet appears in the database as #Num!
Does anyone know how I might cure this problem, so the database displays exactly what is in the cells in the spreadsheet? The simpler the better, since I fear it might need some visual basic work, which as you might have gathered I know very little about.
Thanks in advance.
Hi folk
I hope someone can come up with a suggestion for this one.
I have a Crosstab query in my database which looks for the age of accounts on each status. The query itself runs fine but the problem is if there are no accounts on that status. For instance if there are no accounts on an open status then the Open Status isn't shown.
This means that when my Excel Query looks for the Open value from the query I get a Microsoft Jet query error.
Is there any way to force the crosstab to display all the statuses regardless of whether there is any accounts on it.
As I say any suggestions are appreciated.
JC
I have a default directory that will contain Excle spreadsheets. This spreadsheets have the name of the table i want them to create when they are imported in Access.
I want first to count and present to the user the number of the spreasheets. then import one name the table with the name of the spreadsheet and then process. When done move to the next one until there is no more in the directory...
How can i write this in VBA?
Can someone help me?
I'd like to thank everyone for all the help with a long project that is nearing completion.
I have a query by form where I would like there to be a button that the user could push that would take the values from the query that are in the subform and open them up as an Excel spreadsheet for further analysis. There is a function called analyze it with Excel in the Tools/Office options menu but it only works for the main form. I don't get all the values.
Is there some way I can open the subform as an Excel file or set the code and SQL string that it is based on to values for an Excel sheet?
Thanks
Hi
I'm trying to import a sheet from a excel spreadsheet.
this is my "code"
The problem is that when i hit the run button, it imports blank sheets or more likely is not importing at all :confused: :(
On Error GoTo ErrorTrap
Dim dlgOpen2 As FileDialog
Dim countrystring2 As String
Set dlgOpen2 = Application.FileDialog(msoFileDialogFilePicker)
With dlgOpen2
If txtFile2 <> "" Then
.InitialFileName = txtFile2
countrystring2 = txtFile2 & "!RB_UPDATES"
Else
.InitialFileName = CurrentProject.Path
End If
.AllowMultiSelect = False
.Show
End With
If dlgOpen2.SelectedItems.Count <> 0 Then
txtFile2 = dlgOpen2.SelectedItems(1)
End If
Exit Sub
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "RB_UPDATES", countrystring2, True
ErrorTrap:
MsgBox Err.Description, vbExclamation + vbOKOnly
End Sub
I am trying to connect to an excel spreadsheet and read it from access. What is the object naming scheme in excel?? I am trying to read "Sheet1" but I am getting an error. My final goal is to export a list of forms and queries list in the excel spreadsheet from one database to another. How do I know if I have "Excel 8.0"?? Here is my code:
Sub ImportForms()
Dim cnn1 As New ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim strExcelPath As String
strExcelPath = "C:ModificationRequest.xls"
'Open and set recordset
cnn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & strExcelPath & ";" & _
"Extended Properties=Excel 8.0;"
Set rst1 = New ADODB.Recordset
rst1.CursorType = adOpenKeyset
rst1.LockType = adLockOptimistic
rst1.Open "Sheet1", cnn1, , , adCmdTable
'Open Recordset and print test record
Debug.Print rst1.Fields(0).Value, rst1.Fields(1).Value
'Clean up objects
rst1.Close
Set rst1 = Nothing
cnn1.Close
Set cnn1 = Nothing
End Sub
I have set up a command button to export an query to Excel, then create a pivot table with the data. That all works fine however the code which opens the sheet for veiwing after the code formats the pivot table only works once. The second time the user runs the query it is in read only mode those it has been close. The code I used to open the spreadsheet is:
Dim oApp As Object
Set oApp = CreateObject("Excel.Application")
oApp.Visible = True
On Error Resume Next
oApp.UserControl = True
Workbooks.Open Filename:="I:Program FilesCount.xls"
The users are just closing excel normally. Any Ideas?
Hello All,
I am exporting data from Access (2000) to Excel using a criteria form. I would like to append data to the Excel sheet without clearing the current data. How can I perform this function?
Here is part of my code:
<BEGIN CODE>
Set myXL = CreateObject("Excel.Application")
Set myWB = myXL.Workbooks.Open("C:WO_Activity_Report.xls")
myWB.Sheets ("WO_Activity_Report")
myWB.Save
myXL.Quit
Set myXL = Nothing
<END CODE>
Your assistance is greatly appreciated.
I would like to add a spreadsheet to my form on a tab just like on the asset tracking data base template in access 2010. I can add an unbound object frame but then I can not edit it on the form??
Pic of what I want to do : excel sheet.jpg
how to import an excel spreadsheet into my existing database to just update the records. I don't want to add any records at the end or link the sheet to the table.I also don't want to just copy and paste as I don't want my users to have access to the main table but they will need to have the facility to upload.
The reason for this is we have to send clients a copy of their relevant section of the table in a spreadsheet that matches the table format exactly and contains the correct ID numbers. They then send the spreadsheets back to us completed and I would like to update the fields of the existing records using the ID numbers.
Hello.
I currently have a data-entry form that users fill-out with data (duh!). The data comes an excel spreadsheet that is created during the work-flow process.
I would like to add an "Import" button the field that, when clicked, would prompt the user to select a spreadsheet (different each time) and once that was selected import data into the form (and ultimately the table). The data will always be in the same location (cells and sheet) within every speadsheet.
Any ideas?
Thanks in advance.
Sean
Hey
I have a procedure that imports excel spreadseet to access table ever today.
today it failed. Forrmat was the same as yesterday.
I did 'copy/paste special/format' from yesterday's file; still today's file wouldn't import.
Tried to copy manually to the table, got the error message about 'field not being in the same format'
Went to table's design view, and changed everything to 'memo', the was able to do copy/paste.
There wer no values with more then 20 characters
I was able to change 'memo' back to text and date/time without loosing any date.
Has anyone ecountered this ? Going changing table, and then chaging it back doesn't sound like the best practice
what can be done ?
can abything be done to excel file ?
I'm trying to link a spreadsheet as a table in Access 2002. The link wizard is importing my number columns as numbers, even though I defined them as text. I need for them to be text in Access. How do I force this?
Thanks
I'm new to Access, but a coworker has a huge project to undertake. There are over 200 queries that produce 1 row results for each query. She's been cutting that row and pasting it into Excel 200 times. Is there an easy way to insert them 1-by-1 into Excel or prefereably Access?
BTW, the columns are the same on the query results. I'll keep investigating while I wait for the experts to answer.
I want to run a report, I need to provide an option to export the output to an excel file or provide a print view. Where would I put the DoCmd.OutputTo command in the report to acheive this??
thanks
I need to format a worksheet in excel after I transfer data to it. I createobject("excel.application") to open an excel spreadsheet. My problem is I need to freeze the first three rows, i.e when you scroll down the spreadsheet the first 3 rows always stay in view. The only way I have seen to do this is use the windows menu form the excel application. I am creating this excel spreadsheet each time a report is run. Does anyone know how to this is VBA??
Thanks
I am trying to export a query to an pre-existing spreadsheet. I am new to VBA and when I implement the following code nothing happened.
Option Compare Database
Public Function Sheet(strTQName As String, strSheetName As String)
Dim rst As DAO.Recordset
Dim ApXL As Object
Dim xlWBk As Object
[Code].....