麻烦帮看下！输入以下代码后，输入车牌无法带出数据，但如果车牌为全数字就可以，但只能带出品牌的第一行数据！

皓月　发表于：2014-09-10 09:18:24 　

Private Sub 车牌ID_AfterUpdate()

    If Len(车牌ID) = 0 Then Exit Sub
    If Nz(DCount("*", "车辆信息", "车牌ID=" & Me.车牌ID & "")) = 0 Then
        MsgBox "数据库中并无此车辆.", vbCritical, "提示"
        Me.Text10 = Null
        Me.图书ID = Null
        Me.图书ID.SetFocus
    Else
        Me.Text10 = DLookup("品牌", "车辆信息", "车牌ID=" & Me.车牌ID & "")
            End If

End Sub

Top

皓月发表于：2014-09-10 09:20:38

麻烦帮看下！输入以下代码后，输入车牌无法带出数据，但如果车牌为全数字就可以，但只能带出品牌的第一行数据！

Private Sub 车牌ID_AfterUpdate()

    If Len(车牌ID) = 0 Then Exit Sub
    If Nz(DCount("*", "车辆信息", "车牌ID=" & Me.车牌ID & "")) = 0 Then
        MsgBox "数据库中并无此车辆.", vbCritical, "提示"
        Me.Text10 = Null
        Me.车牌ID = Null
        Me.车牌ID.SetFocus
    Else
        Me.Text10 = DLookup("品牌", "车辆信息", "车牌ID=" & Me.车牌ID & "")
            End If

End Sub

Top

闲人发表于：2014-09-10 09:40:01

注意：

Me.Text10 = DLookup("品牌", "车辆信息", "车牌ID=" & Me.车牌ID & "")，只能显示一行数据，如果显示多行，需要用子窗体

你用条件查询就可以

Top

皓月发表于：2014-09-10 10:00:46

能否帮我做个例子！我是新手！

Top

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

Access交流中心

麻烦帮看下！输入以下代码后，输入车牌无法带出数据，但如果车牌为全数字就可以，但只能带出品牌的第一行数据！