ms-access-2016

问题 I found another answer on here that addressed this but it didn't help me. I checked the query I am trying to reference and I don't see a problem with any field. I also played around with how I declared and set the objects and stuff but that didn't work either. Dim dbsCurrent As DAO.Database Dim rst As DAO.Recordset Set dbsCurrent = CurrentDb Set qdf = CurrentDb.QueryDefs("qry_FilmZip") Set rst = qdf.OpenRecordset 'The error points to this line rad_full = rst!radius_full MsgBox ("rad_full:" +

问题 This code was running without a hitch, but now getting Error 2585. I have looked at Gustav's answer and Gord Thompson's answer but unless I am missing something (quite possible!) the first does not work and the second seems inapplicable. I saw on another site a suggestion that there might be a duplicate record ID, but I check for that possibility. I put a call to DoEvent() in response to this error but it returns zero. I also wait for 10 seconds to let other processes run. Still receive the

问题 I have three tables for vulnerability scanning jobs: customers, authorization forms, and scans. Relationships are one to many from left to right. I previously had scans directly related to clients, but implemented the forms table to add the ability to prevent scanning without authorization. I have the below query which pulls the dates of the most recent and next coming scans (huge thanks to @donPablo), but when I made the change in tables I'm no longer pulling the correct data from the

问题 I have two list boxes (lfmVocabulary and lfmVocabularyAssign). They are both unbound along with the form and I'm having trouble achieving certain aspects of the code design. Thus far, I am able to populate the first list form with the values through a query recordset, but I'm unable to transfer the items from one box to the other. In an attempt to achieve this, I placed the code in a module as follows Option Compare Database Public Sub MoveListBoxItems(lfmVocabularyAssign As ListBox, _

问题 Is there a way to add an event handler for a control at runtime? Regard this code (in the form I have only TextBox1): Option Compare Database Option Explicit Dim WithEvents tb As Access.TextBox Private Sub Form_Load() set tb = TextBox1 End Sub Private Sub tb_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Debug.Print "tb_MouseDown" End Sub Private Sub TextBox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Debug.Print "TextBox1_MouseDown" End

问题 I am trying to create a data entry form with cascading combo boxes to limit the users options. I had it working for a bit, then it decided to quit. I could just be overthinking it all though. There are going to be about 50 boxes that I will have to set up. The first is a one to many. I got the first box to add to a new record correctly. When I get to the second combobox, the dropdown menu shows nothing. It's fine until I enter [forms]![NewSpecForm]![cboBoxSize] in the criteria. How do I

问题 Well, this is the follow up on another thread. I have a Person table with a several fields The table is presented to the user in 3 different ways: 1) as a datasheet 2) as a table 3) as a report (no picture, but is similar to datasheet) A special tag §Person§ is added to the Form, to select main the attached table Also, there is a query returning the errors and their formatting rules for each field in a given table here is the piece of code i would use to define the conditionalformattingrules

问题 I want to INSERT the results of SELECT G.Results FROM (SELECT IIf([Forms]![Login]![User_Name]=[C_Customers].[user_name] And [Forms]![Login]![Password]=[C_Customers].[Password] ,"Login Successful" ,"Login Failed") AS Results FROM C_Customers) AS G WHERE ((G.Results)="Login Successful"); [Forms]![Login]![User_Name] and [Forms]![Login]![Password] are from a form that asks for your user name and password. The IFF statement is comparing your user input to those fields and finding a match in the

问题 I really don't know how to start this. I have a report, that takes records from a query. The query itself takes the records from a table. Now I want to be able to select the records in the query by the id manually. But there is no connection between the records, so I can't say 'give me all records between id x and y'. Also, there is not the count of records always changing. I want a user to be able to say: 'okay, I need to print all the data of these x ids'. how can I archive this? 回答1: you

问题 I actually first tried doing this in excel with a bunch of nested vlookups and encountered the same error so I tried doing it in access thinking I would resolve the problem, but I get the exact same issue. All I am trying to do is join two tables by an inner join with 1 column in the one table and one of many columns in the other table (and I want the output to be (the one that is causing my issue) to be one particular column. Here is a small sample of the data and what I tried to get