关于对象的一些问题

williamwangc

Sub NewRecordMark(frm As Form)    Dim intnewrec As Integer    intnewrec = frm.NewRecord    If intnewrec = True Then    MsgBox "You're in a new record." _        & "@Do you want to add new data?" _        & "@If not, move to an existing record."    End IfEnd Sub
在以上的实例中我有两个问题。
1、在实例中，form作为参数应该用什么写法来表示？
如：forms("xxx")还是直接xxx
2、这样的对象不存在我应该用哪个关键字作为判断字符？
如：If forms("xxx") Not Exist

williamwangc

抑或是IS NOTING? IS NULL?

roych

1、如果是在窗体上调用公共模块的话，直接在Load事件（或者其它窗体事件中）
Call NewRecordMark(Me)
如果是Forms对象（虽然你这段代码中没有Forms），后面对应的是窗体名称，除非不是作为一个元素来引用。
2、不存在的话，建议用窗体名称来判断。Not Exist或者Nothing我都没用过。IsNull应该是不行的，这个一般是判断字符串的。

todaynew

1、如果带入的窗体参数是当前窗体，可以直接用me或me.Form;如果带入的窗体是当前窗体的子窗体，可以用me.子窗体控件名.form;如果带入的窗体是另外一个窗体，则可用forms("xxx")。

2、判断带入的窗体是否打开（从函数看，需要对某个打开的窗体进行设置，所以不是判断存在而是判断是否打开），我一般写一个自定义函数来解决：
function FormOpen(formname as string) as boolean
   dim frm as form
   FormOpen=false
   for each frm in forms
       if frm.name=formname then
          FormOpen=true
          exit for
       end if
   next frm
end function

如果要判断系统中是否存在一个窗体需要用AllForms对象来遍历，AllForms包含所有窗体（包括打开和未打开的）。Forms仅包含所有已经打开的窗体。

williamwangc

感谢版主