Search results

Worked perfectly. Thanks much!

I'm trying to upgrade a .mdb file to .accdb. When I open the file, it displays a message saying it's an old version, and do I want to update? If I click Yes, it says, "The Microsoft Access db engine cannot find the input table or query MSysAccessObjects. Make sure it exists and the name is...

I'm a little slow, but I'm not making sense of your code, or your explanation of what you're trying to do. Please explain in plain English, and please use code tags and proper indentation. Thanks.

The combination of the following did the trick. EADetail.Refresh DoEvents Thanks!

I have two forms, EA (a Continuous form) and EADetail (a Single form). They're not a form/subform, but they sit side-by-side, and the EA_Current event synchronizes EADetail so it shows detail information for the selected record in EA. They both have the same base query recordsource, but...

Glad to hear it! Thanks for letting me know.

Didn't say it never runs. It's just not active when the message pops up. Here's the sequence of events: 1. User has one or more active tasks, and marks them as complete. 2. User clicks the Refresh button, which refreshes the form data (filtered to include only active tasks) and calls...

Note the 4 lines commented out. SynchronizeLinkedForms is also called from other places. The intent is that if a record with accompanying notes is selected, the Notes form is made visible. Otherwise, it's hidden. Keep in mind, though, that none of this code is being hit when the message occurs...

I am receiving the No Current Record message, but have been unable to determine the code that generates it. The database is a system that creates tasks and assigns them to users. In the header section of the Tasks form are several controls they can use to select Active or Completed tasks...

I only included the tables relevant to the issue, so as not to confuse things. Thanks for the link. I'd already read similar articles, and am aware that queries aren't updateable when they include one-to-many-to-one relationships (your link didn't include that issue). What I am asking is how...

I have a table structure that I guess could be called a dual one-to-many-to-one, as can be seen in the attached Relationships screen print. Customer loan files are maintained in an AllFiles table, tied to the Customers and Loans tables through the CustomerFiles and LoanFiles tables. Users...

If the listbox is to show the customer list for the selected salesman, then try: me.listboxname.rowsource = "SELECT [customername], " & _ "FROM tablename " & _ "WHERE [saleseman] = """ & me.salesman.value & """;" You can look at your existing recordsource in SQL mode for the starter...

Are the tables named in such a way that they can be identified as a group? In other words, do they all begin or end with a certain text value, such as "tblDBF"? If so, you could delete them based on that, rather than maintaining a table of table names. The following code would do it: Private...

Ok, but it's still going to save changes to the record unless they are cancelled. You could do something like this: Dim ValidUpdate as Boolean Private Sub Form_Open(Cancel As Integer) ValidUpdate = True End Sub Private Sub Form_AfterUpdate ValidUpdate = False End Sub Private Sub...

Well, the code we've discussed is in the click event of a button. Is the button in the Header portion of the form? If so, that's why your changes are being saved, because you're clicking outside of the current record (which is another case of when changes get saved). If that's the problem, you...

Nothing we have discussed relates to saving the record on the current form. Record changes are saved when you tab to the next record, or hit Enter, or close the form, or save it otherwise from VBA code.

Excellent! So I assume you deleted KESerialNumber from your table, and added a new numeric SeqNum field. Then on the form in the existing control that was bound to KESerialNumber, you changed the control source to: =[LotNumber] & Format([SeqNum],"000") I don't know where you ended up...

If I understand correctly, and to condense it down, you have a single form bound to a table containing LotNumber and KESerialNumber. When they create a new record and enter a lot number, if it's a new number, you want KESerialNumber to be plugged with the lot number and 001 appended to it. If...

What you have is fine. There are at least two other ways it could be done. All will give the same results. Again, it's personal preference: Private Sub cmdCA_Click() If IsNull(Me.txtUsername) Then MsgBox "Please Enter a Username", vbOKOnly, "Information Required"...

You can use = if you want, but then you need to reverse the then/else code. If Me.txtEmployeeKey.Value = DLookup("[EmployeeKey]", "tblEmpKey", "EmployeeKey ='" & [EmployeeKey] & "'") Then MsgBox "Incorrect Employee Key Or Username already in use", vbOKOnly, "Incorrect Infomation" Else...