ms-access

问题 I have a weird problem I have never seen before using Crystal Reports. I built a complex PDF monthly report for a bank that generates over 200 pages. The specifications took months to adjust with the client but it works perfectly now, showing all the data it's supposed to, all sorted right and with the right headers. But for some reason the report inserts quasi-blank pages rarely and seemingly randomly before it shows data. These pages aren't entirely blank, all my headers including group

问题 I have a coding project in MS Access. There are some developers coding and checking in the source-code to a SVN-Server. As a SVN-Server is for managing code, it recognizes changes in the source-code files. In these source-code-files there is a problem. VBA often changes uppercase and lowercase letters and we have no clue why. When I do a commit it is i.e 'two examples Call myfunction(txtNodeID) rst![Username] = Environ("USERNAME") Another developer updates his repository and uses my code and

问题 I have a table like this: Now I'm trying to write in the column "SUMAMOUNT" of the table the sum of amount per "CODE" and "IBAN" but i can't reach this. I'd want something like this: I'm using this query but it doesn't work: update tabella set sumamount = (select sum(t2.amount) from tabella as t2 where t2.code = tabella.code and t2.iban = tabella.iban ); The precedent query gives me this result: Can you help me? I'm using MS ACCESS. Thank you in advance! EDIT: Screenshot of the error: I can't

问题 I occasionally get a run time error when trying to open/manipulate Excel files using Access VBA. The error is "Run-Time error '462': The remote server machine does not exist or is unavailable What is frustrating is that the error occurs only for certain files and not others and in different instances. Here is my code, the error occurs at the workbooks.open(sPath) line: DoCmd.SetWarnings False Dim oExcel As New Excel.Application Dim oWB As Workbook Dim oWS As Worksheet Set oExcel = Excel

问题 I occasionally get a run time error when trying to open/manipulate Excel files using Access VBA. The error is "Run-Time error '462': The remote server machine does not exist or is unavailable What is frustrating is that the error occurs only for certain files and not others and in different instances. Here is my code, the error occurs at the workbooks.open(sPath) line: DoCmd.SetWarnings False Dim oExcel As New Excel.Application Dim oWB As Workbook Dim oWS As Worksheet Set oExcel = Excel

问题 i am new in project for company that have bigger enterprise/accounting system based on Visual Basic for Applications (VBA) in Ms Access 97. This application is still alive, they make updates and everything is working relatively fine. But they want to move this app to highest level, speed up development, make this app more "atractive" for end-users and so on.. But i'm not shure if it's good idea to continue developing using this technology (VBA) and therefore i have a few questions. I would be

问题 i am new in project for company that have bigger enterprise/accounting system based on Visual Basic for Applications (VBA) in Ms Access 97. This application is still alive, they make updates and everything is working relatively fine. But they want to move this app to highest level, speed up development, make this app more "atractive" for end-users and so on.. But i'm not shure if it's good idea to continue developing using this technology (VBA) and therefore i have a few questions. I would be

问题 I am currently trying to query one of the table from Microsoft Access Database (.mdb), however, when I try to do a SELECT * FROM myTable , it gives an "User-defined type not defined". May I know why? Here's my sample code: Private Sub CommandButton1_Click() Dim db As DAO.Database Dim dbPath As String Dim aQuery As String Dim pword As String Dim rs As DAO.Recordset dbPath = ThisWorkBook.Path & "\Database.mdb" pword = "password" aQuery = "SELECT * FROM myTable" Set db = Access.DBEngine

问题 Our systems are changing over to cloud storage to our personal drives will be vanishing soon, therefore I need to save save applications to users OneDrives. This is new territory for me and what I am reading online is not making much sense. This is what I have so far: Set FileSystemObject = CreateObject("Scripting.FileSystemObject") Dim FileExistsbol As Boolean Dim stFileName As String Dim CopyFrom As String Dim CopyTo As String stFileName = "C:\Users\" & Environ("UserName") & "\OneDrive -

问题 Our systems are changing over to cloud storage to our personal drives will be vanishing soon, therefore I need to save save applications to users OneDrives. This is new territory for me and what I am reading online is not making much sense. This is what I have so far: Set FileSystemObject = CreateObject("Scripting.FileSystemObject") Dim FileExistsbol As Boolean Dim stFileName As String Dim CopyFrom As String Dim CopyTo As String stFileName = "C:\Users\" & Environ("UserName") & "\OneDrive -