更新后事件 >>> 窗体输入

Audi Zhang　发表于：2018-05-25 16:54:01 　

附件有一张表和一个窗体，想要实现的效果：

在窗体字段"HEAT NUMBER"输入内容后, 若输入的HeatNumber(炉号）在原表中已经存在，则其它对应的字段自动显示相应的内容，否则）就显示为空白，等待输入。

我用更新后事情，但没有成功。请教各位老师和高手指点，感谢！！！

Private Sub HEAT_NUMBER_AfterUpdate()
        Dim Rst As New ADODB.Recordset
        Rst.Open "select * from [HeatNumber] WHERE [HEAT NUMBER]= ' " & Me.[HEAT NUMBER] & " ' ", CurrentProject.Connection
        If Not Rst.EOF Then
                Me.C.Value = Rst!C
        Else
                Me.C.Value = ""
        End If

End Sub

Top

仙来发表于：2018-05-28 15:12:12

Dim Rst As New ADODB.Recordset
        Rst.Open "select * from [HeatNumber] WHERE [HEAT NUMBER]= '" & Me.HEAT_NUMBER & "'", CurrentProject.Connection
        If Not Rst.EOF Then
                Me.C.Value = Rst!C
        Else
                Me.C.Value = ""
        End If

注意：红色代码地方。表HEAT NUMBER字段命名时尽量不用空格，该字段取值相同，而C字段值不同时，取最前面的C值。

Top

Audi Zhang 发表于：2018-05-28 15:34:47

谢谢”仙来“！！！我也是池州的

Top

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

Access交流中心

[5分]更新后事件 >>> 窗体输入