Replies

Thank you, Mark. I really appreciate your, and everyone else’s in the Lounge, help.

Mark,

As usual, you provided good advice. After I read your response, I figured out how to write a query to get the information and my problem is solved. Thanks, again.

I just had this problem in an application I’m developing. In my case, it happened because I assigned a default value to both the control on the subform and the corresponding field in the database table. As soon as I removed the default value from the table field, #Error disappeared from the control on the subform. I hope this helps.

You should be able to export to a format Word will read by selecting .RTF format. You may lose some formatting, but Word should read the file.

I have a form/subform combination that presents Purchase Order information on the main form and line items for that Purchase Order on the subform. When I try to delete a subform record, I’m presented with “Records cannot be deleted on this form”. Is this because I have Cascade Delete Related Records selected? I don’t want to delete the record in the primary table, just one of the related records in the related table.

I think I misstated my original problem. Currently, after data is entered in the last field of a subform record, and the user tabs through that last field, a new blank record is automatically created. If the user then exits that form, a blank record is added to the underlying table. I don’t want that blank record. Can I stop this?

Charlotte,

Thank you. I finally got it. After changing the Row Source Type to Table/Query, it worked. I’m sorry it took so long to get there, but I’m learning this as I go along. Thanks for the help and education.

Charlotte,

I did exactly what you suggested and the query return the correct rows. I just can’t get those rows to show up in the Agreement combo box. Suggestions?

Thanks for your help and patience.

Charlotte,

I appreciate your patience. I still can’t get this thing to work. Here’s my current code:

Private Sub Company_AfterUpdate()
‘This is the AfterUpdate event of the Company combo box
Call SetFindSrc
End Sub
Public Sub SetFindSrc()
Dim strSQL As String

If [Company] “” Then
strSQL = “SELECT DISTINCTROW tblSUBINFO.AgreementNumber ” _
& “FROM tblSUBINFO ” _
& “WHERE tblSUBINFO.Company Like ‘” & [Company] & “‘”
Me!Agreement.RowSource = strSQL
Me!Agreement.Requery
Me!Agreement.SetFocus
End If
End Sub

Again, I have a form with 2 combo boxes-Company and Agreement. I want to select the Company and have only those agreements associated with that company show up in the Agreement combo box. The current form is used to populate Table tblSUBEVAL. The Company and Agreement data is stored in Table tblSUBINFO. What am I doing wrong? Thank you for your help and patience.

Paul,

Thanks for the guidance. But, as my code below shows, I made your corrections but I still can’t get it to work. Again, this code is the AfterUpdate event for the Company combo box. However, when I pick a company, the Agreements box remains blank. Is this because I can’t assign the RowSource for the Agreement Combo Box on the current form (Me!Agreement) to strSQL? I’m sorry if this is confusing. I greatly appreciate the help.

Private Sub Company_AfterUpdate()
‘This is the AfterUpdate event of the Company combo box
Call SetFindSrc
End Sub
Public Sub SetFindSrc()
‘Modified 6/12/01
Dim strSQL As String

If Not IsNull([Company]) Then
strSQL = “SELECT DISTINCTROW tblSUBINFO.AgreementType, ” _
& “tblSUBINFO.AgreementNumber ” _
& “FROM tblSUBINFO ” _
& “WHERE tblSUBINFO.Company Like ‘” & [Company] & “*’;”
Me!Agreement.RowSource = strSQL
Me!Agreement.Requery
Me!Agreement.SetFocus
End If
End Sub

Charlotte,

Thank you for the guidance. I still can’t get things to work, however. Here’s the code I’ve created:

Private Sub Company_AfterUpdate()
‘This is the AfterUpdate event of the Company combo box
Call SetFindSrc
End Sub
Public Sub SetFindSrc()
‘Modified 6/12/01
Dim strSQL As String

If Not IsNull([Company]) Then
strSQL = “SELECT DISTINCTROW tblSUBINFO.AgreementType, ” _
& “tblSUBINFO.AgreementNumber ” _
& “FROM tblSUBINFO ” _
& “WHERE tblSUBINFO.Company Like Company”
Me!Agreement.RowSource = strSQL
Me!Agreement.Requery
Me!Agreement.SetFocus
End If
End Sub

Again, what I’m trying to do is select a company name from a combo box on a form. After I select a company, I want to populate another combo box on the same for with just those actions associated with that company. The company name and actions are in Table A. The form is being used to populate Table B. When I run this code as the After Update event for the company combo box, the other combo box remains blank, with nothing in the drop down list. I know this is confusing and greatly appreciate the help. Thank you.

Actually, I just wanted 2 of them open. This is a strange situation because we just switched network domains and, in the process, I lost all of my original folder settings. Prior to the domain change, I had Explorer set up just the way I wanted it. Now I can’t get it back. Frustrating.

Dave,

I just tried what you said, 5 times. No change. I set up the Explorer window the way I wanted it, selected Tools, Folder Options, View, Like Current Folder. When I close and re-enter Explorer, the folder list is collapsed, just the way I don’t want it. I can’t figure out what’s up.

Charlotte, thanks for your help and patience. Let me try to simplify:

On FORM X, the user selects a company from a combo box (the companies are stored in TABLE A). Based on the company they select, I want only the actions associated with that company (also stored in TABLE A) to display in another combo box on the same FORM X. Both the company and action selections will be stored in TABLE B which is associated with FORM X. I just can’t make this happen! I hope this simplifies my conumdrum somewhat.