access-vba

问题 Using VBA, how can I search for a text string, for example "CHIR" , in a table called "ServiceYES" , in the field "Service" . After that, I would like to save the neighboring field for all the rows that "CHIR" exists in the table "ServicesYES" . The "ServiceYES" table is below: I basically, want to find all the "CHIR" in "Service" column and then save the names which are on the left of the CHIR, eg "FRANKL_L" , "SANTIA_D" as an array. Thanks for all your help in advance. 回答1: Start by

问题 Using VBA, how can I search for a text string, for example "CHIR" , in a table called "ServiceYES" , in the field "Service" . After that, I would like to save the neighboring field for all the rows that "CHIR" exists in the table "ServicesYES" . The "ServiceYES" table is below: I basically, want to find all the "CHIR" in "Service" column and then save the names which are on the left of the CHIR, eg "FRANKL_L" , "SANTIA_D" as an array. Thanks for all your help in advance. 回答1: Start by

问题 Using VBA, how can I search for a text string, for example "CHIR" , in a table called "ServiceYES" , in the field "Service" . After that, I would like to save the neighboring field for all the rows that "CHIR" exists in the table "ServicesYES" . The "ServiceYES" table is below: I basically, want to find all the "CHIR" in "Service" column and then save the names which are on the left of the CHIR, eg "FRANKL_L" , "SANTIA_D" as an array. Thanks for all your help in advance. 回答1: Start by

问题 I have already referenced other pages for my problem but I still can't get this to work. I feel a bit slow given that I have three examples below and still can't figure this out. Changing linked table location programatically Linked table ms access 2010 change connection string Update an Access linked table to use a UNC path Here is the code that I am using: Dim tdf As TableDef Dim db As Database Set db = CurrentDb Set tdf = db.TableDefs("DeviceListT") tdf.Connect = "ODBC;DATABASE=" &

问题 I have already referenced other pages for my problem but I still can't get this to work. I feel a bit slow given that I have three examples below and still can't figure this out. Changing linked table location programatically Linked table ms access 2010 change connection string Update an Access linked table to use a UNC path Here is the code that I am using: Dim tdf As TableDef Dim db As Database Set db = CurrentDb Set tdf = db.TableDefs("DeviceListT") tdf.Connect = "ODBC;DATABASE=" &

问题 I have an Access database which I am moving to an Azure SQL server back-end. I want the users to be able to use a custom form to set the details used for the linked tables. Currently I am using an AttachDSNLessTable to re-create the linked table with a users credentials however this saves the details to the Access file which isn't very secure. I thought about removing the linked tables during the DB close but if the task is killed the connection details will remain. Is there a way I can

问题 Using MS Access, when I want to know the ID of the most recently added record, I use nNewID = CurrentDb.OpenRecordset("SELECT @@IDENTITY")(0) which I picked up from a posting on StackOverflow. Please can someone explain how this works? In particular, there doesn't seem to be any reference to the table that the record has been added to - so does @@IDENTITY refer to the last added record, whichever table it was added to? - also what is the role of the (0) at the end of the statement? Thanks for

问题 I've been teaching myself Access for the past few weeks and have done well using old questions to solve a lot of the programming conundrums I encountered. I have finally hit a wall and cannot make this filter work correctly. I'm attempting to use multiple comboboxes on a form to filter a report by a number of criteria. It works great when filtering by customer, branch, and date range, but my numerous attempts at getting G/P% range filter added in have been very frustrating. I'm using vba to

问题 I have an access database where users are supposed to copy from Excel and import into an Access table. The users can select from several "imports", and they can create new imports themselves. Once they have selected an import - a query is created on the fly with the required columns to be imported into the table. All imports will populate the same table, but not all columns are relevant for each import. So if Import1 is selected, then the query will display eg. column2, column3 and column4.

问题 I would like to open Excel from Access and apply filters to a sheet. Below is my code: Dim s as String Set oApp = CreateObject("Excel.Application") oApp.Wworkbooks.Open FileName:="dudel.xlsm" oApp.Visible = True s = "AB" With oApp .Rows("2:2").Select .Selection.AutoFilter .ActiveSheet.Range("$A$2:$D$9000").AutoFilter Field:=3, Criteria1:= _ Array(s, "E", "="), Operator:=xlFilterValues .Range("A3").Select End With When I ran the code, I got this error: runt time error 1004 Autofilter methond