access-vba

问题 UPDATE: Current code below in accordance with recommended SQL construct: error in SqlString = Run-time error '3011': The Microsoft Access database engine could not find the object ". Make sure the object exists and that you spell its name and the path name correctly. If " is not a local object, check your network connection or contact the server administrator. Of note, I am working on a USAF unclassified network system, and log in via CAC. Sub InboxImport Dim SqlString As String Dim

问题 I am trying to connect to an encrypted access 2013 accdb file which is using legacy encryption through an adodb vba procedure within an excel file. The Procedure fails at cn.open, I am using office 64 bits, error message: "It is not a valid Password". The particularity of this problem is, the password is correct, I can connect to the Access DB through Microsoft query just fine, and I can connect with another access DB with the code below. But when I try to use it on Excel, this error jumps in

问题 I'm trying to delete a record and then move to the one before the deleted record. But I can't get it to work, and now I'm getting run-time error 2046 The command or action 'DeleteReord' isn't available now. What am I doing wrong here? How should I handle this? Private Sub Command24_Click() On Error GoTo Err_Command24_Click If Me![dbo_HR_Trainings Subform].Form.Recordset.RecordCount > 0 Then MsgBox "You cannot delete a category that has members.", vbOKOnly GoTo Exit_Command24_Click Else Select

问题 I am relatively new to Access though I do have some experience in VB, my question is probably very simple though I don't seem to know the terminology to search in order to find an answer I can use. I am in the process of creating an "OnChange" event for a tab control I am using, I would like to pass an undetermined amount of integers to the function. IE: =myFunction(1,4,6) OR =myFunction(ArrayList[1,2,4]) I would either create an overloaded function to work with these numbers, or if possible

问题 I use the code below to create tables and set two field's default property values to functions. These functions set the default value to the user and date time when a record is entered. A very simple way to track when data was entered and by whom. Apparently Microsoft ACCESS 2010 does not allow functions to be used as field default values anymore. Is there something simple (setting) I may be missing? I understand the arguments for passing in these values directly from code and that the

问题 I'm looking for a very simple solution here. I simply want a vba script that I can run over and over again to save the same Access report (that changes as the weeks go by) into the same file over and over again. I need it to be the same name each time and don't want to be prompted that the filename is already there. In my research, it feels like the following should work but it does not. Can anyone provide a simple script that performs this task? Sub program() DoCmd.OutputTo acOutputReport,

问题 I currently have the following MS Access SQL Query which is part of an Access VBA function. It has been built with help from a previous question, which you can look at to better understand how it works. sqlJoinQuery = "SELECT tbl_grp_by.[Field1],tbl_grp_by.[Field2], " & _ "Switch( " & _ "Nz(tbl_grp_by.[maxfield3]) = 0, '0', " & _ "Nz(tbl_grp_by.[maxfield3]) = 1, '>1 million', " & _ "Nz(tbl_grp_by.[maxfield3]) = 2, '0001-0010' " & _ ") as [Field3], " & _ "tbl_grp_by.[" + commonField + "], " &

问题 In the following code, I would like to join ADODB record set 'rs3' to table 'tblValueChain10' and update 3 different columns based on the values extracted in the ADODB record set 'rs3'. Currently, the update query is not returning anything. Dim st_Sql3 As String Dim rs3 As ADODB.Recordset Set rs3 = New ADODB.Recordset Dim Max3 As Integer rs3.Open "SELECT tblRisk05Holding.IDMacroProcesso01, tblRisk05Holding.Level01Risk, Max(tblRisk05Holding.ManualityStatus) AS MaxDiManualityStatus, Max

问题 Why do I get a "Return without GoSub" error when using subforms in Access 2007? 回答1: This can occur when there is a Form_Load() event in the subform, but not the main form. Try adding an empty Form_Load() event to the main form. 回答2: The most likely reason for this error is that the project has become corrupt. You should decompile, instructions are here: Debug a bad DLL calling convention error First, ensure that you have switched off Name Autocorrect: http://allenbrowne.com/bug-03.html and

问题 Closed . This question needs to be more focused. It is not currently accepting answers. Want to improve this question? Update the question so it focuses on one problem only by editing this post. Closed 2 years ago . I've got an Access document where I can list out all the converters available for different size fittings on pipes. An example of going from Pipe A to Pipe B might be: They display as (Incoming Port -> outgoing port) Pipe A -> type 1 type 1 -> type c2 type c2 -> type 7 type 7 ->