Originally Posted by
Santonin
Update 2:
I also observe that your Exceptions subform has no VBA events tied to it. So, unless I am mistaken, the link is working purely off the LinkMaster and LinkChild fields. My second subform also has no events tied to it yet. So I assume that code is not necessary to make the link work just as yours does.
In my Post #5, I did say
In the
form current event of the sub form "
sfActivities" is a line that
re-queries the
sub-sub-form "sfExceptions".
Forms
frmMain (Main form)-----------> sfActivities(sub form)-----------> sfExceptions(sub-sub-form)
.........................................(Current event code here)
PK (and FK) fields are not visible to the user because I use autonumber PK fields to link tables.
AutoNumber
----------------
Purpose: Use an AutoNumber field to provide a unique value that serves no other purpose than to make each record unique. The most common use for an AutoNumber field is as a primary key. Also see Microsoft Access Tables: Primary Key Tips and Techniques
-----------------------------------------------------------------------------------------------------------------------------------
EDIT:
I've been looking at your dB - I added the line
Code:
Me.Parent!sfrmPlanets.Requery
in the Form Current event for the form "sfmPlanets" and seems to work without problems.
You should have the lines
Code:
Option Compare Database
Option Explicit
at the top of EVERY code module.
You should not have multiple commands on one line. The ":" (colon) is still supported but is not recommended to use due to readability arguments
You have
Code:
Private Sub blnLocked_AfterUpdate()
If Me.blnLocked = True Then
Me.chrUnlock.Visible = True: Me.chrUnlock_Label.Visible = True
Else
Me.chrUnlock.Visible = False: Me.chrUnlock_Label.Visible = False
End If
End Sub
better is
Code:
If Me!blnLocked = True Then
Me.chrUnlock.Visible = True
Me.chrUnlock_Label.Visible = True
Else
Me.chrUnlock.Visible = False
Me.chrUnlock_Label.Visible = False
End If
Best is
Code:
Private Sub blnLocked_AfterUpdate()
Me.chrUnlock.Visible = Me!blnLocked
Me.chrUnlock_Label.Visible = Me!blnLocked
End Sub