I have 2 tables cD Group and Cd Name
2 forms CD Group and Name
I want to populate the fields in the cd Name form
When someone selects CD Group field
Mormon Tabernacle Chior
CD Name relates back only cd names to the cd group
God Bless America
Here is the coding
Row Source CD Group
SELECT DISTINCT [CD Group with Name].[CD Group] FROM [CD Group with Name] ORDER BY [CD Group with Name].[CD Group];
Event Procedure After Update
CD Names
SELECT [CD Group with Name].[CD Name] FROM [CD Group with Name] WHERE ((([CD Group with Name].[CD Group])=Forms!frmCDs!cboGroup.value));
SQL Query
Field CD NAme
Table CD Group with Name
Field CD Group
Table CD Group with Name
[Forms]![frmCDs]![cboGroup].[value]
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Track Table Test"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Private Sub fldCDGroups_AfterUpdate()
End Sub
Private Sub fldCDName_AfterUpdate()
End Sub
Thanks,
for any help
mikevds@optonline.net
2 forms CD Group and Name
I want to populate the fields in the cd Name form
When someone selects CD Group field
Mormon Tabernacle Chior
CD Name relates back only cd names to the cd group
God Bless America
Here is the coding
Row Source CD Group
SELECT DISTINCT [CD Group with Name].[CD Group] FROM [CD Group with Name] ORDER BY [CD Group with Name].[CD Group];
Event Procedure After Update
CD Names
SELECT [CD Group with Name].[CD Name] FROM [CD Group with Name] WHERE ((([CD Group with Name].[CD Group])=Forms!frmCDs!cboGroup.value));
SQL Query
Field CD NAme
Table CD Group with Name
Field CD Group
Table CD Group with Name
[Forms]![frmCDs]![cboGroup].[value]
Private Sub Command8_Click()
On Error GoTo Err_Command8_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Track Table Test"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command8_Click:
Exit Sub
Err_Command8_Click:
MsgBox Err.Description
Resume Exit_Command8_Click
End Sub
Private Sub fldCDGroups_AfterUpdate()
End Sub
Private Sub fldCDName_AfterUpdate()
End Sub
Thanks,
for any help
mikevds@optonline.net