求助主窗体与子窗体的问题

Henry D. Sy

原帖由 forman 于 2008-12-3 11:42 发表
出现了错误·“运行错误'2105'，你不能指定的记录”DDDDDD大哥``你能帮我改下嘛?

原来没有考虑表1中没有记录
更改一下

Private Sub 政治_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = 13 Then
        SendKeys "^{tab}"
        Me.Parent.SetFocus
        If Me.Parent.NewRecord = False Then
            DoCmd.GoToRecord , , acNewRec
        End If
    End If
End Sub

forman

现在行了·谢谢··怎么会出现那种情况呢？那么奇怪的·

Henry D. Sy

刚才没有注意
请将acNewRec更改为acNext

forman

好的`谢谢``之前那个好像也行啊``改了有什么用?

Henry D. Sy

acnext只是转到下一条记录
acnewrec则是转到新增记录

forman

谢谢```我到现在还在研究你写给我的那几段代码是什么意思呢```
SendKeys "^{tab}"
  Me.Parent.SetFocus
  If Me.Parent.NewRecord = False Then
      DoCmd.GoToRecord , , acNext
这几段都还没看懂是什么意思``

Henry D. Sy

SendKeys "^{tab}"                                     ‘模拟击键，等于 ctrl键+tab键
Me.Parent.SetFocus                                   ’当前窗体的父窗体,也就是主窗体获得焦点
If Me.Parent.NewRecord = False Then     '如果主窗体当前记录不是新增记录
DoCmd.GoToRecord , , acNext                  '那么焦点移动到下一条记录

forman

太感谢你了··有学到东西了···

forman

SendKeys "^{tab}"   ‘模拟击键，等于 ctrl键+tab键
ctrl+tab 这个不就已经是回到主窗体的下一条记录了吗？为什么还要下面的代码呢？

Henry D. Sy

对呀，多此一举