ms-access-2013

Create Multiple Records in One Form. Only One Field Changes per Record

半腔热情 提交于 2019-12-12 18:38:37
问题 Where I work we receive electronic meters from customers and try to solve the errors they have. We will receive 4-8 meters at a time that all have the same problem, same specs, same everything, the only thing different between each meter is the Serial Number. I want to be able to enter every serial number, and the common specs all in one form to create multiple records. Here's a pic of what I have for the form. I was able to create records for just one serial number at a time, but I would

Run Stored Procedure From Access VBA

烂漫一生 提交于 2019-12-12 17:35:29
问题 I keep getting an error of Conversion failed when converting date and/or time from character string. This is my vba I am using as well as my sql server stored procedure syntax. What should I alter in order to have this run succesfully? Private Sub btnRunStoredProc_Click() Dim cmd As ADODB.Command, startdate As String, enddate As String Set cmd = New ADODB.Command startdate = "'" & Me.txtStartDate & "'" enddate = "'" & Me.txtEndDate & "'" cmd.ActiveConnection = "Provider=sqloledb;Server=Server

How can I get selective records from a table in access

ε祈祈猫儿з 提交于 2019-12-12 17:30:33
问题 Given below are the results of my query. But there are many redundant records, therefore, I want to filter out the results of this query. My goal is to extract only two records per angle, first and the last. For example when the angle is 195 , I want to get its first record when the date=2/27/2017, time=2:00:00 AM and the second record when the date is 2/27/2017 and time=9:00:00 AM . Similarly when the angle is changed to 210 I want to get its first record when the date=2/27/2017 time=10:00

MS Access Web App: corrupted table, cannot open in Access anymore

主宰稳场 提交于 2019-12-12 06:55:08
问题 tldr: How can I delete a corrupted table that prevents me from opening my Web App in Access? I used the Access desktop client to create a new table with approx 20 lookup fields. When I tried saving the table, I received an error message about too many indices. So I set the index option to "no" for all the lookup fields and tried to close the "edit table view". However, I was not able to close the edit table view anymore. After trying for a while, I used the task manager to terminate Access.

Macro in Access to prompt for file path when importing file

允我心安 提交于 2019-12-12 06:14:16
问题 I am trying to import an Excel spreadsheet into Access 2013 using a macro. Is there a way to make the macro prompt for a file path instead of having a static file path? I would like to have a message box or something similar be provided to the user to define the file path for each Excel file they would like to import. Is there a macro for this? 回答1: You could use a InputBox via vba Dim p As String p = InputBox("please input file path") Debug.Print p I am not sure however how to achieve the

Edit pivot table contents in Access 2013

为君一笑 提交于 2019-12-12 05:59:48
问题 I have a pivot table, say PivotA , and another table left joined to its primary key, say TableB . I need to edit TableB in the pivot view. Is it possible to edit the contents of a pivot table at all? When I try to edit a cell from either source, it tells me the recordset is not updateable. It's a very vague error and I haven't found any causes relating to what I'm doing. Even if I recreate the pivot without TableB , I get the same thing. 回答1: An updateable record source is one that fulfills a

Select All Dates in a Range in MS Access

99封情书 提交于 2019-12-12 05:33:59
问题 I have the following query in a MS Access 2013 DB that SELECTS a count of all records which have dates within the last 7 days: SELECT DateValue([Proofpoint Attachment Defense.Received]) AS [Date], Count([Proofpoint Attachment Defense.Received]) AS [count] FROM [Proofpoint Attachment Defense] WHERE ((([Proofpoint Attachment Defense.Received])>=DateAdd("d",-7,Date()))) GROUP BY DateValue([Proofpoint Attachment Defense.Received]) This query produces the following result: Date count 10/19/2017 3

cross reference nearest date data

删除回忆录丶 提交于 2019-12-12 05:28:11
问题 I have three table ElecUser , ElecUsage , ElecEmissionFactor ElecUser: UserID UserName 1 Main Building 2 Staff Quarter ElecUsage: UserID Time Amount 1 1/7/2010 23230 1 8/10/2011 34340 1 8/1/2011 34300 1 2/3/2012 43430 1 4/2/2013 43560 1 3/2/2014 44540 2 3/6/2014 44000 ElecEmissionFactor: Time CO2Emission 1/1/2010 0.5 1/1/2011 0.55 1/1/2012 0.56 1/1/2013 0.57 And intended outcome: UserName Time CO2 1 2010 11615 1 2011 37752 (34340*0.55 + 34300*0.55) 1 2012 24320.8 1 2013 24829.2 1 2014 25387.8

data entry forms show #error in most columns of a previous record

£可爱£侵袭症+ 提交于 2019-12-12 05:16:06
问题 I have a 2010 MS Access Application that ran fine until importing into MS Access 2013. Now all the data entry forms show #Error in most columns of a previous record when inserting a new record. The Forms use ADODB.Recordsets. The #Error persists until clicking on each field where it reverts to original data. Before Vendor Update of a New Record RowID Vendor Ticket 1 DUFFERIN 12345 2 LAFARGE 54321 3 MILTON After Vendor Update RowID Vendor Ticket 1 DUFFERIN 12345 3 #ERROR #ERROR 3 MILTON 123 My

Selecting a Unique Record Identifier dynamically with vba?

﹥>﹥吖頭↗ 提交于 2019-12-12 03:44:00
问题 I'm trying to automate the process of adding a linked table in MS Access. I've gotten it to work in so far as adding the linked table, ' RUN ME Sub testItOut() Dim loginInfo As New AuthInfoz loginInfo.workgroup = "E:\xxxdatas\SEC\Secured.mdw" loginInfo.username = "XXXXX" loginInfo.password = "XXXX" loginInfo.dbs = "E:\xxxdatas\username\Report.mdb" Call DeleteRelinkToViewAndRename(loginInfo, "sometable", "ServiceProvision_Schema.hrpersnl") End Sub ' Deletes the old table and relinks it ' to