再帮我检查一下代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

If Tables("学籍表").Current IsNot Nothing AndAlso Tables("学籍表").Current.IsNull("学籍号") = False Then
    If Tables("学籍表").Current.IsNull("相片") = False Then
        If MessageBox.Show("该生已拍照,是否重拍?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Warning) = DialogResult.No Then
            Return
        End If
    End If
    Forms("拍照").Show()
    If Forms("拍照").Opened Then

Forms("拍照").Controls("照相按钮").PerformClick()
Forms("拍照").Controls("FileName").Text = ProjectPath & "Attachments\" & Tables("学籍表").Current("学籍号") & ".JPG"
End If
End If

http://www.foxtable.com/webhelp/topics/2309.htm

主题：再帮我检查一下代码