access-vba

问题 I am having a most frustrating time time with the DoCmd.TransferSpreadsheet method. I have a workbook with multiple worksheets in which users are updating data and I have a script that puts all the records back into a single sheet, links the spreadsheet, and updates the data in my Access DB. My problem is in the Range parameter. I pass the following string and get the following error: DoCmd.TransferSpreadsheet TransferType:=acLink, SpreadsheetType:=acSpreadsheetTypeExcel12Xml, _ TableName:

问题 I have a Microsoft Access database where the user is required to enter a Date Opened: value. Once entered, this triggers a calculation in another field, Deadline (25 WD): . This works via the following function in the latter field: =DateAdd("d",25,[Date opened]) What I want to do, however, is to count 25 working days from the date entered in Date Opened: . I have a table holidays which contains a list of UK holidays up until 2020. How can I merge to two, so-to-speak, in order to produce a

问题 I'm working in a VBA module for Access that queries linked tables, generates reports based off the data, and then uses a PDF printer to save the reports to disk. There's a timer in the primary form that will, every N seconds, run an Access query against a "JOBQUEUE" table to see if there are new jobs. If the database server becomes unavailable, this operation will of course time out. The run-time error of 3051 is being logged, and the loop will try to continue. The loop can't finish, however,

问题 I'm working in a VBA module for Access that queries linked tables, generates reports based off the data, and then uses a PDF printer to save the reports to disk. There's a timer in the primary form that will, every N seconds, run an Access query against a "JOBQUEUE" table to see if there are new jobs. If the database server becomes unavailable, this operation will of course time out. The run-time error of 3051 is being logged, and the loop will try to continue. The loop can't finish, however,

问题 How do I add the below SQL query AS the recipient of an Outlook email? SELECT E.Email FROM Employee E INNER JOIN ProposalTracking P ON E.Initials = P.UW Here's the VBA code which merely opens a new email in Outlook so far: Private Sub btnEmail_Click() Dim varName As Variant Dim varSubject As Variant Dim varBody As Variant varName = "first.last@example.com" varSubject = "TPS Report" varBody = "Did you see the memo? We use the new cover sheets now." DoCmd.SendObject , , , varName, , varSubject,

问题 How do I add the below SQL query AS the recipient of an Outlook email? SELECT E.Email FROM Employee E INNER JOIN ProposalTracking P ON E.Initials = P.UW Here's the VBA code which merely opens a new email in Outlook so far: Private Sub btnEmail_Click() Dim varName As Variant Dim varSubject As Variant Dim varBody As Variant varName = "first.last@example.com" varSubject = "TPS Report" varBody = "Did you see the memo? We use the new cover sheets now." DoCmd.SendObject , , , varName, , varSubject,

问题 I'm using RunCommand acCmdSaveRecord to save a record, and I'm trying to use the form's BeforeUpdate event to validate certain fields that I don't want to be left blank before the record is saved. I'm a bit new to using BeforeUpdate so I'm not sure if I'm using it correctly; here's my BeforeUpdate code: Private Sub Form_BeforeUpdate(Cancel As Integer) If IsNull(Me.[First Name]) Or IsNull(Me.LastName) Or IsNull(Me.DateOfBirth) Or IsNull(Me.CourseStartDate) Then MsgBox "Before the enrolment can

问题 I would like to know if there exists a pre-built system function that would cancel the whole memory stack of the current event being fired, without having to exit every procedure in the stack trace, in Microsoft Access VBA? I am looking for something like the following: Public Sub Procedure2() CancelEvent 'This would return from procedure2, proedure1, and the specific event Sub End Sub Public Sub Procedure1() Procedure2 End Sub Private Sub SomeControl_SomeEvent() Procedure1 End Sub I have

问题 I'm currently trying to design a database in Microsoft Access 2013 to store records of faulty parts found in the plant. I'm trying to implement a button on my form where the user can click on it to access their device's camera to attach a picture of the fault in the form. The user would be using Windows 10 on a Dell latitude 5290 two in one (If that helps.) I tried using a code I found online but it is extremely old and I don't believe would work in this age. Regardless, here is the code-

问题 I'm working on a program that can take data from one field in a table and put that whole column into an array or even just read from the table itself. The code seems to use a form or something else I would like to use an array. 回答1: This will work: Dim rstData As DAO.Recordset Dim v As Variant Set rstData = CurrentDb.OpenRecordset("select FirstName from FaxBook3") v = rstData.GetRows(rstData.RecordCount) "v" will now be a array of all first names. The array will/can be multi-dimensional if