G
Guest
I have added a command button to my form to update (editable) address
information from one table to another. The button "works", but does not
appear to work because the display does not change. I have to close and
reopen the record to get the data to display.
Can someone suggest what code I need to add at the end of the procedure to
get the data to display? I understand that DoCmd.Save doesn't work and I
tried the RePaint function.
Lloyd
If IsNull(Forms![frmGrantSumDE].[tblGrantSum.LocalContact]) Then
[Forms]![frmGrantSumDE].[tblGrantSum.LocalContact] =
[Forms]![frmGrantSumDE].[tblGrantee.LocalContact]
End If
If IsNull(Forms![frmGrantSumDE].[tblGrantSum.LocalContactTitle]) Then
[tblGrantSum.LocalContactTitle] =
[Forms]![frmGrantSumDE].[tblGrantee.LocalContactTitle]
End If
DoCmd.RepaintObject acForm, "frmGrantSumDE"
information from one table to another. The button "works", but does not
appear to work because the display does not change. I have to close and
reopen the record to get the data to display.
Can someone suggest what code I need to add at the end of the procedure to
get the data to display? I understand that DoCmd.Save doesn't work and I
tried the RePaint function.
Lloyd
If IsNull(Forms![frmGrantSumDE].[tblGrantSum.LocalContact]) Then
[Forms]![frmGrantSumDE].[tblGrantSum.LocalContact] =
[Forms]![frmGrantSumDE].[tblGrantee.LocalContact]
End If
If IsNull(Forms![frmGrantSumDE].[tblGrantSum.LocalContactTitle]) Then
[tblGrantSum.LocalContactTitle] =
[Forms]![frmGrantSumDE].[tblGrantee.LocalContactTitle]
End If
DoCmd.RepaintObject acForm, "frmGrantSumDE"