John,
Here is the code from the combo box after update:
If Len(cboEE & vbNullString) <> 0 Then
Me.Filter = ""
Me.FilterOn = True
Me.Recordset.FindFirst "[EEID-1] = " & Me.cboEE & ""
End If
Here is code from the after update of the option group:
Me.Requery
Me.cboEE.Requery
Here is the SQL for the form record source:
SELECT Employees.*, Employees.EEStatus
FROM Employees
WHERE (((Employees.EEStatus)=[Forms]![frmEmployees]![StatusBox]))
ORDER BY Employees.LASTNAME, Employees.FIRSTNAME;
The form does open showing no records. Allow Additions is set to yes.
Doyce
---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :
Doyce-
---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :
What code runs when you update either the option group or the combo box? Does the form open showing no records? If so, it could be that because the form doesn't allow additions (I'm assuming) and no record exists in the recordset, that the Row Source of the combo doesn't get queried. Just a guess.
John Viescas, Author
Effective SQL
SQL Queries for Mere Mortals
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
(Paris, France)
On Jul 7, 2016, at 8:19 PM, winberry.doyce@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
---In MS_Access_Professionals@yahoogroups.com, <JohnV@...> wrote :
Doyce-
Is the combo box bound? It shouldn't be. Consider also setting a default value for the option group.
John Viescas
Sent from my iPad
Sent from my iPad
On Jul 7, 2016, at 20:07, winberry.doyce@... [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com> wrote:
__._,_.___
Posted by: winberry.doyce@con-way.com
Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (5) |
Have you tried the highest rated email app?
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
.
__,_._,___
Tidak ada komentar:
Posting Komentar