Office中国论坛/Access中国论坛

标题: [求助]請教我的這段代碼對了嗎? [打印本页]

作者: lzx-shmily 时间: 2006-4-13 00:44
标题: [求助]請教我的這段代碼對了嗎?
判斷一個文本框的值在表中對應字段是否有相等的值

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是最後一次輸入的,就無法找到,如果不是,上述代碼就可以正常,各位幫我看一下,到底是什麼問題,謝謝!

作者: 一点通 时间: 2006-4-13 00:47
可能最后一次的记录并不是真正保存到表中,所以就找不到了

作者: lzx-shmily 时间: 2006-4-13 00:54
但是我已經在表中看到了那一條記錄了的,確實已經存在了的

作者: andymark 时间: 2006-4-13 01:00
试试

Do while not rs1.EOF

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

作者: lzx-shmily 时间: 2006-4-13 01:21
我試過了,還是不行,有什麼差別嗎?

作者: fan0217 时间: 2006-4-13 01:48

以下是引用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 时间: 2006-4-13 16:21
我是想實現如果控件[員工編號]的值在表中同一字段有相等的值,控件[生效時間]就不可用,還有其它方法嗎?

作者: fan0217 时间: 2006-4-13 17:00
把例子放上来,更多的要结合例子来说.

作者: lzx-shmily 时间: 2006-4-13 17:21
請幫忙看一下,謝謝1

[attach]17086[/attach]

作者: fan0217 时间: 2006-4-13 17:50
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

作者: lzx-shmily 时间: 2006-4-13 21:45
謝謝!測試通過.只是不太明白之前的代碼為什麼不可以

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