Office中国论坛/Access中国论坛

标题: 关于切换面板的问题 [打印本页]

作者: tzjj 时间: 2005-8-7 23:12
标题: 关于切换面板的问题
我是新手，请不要见笑。

　　为什么我在装有Office2000的电脑上通过“切换面板管理器”设计好了切换面板，拿到另一台装有OfficeXP的电脑上却不能打开切换面板？请高手指点，非常感谢！

作者: LucasLynn 时间: 2005-8-7 23:15
文件发上来看看

作者: 海狸先生 时间: 2005-8-7 23:15
怎么个不能法呢？有什么提示吗？

作者: tzjj 时间: 2005-8-8 01:16
版主，你好！我输入用户名和密码后就进入如下页面，第一行为黄色，中间“.Connection”为兰色底，也没有提示，是不是“.Connection”这有问题，我不知是什么意思，请指点，谢谢Private Sub FillOptions()

' Fill in the options for this switchboard page. ' The number of buttons on the form.

Const conNumButtons = 8

Dim con As Object

Dim rs As Object

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first.  You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

      Me("Option" & intOption).Visible = False

      Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message.  Otherwise, fill the page with the items.

If (rs.EOF) Then

      Me![OptionLabel1].Caption = "此切换面板页上无项目。"

Else

      While (Not (rs.EOF))

         Me("Option" & rs![ItemNumber]).Visible = True

         Me("OptionLabel" & rs![ItemNumber]).Visible = True

         Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

         rs.MoveNext

      Wend

End If ' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = NothingEnd Sub

作者: tzjj 时间: 2005-8-8 17:44
没人帮我吗？

作者: 海狸先生 时间: 2005-8-8 18:32
大概是ADO没有引用吧

作者: tzjj 时间: 2005-8-8 22:58
请问如何解决？

作者: LucasLynn 时间: 2005-8-8 23:02

以下是引用tzjj在2005-8-7 17:16:00的发言：

版主，你好！

我输入用户名和密码后就进入如下页面，第一行为黄色，中间“.Connection”为兰色底，也没有提示，是不是“.Connection”这有问题，我不知是什么意思，请指点，谢谢

Private Sub FillOptions()

' Fill in the options for this switchboard page.

' The number of buttons on the form.

Const conNumButtons = 8

Dim con As ADODB.Connection

Dim rs As ADODB.Recordset

Dim stSql As String

Dim intOption As Integer

' Set the focus to the first button on the form,

' and then hide all of the buttons on the form

' but the first.  You can't hide the field with the focus.

Me![Option1].SetFocus

For intOption = 2 To conNumButtons

      Me("Option" & intOption).Visible = False

      Me("OptionLabel" & intOption).Visible = False

Next intOption

' Open the table of Switchboard Items, and find

' the first item for this Switchboard Page.

Set con = Application.CurrentProject.Connection

stSql = "SELECT * FROM [Switchboard Items]"

stSql = stSql & " WHERE [ItemNumber] > 0 AND [SwitchboardID]=" & Me![SwitchboardID]

stSql = stSql & " ORDER BY [ItemNumber];"

Set rs = CreateObject("ADODB.Recordset")

rs.Open stSql, con, 1 ' 1 = adOpenKeyset

' If there are no options for this Switchboard Page,

' display a message.  Otherwise, fill the page with the items.

If (rs.EOF) Then

      Me![OptionLabel1].Caption = "此切换面板页上无项目。"

Else

      While (Not (rs.EOF))

         Me("Option" & rs![ItemNumber]).Visible = True

         Me("OptionLabel" & rs![ItemNumber]).Visible = True

         Me("OptionLabel" & rs![ItemNumber]).Caption = rs![ItemText]

         rs.MoveNext

      Wend

End If

' Close the recordset and the database.

rs.Close

Set rs = Nothing

Set con = Nothing

End Sub

红色部分代码改了试试。

[此贴子已经被作者于2005-8-8 15:02:32编辑过]

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

Powered by Discuz! X3.3