提示没有if 这段代码如何改才能正常运行？

我推测你的代码应该如下：
If Me.F_ProInWindow.Form.P_Status = True Then
      MsgBox "入庫單 " & P_Product_In_Code & " 已有出庫記錄" & Chr(13) & "請先刪除對應的出庫記錄，才可刪除此入庫單！", vbInformation, "警告"
      Exit Sub
Else
      Dim tmptmp As Integer
      tmptmp = MsgBox("删除后将无法恢复" & Chr(13) & "您确定要删除此笔入库单吗？", vbYesNo, "警告！")
      If tmptmp = vbYes Then
         .........................
      end if

......

end if