1: 2: 3: 4: 5: 6:
If Me.Dirty Then RunCommand acCmdSaveRecord DBEngine.Idle End If DoCmd.OpenReport "rTraveler", acViewPrint, , "(((tMain.TrayNo) Like [forms]![FMain]![TrayNo]))"