求助子窗体修改数据后斌值给主窗休,出现刷新焦点回到开始位置

双精度　发表于：2012-09-23 17:40:41 　

点击修改后,弹出窗口,筛选出选中的记录
现状:在弹出的修改窗口中,修改单价后回车,代码将斌值给父窗体的合计字段,
斌值后,记录刷新了一下,焦点就回到了子窗体的开始{第一个)字段,
问题:如何禁止刷新记录,使焦点不回到开始字段? 希望回车后按正常的运行到下一个Tab
详看附件: 在最下面.

沈军发表于：2012-09-23 23:16:05

出现这个对话框是由于一条记录可能被2个或2个以上的窗体打开

心态哥发表于：2012-09-24 10:55:22

路过，学习。

双精度发表于：2012-09-24 21:15:15

自已搞定了,只能先关闭筛选利用" 红尘如烟" 的自己义函数" ChildFormRequery" 自已修改了一下

改成:

Function FormRequery(Optional FindWhereCondition As String)

On Error Resume Next

Dim sfr As Form

Dim lngPos As Long

Set sfr = Forms!运输单

Forms!运输单.Painting = False

lngPos = sfr.Form.Recordset.AbsolutePosition

Forms!运输单.FilterOn = False

If Len(FindWhereCondition) > 0 Then

sfr.Form.Recordset.FindFirst FindWhereCondition

Else

sfr.Form.Recordset.AbsolutePosition = lngPos

If Err <> 0 Then sfr.Form.Recordset.MoveLast

End If

Forms!运输单.Painting = True

End Function

再做一个修改按钮: 运行他就可以了!! 希望有类事这个情况的同学,可以参考一下.

另外那个"写入冲突"的问题还是没办法解决,希望各位老师帮忙!

总记录：3篇页次：1/1 9 1 :

Access交流中心