如何实现ACCESS窗体刷新后定位显示的记录！

sagemeyou

Private Sub acct_1st_DblClick(cancel As Integer)
    Dim seq_q As Long, no As Long, recno As Long
    DoCmd.SetWarnings False
    seq_q = DLookup("seq", "gld_460_1st_sum", "acct_1st='" & acct_1st & "'")
    recno = DCount("*", "gld_460_1st_sum1", "seq_no<=" & seq_no & "")
    If seq_q = 1 Then
       no = DCount("*", "gld_460_1st_sum1", "acct_no='" & acct_1st & "'")
       If no = 1 Then
          DoCmd.RunSQL " insert into gld_460_1st_sum1 select * from gld_460_1st_sum  where acct_no='" & Me.acct_1st & "' and seq=2 "
       Else
          DoCmd.RunSQL "delete from gld_460_1st_sum1 where seq>1 and acct_no='" & Me.acct_1st & " '"
       End If
    ElseIf seq_q = 2 Then
       no = DCount("*", "gld_460_1st_sum1", "acct_no='" & Mid(acct_1st, 3, Len(acct_1st) - 2) & "'")
       If no = 0 Then
          DoCmd.RunSQL " insert into gld_460_1st_sum1 select * from gld_460_1st_sum  where acct_no='" & Mid(Me.acct_1st, 3, Len(Me.acct_1st) - 2) & "' and seq=3 "
       Else
          DoCmd.RunSQL "delete from gld_460_1st_sum1 where acct_no='" & Mid(Me.acct_1st, 3, Len(Me.acct_1st) - 2) & "'"
       End If
    End If
    Me.Form.Requery
      
    'Me.Form.RecordSource = "select * from gld_460_1st_sum1 order by seq_no"
    'If recno > 0 And recno <= reccnt Then
        'recno = recno + no1
        DoCmd.GoToRecord , , acGoTo, recno
    'End If
  
End Sub

说明：在窗体gld460s 中控件acct_1st 双击事件自动展开明细数据，Me.Form.Requery 后 指定到记录 DoCmd.GoToRecord , , acGoTo, recno 指针显示在窗体最下端 而不是原来的位置。

如何实现选定的记录在展开前记录的位置并且还是原来的记录？就是位置不变


源文件

gnoy

原理就是使用Bookmark

sagemeyou

谢谢 gony ，我以为我的帖子没人关注呢。 其实这是一个比较难的问题。我已经请教了好几个VBA的高手都没做出来。

sagemeyou

Book mark 实现不了我要的功能

koutx

其实并不难，把例库传上来吧。

sagemeyou

模块太大了。

koutx

在
Option Compare Database 下加一句:
Public js As Integer       '用于记忆双击时的CurrentRecord

然后将Me.Form.Requery后面的
Me.Recordset.Move 3
改为         
   Me.Recordset.Move js - 1

sagemeyou

谢谢koutx,我的解决的方法如下：
Private Sub acct_1st_DblClick(cancel As Integer)
    Dim seq_q As Long, no As Long, recno As Long
    Dim rec_no As String
    Dim f_count As Integer, f_st As Integer
    Dim c_count As Integer, c_st As Integer
    Dim t_count As Integer
    Dim s_count As Integer, m_count As Integer
   '获取当前记录的记录数和子窗体的高度
    f_count = Me.Recordset.AbsolutePosition + 1
    f_st = Me.CurrentSectionTop
    c_count = f_count
    c_st = f_st
   
    '循环计算得到顶端记录数t_count
    While c_st > 240
       Me.Recordset.MovePrevious
       c_count = Me.Recordset.AbsolutePosition + 1
       c_st = Me.CurrentSectionTop
      
    Wend
       t_count = c_count
       m_count = f_count - t_count
       Me.Recordset.Move m_count
    '生成明细记录
    DoCmd.SetWarnings False
    seq_q = DLookup("seq", "gld_460_1st_sum", "acct_1st='" & acct_1st & "'")
    recno = Me.Recordset.AbsolutePosition + 1
   
    rec_no = Me.SelHeight
    If seq_q = 1 Then
       no = DCount("*", "gld_460_1st_sum1", "acct_no='" & acct_1st & "'")
       If no = 1 Then
          DoCmd.RunSQL " insert into gld_460_1st_sum1 select * from gld_460_1st_sum  where acct_no='" & Me.acct_1st & "' and seq=2  "
       Else
          DoCmd.RunSQL "delete from gld_460_1st_sum1 where seq>1 and left(trim(seq_no),len(trim('" & Me.seq_no & "')))=trim('" & Me.seq_no & "')"
       End If
    ElseIf seq_q = 2 Then
       no = DCount("*", "gld_460_1st_sum1", "acct_no='" & Mid(acct_1st, 3, Len(acct_1st) - 2) & "'")
       'no = DCount("*", "gld_460_1st_sum1", "acct_no='" & acct_1st & "'")
       If no = 0 Then
          DoCmd.RunSQL " insert into gld_460_1st_sum1 select * from gld_460_1st_sum  where acct_no='" & Mid(Me.acct_1st, 3, Len(Me.acct_1st) - 2) & "' and seq=3 "
          'DoCmd.RunSQL " insert into gld_460_1st_sum1 select * from gld_460_1st_sum  where acct_no='" & Me.acct_1st & "' and seq=3 "
       Else
          DoCmd.RunSQL "delete from gld_460_1st_sum1 where acct_no='" & Mid(Me.acct_1st, 3, Len(Me.acct_1st) - 2) & "'"
          'DoCmd.RunSQL "delete from gld_460_1st_sum1 where acct_no='" & Me.acct_1st & "'"
       End If
    End If
   
    '刷新窗体 并 定位原来记录
    Me.Form.Requery
    Me.Recordset.MoveLast
    'SendKeys "{PGDN}"
    s_count = Me.Recordset.AbsolutePosition + 1
    m_count = t_count - s_count
    Me.Recordset.Move m_count
    m_count = f_count - t_count
    Me.Recordset.Move m_count

End Sub

缺点是当选择倒数最后的几条记录双击前和双击后位置变动。其它的双击都正常

koutx

以问题的解决为目的；以简单高效为追求。

zpy2

看看了！！！