crys.DiscardSavedData = True
crys.ReportFileName = App.Path & “\Report\NOCRpt.rpt”
crys.SQLQuery = “”
crys.SQLQuery = “SELECT NOC_Master.`NOCId`, NOC_Master.`NocLNo`,” & _
“NOC_Master.`InsDate`, NOC_Master.`AppName`, NOC_Master.`PlotNo`” & _
” From `NOC_Master` NOC_Master” & _
” where NOC_Master.`NOCId`=” & Val(txtFId) & “”
crys.Action = 1
Exit Sub
