• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 378
  • Last Modified:

MS Access 2007 Combo Wizard - Find A Rec - Now Broken

I Used the Combo Wizard to create a list box where I can select a value then the form would go to that record.  It worked fine until I added some Option buttons.  Now, even if I create a new combo with the wizard it wll NOT go to the record I selected from the combo box.
Any Ideas?  Thanks.
0
Glennikins
Asked:
Glennikins
1 Solution
 
t_hungateCommented:
What do you have the Option buttons doing?  If possible please attach a copy of your DB with any personal info removed so that we can see the problem.  Please also include any step you have already taken in an attempt to correct the issue. i.e. added now buttons, removed combobox and add new, changed the code for a control, or the row/record source for your form.

Thanks.

TLH
0
 
Scott McDaniel (Microsoft Access MVP - EE MVE )Infotrakker SoftwareCommented:
If you remove the Option buttons does the find work?

Have you tried re-adding the Find combo (using the Wizard)?
0
 
GlennikinsAuthor Commented:
I have attached a demo copy of the DB with a few records in it and I have removed customer specifics.
I have tried removing the Option buttons and I think the problem had occured before I added the buttons.  I have also tried removing and inserting the combo box to no avail.  The code that used to work came from the Wizard.
Thanks to all for your help.

TC-Demo-1.accdb
0
Concerto's Cloud Advisory Services

Want to avoid the missteps to gaining all the benefits of the cloud? Learn more about the different assessment options from our Cloud Advisory team.

 
MINDSUPERBCommented:
Glenn,

How about using this VBA codes instead of the macro. To make the code work, you need to change the control name of your combo box into cboSearch. Then copy and paste the below code in the form module.

Sincerely,
Ed
Private Sub cboSearch_AfterUpdate()
If IsNull(Me.cboSearch) Then
        Me.FilterOn = False
    Else
        Me.Filter = "Job_Master.Job_Num = '" & Me.cboSearch.Column(1) & "'"

Me.FilterOn = True
    End If
End Sub

Open in new window

0
 
Jeffrey CoachmanCommented:
1. There is no Primary Key in your Master Table.
I suggest making it the ID Field.

2. The controls in the detail section do not have the same source as the Form itself?

3. I suggest that you post a question to make sure the design of this form is consistent with what you are trying to accomplish here.

But as LSM suggests, if you have a backup of the file when it "Worked" then go back to that, and try again.
0
 
GlennikinsAuthor Commented:
Response Question #2 put me on the right track and once I set all controls to the same source the problem went away.
0
 
Jeffrey CoachmanCommented:
ok
0

Featured Post

NEW Veeam Agent for Microsoft Windows

Backup and recover physical and cloud-based servers and workstations, as well as endpoint devices that belong to remote users. Avoid downtime and data loss quickly and easily for Windows-based physical or public cloud-based workloads!

Tackle projects and never again get stuck behind a technical roadblock.
Join Now