请高手看一下为什么查询文本框中不能显示内容

wawage　发表于：2010-05-17 11:02:55 　

请看一下哈，代码没有问题，我用ID号做为查询条件，文本框又能显示内容。我想应该是属性问题，请高手解答。

Private Sub 合同查询_AfterUpdate()
Dim str As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
str = "Select *From 总表"
rs.Open str, conn, adOpenKeyset, adLockPessimistic
rs.MoveFirst
Do While Not rs.EOF
    If rs!合同号 = Me!合同查询 Then
       Me!流水号 = rs!流水号
       Me!工期 = rs!交付日期
       Me!名称 = rs!名称
       Me!生产号 = rs!生产号
     End If
     rs.MoveNext
Loop
End Sub

Top

一启软研发表于：2010-05-17 11:10:15

Private Sub 合同查询_AfterUpdate()
Dim str As String
Set conn = CurrentProject.Connection
Set rs = New ADODB.Recordset
str = "Select *From 总表 WHERE 合同号='" & Me.合同查询 & "'"
rs.Open str, conn, adOpenKeyset, adLockPessimistic
if rs.recordcount>=1 then

       Me!流水号 = rs!流水号
       Me!工期 = rs!交付日期
       Me!名称 = rs!名称
       Me!生产号 = rs!生产号
else

msgbox "没有此合同。"

End If

Top

zhaoyoulong 发表于：2010-05-17 11:19:06

考虑空格问题看看： If Trim（rs!合同号） = Trim（Me!合同查询） Then

Top

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

Access交流中心

请高手看一下为什么查询文本框中不能显示内容