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

K仔

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

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

K仔

写了以下的代码,但出错了...能指点一下吗?

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

爱情插班生

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

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 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编辑过]

爱情插班生

比我还懒...[em06][em06][em06]

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

K仔

呵~我试了~能更新我的记录~但不能新增了啊.....在文本框中输入新的值,只会更新第一条....不能新增啊!

andymark