Office中国论坛/Access中国论坛

标题: [求助][急啊!!]如何点击子表中的记录,自己更新在上面的文本框? [打印本页]

作者: K仔 时间: 2006-6-21 22:38
标题: [求助][急啊!!]如何点击子表中的记录,自己更新在上面的文本框?
[attach]18637[/attach]

保存后会在子表中显示出来,因为想修改记录,所以要做到点击子表中的记录,会在上面的对应的文本框上显示出来,修改后再替换原来的记录!请指教!

[此贴子已经被作者于2006-6-21 14:49:28编辑过]

作者: K仔 时间: 2006-6-21 22:54
写了以下的代码,但出错了...能指点一下吗?

Private Sub Sid_Click()
color = Null
book_type = Null
side = Null

Dim tempdb As Database
Dim temprs As Recordset

Set tempdb = CurrentDb
Set temprs = tempdb.OpenRecordset("TS - 11", 2)

temprs.FindFirst "'" & Sid & "'= Sid "
If Not temprs.EOF Then
color = temprs![color]
book_type = temprs![book_type]
side = temprs![side]

End If
tempdb.Close
temprs.Close
End Sub

作者: 爱情插班生 时间: 2006-6-21 23:17
子窗体的成为当前事件写入:

Private Sub Form_Current()
Me.Parent.color = Me.color
Me.Parent.book_type = Me.book_type
Me.Parent.side = Me.side
End Sub

保存按钮用SQL: update 自己写.

然后,再加上一句: 刷新语句: me.子窗体.requery

ok了...[em01][em01][em01]

作者: K仔 时间: 2006-6-21 23:33

以下是引用爱情插班生在2006-6-21 15:17:00的发言：

子窗体的成为当前事件写入:

Private Sub Form_Current()
Me.Parent.color = Me.color
Me.Parent.book_type = Me.book_type
Me.Parent.side = Me.side
End Sub

保存按钮用SQL: update 自己写.

然后,再加上一句: 刷新语句: me.子窗体.requery

ok了...

我原来的语句都不通了啊......你能在我的例子上做做给我吗?麻烦了

[此贴子已经被作者于2006-6-21 15:33:48编辑过]

作者: 爱情插班生 时间: 2006-6-21 23:49
比我还懒...[em06][em06][em06][attach]18639[/attach]

[此贴子已经被作者于2006-6-21 15:49:02编辑过]

作者: K仔 时间: 2006-6-22 00:26
呵~我试了~能更新我的记录~但不能新增了啊.....在文本框中输入新的值,只会更新第一条....不能新增啊!

作者: andymark 时间: 2006-6-22 00:56
[attach]18640[/attach]

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