siebel2002
Programmer
I have a sub form that is linked to main form via FirmID.
When a firm is selected from a drop down box in the main form, I have a table (tblFirm) that is built dynamically that pulls in all the relevant pieces of data from a previously saved Table (tblFirmEntered) .
The controls in the subform ( I have based the subform on tblFirm) needs to be populated with values from tblFirmEntered. The main form is based on tblFirmEntered. It is not Happpening!
Here is the code:
strSQL = "Delete * From tblFirm"
CurrentDb.Execute strSQL
Me.subFormTest.Requery
strSQL = "Insert into tblFirm (FirmID,FirmName,AccountManager,InternetAddress,EMail) " & _"Select FirmID,FirmName,AccountManager,InternetAddress,EMail" & _
"From tblFirmEntered Where tblFirmEntered.FirmID = '" & strFirmID & "'"
CurrentDb.Execute strSQL
Me.subFormTest.Requery
The code runs ok, but the controls FirmName, etc remain blank!
Can anyone offer any suggestion?
Thanks!
When a firm is selected from a drop down box in the main form, I have a table (tblFirm) that is built dynamically that pulls in all the relevant pieces of data from a previously saved Table (tblFirmEntered) .
The controls in the subform ( I have based the subform on tblFirm) needs to be populated with values from tblFirmEntered. The main form is based on tblFirmEntered. It is not Happpening!
Here is the code:
strSQL = "Delete * From tblFirm"
CurrentDb.Execute strSQL
Me.subFormTest.Requery
strSQL = "Insert into tblFirm (FirmID,FirmName,AccountManager,InternetAddress,EMail) " & _"Select FirmID,FirmName,AccountManager,InternetAddress,EMail" & _
"From tblFirmEntered Where tblFirmEntered.FirmID = '" & strFirmID & "'"
CurrentDb.Execute strSQL
Me.subFormTest.Requery
The code runs ok, but the controls FirmName, etc remain blank!
Can anyone offer any suggestion?
Thanks!