大写字母的问题

不务实　发表于：2009-10-17 22:33:59 　

Private Sub Form_Load()

'On Error Resume Next '屏蔽一下错误,防止<费用账号的不存在

If CurrentProject.AllForms("凭证增加").IsLoaded Then '由凭证增加窗体调用时
Dim seleID As String

    If IsNumeric(Forms![凭证增加]![Child6].Form![账号科目]) Then
        RecordSource = "SELECT 账号科目.* FROM 账号科目 ORDER BY 费用账号"
        seleID = DMax("费用账号", "账号科目", "费用账号<'" & Forms!凭证增加![Child6]![账号科目] & "'")
        '(这儿的目的是当Forms!凭证增加![Child6]![账号科目]的值在账号科目表中没有时,就是返回上条记录上)
        Me.Recordset.FindFirst "[费用账号] ='" & seleID & "'"
    ElseIf Asc(Forms![凭证增加]![Child6].Form![账号科目]) > 64 And Asc(Forms![凭证增加]![Child6].Form![账号科目]) < 91 Then     '为大写字母时
        RecordSource = "SELECT 账号科目.* FROM 账号科目 ORDER BY 简码"
        seleID = DMax("费用账号", "账号科目", "简码<'" & Forms!凭证增加![Child6]![账号科目] & "'")

        上这句明显不行,比如账号科目表简码字段的值有 ABCD EACG
        而我在 Forms!凭证增加![Child6]![账号科目] 中输入了 EAG或EC或EEE或FAA
        等EACG以后的字母都要回到EACG的记录上,输入了ABCD-EACG之间的值就返回ABCD的记录上

Me.Recordset.FindFirst "[费用账号] ='" & seleID & "'"

End If

End Sub

Top

不务实发表于：2009-10-18 10:22:14

对不起,错了,

能的,

只不过我错了几处,现改一下,

什么人跟一下贴发表一下自己的看法或者提供更好的办法,

我自己的贴,没法结帐的

ElseIf Asc(Forms![凭证增加]![Child6].Form![账号科目]) > 64 And Asc(Forms![凭证增加]![Child6].Form![账号科目]) < 91 Then     '为大写字母时
    RecordSource = "SELECT 账号科目.* FROM 账号科目 ORDER BY 简码"
    seleID = DMax("简码", "账号科目", "简码<'" & Forms!凭证增加![Child6]![账号科目] & "'")
    Me.Recordset.FindFirst "[简码] ='" & seleID & "'"

End If

Top

不务实发表于：2009-10-22 09:08:04

我要结贴

Top

不务实发表于：2010-12-09 10:40:11

我要结贴

应过声呀

Top

netguestcn 发表于：2010-12-10 06:18:30

结巴

Top

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

Access交流中心

大写字母的问题