1: 2: 3: 4: 5: 6: 7:
Private Sub Received_File_Click() action_work = "Received File" location_work = "Personal Banking Team" MsgBox "pre formopen" DoCmd.OpenForm Frm_Locations Write_Transaction location_work, action_work, who_goes_there End Sub