Office中国论坛/Access中国论坛

标题: 版主：光标定位和查询结果打印－－－－在线等待 [打印本页]

作者: f01m026 时间: 2003-8-14 20:56
标题: 版主：光标定位和查询结果打印－－－－在线等待
我想问下插入后，光标老是跑到第一条记录，请问在下面的代码中哪里添加一段代码使它
定位在当前记录？
Private Sub TJJL1_Click()
On Error GoTo Err_TJJL1_Click

Dim cur_zid, las_zid, pointer

cur_zid = Me.ZID.Value

DoCmd.OpenForm "ZHUKU_DATA", acNormal
DoCmd.GoToRecord acDataForm, "ZHUKU_DATA", acLast

las_zid = Form_ZHUKU_DATA.CurrentRecord

For pointer = las_zid To cur_zid Step -1
      Form_ZHUKU_DATA.ZID.Value = Form_ZHUKU_DATA.CurrentRecord + 1

      If pointer > cur_zid Then
         DoCmd.GoToRecord , , acPrevious
      End If
Next pointer

DoCmd.GoToRecord acDataForm, "ZHUKU_DATA", acNewRec
Form_ZHUKU_DATA.ZID.Value = cur_zid                      '将新增记录的 ZID 改为插入位置的记录号
Form_ZHUKU_DATA.DANO.Value = "*"
DoCmd.Close acForm, "ZHUKU_DATA", acSaveYes
Me.Requery
Me.NO.SetFocus
DoCmd.Save
Exit_TJJL1_Click:
Exit Sub

Err_TJJL1_Click:
MsgBox Err.Description
Resume Exit_TJJL1_Click

End Sub

另：如果打印查询结果？代码怎么写？

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