當發現案件編號沒有資料時,經提示後,即終止執行,同時退出表單

ski
請問一下各位, 下列要做到:
當發現案件編號沒有資料時,經提示後,即終止執行,同時退出表單

Private Sub Form_Current()
1001 If IsNull([案件編號]) Then
1002 Beep
1003 MsgBox "必須在客戶資料控制介面裡,輸入案件編號,否則,沒辦法完成程序!", vbCri
1005 End If
'當發現上述案件編號沒有資料時,經提示後,即終止執行,同時退出表單'
1006 Me![案件編號] = [Forms]![主目]![檔案編號]
1007 Me![公司中文名] = [Forms]![主目]![公司名稱]
End Sub
----------------'當發現上述案件編號沒有資料時,經提示後,即終止執行,同時退出表單'



回到頂部