Office中国论坛/Access中国论坛

标题: 有事问问 [打印本页]

作者: wbl99w1 时间: 2004-5-11 19:06
标题: 有事问问
我是今天才学的ACCESS，请问~可以帮我解一下下面的代码吗~我有点看不懂~谢了

Private Sub Form_Open(Cancel As Integer)
' Minimize the database window and initialize the form.

Dim dbs As Database
Dim rst As Recordset

On Error GoTo Form_Open_Err

' Minimize the database window.
DoCmd.SelectObject acForm, "切换面板", True
DoCmd.Minimize

' Make sure we have company information
DoCmd.Hourglass False
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("我的公司信息")
If rst.RecordCount = 0 Then
   rst.AddNew
   rst![地址] = Null
   rst.Update
   MsgBox "在使用此应用程序之前，您需要输入您的公司名称，地址和相关信息。"
   DoCmd.OpenForm "我的公司信息", , , , , acDialog
End If
rst.Close
dbs.Close

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = '默认' "
Me.FilterOn = True

Form_Open_Exit:
Exit Sub

Form_Open_Err:
MsgBox Err.Description
Resume Form_Open_Exit

End Sub
如可以的话~帮说明一下每一句话的作用~

作者: paul16 时间: 2004-5-11 20:05
这个代码是罗斯文数据库中的吧？
其主要作用：查看是否有输入公司信息，如果没有则提示输入，有则打开主切换面板！

作者: wbl99w1 时间: 2004-5-11 22:52
是呀~我也知道它的作用~但是我想问的是其中的语句各发挥了什么作用~
主要是下面这里~我看得懂它的作用~但是我要用其中的几条语句~不知道有什么作用
DoCmd.SelectObject acForm, "切换面板", True
DoCmd.Minimize

' Make sure we have company information
DoCmd.Hourglass False
Set dbs = CurrentDb()
Set rst = dbs.OpenRecordset("我的公司信息")
If rst.RecordCount = 0 Then
   rst.AddNew
   rst![地址] = Null
   rst.Update
   MsgBox "在使用此应用程序之前，您需要输入您的公司名称，地址和相关信息。"
   DoCmd.OpenForm "我的公司信息", , , , , acDialog
End If
rst.Close
dbs.Close

' Move to the switchboard page that is marked as the default.
Me.Filter = "[ItemNumber] = 0 AND [Argument] = '默认' "
Me.FilterOn = True

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)