返回列表下一主題上一主題發帖

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

celina710828

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2011-3-9 13:34 | 只看該作者

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

各位師兄師姐您好，我是Access新手，我現在有遇到好幾個問題，在網路上有找到決解的VBA，但我還是沒辦法運作，
一、在資料表裡新增一個配送資料，裡面有一個欄位叫配送單號，希望是用當天日期加流水編號，例:20110309001前面八碼是日期，後面三碼是流水編號, 到了明天20110310也是從001開始

二、在表單中，我新增了三個下拉式選單和一個文字方塊，
第一個選單是新北市、桃園縣、新竹縣.......
第二個選單是第一個選單所對應的，例:新北市對應的是  八里區、三峽區、汐止區......
整三個選單是第二個選單所對應的，例:三峽區對應的是  中山路、復興路、中正路.....
文字方塊裡所顯示的是三個選單所對應的資料
但每一筆選單的對應資料表都不同，但是都有自已的編號，例:新北市編號是D001，三峽區編號是D001-1中山路編號是D001-1-1

三、在表單中製作一個多項式的查詢，例如: 1.輸入20110301下一格輸入20110309查詢20110301~20110309的資料
                                    2.輸入廠商名稱   ，但是是用選單選取的廠商名稱，也可以直接在上面打某兩個字在上面自動詢找

以上是我所遇到重大問題，請各位師兄師姐能大發慈悲的幫幫小女我吧!:'(

我會非常感謝各位的，謝謝!

樓主熱帖

celina710828

中學生 Rank: 2

帖子: 67
主題: 21
精華: 0
積分: 94
點名: 0
作業系統: xp
軟體版本: 2010
閱讀權限: 20
性別: 女
來自: 台灣
註冊時間: 2011-3-9
最後登錄: 2013-1-17

2^#

發表於 2011-3-10 08:26 | 只看該作者

一、在資料表裡新增一個配送資料，裡面有一個欄位叫配送單號，希望是用當天日期加流水編號，例:20110309001前面八碼是日期，後面三碼是流水編號, 到了明天20110310也是從001開始

Private Sub 配送單號_DblClick(Cancel As Integer)
Dim MaxID, date2 As String
If Me.NewRecord = True Then
   date2 = Format(Date, "YYYYMMDD") '今天日期
   MaxID = DMax("[配送單號]", "專車配送資料輸入", "[配送單號] Like '" & 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
請問大大們，以上我無法執行哪裡出錯了，可以幫幫我好嗎?

celina710828

TOP

aa7551

中學生 Rank: 2

帖子: 116
主題: 5
精華: 0
積分: 190
點名: 0
作業系統: xp
軟體版本: office 2002
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2010-11-17
最後登錄: 2024-11-15

3^#

發表於 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

celina710828