返回列表 上一主題 發帖

[發問] Access新手，我現在有遇到好幾個問題??

aa7551

帖子
116 
主題
5 
精華
0 
積分
190 
點名
0  
作業系統
xp 
軟體版本
office 2002 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2010-11-17 
最後登錄
2026-5-27 
1# 跳轉到 »
發表於 2011-3-11 23:48 | 顯示全部帖子
試試,不知是否能滿足celia需求
Private Sub 單號_DblClick(Cancel As Integer)
    Dim MaxID, date2 As String
    If Me.NewRecord = True Then
     date2 = Format(Date, "YYYYMMDD") '今天日期
     MaxID = DMax("[單號]", "資料表1", "Left([單號], 8) =" & date2)
     If IsNull(MaxID) Then
     Me![單號] = date2 & "001" '如果今天沒有流水號，從今天日期+"001"開始
     Else
     Me![單號] = date2 & Format(CStr(Val(Right(MaxID, 3) + 1)), "000") '如果今天有流水號，則將最大流水號加1
     End If
    End If
End Sub

TOP

        靜思自在 : 天上最美是星星，人生最美是溫情。
返回列表 上一主題