[求助]請教我的這段代碼對了嗎?

lzx-shmily

判斷一個文本框的值在表中對應字段是否有相等的值

Dim cn As New ADODB.Connection

    Dim rs1 As New ADODB.Recordset

    Set cn = CurrentProject.Connection

    rs1.Open "考核加薪表", cn, 3, 3

    Do Until rs1.EOF

        If Me.員工編號 = rs1!員工編號 Then

            Me.生效時間.Enabled = False

            Me.考核類型.Enabled = False

        End If

        rs1.MoveNext

    Loop

    rs1.Close

    cn.Close

    Set cn = Nothing

但是我發現這樣作對表中最後一次輸入的記錄無效,如Me.員工編號 =123,而 rs1!員工編號 =123,如果rs1中的123是最後一次輸入的,就無法找到,如果不是,上述代碼就可以正常,各位幫我看一下,到底是什麼問題,謝謝!

一点通

可能最后一次的记录并不是真正保存到表中,所以就找不到了

lzx-shmily

但是我已經在表中看到了那一條記錄了的,確實已經存在了的

andymark

试试

Do while not rs1.EOF

[此贴子已经被作者于2006-4-12 17:00:27编辑过]

lzx-shmily

我試過了,還是不行,有什麼差別嗎?

fan0217

以下是引用lzx-shmily在2006-4-12 16:44:00的发言：


判斷一個文本框的值在表中對應字段是否有相等的值

Dim cn As New ADODB.Connection

    Dim rs1 As New ADODB.Recordset

    Set cn = CurrentProject.Connection

   rs1.Open "考核加薪表", cn, 3, 3

    Do Until rs1.EOF

        If Me.員工編號 = rs1!員工編號 Then

            Me.生效時間.Enabled = False

            Me.考核類型.Enabled = False

        End If

        rs1.MoveNext

    Loop

    rs1.Close

    cn.Close

    Set cn = Nothing

但是我發現這樣作對表中最後一次輸入的記錄無效,如Me.員工編號 =123,而 rs1!員工編號 =123,如果rs1中的123是最後一次輸入的,就無法找到,如果不是,上述代碼就可以正常,各位幫我看一下,到底是什麼問題,謝謝!

这里有何意义呢?没有闹明白,这里是循环结构中啊!不停的赋值干吗呢?

lzx-shmily

我是想實現如果控件[員工編號]的值在表中同一字段有相等的值,控件[生效時間]就不可用,還有其它方法嗎?

fan0217

把例子放上来,更多的要结合例子来说.

lzx-shmily

請幫忙看一下,謝謝1

fan0217

Private Sub Text0_AfterUpdate()

If IsNull(DLookup("f1", "tbl", "f1='" & Me.Text0 & "'")) Then

    Me.Text2.Enabled = True

Else
    Me.Text2.Enabled = False

End If

End Sub