请教：如何取出表中字段的最大值并赋值给变量

jiangpo　发表于：2009-04-09 12:13:17 　

表：KBD 字段：GZDH 文本型

在GZDH中存放4种形式的文本，分别是ABC、ABB、ACD、DCC打头后面跟着三位数字，并且分别编号，例如ABC1、ABC2、...ABC101、ABC102；....DCC1、DCC2、...DCC433、DCC434等等。

我想通过窗体输入一串字符（例如：“DCC”）给变量Temp1，希望能从字段GZDH中找到符合变量Temp1中的“DCC”的最大值“DCC434”，并把数字434提取出来赋值给Temp2。

如何编写这段查询，请各位老师不吝赐教，谢谢

豆豆发表于：2009-04-09 15:56:26

    Dim Temp1 As String
    Dim Temp As String
    Dim Temp2 As Integer
    Temp1 = Me.txtTemp1
'    Temp = DMax("[GZDH]", "KBD", "[GZDH] like '" & Me.txtTemp1 & "*" & "'")
    Temp = DLast("[GZDH]", "KBD", "[GZDH] like '" & Temp1 & "*" & "'")

    Dim i As Integer
    For i = 1 To Len(Temp)
        If IsNumeric(Mid(Temp, i, 1)) Then
            Temp2 = Val(Mid(Temp, i))
            Exit For
        End If
    Next i
    MsgBox Temp2
可测试下用dmax和dlast是不同的。

Top

jiangpo 发表于：2009-04-10 07:06:14

多谢chaojianan老师，我尽快试一下。

Top

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

Access交流中心

请教：如何取出表中字段的最大值并赋值给变量