关于窗体与子窗体的问题

mzjlgjf

我在主窗体那form_load()有了docmd.gotorecord,,aclast,但现在有个问题是当我点了子窗体的任意一个地方它都会自动跑回第一条记录那,还有就是为什么子窗体刷新那么慢?才4000多条记录啊

我那保存按钮的代码是

Private Sub Command1_Click()
On Error GoTo Err_command1_Click
Dim stemp As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
stemp = "select * from 报表"
rs.Open stemp, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
If Me![Text0] <> "" And Me![Text1] <> "" And Me![Text2] <> "" And Me![Text3] <> "" And Me![Text4] <> "" Then
rs.AddNew
rs("日期") = Me![Text0]
rs("工号") = Me![Text2]
rs("组别") = Me![Text1]
rs("姓名") = Me![Text3]
rs("号数") = Me![Text4]
rs("级别") = Me![Text6]
rs("面数&厚薄") = Me![Text10]
rs("板号") = Me![Text11]
rs("中数") = Me![Text12]
rs("颜色") = Me![Text8]
rs("数量") = Me![Text13]
rs.Update
MsgBox "添加成功", vbExclamation, "提示"
DoCmd.GoToRecord , , acLast
Me![Text9] = ""
Me![Text10] = ""
Me![Text11] = ""
Me![Text12] = ""
Me![Text13] = ""
Me![Text1].SetFocus
Me.发钻子窗体.Requery
Set rs = Nothing
Else
MsgBox "除编号外所有数据都不能为空", vbExclamation, "提示"
Me![Text1].SetFocus
End If
Exit_command1_Click:
Exit Sub
Err_command1_Click:
Resume Exit_command1_Click
End Sub

有没有问题?

Grant

是否在子窗体成为当前事件中加入了代码

子窗体刷新慢是否你的条件过多,或没写好查询语句呢.

mzjlgjf

那帮忙看看那个保存按钮的代码有什么问题没有嘛,谢谢

mzjlgjf

我没有在子窗体那加入任何事件呀,每次我保存后点一下那子窗体的任何地方它就跑回第一条记录了,为什么?

mzjlgjf

在线等,急呀

静儿

是不是这个命令在影响?

Me.发钻子窗体.Requery

mzjlgjf

我想是的,但我想添加后子窗体也要有变化啊,没这句不行啊,请问应该怎么改呢?

mzjlgjf

还有个问题是,不知道为什么我这个保存按钮用ENTER点第二次的时候不会把焦点返回给TEXT1的?这是怎么回事?

一点通

上传示例吧,单纯文字很难说明问题

mzjlgjf

请帮我看看,这有几个问题是:

1、不知道为什么有时点了添加，不会把焦点返回给text1。

2、我想一启动自动到最后一条记录那

3、哪位大哥帮我优化一下这些代码，因为我是菜鸟，很多代码是改别人写的，所以很乱

辛苦了，谢谢