我想用按钮打开另一个窗口，并实现.........

宿命的风

以下是引用Ajoe在2004-4-5 20:08:15的发言：
    这样可是可以，但是只能浏览到一条数据了，我是想在另一个弹出窗口中也能显示相同序号内容的数据，而且弹出的窗口还要能往上往下翻查数据。
     呵呵，这个可能有点困难了。

有点糊涂了。
你最好把库放上来，这样容易理解一点。

Acce

似乎和我的问题类似，我要的只是在当前窗体上增加一个“按窗体筛选“按钮。这样就可以打开筛选的窗体。并不要求在新开的窗体里编辑修改。但是我无法把“按窗体筛选”这个按钮附加到当前窗体上，或者附加在启动项里。
。
。
。

wu8313

我发现楼上几位老兄说的有点复杂，利用按钮向导来创建，一步一步来，选中两个窗体需要连接的字段即可！序号--序号。我有和你同样的情况，就是利用按钮向导解决的啦！

[此贴子已经被作者于2004-4-12 12:29:54编辑过]

wu8313

试下这个：看行不？
Private Sub 命令61_Click()`命令61是你要指定的那个按钮
On Error GoTo Err_命令61_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "弹出窗体名"
   
    stLinkCriteria = "[序号]=" & "'" & Me![序号] & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_命令61_Click:
    Exit Sub

Err_命令61_Click:
    MsgBox err.Description
    Resume Exit_命令61_Click
   
End Sub

Ajoe

谢谢你，但是我要的不是这种效果。
我是要既能直接就以相的序号的数据显示出来，但是又要还能显示和浏览其他的数据。
你这样只能显示和上一个窗口的序号相同的记录。

skylark

To Ajoe:
我做过和你一样的要求,加一个事件即可,在弹出窗体上双击关键字段
这样，还是原来的纪录位置，但可以翻动了，代码供参考：
Private Sub 图号_DblClick(Cancel As Integer)
dim SerNo2 as string
SerNo2 = Me.图号
Me.FilterOn = False
Me.RecordsetClone.FindFirst "图号='" & SerNo2 & "'"
If Not Me.RecordsetClone.NoMatch Then
   Me.Bookmark = Me.RecordsetClone.Bookmark
   Else
   MsgBox "Cann't find record!"
End If
End Sub
_____________________________
Do Our Job Well   Try Anything Once

Ajoe

呵呵，有些还是看不太懂。

dxlz

把库放上来看一下。

Ajoe

算了，这个功能不是很必要，我先不去考虑了。