ACCESS中不同的两个表中的不同的两个字段相等的表达式?

Question

请大家慢慢看题再回答,而且我相信这题的回答应该不是很长,所以,请不要去哪里COPY来给我,题目如下:ACCESS数据库中,有两个表,这两个表都在同一个数据库,其中一个表叫user,另个表叫vsaer,在user表中有coin这个字段,在vsaer表中有Mark这个字段,这两个字段数据类型都为数值和长整型.请问:怎样设置使Mark的值恒等于coin的值,意思改动这两个任一值,另个值也会改成相同.比如用默认值的方法可以吗?如果是用默认值的话,表达式怎么写,这里我需要一个符号一个标点都不能错的表达式,而不是我们中文描述一样的表达式,解决这个问题的给分.感谢大家!

Answer 1

给那个文本框加代码如下Private Sub vsaer_AfterUpdate()
'change tabel 在vsaer表中有Mark这个字段
Dim t_id1
Dim tn As Long
t_id1 = Me!id_1.Value
tn = Me!vsaer.Value
Dim mysql As String
Dim cnn As ADODB.Connection
Set cnn = CurrentProject.Connection
mysql = "update vsaer set vsaer.mark='" & tn & "' " & "where vsaer.id_2='" & t_id1 & "'"
cnn.Execute mysql
cnn.CloseSet rstA = Nothing
Set cnn = NothingEnd Sub 同样，仿此给另外一个表写窗体，加代码，就实现了楼主想要的功能