出貨單單號如何變成前6碼日期+後2碼自動編寫....

alex
start各位大大好..
我公司的會計系統中有出貨單的項目.其中每天的出貨單單號我現在只能自己輸入..例如..今天是04年9月24日的第一張出貨單...我就慢慢用手打入04092401...如果第二張..就慢慢用手打入04092402..
問題來了...我若離開位置了...或別人接手輸入了...日期的部分還有date()可以看見...但是出貨單打到第幾了...卻沒人知道...
我看過友人的資料庫可以..自動產生當天日期+序號共8碼...
''ACCESS只有內建序號(自動產生)或(=當天日期)...
是否有法子讓表單裡的出貨單號欄位變成自動填入當天日期6碼+自動序號2碼.....謝謝...我找了好多書...也問了很多人...   :(  沒人會..over
tungta
1.表單要有“鍵檔日期”文字方塊
2.然後做一個查詢:最後出貨單號查詢,使用合計功能,以鍵檔日期設定群組,出貨單號設定最大值,可記錄每天最後一筆的出貨單號
3.在表單的事件BeforeInsert做如下語法:
Private Sub Form_BeforeInsert(Cancel As Integer)
1001    Z = DLookup("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = Format([鍵檔日期], "yymmdd") & _
        Format(Right(DMax("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = Format([鍵檔日期], "yymmdd") & "01" '顯示01
1006 End If
End Function

當每天輸入第一筆資料時,“出貨單號”自動顯示年月日+01,輸入第二筆以後資料時,“出貨單號”以前一筆為基準自動+1
內有惡犬
你建兩個欄位吧!
一個是 ACCES 的自動編號
一個就是日期格式
在ASP裡面是可以把兩個欄位的值加在一起
表示法
序號=日期格式+自動編號
rwwbm
tungta大:
請問有沒有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.
tungta
抱歉,貼錯,如下才對:
Private Sub Form_BeforeInsert(Cancel As Integer)
1001    Z = DLookup("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = Format([鍵檔日期], "yymmdd") & _
        Format(Right(DMax("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = Format([鍵檔日期], "yymmdd") & "01" '顯示01
1006 End If
End Sub
tungta
範例已寄出
rwwbm
謝謝
sharon
我也需要範例,能否也寄份給我呢?
謝謝
tungta
範例已寄出
luck515
我按照了 大大的作法 可是  出貨單號 永遠只顯示 "04092400",請問 是那裡錯了嗎 謝應~
tungta
如果程式照貼是不會有錯,比較可能是查詢設定的問題,已寄給你範例,請收信。
luck515
收到範列了 謝謝大大 果然是 查詢 設定有問題..
阿美
我也想要範例..可email給我嗎??...3q
tungta
範例已寄出
永逸
我可不可以也要......
tungta
範例已寄出
sakura
我也需要範例,可否寄給我。謝謝 辛苦您了
tungta
範例已寄出
小惟
也可以給我範例嗎?謝謝!

可是我的需求有些不同耶!
我是應用在公文上,發文號碼是民國曆930001的編法,我需要後面的0001是自動編號,在94/1/1發的第1封公文是940001,請大大指教一下,謝謝!
tungta
TO:小惟
範例檔改一下再寄給你,再確認一次,你是以年開始(不管月份)嗎?
小惟
To:tungta 

是的,我是以年份劃分,謝謝你的幫忙!
tungta
TO:小惟
範例檔已寄出,若你是用民國的年份建檔,要更改電腦的區域設定
tungta
TO:小惟
已再寄給你範例檔
小惟
TO :tungta 

謝謝你,我已經收到範例也執行成功了,可是我想再問一個問題可以嗎?
DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期1 ='" & Format(Me![出貨日期], "e") & "'") 其中,DMax函數的用法及為何要加上「'」以及為何format函數中的"e"就可以變成取民國年?
Sorry,因為我設計資料庫沒用過VB的程式,所以一知半解,請高人指點,Thanks!!
tungta
1.DMax函數傳回符合條件的最大值,括弧後有3個部分,第一個是資料表或查詢的欄位名稱;第二個是資料表或查詢的名稱;第三個是設定的引數(條件)。很多函數的用法都是如此
2.「'」是資料庫用來存字串(資料)用的,在「'」中間要使用控制項的數據就要加上「"」----" & 控制項名稱 & "
3.e代表民國年,e/mm/dd(民國年),yyyy/mm/dd(西元年)
alex
start各位大大好..
以''當天日期6碼+自動序號2碼''=自動8碼的序號...已經獲的解決了
特別感謝''tungta''大大.......
但我又遇到新的問題.....如下:
[如果我的請款單中的''請款月份''一欄.格式不是日期格式....而是文字格式
也就是說...我每月要請款的時候必須在''請款月份''一欄中輸入
(2004年**月)的文字....才會產生該客戶該月份的請款內容....這時候
以''當天日期6碼+自動序號2碼''=自動8碼的序號的程式便無用了
我希望達成的方式是當我在''請款月份''輸入(2004年10月)的文字時..
能夠在我的第一筆''請款單號''產生200410-01....
---------第二筆''請款單號''產生200410-02...
以此類推...該如何轉換呢....ps*再次強調''請款月份''並非日期格式
希望獲得各位大大...熱烈迴響..謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝...
tungta
我比較不建議日期的欄位用文字的類型,因為無法偵測輸入錯誤的日期,例如2004/13,但既然你有這個須要,就寄給你範例。
alex
tungta大大好..
我收到你的範例了....真是神奇.....再三感謝
但是你的範例出貨日期顯現為[2004/10].....
為了我的客戶識別方便...我必須將[2004/10]..轉換成[2004年10月]
的文字顯示出來....是不是能多加一隻語法
另外我的出貨日期存入資料庫時是以數字/長整數格式存的
也就是我的表單必須輸入顯示[2004年10月]...而儲存資料庫為
200410的數字.......(這牽扯了我相當多的設定與考量...SORRY)
我上一封信忽略了這一點...抱歉....原諒我..無理的要求...
謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝... 
tungta
1.如果出貨日期是文字類型,資料表儲存的也要有年月,就把出貨日期的遮罩改為0000\年00\月;0;,vba改為如下: 
1001    Z = DLookup("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 ='" & Me![出貨日期] & "'")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = Format([出貨日期], "yyyymm") & "-" & _
        Format(Right(DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 ='" & Me![出貨日期] & "'"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = Format([出貨日期], "yyyymm") & "-" & "01" '顯示01
1006 End If

2.如果出貨日期是文字類型,資料表儲存的不要有年月,就把出貨日期的遮罩改為0000\年00\月,vba改為如下:
1001    Z = DLookup("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 ='" & Me![出貨日期] & "'")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = Format([出貨日期], "######") & "-" & _
        Format(Right(DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 ='" & Me![出貨日期] & "'"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = Format([出貨日期], "######") & "-" & "01" '顯示01
1006 End If

3.如果出貨日期是數字長整數,資料表儲存的當然不能有年月,就把出貨日期的遮罩改為0000\年00\月,vba改為如下:
1001    Z = DLookup("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 =" & Me![出貨日期])
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = Format([出貨日期], "######") & "-" & _
        Format(Right(DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 =" & Me![出貨日期]), 2) + 1, "00")  '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = Format([出貨日期], "######") & "-" & "01" '顯示01
1006 End If
alex
tungta大大好..
我收到你的範例了...幾經測試後終於完成了....
我只能對你表達由衷的感謝.....
多謝你的不厭其煩.....有空來台中我請你吃飯...
Liuyang
tungta大大好..
可不可也寄個範例給我(mdb檔)
多謝你.......
tungta
範例已寄出
阿隆
tungta大大,可不可以也寄給我:出貨單單號如何變成前6碼日期+後2碼自動編寫....
tungta
範例已寄出
Domo
可否也給我一份範例,謝謝
tungta
範例已寄出
jay
tungta大,你真是好人,我也想要範例
謝謝謝.....
tungta
範例已寄出
rwwbm
請問Tangta大:
若要在前面加一個英文字母,該如何做,謝謝
tungta
假設要在前面加英文字母A,vba改為如:
1001    Z = DLookup("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 =#" & Me![出貨日期] & "#")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003    Me![出貨單號] = "A" & Format([出貨日期], "yymmdd") & _
        Format(Right(DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期 =#" & Me![出貨日期] & "#"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005    Me![出貨單號] = "A" & Format([出貨日期], "yymmdd") & "01" '顯示01
1006 End If
rwwbm
Tungta大:
1)1001    Z = DLookup("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#")
2)1001    Z = DLookup("出貨單號之最大值", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#")
請問一下 ,上面2筆"出貨單號"及"出貨單號之最大值"這2個差別在哪裡
感恩喔......
tungta
差別在於該欄位在查詢中合計的選擇,1)是群組、2)是最大值,這種差別在表單上沒有關係,因為1)是比2)多了一個欄位而已,只差別在打開查詢查看時1)會看到全部資料、2)只會看到最大值
rwwbm
Tungta大:
請問一下,我照著打多了個A,為什麼第一個A04102201是正確,而第二個是出現04102202,而不是出現A04102202.
謝謝回應
rwwbm
Tungta大:
對不起,是我有一個第方沒改到,現在可以了,謝謝
一萬個為什麼
可不可以也寄給我範例~拜託
謝謝~
tungta
範例已寄出
bernice
麻煩你也寄範例給我
tungta
範例已寄出
stanLin
Dear tungta 小弟也有這方面的問題,想請你能否也寄這個範例給我呢?
由衷的感謝您。
tungta
範例已寄出
永逸
我也想要,麻煩了!謝謝!!
tungta
範例已寄出
阿南
各位大大:
     小弟有個問題,也是類似前面的自動編號的問題,
可是有點複雜,是分類自動編號的問題:
     1.先選分類項目:如出貨單、進貨單;發票等選項
     2.前面下拉式選單選定後,進入各細項,然後由各細項自動編號
      小弟快想破頭了!還是搞不定,請求各位大大支援囉!
       感激不盡
      
tungta
這個問題必須分成“分類項目表”與“細項資料表”兩個資料表來處理,分類項目(一個英文字母+一個數字)、細項自動編號(分類項目+三個數字),我做了一個範例(細項資料),請收信。
阿南
tungta大大:
           我好像沒收到!
           可以麻煩你再e一次嗎?
           感激不盡!
tungta
範例已重新寄出
阿南
已收到了!
感謝
Chen
請tungta 大大mail範例給我。謝謝幫忙!感恩!
tungta
範例(細項編號)已寄出
純綠茶
之前我們也調論過這個問題...
我也想要看看這個範例....
請問還來的急嗎??
感恩...
tungta
範例(細項編號)已寄出
純綠茶
已收到...
感恩感恩...
Chen
對不起大家!!我已經登錄兩天了,但是一直無法接到啟用密碼。有一個子表單,欄名有姓名、
檢查次別、血醣值、膽固醇值、血紅素值、三酸甘油值等項目。我想從子表單查詢出:第一次檢查時膽固醇值>250(是不合格的人),第二次檢查已經<220(已經合格了的人)。或是第一次檢查時血紅素值>18(是不合格的人),第二次檢查已經<18(已經合格了的人)。或是第一次檢查時三酸甘油值>160(是不合格的人),第二次檢查已經<160(已經合格了的人)。或是第一次檢查時血醣值>120(是不合格的人),第二次檢查已經<120(已經合格了的人)。請問各位大大這在查詢中或是在表單中可以作嗎?請大家幫幫忙!謝謝大家!!感恩!!
tungta
範例(細項編號)已再寄出,地址是full.high@msa.hinet.net,這篇文章的範例已經有兩三種,如果想要的範例與上一留言不同請說明,你想要做的四種方式設定條件可以做到,但是你沒說明是四種條件在一起或是分開(若是四種條件在一起,篩選範圍變成很小,很可能查不到資料)
alex
tungta大大好..
我alex
我又有新問題了.你的範例出貨日期顯現為[2004/10].....
轉換成[2004年10月].已經沒問題了....但是從2004年11月開始...輸入200411的數字..卻發現1005    Me![請款月份] = Format([請款月份], "######") & "-" & "01" '顯示01錯誤..
並出現下列的對話框****執行階段錯誤'2113'您輸入的值對這個欄位而言不是有效的
是指你的程式只能輸入1~10~月嗎.....如何改善呢....幫幫忙

另外請教一個非資料庫的問題..如何將網址列隱藏..如上面http://www.blueshop.com.tw/Board_5/reply.asp?repno=62180&page=1&PgmType=ACCESS
我只想讓登入的網友看到http://www.blueshop.com.tw/
就好了.......有辦法嗎...
謝謝謝謝謝謝謝謝謝謝謝謝謝謝謝...  
tungta
alex你好,我把範例再執行並無問題,是否有那兒錯誤呢,或者把資料庫寄給我看看
另外網頁的問題我不了解,請其他大大幫忙解答。
梁太太
我也想要範例...謝謝
rwwbm
alex:
Tungta大的範例沒問題,
你可能在"請款月份"驗證規則有Between Date()-15 And Date()+15,才會出現問題.
還有就是要有"請款月份"這個文字方塊
Chen
  tungta 大大!!感謝你的幫忙!感恩!
你的想法果然高明,四種查詢可以分開!!
這樣是比較明白。
我原來的想法是只要四項中的任一項有進步就要查詢出來,
這樣好像比較因難。因為我是菜鳥,不太清楚怎麼做。
能否請  tungta 大大就可行的辦法,教我怎麼做!!!謝謝你!!
tungta
To:梁太太,範例(細項編號)已寄出
tungta
回答Chen:
與你現在一樣,用主子表單的方式,主表單不要有記錄來源,因為主表單專做查詢用,這時你想要的四種檢查才可以同時放在主表單篩選,有兩種方式可以做:
一.大於小於分開篩選
1.主表單上面設“檢查次數、大於小於(組合方塊,用值清單,>與<兩種)、膽固醇值、血紅素值、三酸甘油值、血醣值”6個文字方塊
2.大於小於的預設值(>),膽固醇值、血紅素值、三酸甘油值、血醣值的預設值(0),也就是這幾個欄位因為用在程式運算,不能空白
3.文字方塊的控制項資料來源都空白,事件AfterUpdate設定如下程式,用來篩選子表單:
1001 Me![子表單名稱].Form.Filter = "資料表名稱.膽固醇值" & Me![大於小於] & Me![膽固醇值]
1002 Me![子表單名稱].Requery

二.大於小於區間篩選,程式中設定0~1000,因為檢查的數值不會超過這個範圍
1.主表單上面設“檢查次數、膽固醇值大於、膽固醇值小於、血紅素值大於、血紅素值小於、三酸甘油值大於、三酸甘油值小於、血醣值大於、血醣值小於”9個文字方塊
2.這幾個欄位可以空白
3.文字方塊的控制項資料來源都空白,事件AfterUpdate設定如下程式,用來篩選子表單:
1001 Me![子表單名稱].Form.Filter = "資料表名稱.膽固醇值Between IIf(IsNull([膽固醇值大於]),0, [膽固醇值大於]) And IIf(IsNull([膽固醇值小於]),1000,[膽固醇值小於])"
1002 Me![子表單名稱].Form.FilterOn = True
Chen
感謝tungta大大的熱心幫忙!!教了這麼多的絕招!
讓我試試看,有問題再上來請教您。謝謝您!感恩您!
jine
tungta 您好:
我也想要一份範例,可否也寄一份給我.感恩您.
tungta
範例(細項編號)已寄出
梁太太
不好意思 我沒收到耶...可以再寄一下嗎?!sorry
tungta
To:梁太太,範例(細項編號)已再寄,信箱u897092@thit.edu.tw
阿南
tungta 您好:
     我可以也要一份範例嗎?
        感激不盡!
tungta
範例已寄出
andy
我可不可以也要......
tungta
範例已寄出
alex
我是ALEX,各位大大好:
我又來提新問題了.....
這次我想請問tungta大大
如果上個月沒有收到的貨款...如何在下個月月底結帳時跳出警告訊息欄位
例如:12月30日一到...資料庫視窗便跳出所有11月或10月或之前所有月份未收到的客戶名.帳務金額.欠款月份...等等
這應該是所有寫會計系統的同儕.所共通的問題ㄅ....
sharon
tungta大哥 ,
能否也請您寄 (細項編號) 的範例給我,謝謝
tungta
範例已寄出 
jessica
可否寄一份範例給我, 謝謝分享
tungta
範例(細項編號)已寄出
tungta
TO:ALEX
1.首先必須有一個收款明細資料表,要有一個“是/否”的欄位
2.在收款明細表單中該欄位預設否,若收完款就回到這筆資料將之改為是
3.做一個未收款表單,資料來源的查詢設定──“是/否”設定否;屬性表的跳現式設定是
當系統日期等於每月最後一天時在收款明細表單打開時啟動未收款表單,顯示所有未收款的資料
1001 If Date >= DateAdd("M", 1, DateSerial(Year(Date), Month(Date), 1)) - 1 Then
1002    DoCmd.OpenForm "未收款表單", acNormal, "", "", , acNormal
1003 End If
rayon
我也想要範例,不知還來不來的及?
謝謝啦!!
tungta
範例(細項編號)已寄出
rayon
tungta大大:
對不起,之前沒說清楚,我要的是"出貨單為當天日期+序號共8碼"之範例
而不是"細項編號"範例
可否麻煩大大再寄一次!感恩啊
tungta
無妨,範例已寄出
jessica
可否也給我一份, 單號為日期+流水號的範例. 謝謝
tungta
範例已寄出
藍色鯨魚
我也想要範例n____________n*  拜託了  謝謝~
tungta
範例已寄出
督督
也可以給我範例嗎?謝謝!
alex
TO:tungta大大
我的資料庫在你的指導之下已進入了...開始列印報表的階段了..
但是今天去拿了1箱報表紙卻發現了以下的問題...
我的表單尺寸是寬21*高14cm的...我拿回的報表紙也當然是A5(21*高14cm)..公定尺寸
但是我開始列印後資料總是印成與報表紙垂直...突出報表紙
我設定了版型..印表機列印方向...總是無法令資料轉成90度..以吻合報表紙...
請問有沒有.程式或指令使我的資料傳到印表機時轉個90度.讓他乖乖的印在紙內...
我會另夾帶一張JPG檔案給你看...請指教
tungta
TO督督:範例已寄出
tungta
TO:alex
這種規格的報表是標準的半張A4的連續報表紙,設定略有不同:
1.列印的紙張尺寸要增加設定,如果你電腦的作業系統是XP,打開印表機和傳真,按檔案\伺服器內容,在建立新格式打勾,格式名稱輸入“中一刀”,寬度“21”,高度:“14.7”,按確定
2.印表機設定,選印表機按右鍵選內容,打開一般下面的列印喜好設定,按進階,將紙張大小改為中一刀
3.印表機設定,裝置設定值的引送紙改為中一刀
4.打開這張報表的版面設定,選頁,將紙張大小改為中一刀
linada
tungta大大
我也想要範例,可以寄給我嗎
我的需求是:當天日期6碼+月流水序號3碼
如041226012
謝謝
tungta
範例已寄出,再確認一次:當天日期6碼+月流水序號3碼,就不會是每天從1開始囉
Kaho
tungta大大~

我也想要一份範例說....
可否麻煩您Mail一份?QQ
感恩~
tungta
範例已寄出
小米
這個問題必須分成“分類項目表”與“細項資料表”兩個資料表來處理,分類項目(一個英文字母+一個數字)、細項自動編號(分類項目+三個數字),我做了一個範例(細項資料),請收信。
==========================================================
可否給我這個範例,十分感謝!
tungta
範例已寄出
哇系拍狼
tungta 大大:
我是一個access的新手,也不懂vb,但我看書寫了一些公司用的帳務軟體
可是有粉多問題想請問大大
1.我想要在表單中打入客戶代號後,就會自動出現資料表中已打入的客戶名稱
   及電話,地址等訊息
例:在客戶名稱中打入001,在此格即出現客戶名稱"甲甲甲"
    並出現此位客戶的編號  例:001-940101001
    (001是客戶代號,後面是日期加001,002....一直遞增)(002-940101001等)

2.我在表單中才有加減乘除的計算,那如要查詢合計或已請款等要如何設定啊
     (我設查詢,不會設條件,所以每次全部不管已請款或未請款都會出現)

如果大大有範本那就更好了,先謝謝大大了
tungta
第一個問題:只要在表單的記錄來源把相關的資料表關聯進去(做成查詢的型式)就能一起顯示
第二個問題:只說明這樣無法幫你,如果你已有做出資料庫了就寄過來看
哇系拍狼
tungta 大大
哇系拍狼已寄mail給你二天了,請問你有收到嗎
tungta
昨天已回信(好像不是這個信箱),回答內容如下:

有幾個問題你必須先做處理:
1.工具\選項\一般,將“關閉資料庫時壓縮”打勾,按“確定”,否則資料庫會愈來愈大
2.你表單的記錄來源都只是單一資料表,當然無法顯示其他資料表的資料,既然你會做查詢,那麼表單的記錄來源就是用這種方式(使用查詢或sql查詢)
3.做資料庫的用意就是相同的資料永遠只有一份,相同的欄位除了做關聯用途之外也不要重複(除非有特殊用途),不然就失去資料庫的意義,相同的資料只有一份再經與其他資料表做關聯,當更動某一欄位資料時,就能產生連動
4.以"員工"與"員工薪資xx"這兩個資料表而言,員工名稱、職稱欄位就沒有必要重複,用員工代號欄位做為這兩個資料表的關聯欄位,在資料庫關聯圖中做好連線,自然就能取用資料,沒有導正觀念,以後類似的情形會一再出現
5."員工"資料表,員工代號是不會重複的就可以做為主索引,沒有必要再增加一欄員工編號
6.要我幫你解決問題,一定要說明清楚是那一個表單或那一個欄位,因為你的資料表不是我建立的,模糊的問題令人無從下手
7.我也是從新手走過來的,雖然我所知也不多,但互相幫忙是沒有問題的
alex
我是ALEX,各位大大好:
我又來提新問題了.....
這次我想請問tungta大大
我的出貨母單及出貨子表單是以出貨單號相連接而成的表單模式
每當我新增出貨母單時都會在出貨子表單自動產生出貨單號....而且我有在出貨母單底下設一個刪除的按鈕.但電腦往往只會刪除出貨母單的紀錄.而不會連帶刪除出貨子表單的紀錄
.請問要如何以程式寫成當出貨單母的出貨單號以刪除時...連帶刪除相同單號的出貨子單紀錄
.....感激萬分........ :)
tungta
http://www.blueshop.com.tw/board_5/show.asp?repno=57603&page=5&PgmType=ACCESS
把這篇主題後半部看看,你就知道怎麼做了,自己嘗試一下,若還有問題,再把資料庫寄給我改。
菲爾
正好有人問這個問題
我試了很久都用不出來
不知道是哪裡出錯
可以寄範例給我嗎
感激不盡 謝謝
peter
me too,3Q!
tungta
TO Alex:你的資料庫沒有設計庫存計算,沒有這個問題,刪除主表單時一起刪除子表單資料就很容易,如同菲爾的主題上面幾位前輩說的方法,只要在資料庫關聯圖將關聯線連接就可以了
TO菲爾:如果幾位前輩說的方法不能解決你的問題,我判斷你的子表單應是另有連接其他資料表,否則是可以一起刪除的,但是這個方式如果牽涉到庫存量的問題就不能用了,必須用另外的方法,在下面這個主題我有談過這個方法,但看起來沒有其他人需要,所以還沒有想到做範例,你可以參考自行試做一下,若還是不行,就把資料庫寄給我
http://www.blueshop.com.tw/board_5/show.asp?repno=57603&page=5&PgmType=ACCESS
tpemv13
謝謝!可以也寄一份單號為日期+流水號的範例給我嗎?
tungta
範例已寄出
Jrpeng
我可否要一份日期+自動編號 的範例呢?
謝謝
tungta
請貼上e-mail
Jrpeng
jrpeng@ms93.url.com.tw
謝謝
tungta
範例已寄出
Ray
在表單的流水號欄位的「預設值」屬性填入=IIf(IsNull(DMax("[流水號]","訂單資料表")),Year(Now())-1911 & Format(Now(),"mmdd") & '0001',IIf(Left$(DMax("[流水號]","訂單資料表"),6)=Year(Now())-1911 & Format(Now(),"mmdd"),DMax("[流水號]","訂單資料表")+1,Year(Now())-1911 & Format(Now(),"mmdd") & '0001'))
lkk
tungta 大大
新手上路 ; 可否要一份日期+自動編號 的範例呢?研究
延伸問題如果想要成從同一筆記錄做多張紙張輸出且在每張上印出自動序號不知是否幫忙解決

產品代號+輸出張數序號 Like: A023001 A023002 A023003 . . . . .

So I have two fields ProdID & StartNo 預設值為1

曾試過[ProdID]&[StartNo]+[Pages] in report 但是結果都是一樣無法自動跳號...

Please Help me. 

謝謝
tungta
1.需要範例請貼上e-mail
2.也是範例:自桂思強老師的範例"一筆記錄做多張紙張輸出"增加自動跳號
lkk
anitai@aptg.net
Thanks
tungta
範例已寄出
lkk
Thanks,
ETking
如果您的問題已經獲得解答,請參閱以下方式關閉討論串。

http://www.blueshop.com.tw/QA/closediscussion.doc
lkk
THANKS TUNGTA
alex
to:tungta大大
我是alex........我又來嘞...
這是我想發問的是...我的出貨單中有(出貨單號)及(請款月份)二攔
到月底時我並需手動在請款單(請款月份)欄位中打入如200504字眼
才會產生一張(請款單號為)200504-01的請款單
重點來嘞....如何使系統自動於每月20日.25日.30日去抓取出貨單(請款月份)...並自動為這個客戶產生請款單
並發出訊息對話框...提醒我向這個客戶請款嘞

ps.每個客戶的請款日都不同(有每月20日.25日.30日)3種

.......感激不盡
tungta
寄給你一個"日期提示"範例做參考,範例只是簡單的日期提示,如果是要依個別客戶做設定,就在客戶資料登錄增加一欄"請款日"欄位做依據就可以了,至於自動產生請款單的前提是要建好請款單資料,要產生請款報表是很容易的
longlife00
有的人請寄給我好嗎 longlife00@yahoo.com.tw 感激不盡~ 目前正非常需要中~!!
tungta
範例已寄出
LinLin
我也想要範例...請寄給我,非常謝謝!^!^yu_lin188@yahoo.com.tw
tungta
範例已寄出
neko
我也想要範例..可email給我嗎??...感溫ㄚ.....
tungta
請貼上e-mail
linkey
請tungta兄也給小弟一個範例 謝謝
小弟e-mail:codi430@yahoo.com.tw
tungta
範例已寄出
linkey
收到
謝謝
Audia
也想要範例..可email給我嗎??...感溫ㄚ.....
audia.wu@518fb.com
tungta
範例已寄出
Audia
收到了,謝謝!!!
joy
我也要,joy@nanotechsemi.com.tw,
我想請問,若我是需要
2005 T - xxx
---- - ---
年份 部門代碼 流水號
這樣可以嗎?
tungta
依照你的需求做了範例,請收信。
阿桂
也想要範例..可email給我嗎??...
kuei8409007@yahoo.com.tw
tungta
範例已寄出
helen
也想要範例..可email給我嗎??...
helen@seed.net.tw
THKS
tungta
範例已寄出
Jones
果然是高手啊!利害..........也給我一份吧! 3Q.....^^

clim.tw@yahoo.com.tw
tungta
範例已寄出
Jones
tungta大大......小弟不才,參考過您的範例後使用,卻發生怪怪的事.......但每次進去輸入完流水號都不會跳01都從02開始跳號,奇怪的是再輸入一筆,卻正常的跳03真是..............百思不得其解! 不知您有何解決辦法............麻煩您幫個忙。
或者我可以將我的DB檔E給你看看 可以嗎...
Jones
tungta大大......小弟不才,參考過您的範例後使用,卻發生怪怪的事.......但每次進去輸入完流水號都不會跳01都從02開始跳號,奇怪的是再輸入一筆,卻正常的跳03真是..............百思不得其解! 不知您有何解決辦法............麻煩您幫個忙。感恩!
或者我可以將我的DB檔E給你看看 可以嗎...
tungta
請寄過來:lin27850016@yahoo.com.tw
tungta
TO:Jones
已回信,請收信
小如
我也想要範例~~我要的是94060001~~94年~06月~0001資料順序
irene741001@yahoo.com.tw
tungta
範例已寄出
Ehunt
tungta:
請問有沒有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.
Ehunt
我也需要範例,能否也寄份給我呢?weision2002@yahoo.com.tw
tungta
範例已寄出
Ehunt
謝謝你熱心的幫忙!
西奧
這裡提供另一個作法。
只要底下這段程式。(當然會有一個出貨單的資料表(出貨單主表),一個裡面的出貨單號。就這樣子。

小熊
我也想要範例...正在做專題的痛苦學生
landes27@yahoo.com.tw
tungta
範例已寄出
小熊
不好意思...能否重寄...有可能誤刪了
請問寄件者名稱是什麼?
tungta
範例已重寄,寄件者名稱:詹遂願
wesley
我也需要範例,能否也寄份給我呢? wesleyahan@gmail.com
tungta
範例已寄出
tungta
gmail.com的信箱有點問題----被退件,請問有沒有其他信箱?
wesley
麻煩你了,請寄到wesayh@yahoo.co.uk
tungta
範例已寄出
丫蔡
我可以給你要範例嗎~? 謝謝你的大恩大德 麻煩你幫我寄到 pei1984o@yahoo.com.tw thanks
tungta
範例已寄出
丫蔡
對不起…我沒收到你寄來的範例。可以再麻煩你寄一下嗎~? 真是謝謝你了。我給你我另一個帳號。namie1992@hotmail.com 不好意思 麻煩你了。辛苦了。謝謝
tungta
範例再寄出
丫蔡
謝謝你,我收到了。我會好好利用的 謝謝。
zoe
我也想要一份範例說....
可否麻煩您Mail一份?
zoelu_02@yahoo.com.tw
謝謝您的分享~
tungta
範例已寄出
小心滑倒
可不可以也寄一份範例給我參考 感恩!!
出貨單編號:"日期+流水號"
Email:kao.yi@msa.hinet.net
tungta
範例已寄出
小南
to:tungta大大
不知還能不能跟您要這種的範例?
->2005 T - xxx
---- - ---
年份 部門代碼 流水號
謝謝您~ ssunan.tw@msa.hinet.net
tungta
範例已寄出
ming
可不可以也寄一份範例給我參考 感恩!!
tungta
請貼上e-mail,並說明須要何種範例?(因為這裡有好些人問過,所以範例有好幾種)
anson
天啊~~世上怎有EQ如此高之人~~您實在太高深莫測啦!!anson09030102@yahoo.com.tw 麻煩您也寄一份給我!!THX
tungta
TO:anson
範例已寄出(出貨單號(以日開始)-西元)
evan
出貨單號欄位自動填入當天日期6碼+自動序號2碼...我也有相同問題耶~可不可以也寄一份範例給我參考~謝謝
evan
剛忘了留E-MAIL : angelsp@anet.net.tw ~~謝謝!
tungta
範例已寄出
SANDY
我也想要一份範例耶~不好意思~麻煩了~謝謝喔~~
編號:"英文字母+日期+流水號"
e-mail: garfi1980@yahoo.com.tw
tungta
範例已寄出
請問tungta大大,BeforeInsert是使用者在新的記錄中鍵入第一個字元時觸發,可否說明這個範例為何要使用表單的BeforeInsert事件來抓取完整的比對值呢?謝謝。
tungta
使用表單BeforeInsert事件的用意就是讓輸入資料的人馬上可以看到自動產生的編號,範例只是顯示出貨單單號,相同的也可以用來做每筆資料的自動編號。
HCW
不曉得可不可以也寄給我和小惟一樣…
應用在公文上,收文號碼001的編法在Access裡是自動編號已達070了!
因為要95年了!怎麼可以在95年時編號成 001 做為開始?

需要改資料庫的資料型態嗎?
還是只要寫程式就可以了?

或者可以麻煩請寄範例嗎?不好意思…
我的mail:4167@cwlf.org.tw
tungta
範例已寄出
飛豬炸彈
現在才看到這麼棒的東西,tungta大大,我也想要,拜託您 ~>__<~
我的e-mail是skuld@mhit.url.com.tw
tungta
範例已寄出
sean
我也想要範例.出貨單單號如何變成前6碼日期+後2碼自動編寫..正在學習ACCESS的笨蛋,
changsean@hotmail.com
tungta
範例已寄出
sean
tungta大大:已經收到了,我是access新生,想請問"最後出貨單號查詢"如何製作?我只收到表單,其他資料表及查詢沒看見,是否遺漏,請告知指點疑惑!感謝!感謝!
tungta
在物件中就有啊,看來你真的是新手,在工具列──工具\啟動,我把資料庫視窗的打勾取消,所以資料庫打開時資料庫視窗不會出現,在工具列第二排從右邊算起第三個(三個方塊疊在一起),將之按下,資料庫視窗就會出現
sean
感恩!
陪錢貨
我也需要範例謝謝

fdlintw@yahoo.com.tw
tungta
範例已寄出
sean
tungta大大:研究此範例發覺填入第二筆出貨數量時,出貨單號碼沒有反應,請問是何原因?為何不接序跳號?
tungta
我看過範例沒問題,你這個情形在桌面有出現什麼提示訊息嗎?
sean
很抱歉!填入第二筆出貨數量時,出貨單號碼沒有反應,按數次enter鍵後,跳出下列示訊:

執行階段錯誤'3022'
您要求變更資料表,由於會對索引、主索引鍵或關連產生重複的值所以不會成功變更欄位的資料或變更那些或包含著重複的資料欄位、移除索引或重新定義索引以允許重複索引值,然後再試一次。
tungta
只有可能是Office的版本不同,我是用Office XP sp3,或者你把範例再寄回給我看
sean
謝謝!已經寄回去了!
金毛
tungta大大
小弟也需要範例,謝謝!
goldenmo615@yahoo.com.tw
tungta
範例沒問題,你的Office的版本是什麼呢?
tungta
To金毛:範例已寄出
櫻桃巧克力
出貨單單號如何變成前6碼日期+後2碼自動編寫....
我也想要這個範例,可以請各位大大幫幫忙
謝謝
n9
tungta
是否也可以跟您要範例啊??
謝謝您!!
n9.xx@msa.hinet.net
tungta
To n9:範例已寄出

To 櫻桃巧克力:請貼上e-mail
櫻桃巧克力
對不起,我忘了秀mail
mail:cherry2562@yahoo.com.tw
麻煩請各位大大,將範例寄給我
謝謝
tungta
範例已寄出
MYYW
tungta
新手上路,是否也可以跟您要範例啊??
謝謝您!!
cashmere_cn@hotmail.com
tungta
範例已寄出
ming
是否也可以跟您要範例啊??
謝謝您!
cm56kimo@yahoo.com
ming
是否也可以跟您要範例啊??
謝謝您!
cm56kimo@yahoo.com.tw
tungta
範例已寄出
tungta
信件被退回,請問信箱正確嗎?
lethal
可以麻煩也寄一份範例給我嗎?謝謝
lethal@ms28.url.com.tw
tungta
範例已寄出
o_osandy
本人也想要一份範例~~ 可以麻煩你寄一份給我嗎?謝謝你~
o_osandy@yahoo.com.hk
worm
可以寄一份範例給我嗎?謝謝!!
yamin.g68529@msa.hinet.net
o_osandy
p.s. 本人想在自動編號前加英文字的... (eg. A-06001)
真的麻煩你了...
tungta
TO worm:範例已寄出
TO o_osandy:請說明自動編號結構(eg. "A"+"-"+"2位數年"+"流水號"),"月"&"日"不要嗎?
ming
可以麻煩也寄一份範例給我嗎?謝謝
mi.mi567@msa.hinet.net
tungta
TO ming:範例已寄出
o_osandy
對不起~~
我想要它的結構為("A"+"-"+"2位年份"+"流水號"),"月"&"日"不要...
麻煩你了..

P.S. 但我也想知道有"月"&"日"的作法為何~ 可否2樣範例也寄給我??
tungta
兩個範例已寄出,結構雷同,除了語法的月日差別之外,查詢的做法也不同
鳥鳥
tungta大大您好~
可否也寄份範例給小弟參考一下呢?
bird5466.tw@yahoo.com.tw
感謝您了~
tungta
範例已寄出
獵人
tungta大大你好!
我找了好久看到你的這篇回應,等於是看到救星
不知你是否可以把相關的範例寄給我好嗎?
謝謝!
ufocnet@ms12.hinet.net
感謝大大!
tungta
範例已寄出
athena33069
我也需要範例謝謝
athena33069@yahoo.com.tw
athena33069
我也需要範例謝謝
athena33069@yahoo.com.tw
tungta
範例已寄出
mick
辛苦tungta大了
請mail我這個範例


2005 T - xxx
---- - ---
年份 部門代碼 流水號

謝謝
tungta
請貼上e-mail
may
可以給我一份ㄇ
謝 謝
tungta
請貼上e-mail
mick
不好意思喔 請mail我ㄧ份

zarven13@hotmail.com 謝謝啦
tungta
TO mick:範例已寄出
TO may:請貼上e-mail
Cynthia
我也需要範例謝謝
cynthia@ms51.url.com.tw
tungta
範例已寄出
小宏
可以給我一個範例嗎?

heroboyhung@yahoo.com.tw
tungta
範例已寄出
mick
To tungta大:

sorry, 我沒收到說 ,可否請你再寄一次, 感激呀~~

zarven13@hotmail.com
tungta
範例再寄出
hihiair
hihi! 請問可以寄一份範例給我嗎? 我這邊也設定不出耶...不知道是那邊弄錯了

我想要做出 字母+日期+2位序號 的編號功能,例如 S2006032301 這樣,可以麻煩你嗎? 謝謝

我的mail: hihicat1207@yahoo.com.tw

再次感謝!!!
tungta
範例已寄出
cookeyholder
你好:

請問可以寄範例給我嗎,我最近就在想怎麼產生這樣的編號。
我想弄出「民國年+5位序號」及「日期+3位序號」的功能,例如:9500001 及 20060406001 這樣。

我的信箱是 cookeyholder@gmail.com

非常感謝你!
tungta
兩個範例已寄出
哇系拍狼
tungta大大:
好久沒上線問問題了,上次非常感謝你的範本,因為不熟access所以弄了很久,現在我又發現了一個問題,就是如果我在出貨單號前面加入客戶代號,變成001-95040001的型式,這樣是不是就可以將每家客戶的帳款區分出來,在列表時就可分開列,但是你之前給我的範本只有95040001而已,我看你的語法又看不懂,也改不了,可以再跟你請教如何製作嗎? 3QQ~~
我的mail:s27819164@yahoo.com.tw
tungta
To:哇系拍狼,依照需求的範例已寄出
哇系拍狼
tungta大大:
已經收到你的範例了,非常感恩耶,而且效率真的好快哦,請問你是老師嗎,怎麼這麼利害,如果是老師可以教我access嗎,要找到懂的很少耶~~,還是非常感謝您.
tungta
謝謝,我不是老師,小舖這兒的前輩高手很多,我在這兒也學了不少,教學相長嘛,互相學習
哇系拍狼
tungta大大:
可以再請問一下,之前我做子表單時,要是遇到輸入的客戶名稱相同,則會出現打第二筆時會取代掉第一筆,我想知道如何讓子表單會隨著每一筆資料更換(即子表單與主表單的聯結注意事項),另我試著要修改你給我的範本中的欄位名稱,進入事項中要修改,可是都會出現錯誤耶,不知如何才能更改欄位名稱?
以上請幫忙解答,還有公司最近需要做產品數量控管,一個產品需要很多零件,請問如何可使某一產品的型號輸入出貨數量後,即可自動扣除相關的零件數量?? 3QQQ
tungta
第一個問題:子表單與主表單的聯結問題,只要兩者有相關聯的欄位即可分別,其他的可能要看資料庫才能知道問題所在
第二個問題:寄給你一個範例"物料變動後更新庫存"做參考
sean
tungta大大:在出貨單單號如何變成..........碼自動編寫,小弟也有問題請教,想將客戶專屬號碼直接keyin貨單單號欄位內,而不影響貨單號碼自動編寫,不知如何做?
哇系拍狼
tungta大大:
我已MAIL我做的檔案及問題圖解給你了,請幫忙解答,3QQQ
另謝謝你的範例"物料變動後更新庫存",我會再試試,呵,感恩啊
tungta
是不是這樣:
Private Sub Form_BeforeInsert(Cancel As Integer)
1001 Z = DLookup("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#")
1002 If IsNull(Z) = False Then '若出貨單號之最大值有記錄
1003 Me![出貨單號] = Me![客戶專屬號碼] & Format([鍵檔日期], "yymmdd") & _
Format(Right(DMax("出貨單號", "最後出貨單號查詢", "鍵檔日期 =#" & Me![鍵檔日期] & "#"), 2) + 1, "00") '加1後顯示
1004 Else '若出貨單號之最大值沒有記錄
1005 Me![出貨單號] = Me![客戶專屬號碼] & Format([鍵檔日期], "yymmdd") & "01" '顯示01
1006 End If
End Sub
sean
tungta大大:樓上的語法,好像是給我的吧?是否可以移駕至我開的討論區:手鍵數值變成後續自動編號?
謝謝!
珍珠
你好唷....我也想要範例,可以麻煩你寄給我嗎??
kellysfan@yahoo.com.tw
謝謝謝謝唷!!!!
tungta
範例已寄出
小真
我也想要範例,找好久了,謝謝
小真
忘記寫上信箱了
我的信箱:lee.hlc@gmail.com
tungta
To 小真:範例已寄出

藉版面回答sean:我已回兩次信,也寄回資料庫,可能是e-mail的問題沒收到,你的問題解決方法如下:
這樣就不是篩選"ON TIME"欄位了,是要篩選"PLACE AN ORDER"欄位,並且條件不是設0,而是設-1即可
gump
TO:tungta
煩請mail範例給小弟一份.TKS!!

mail:gumpwong@mail.daphne.com.cn
tungta
範例已寄出
gump
TKS.Tungta
我是初學者,而且是在簡體下使用,因此您的範例我看了還是沒搞定.

方不方便我把Access MAIL 給您.煩請幫我查看一下.

1\我的目的是想在資料表"Sale List"的日期流水號中增加以當期日期(YYYYMMDD)+順序號(000X)的流水號.
2\因每天增加記錄較多,增加記錄是在表單"Sale List"中從EXCEL中直接拷入;
TKS
tungta
簡體與繁體不能融合,恐怕我也無法搞定,不過可以寄來看看:lin27850016@yahoo.com.tw
tungta
資料庫寄回,用你的表單是有問題,也不知道是否簡繁體的關係,但是語法是正確的,因為我用表單精靈重做了一張表單,運作沒有問題,但是此表單建檔之前還有許多關聯在前的資料必須先行建檔,所以我把語法生成的位置改在表單的BeforeInsert事件,並將日期欄位設定預設值為Date()
gump
TKS!
我參考您改好的試一下.
gump
我在繁體下使用您改好的範例.和我之前是一樣的問題.
具體如下:


我每天要通過表單從EXCEL中拷入的資料有很多.現在的流水號是不管多少筆記錄他最後的都是0001開始.日期是能更新的.不能自動遞增.煩請幫忙再看一下.TKS
tungta
此表單建檔之前還有許多關聯在前的資料必須先行建檔,所以我將這個資料表的關聯線都刪除(也就是說讓資料表獨立出來),再檢查我做的表單是確定能夠遞增流水號的,至於要從EXCEL中拷入資料,就必須配合語法,否則光是拷入資料,流水號是無法遞增的,因為從EXCEL中拷入資料,是直接進入資料表,並沒經過表單,而遞增流水號的語法卻是做在表單
ming
TO:tungta
煩請mail範例給小弟一份.TKS!
cm56kimo@yahoo.com.tw
tungta
範例已寄出
kty
大大..是否能給的範例...感恩 ~~

perfect.love@yahoo.com.tw
tungta
範例已寄出
Kevin To
我很貪心, 我也要一份.....
感謝!!

ksto@i-cable.com
tungta
範例已寄出
archfiend
不好意思大大,麻煩你也寄一份給我.謝謝!
36504@yahoo.com.tw
感恩丫~~~
tungta
範例已寄出
花柚子
TO:tungta 大大....
煩請mail範例給小弟一份.TKS!
jck6023@yahoo.com.tw
tungta
範例已寄出
Jessica
TO:tungta 大大你好:
我在工作上ㄝ有遇到這個問題.請大大ㄝ可以寄給我嗎?
h4397789@yahoo.com.tw

在這先謝謝你ㄌ.........

tungta
範例已寄出
Jim
TO:tungta 大大你好:
我已經研究了幾個月也沒有頭緒, 請大大可以把範例寄給我嗎?
tungta
請貼上e-mail
Jim
TO:tungta 大大你好:
我已經研究了幾個月也沒有頭緒, 請大大可以把範例寄給我嗎?


SORRY! 忘記貼 e-mail : jimleung0808@yahoo.com.hk
tungta
範例已寄出
TO:tungta 大大你好:
因為剛入門,而且已經研究了幾個月也沒有找到方法,
可否請大大可以把範例寄給我嗎?
E-mail:nckustockgp@yahoo.com.tw
tungta
範例已寄出
MYYW
收到你的資料已解決按日期自動編號的問題。由衷的感謝!
現有新的問題請大大幫忙:(我的VB知識實在是菜。)
原來的單號格式是200603260001 20060326002--------
200603270001 200603270002--------
新的問題是這樣的:
我要做這樣的單號:字母+年份+四位的流水號,主要的是流水號在一年之中是依次疊加的.下一年的時候又從字母+年份+四位元的流水號(0001開始).請多多幫忙,不勝感激.
EMAIL:cashmere_cn@hotmail.com
tungta
範例已寄出
MYYW
你好,我的電郵沒能收到範例,麻煩你再寄一次可以嗎。多謝了。
Mial: cashmere_cn@hotmail.com
Knitting_cn@yahoo.com.cn
tungta
範例已寄出
MYYW
多謝!範例已收到。正在測試。
MYYW
tungta ,你好!我是myyw,範例中自動單號的代碼應該是以下這一段吧,我將表單中只保留(出貨日期:)(出貨數量:)(出貨單號:),其他項目全部刪除進行測試,能顯示第一筆的單號如:A20060001,但再輸入第二筆資料時單號不增加了,依舊是A20060001,請指教是什麼原因,多謝了!!(應該不是刪除項目的原因吧,還有就是我在代碼中也只保留以下的這一段)
Private Sub Form_BeforeInsert(Cancel As Integer)
myyw = DLookup("出貨單號之最大值", "最後出貨單號查詢", "出貨日期1 ='" & Format(Me![出貨日期], "yyyy") & "'")
If IsNull(myyw) = False Then '若出貨單號之每月最大值有謳錄
Me![出貨單號] = "A" & Format([出貨日期], "yyyy") & Format(Right(DMax("出貨單號之最大值", "最後出貨單號查詢", "出貨日期1 ='" & Format(Me![出貨日期], "yyyy") & "'"), 4) + 1, "0000") '加1後顯示
Else '若出貨單號之每月最大值沒有謳錄
Me![出貨單號] = "A" & Format([出貨日期], "yyyy") & "0001" '顯示0001
End If
End Sub
danny
可以麻煩tungta大大也mail 範例給我參考嗎?謝謝 bspcmail@gmail.com
tungta
範例已寄出
tungta
To:myyw
範例已改好再寄出了,原因是我沒試好,因為原來的範例是以年份兩位數設計,現在要取四位數,包括語法與查詢都要更改
小刀
可不可以麻煩您,我也需要範例 kenny.yao@gmail.com
[請勿用壓縮檔,gmail會擋掉] 謝謝


1. 西元日期6位+3位自動編號
2. 民國日期0950101 7位+3位自動編號 [民國年取3碼]

謝謝謝謝
tungta
兩個範例已寄出
巴拉松
tungta大大:
麻煩請也寄給我年月+4位自動編號的範例。EX:95060001

mail:how117@yahoo.com.tw

我想把他結合到網頁上,但是一直想不出ACCESS編號如何設定

感恩
tungta
範例已寄出
Jim
大大你寄給我的範例有 bugs 啊! 為什麼有時候會 +1 有時候不加1, 比如 2006/07/01, 轉為 06070101, 但再輸入第2筆資料時就不會改為 06070102.

tungta
範例再寄一次給你,有問題請來信
Jim
謝謝 jimleung0808@yahoo.com.hk
Jim
tungta大大:

我還沒有收到, 能再發一次可以嗎?

jimleung0808@yahoo.com.hk
tungta
範例已寄出
Jim
tungta 大大,

真的不行呢, 不知道是什麼原因, 日期如果是2006/07/01時, 當產生 06070101之後, 第2次再輸入同1個日期時, 就不會是 06070101 "+1" 了
tungta
請把輸入資料的過程詳述一下,我看看是哪兒的問題
Jim
當輸日期資料後, 理應會自動會產生 "YYMMDD"+"01", 但平常是沒問題的, 但當輸入2006/07/1 ~ 2006/07/06 及 2006/07/08 ~ 2006/07/12 就不會加 1, 其他的都好正常
tungta
我怎麼試都沒問題,請把檔案拿到另一台電腦試試
Jim
大大, 我試過用另一台電腦開居然一點問題都沒有, 到底發生了什麼事呢?
tungta
看看是否Office版本的問題
Jim
也看過了, 2台也是 office 2003 sp2, 真的莫名其妙...?!
Jim
大大, 我花了好幾天的時間終於解決了, 原來是我的 WINDOWS 與 ACCESS 的時間顯示設定不一致
Vanessa
可不可以也寄一份單號為日期+流水號的範例給我好嗎?謝謝!
我目前在研究的是,利用"出生年月日"來加上2位流水號,所以不是取最大值,而是輸入一個出生日期欄位後,再加上流水號。
也是研究好久...

Vanessa
Mail:jonina0317@gmail.com
tungta
這也是取最大值,只是以日期做範圍,不然總不能同年同月同日生日的流水號也一樣吧,範例已寄出
et
大大可不可以把範例都寄給我嗎?
萬分感謝~
tungta
請貼上e-mail
et
tungta大大~
可否把6碼日期+後2碼的範例寄給我~
萬分感激~
tungta
沒有e-mail無法寄出
et
siamthat@yahoo.com.tw
tungta
範例已寄出
et
收到囉~
十分感謝tungta 大大的範例~
大大...
能不能也寄一份給我,目前正需要這個功能..
evan167@gmail.com
tungta
範例已寄出
小老頭
Dear TungTa,
再麻煩你,也希望取得此程式參考,Thanks a lot !
supingwa@hotmail.com
tungta
範例已寄出
小強
我也想要範例...謝謝

james@cgc-cgc.com.tw
tungta
範例已寄出
烤丸
我也要一份範例,謝謝
ysyfs21@21cn.com
tungta
範例已寄出
烤丸
怎麽我找不到DMax這個函數呢?請問要在什麽模式下才可以調用這個函數,請詳細說一下好嗎,我很少用access的,謝謝
烤丸
請問一下,我在access中設置了,也能正確輸出了,但是離開了窗體模式,就不能自動獲得單號了,各位大大,應該怎麽解決呢?
tungta
這種方式當然必須在表單中執行才能運算,你所謂不能自動獲得單號是什麼情況?
烤丸
我用vb.net加上access編寫程序,有訂單需要流水單號,暫時是需要公司的擡頭還有六位的自動遞增的號碼,我想每增加一條資料就自己生成一個單號
tungta
在Access是沒問題的,這個問題建議你到VB.NET的討論區發問比較快獲得解答
烤丸
因爲我是想在相關字段的默認值裏面設置一個表達式,但是那裏卻找不到DMax這個函數,就是想問一下,能不能在access裏面設置的就可以,似乎必須DMax才能判定某個字段的最大值,謝謝了
LOCUST
我是刚学vb的,请发份日期+流水号的范例,先谢谢了42111@163.com
tungta
範例已寄出
JONNA
tungta大大 可以麻煩你也給我一份範例嗎~ 謝謝你 take.easy@msa.hinet.net
tungta
範例已寄出
小 雄
我可以也要一份範例嗎
剛被這個問題困擾...
hch98kimo@yahoo.com.tw
tungta
範例已寄出
Mia
我也想要一份範例...感恩~謝謝^^
Mia
我也想要一份範例...感恩~謝謝^^
B9109010@mail.ntust.edu.tw
tungta
範例已寄出
tungta
大大您好!可否跟您要出貨單單號如何變成前6碼日期+後2碼自動編寫....
之範例!

我的媚兒是:smallung44@gmail.com
或:smallung44@yahoo.com.tw
tungta
範例已寄出
Kevin To
此範例畢生受用, 我也要一份, 謝謝!!!

kevinksto@yahoo.com.hk
tungta
範例已寄出
小蘋
tungta大大好..
可以寄一份範例給我嗎???謝謝

ruruans.r0119@msa.hinet.net
tungta
範例已寄出
TAKESHI
tungta大大.
我目前也是遇到類似狀況,也可以寄給我一份範例嗎?感激..
k4209@ms32.url.com.tw
tungta
範例已寄出
cindy
我也需要範例,能否也寄份給我呢?
謝謝
cindy
我也需要範例,能否也寄份給我呢?
謝謝
剛我忘了留mail
cindy.cheng@yahoo.com.tw
tungta
範例已寄出
tungta
To:cindy
範例寄了兩次都被退回,請確認e-mail是否正確!
cindy
不好意思,我留錯了,
cindy.cheng@mail.adgroup.com.tw

麻煩你再寄一次喔,謝謝
tungta
範例已寄出
林文志
不好意思,請問各位大大:
在下的問題類似主題但格式不同,問題如是
例:XX年月日001(AA0951112)
1.xx是固定文字,如AA。 2.年月日,自動抓取系統日期。格式為民國(例:0951112) 3.後三碼為自動編號,且會因會不同日期而重新由001開始自動編號(在下卡在這)
即換一天後,後三碼自動編號會重新開始算。
如果不好說明,繁請mail給在下
sintanj001@yahoo.com.tw
tungta
範例已寄出
ging_fon
tungta 大大
幸苦了,我想要此範例,謝謝!
daniel_hsiao@apitech.com.tw
tungta
範例已寄出
may
我想要此範例,謝謝!
mays@ms85.url.com.tw
tungta
範例已寄出
阿晟
我也想要此範例,希望還來得及。
ojoojo2004@yahoo.com.tw
謝謝!!!
tungta
範例已寄出
song
這個問題必須分成“分類項目表”與“細項資料表”兩個資料表來處理,分類項目(一個英文字母+一個數字)、細項自動編號(分類項目+三個數字),我做了一個範例(細項資料),請收信。

===========================
tungta 大大:
想要此範例(分類細項自動編號),謝謝!!
song
對不起,太急了!忘了給信箱:
b0446_song@yahoo.com.tw
tungta
範例已寄出
Baryl
你好 ! 我可以跟你也要這個範例嗎?
Baryl
您好! 可以也寄一份範例給我嗎 pinjen_huang@yahoo.com.tw
tungta
範例已寄出
inmost
您好,可否也寄給我。先謝謝您,不勝感激。mysonleolee@hotmail.com
tungta
範例已寄出
tungta
很抱歉,信件被退回
晨維

我也要範例謝謝19781013@GIGA.NET.TW
tungta
範例已寄出
Lizard
可否寄範例給我?謝謝! kyli@ejars.net
tungta
範例已寄出
stan
可否寄範例給我?謝謝! ohstan2145@gmail.com
stan
tungta 大大
抱歉忘了說需要哪兩種
1. 西元日期6位+3位自動編號
2. 民國日期0950101 7位+3位自動編號 [民國年取3碼]
謝謝! ohstan2145@gmail.com
tungta
範例已寄出
King
可否寄範例給我?謝謝! tzc4@ms6.hinet.net
King
可否寄範例給我?謝謝! tzc4@ms6.hinet.net
tungta
範例已寄出
超人
小弟也正好需要呢~~
可否寄範例給我?謝謝! superjen@ms25.hinet.net
tungta
範例已寄出
Stanley
tungta大大,小弟也有這個需求,是否可以和您要範例呢??感激不盡^^
小弟的mail是lmru@so-net.net.tw
tungta
範例已寄出
春風桑
tungta大大你好.看了你的解說.實際練習一下,還是出現問題.想和您要範例練習一下.謝謝你的指導.
小弟的mail是eddie.ck1106@msa.hinet.net
再次感謝.
春風桑
tungta大大你好.看了你的解說.實際練習一下,還是出現問題.想和您要範例練習一下.謝謝你的指導.
小弟的mail是eddie.ck1106@msa.hinet.net
再次感謝.
tungta
範例已寄出
春風桑
tungta大大謝謝收到了.簡單易懂..比書上教的更簡化又可以完成目標,,謝謝
附上的檔案又可以學到表單最大化.一舉數得.
春風桑
tungta大大安安:
我又想教一個問題,上次的範例是yy年mm月dd日再加二碼.可以修改為20070101001..yyyymmdd再加三碼.
我試著修改為yyyymm+三碼編號.結果不行.又試著要改為yyyymm-A1-001..一直作錯.
不知你是否有範例供我學習.謝謝
小弟的mail是eddie.ck1106@msa.hinet.net
再次感謝你的幫忙
tungta
給你一個以月開始編號的範例參考
春風桑
tungta大大安安:
謝謝..己經收到了.終於明白了..也學會如果修改..
再次感謝大大辛苦.先祝新春快樂.行大運
rimi
tungta大大您好,日前正為出貨單編號如何做日期加流水號苦惱,看到此篇出貨單單號如何變成前6碼日期+後2碼自動編寫的討論,試著依照tungta大大的教學練習後,仍有些地方不解,可否有範例檔案可寄給我。
需要1.西元日期6碼+後3碼自動編號。
和2.民國日期0950101前7碼+後3碼自動編號 [民國年取3碼]的範例。
我的mail:hera.w@yahoo.com.tw。感謝!
tungta
範例已寄出
小吳
親愛的 tungta
又要麻煩您寄範例讓我學習了
謝謝 !!
wucc1007@vodamail.co.za
evon
哈摟~tungta大大:先祝你新年快樂惹!有空的時候~再麻煩你寄給我範例參考可以嗎?麻煩您了!謝謝!
tungta
To 小吳:範例已寄出
To evon:請貼上e-mail
小吳
tungta大大您好
範例沒有收到麻煩請您再寄一次
謝謝
wucc1007@vodamail.co.za
tungta
To 小吳:範例已寄出
tungta
To 小吳:信件好像被退回,請提供另一個e-mail
阿發
tungta大大,可否也能請您寄
1.西元日期6碼+後3碼自動編號。
2.民國日期0950101前7碼+後3碼自動編號 [民國年取3碼]的範例給我參考
謝謝您
phenyl@yahoo.com.tw
tungta
To 阿發:e-mail有錯誤,連寄兩次被退回
tungta
To 阿發:範例已寄出
evon
Dear tungta~sorry QQ 以為這自動可以顯示,evon_lin0@yahoo.com.tw 謝謝!麻煩您惹~
新春愉快^^
小吳
tungta大大您好
麻煩請您再寄一次
謝謝
wucc920@vodamail.co.za
這信箱剛測試過

之前的信箱今天還有收信??
tungta
To evon、小吳:範例已寄出
john
可以麻煩也寄一份範例給我嗎?謝謝
hkmrwong@gmail.com
tungta
範例已寄出
yiyu
Dear tungta,
麻煩您寄一份範例給我~!! 謝謝~~
yiyu712@gmail.com
tungta
範例已寄出
阿旭
tungta大大:
可不可以也寄給我:出貨單單號如何變成前6碼日期+後2碼自動編寫....
謝謝
ahsu0109@yahoo.com.tw
tungta
範例已寄出
阿旭
已收到了.謝謝!
藍色星辰
這個還不錯用喔

可不可以給我一個範例檔參考呢

navy562c@nanshanlife.com.tw
tungta
範例已寄出
860715
Dear tungta,

麻煩也給我一份,謝謝啦!!

rex.mcchiu@gmail.com.tw
860715
歹勢,打錯帳號了

rex.mcchiu@gmail.com
tungta
範例已寄出
gordon
可不可以也給我一個範例檔參考
ATLAN
tungta大大:
可不可以也寄給我:出貨單單號如何變成前6碼日期+後2碼自動編寫....
謝謝
atlantis_ada@yahoo.com.tw
tungta
To gordon:請貼上e-mail
To ATLAN:範例已寄出
gordon
sorry my e mail as below

sownyo@ms10.hinet.net
thanks
tungta
範例已寄出
gordon
已收到謝謝
Devil
tungta前輩:

可否寄範例給我
1.前6碼日期+後2碼自動編寫
2.民國日期0950101前7碼+後3碼自動編號
3.細項資料

謝謝前輩
devil@cn.shuttle.com
tungta
範例已寄出
Devil
tungta前輩:

範例已收到
謝謝您不吝提供
FOLCO
我也很想要範例,可以給我一個嗎?

我是希望用在產品上,分為[類別]後再加流水號
假設類別為AA,流水號為AA00001
先謝謝你們!
tungta
請貼上e-mail
大大
請問一下
可以麻煩1.前6碼日期+後2碼自動編寫
2.廠商類別+3碼自動編寫例如MM001
這兩種範例
感激
leaf0713@yahoo.com.tw
rdc
rdclub21@gmail.com
也需要範例
tungta
範例已分別寄出
polo187
可否也給我一份
謝謝

polo187@ms54.hinet.net
polo187
可否也給我一份
謝謝

polo187@ms54.hinet.net
tungta
範例已寄出
小馬
請也寄範例給我,謝謝。canewu@yahoo.com.tw

如果是要在查詢出的view上加列號,該如何做,我想將合於條件之資料匯至excel並加列號,
因為每天重覆執行多次,人工編號太浪費時間,謝謝了
tungta
範例已寄出
初學者
各位高手 以下是我的程式碼

Private Sub add_trans_Click()

Me![trans_date] = Date
last_seq = DMax("[trans_no]", "transaction detail", "[trans_date]=#"& Me![trans_date])

If IsNull(last_seq) Then
Me![trans_no] = 1
Else
Me![trans_no] = last_seq + 1
End If

但是last_seq = DMax("[trans_no]", "transaction detail", "[trans_date]=#"& Me![trans_date]& "#" )
永遠都回傳null
但如果我將他改成last_seq = DMax("[trans_no]", "transaction detail", "[trans_date]=#07/06/2007#")
便可已回傳正確的seq
我用偵錯發現date公式的日期是06/07/2007(dd/mm/yyyy)會是因為這個原因嗎我檢查過transaction detail理的日期是正確的
還反請有人能幫我解惑

fortunate
tungta大可以跟您拿
西元YYYYMMDD加(000X)的流水號
產生的編號
謝謝
發現受用無窮

fortunate
抱歉忘了mail
fortunate5050@yahoo.com.tw
tungta
不了解--西元YYYYMMDD加(000X)的流水號--中(000X)的意思

先給你一個範例參考,若不對,請說明!
fortunate
tungta 大你好
就是西元年月日YYYYMMDD,然後後面是自動產生編碼4碼
and抱歉沒有收到
在另外跟您麻煩一下謝謝您
fortunate5050@yahoo.com.tw
fortunate
tungta 大你好麻煩您了
8314054@ms59.url.com.tw
謝謝有點怕收不到
tungta
範例已寄出
ROB
以每天日期為主,作自動編號,如第一筆為960728001,第二筆為960728002....等,
隔日再由1開始編號,如第一筆為960729001....
還煩請大大寄出範例,小弟沒齒難忘!!

yahoo信箱
mb2056@yahoo.com.tw

HINET信箱
rob_ho1978@xuite.net
tungta
範例已寄出
gina
請也寄範例給我,謝謝。gina_meng58@yahoo.com.tw

我的程式碼如下: 可是顯示採購單號都是 -01 吔,請問是什麼問題呢? 謝謝

Z = DLookup("採購單號之最大值", "最後採購單號查詢", "採購日期 ='" & Me![採購日期] & "'")
If IsNull(Z) = False Then '若採購單號之最大值有記錄
Me![採購單號] = Format([採購日期], "yyyymmdd") & "-" & _
Format(Right(DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 ='" & Me![採購日期] & "'"), 2) + 1, "00") '加1後顯示
Else '若採購單號之最大值沒有記錄
Me![採購單號] = Format([採購日期], "yyyymmdd") & "-" & "01" '顯示01
End If
tungta
你貼了這幾行程式,表示做這類的自動編號設計已沒有問題,不知道想要的是什麼範例?
採購單號都是 -01,是因為[採購日期]沒有輸入資料----
1.因此可以在此欄位的屬性設定,如下:
預設值:Date()
驗證規則:Is Not Null
驗證文字:日期不能空白,請輸入。

2.或加入檢查[採購日期]是否有資料即可,如下:
1001 If IsNull(Me![採購日期]) = True Then '若採購日期無記錄
1002 MsgBox "採購日期不得空白,程式將中止"
1003 Cancel = True '中止
1004 Else '若採購日期有記錄
1005 Z = DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 ='" & Me![採購日期] & "'")
1006 If IsNull(Z) = False Then '若採購單號之最大值有記錄
1007 Me![採購單號] = Format([採購日期], "yyyymmdd") & "-" & Format(Right(Z, 2) + 1, "00") '加1後顯示
1008 Else '若採購單號之最大值沒有記錄
1009 Me![採購單號] = Format([採購日期], "yyyymmdd") & "-" & "01" '顯示01
1010 End If
1011 End If
gina
tungta 大大您好:

謝謝您的指導!
我才剛使用access寫程式不久,如果問的不對,還請見諒!
我將您的語法執行時,在下面這行出現錯誤:錯誤3464,準則運算式的資料類型不符~
查了好久,不知道是那裏出了問題??
1005 Z = DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 ='" & Me![採購日期] & "'")
(我改成使用Z = DLookup("[採購單號之最大值]", "[最後採購單號查詢]", "[採購日期] ='" & Me![採購日期] & "'")
也是相同的錯誤)

我的採購單欄位設定如下:
採購日期 型態:日期/時間 格式:完整日期 輸入遮罩:9999\年99\月99\日;0;_
採購單號 型態:文字 長度:20
輸入欄位是先輸入採購日期再產生採購單號,我產生採購單號是放在採購日期
的after update 事件中

目前access版本是 2003

還請您能幫我解惑,謝謝!!

Gina
tungta
1005 Z = DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 ='" & Me![採購日期] & "'")
將上面那行語法改為:
1005 Z = DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 =#" & Me![採購日期] & "#")

因為類別是日期的前後必須#圍起來,我沒有圍起來的原因是由於在查詢設定中取值,此時的值其類別不是日期,而直接由欄位取值就必須這樣,試試看,有問題再貼上來!
gina
tungta 大大您好:

語法改成如下:
1005 Z = DMax("採購單號之最大值", "最後採購單號查詢", "採購日期 =#" & Me![採購日期] & "#")
就可以了,非常感謝您!!

Gina
Johnny
tungta大大,可否也能請您寄以下的範例給小弟參考
1.西元日期6碼+後3碼自動編號。
2.民國日期0950101前7碼+後3碼自動編號 [民國年取3碼]

※因不同日期而重新由001開始自動編號,即換一天後,後三碼自動編號會重新開始算。


小弟的mail是smart.johnny@msa.hinet.net

非常感謝您的幫忙 ,感激不盡唷^^
tungta
範例已寄出
Johnny
謝謝tungta 大大~小弟已經收到了^^
田仔
我也想要範例..可email給我嗎??...3q
tn710375@pchome.com.tw
tungta
範例已寄出
意猶未盡
我也需要類似著種範例,可麻煩大大E-mail給我嗎?
謝謝!!
liu100@youthtoy.com
tungta
範例已寄出
飛飛
送我個吧!謝謝
fan4fei@yahoo.cn
tungta
範例已寄出
terry
真是精彩的..
想請教大大一個問題
假如
我有好幾個類別
例如A類別 B類別 C類別 這樣子
如果輸入的是A類別的資料就會顯示00000-A類別+流水號
B類別的話就是00000-B類別+流水號
C一樣也是
請問這樣子的話,該如何做到呢?
感謝大大指導
tungta
最簡單的方法就是全部共用一個相同的資料表,但是各自使用獨立的表單來輸入資料,與範例一樣相同的方式設計即可
terry
還麻煩大大參考一下範例了
terry90024@yahoo.com.tw
感謝
terry
我的A、B、C類別全都寫在同一個資料表
可是假如是
A類別00001
A類別00002
A類別00003
A類別00004
B類別00001
C類別00002

不管我選擇哪一個類別他都會從003開始...
可以讓他找是哪個類別嗎?
感謝指導
tungta
那是設定的方法有錯誤,所有類別的流水號都是各自獨立的,各個新增的編號為例如:A類別00005、B類別00002、C類別00003
terry
請教一下大大
怎樣讓流水號獨立呢??
我的類別是使用下拉式選單的方式..
感謝指導
terry
因為我的資料表和表單都在同一個....有辦法解決嗎?
感謝大大指導..
tungta
可以
請將資料庫寄來:lin27850016@yahoo.com.tw
tungta
資料庫寄回
kimho
請也寄範例給我,謝謝。maggieho@hsbc.com.tw

如果是要在查詢出的view上加列號,該如何做,我想將合於條件之資料匯至excel並加列號
tungta
範例已寄出
LEO
請問大大們如何作出旅客編號呢??有其他的大大的告訴我旅客編號不要用自動編號要用文字來做,可是我在想可不可以要旅客編號來自動產生一個出來獨立的編號,我在想日期+房號+人數=產生一個獨立的編號,那不知道可以做得出來嗎,可以教我如何做呢??或是有範本嗎???
LEO
請問大大們如何作出旅客編號呢??有其他的大大的告訴我旅客編號不要用自動編號要用文字來做,可是我在想可不可以要旅客編號來自動產生一個出來獨立的編號,我在想日期+房號+人數=產生一個獨立的編號,那不知道可以做得出來嗎,可以教我如何做呢??或是有範本嗎???
我忘了打上我的信箱了 liau_sl@hotmail.com
tungta
範例"日期+房號+人數"已寄出

這樣的做法沒有流水號的問題,語法如下:
Me![旅客編號] = Format([住房日期], "yyyymmdd") & Me![房號] & Me![住房人數]
alice
tungta 大大:
您好,我也想要一份範例,可以煩麻您寄至alicescholar_001@yahoo.com.tw
謝謝!
tungta
範例已寄出
Chi
tunta大大:
我也想要一份範例, 可以麻煩你寄給我嗎, 非常感謝
chimail4.36@yahoo.com.tw
tungta
範例已寄出
Chi
收到你寄給我的兩個範例了~~非常感謝~~
毛不Q的低
tungta 大大:
您好,我也想要範例,可以麻煩您寄至
phoebe038@hotmail.com 嗎?
謝謝!感恩!
tungta
範例已寄出
janice
tunta大大:
您好丫!我也要範本,煩請寄至summer6632@yahoo.com.tw 謝謝您!!
另,可否請您幫我解答一下有關ACCESS的問題好嗎?本人的問題有放在討論區中..感恩!!
tungta
範例已寄出
Sara
你好,
我也想要以下的範例:
英文字母+年份+四位的流水號,主要的是流水號在一年之中是依次疊加的.下一年的時候又從字母+年份+四位元的流水號(0001開始)
但由於我的資料都是由Excel滙入而來, 我又該如何做呢?
Sara
不好意思, 忘了貼e-mail了!
sara4823@gmail.com
tungta
1.範例已寄出
2.為何不在Excel將流水號做好再匯入呢?這樣簡單多了
taminana
您好!
可以給我"出貨單單號如何變成前6碼日期+後2碼自動編寫"的範本嗎?謝謝
nana807288@yahoo.com.tw
tungta
範例已寄出
popo
可否寄範例檔給我參考呢??
謝謝
ifmypopo1@yahoo.com.tw
tungta
範例已寄出
餅餅
我也想要寄範例檔給我參考??
可以寄一個給我嗎?
謝謝
keishang@hotmail.com
tungta
範例已寄出
Major
可否寄範例檔給我參考呢??
謝謝
major.mei@gmail.com
小元斗
如果方便的可以寄個範例給我嗎
謝謝
tlbk.oice@msa.hinet.net
tungta
範例已寄出
小元斗
謝謝tungta
已收到如有問題再上門請教
餅餅
我也想要以上各個範例...感謝大大
keishang@hotmail.com
tungta
範例已寄出
小熊
我也要想耶@@
我的信箱是~~bovaho2000@yahoo.com.tw
tungta大大好像很多Access的範例耶~~

要不要考慮打包起來~~放在免費分享空間~哩?這樣你就不用一封一封寄囉~~ ^_^
tungta
範例已寄出

我也有想過這個問題,只是Access是很基本的資料庫,每個人的需求不盡相同,以這個主題為例,依據參與討論的人的需求就有20幾個不同的設計,也不知道要如何做整合,容我再想想!
丫發
我也想要範例
neil0522@gmail.com
tungta
範例已寄出
小龐
tungta 您好:
我可以也要一份範例嗎?
感激不盡!

eia20012001@yahoo.com.tw
tungta
範例已寄出
重低音喇叭
Dear tungta
我可要和您要範例嗎? 我的需求是如 98樓 的型式

---------------------------------------------
我的需求是:當天日期6碼+月流水序號3碼
如041226012
---------------------------------------------

不知道還拿不拿的到,時間有點久遠了
Email:s_karros@yahoo.com.tw
感激萬分
tungta
範例已寄出
dove
Hitungta,

可以寄一份(當天日期+流水號)自動編碼的範例給我嗎? dove.tseng@gmail.com
昨天收到您的範例後, 一下子解決了困擾很久的問題, 真的很感謝 ^^p
dove
Hitungta,

可以寄一份(當天日期+流水號)自動編碼的範例給我嗎? dove.tseng@gmail.com
昨天收到您的範例後, 一下子解決了困擾很久的問題, 真的很感謝 ^^p
tungta
範例已寄出
重低音喇叭
已經收到了。謝謝。
正在研究中!!
鳥鳥
我已收到,感謝!
kevin
可以寄一份給嗎?
tung.soung@msa.hinet.net
tungta
範例已寄出
恩戴米恩的月光
正巧最近設計上需要這個功能
煩請寄一份給我,謝謝
aioria.randers@yahoo.com.tw
tungta
範例已寄出
阿茹
可否也寄一份給我謝謝lisauser@yahoo.com.tw
tungta
範例已寄出
阿茹
收到了~感恩
阿菲
hello tungta
可以寄一份(當天日期+流水號)自動編碼的範例給我嗎?感激不盡,謝謝
fjiusns@yahoo.com.tw
tungta
範例已寄出
PPT

tungta大大:又要麻煩你了 ~範例可否寄一個給我,因為我也有這樣的問題,謝謝.
tungta
範例已寄出
blue
tungta大大:
我也需要範例,能否也寄份給我呢?
maxi0428@yahoo.com.tw
謝謝
MANDY
tungta 大大:
我也想要學,能否也寄一份範例給我
日期6碼+編號2碼
yan2710@pchome.com.tw
謝謝!
tungta
範例已寄出
MANDY
tungta 大大:
你寄的這個範例我打不開,
可否再幫我寄一次,
謝謝!
tungta
範例已寄出
blue
tungta大大:
能否也寄一份範例-物料變動後更新庫存
另外想請問"出貨單號"這個範例~
已經可以成功出現"當天"的銷貨單號~
但當我想新增前幾日的銷貨單~銷貨單號卻維持在今天的日期~無法顯示依照日期欄位來顯示
有什麼方法可以讓銷貨單號~也可以依照我更改後的日期自動顯示出那天的最大銷貨編號來遞增呢
maxi0428@yahoo.com.tw
謝謝






    
tungta
1.範例已寄出
2.讓日期欄位的AfterUpdate事件也能驅動銷貨單號的vba即可
blue
tungta大大:
真的很謝謝您熱心提供範例~
我又遇到一個問題了!
銷貨單號A097072901~單頭已經成功了~
那可以讓子表單的編號是由銷貨單號的當張銷貨單號10碼加上"-01"
例如~我在打第一張~子表單編號就會從(A097072901-01)開始遞增嗎?
謝謝!
tungta
子表單增加一個設定為隱藏的暫存欄位

Private Sub Form_AfterUpdate()
1001 Me![暫存] = Me![子表編號] '更新暫存欄位
End Sub

Private Sub Form_Current()
1001 Me![暫存] = Me![子表編號] '更新暫存欄位
End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)
1001 If IsNull(Forms("主表單")![銷貨單號]) = True Then '若主表單無資料
1002 MsgBox "請先建立主表單資料", , "提示"
1003 SendKeys "{ESC}", True '還原為原值
1004 DoCmd.GoToControl "[銷貨日期]" '移動滑鼠游標至主表單
1005 Else '若主表單有資料
1006 If Me![子表編號] <> Me![暫存] Or IsNull(Me![暫存]) Then '若與暫存欄位不同或是新記錄
1007 Me![銷貨單號] = Forms("子表單")![銷貨單號] '複製主表單的銷貨單號
1008 z = DMax("子表編號", "子表單資料表", "銷貨單號 ='" & Me![銷貨單號] & "'") '取得最大子表編號
1009 If IsNull(z) = False Then '若有最大子表編號
1010 Me![子表編號] = Me![銷貨單號] & "-" & Format(Right(z, 2) + 1, "00") '加1後顯示
1011 Else '若無最大子表編號
1012 Me![子表編號] = Me![銷貨單號] & "-01" '顯示-01
1013 End If
1014 End If
1015 End If
End Sub
blue
tungta:我把程式加進去了!可是有些問題~昨天附檔案寄到您信箱,您有收到嗎
可以幫瞧瞧看嗎?謝謝你唷!
tungta
範例已寄出
kevin
TO Tungta
我也要一份範例
感謝您
tungta
未貼上e-mail
還好有找到
範例已寄出
Vincent
Tungta大大
我也想要你的範例
感恩
kidding.hu@msa.hinet.net
tungta
範例已寄出
小哈
tungta兄 :

我想在FORM中 輸入 2008
得出 2008-001, 2008-002.....
輸入 2009
得出 2009-001, 2009-002.....
但不知那裡出錯..可以幫忙嗎?


Private Sub Year_AfterUpdate()

1001 Z = DLookup("MaxRef", "qryMaxRef", "year =#" & Me![Year] & "#")
1002 If IsNull(Z) = False Then
1003 Me![parking permit no] = Me![Year] & _
Format(Right(DMax("MaxRef", "qryMaxRef", "year =#" & Me![Year] & "#"), 3) + 1, "000")
1004 Else
1005 Me![parking permit no] = Me![Year] & "-" & "001"
1006 End If
End Sub
tungta
不知[Year]欄位的資料類型是"日期"還是"文字"?
看你的vba應該是"日期"
但是vba又好像怪怪的
給你一個範例參考
請貼上e-mail

或者把你的資料庫寄來改:lin27850016@yahoo.com.tw
tungta
或這樣看看
1001 Z = DMax("MaxRef", "qryMaxRef", "year ='" & Me![Year] & "'")
1002 If IsNull(Z) = False Then '若最大值有記錄
1003 Me![parking permit no] = Me![Year] & "-" & Format(Right(Z, 3) + 1, "000") '加1後顯示
1004 Else '若最大值沒有記錄
1005 Me![parking permit no] = Me![Year] & "-001" '顯示001
1006 End If
小哈
tungta兄

資料庫已寄上, 先謝謝!!
tungta
資料庫寄回
小哈
Tungta 兄,

你寄回來的檔案 我解不開
幫忙請寄多一次,

--> ksto@i-cable.com

謝謝!!
小哈
問題已解決了 謝謝 tungta兄
blue
tungta大大:
請問~我打開"桂思強範例"但執行表單時,有的表單或查詢會跳出VB碼錯誤
導致無法正常執行動作,這樣是正常的嗎?
是他本身設計錯誤嗎?
我沒有去更改他的內容喔!
謝謝
tungta
請說明是哪些表單會這樣
我來看看
宜湘
請問我也可以麻煩您寄範例給我嗎?
謝謝~~
宜湘
我也要範例.可以嗎? 麻煩您了~~~~

tccivy@yahoo.com.tw
tungta
範例已寄出
小婷
tungta大大:
我需要的有些微不同..前面六碼切換是以日期每月26至下月25日
就是例如:1/26-2/25之間的出貨單號皆以200902+三碼流水碼表示
請問該如何做呢??我還沒要過您的範例
可以嘛煩您寄給我呢~~嘛煩你了~~snoopy701115@msn.com
另外可否請問庫存分A/B庫的我該怎麼做呢??
~~~非常感謝你

tungta
範例已寄出
宜湘
不好意思.我在9月15留言想要範本
可是到現在我都沒有看到耶~"~
宜湘
不好意思.我在9月15留言想要範本
可是到現在我都沒有看到耶~"~
tungta
範例已寄出
若沒收到
請再po訊上來
宜湘
已收到.謝謝!
櫻雪子
我也要範例~~還有嗎??可以麻煩大大寄給我嗎??感謝大大
櫻雪子
我的e-mail:hellokitty8250@yahoo.com.tw
tungta
範例已寄出
姿姿
可以寄範例給我嗎
謝謝你囉~
acup724@gmail.com
姿姿
可以寄範例給我嗎
謝謝你囉~
acup724@gmail.com
tungta
範例已寄出
您好,是否可以寄範例給我嗎?感謝!
e-mail:yojaca@xuite.net
tungta
範例已寄出
小雄
可否分享此範例給我,感恩
mail:hhh5230.hhh5230@msa.hinet.net
tungta
範例已寄出
vincenho
能否也寄份給我呢?感謝
vincen_ho@yahoo.com.tw
vincenho
tungta大大:
出貨單單號如何變成前6碼日期+後3碼自動編寫 ,並比較前一筆的單號,如第一筆981201001,第二筆若系統時間跑掉881201002,則比較
98<88後告知系統時間有誤,可有範例或方便給我出貨單單號如何變成前6碼日期+後3碼自動編寫即可,感謝
vincen_ho@yahoo.com.tw
tungta
範例已寄出
ㄚ威
我也需要範例,能否也寄份給我呢?
謝謝
winglins@yahoo.com.tw
tungta
範例已寄出
jj
不好意思..我也需要一份範例,麻煩您了
popojiya@yahoo.com.tw
tungta
範例已寄出
宜湘
不好意思..我也需要一份範例,麻煩您了
tccivy@yahoo.com.tw
tungta
範例已寄出
newnews
我也需要一份,謝謝你。
pxu6@yahoo.com.tw
tungta
範例已寄出
jmstommy
不好意思能給我一份範例嗎?,謝謝你。
jms.tommy@msa.hinet.net
tungta
範例已寄出
狂鳥
不知道我能不能也要一份 範例檔 參考一下
waline@hotmail.com.tw
tungta
範例已寄出
yehhua
您好!可否請你寄一份給我參考.謝謝啦~
yehhua
您好!可否請你寄一份給我參考.謝謝啦~
b097cood@ms5.hinet.net
tungta
範例已寄出
yehhua
感謝您!已收到了唷~~
鳥鳥
如何關閉回覆功能呢?
番薯
您好!可否請你寄一份給我參考.謝謝啦~
john_chiu581123@yahoo.com.tw
tungta
範例已寄出
Venus
我也想要......
穗兒
我也需要範例 可以寄給我? chengsan3@yahoo.com.tw
tungta
範例已寄出
Venus
可否也給我這範例......
venus09ma@yahoo.com.hk
tungta
範例已寄出
穗兒
可以寄範例給我? forshily@yahoo.com.tw
tungta
範例已寄出
alex
我也需要範例,能否也寄份給我呢? kao_alex@msn.com
tungta
範例已寄出
len
大大,小弟也須此範例!煩請寄一份與小弟!感恩!
mail:lenol5807@gmail.com
tungta
範例已寄出
超人
小弟電腦有問題之前的檔案都掛了><
還請大大給個範例參考!
再次麻煩大大您囉!

mail: superjen@ms25.hinet.net
tungta
範例已寄出
chihmi
我也需要此範例,謝謝大大
chihmi.shy@gmail.com
tungta
範例已寄出
vixen
可否給我範例~謝謝

cindy_girl777@hotmail.com
tungta
範例已寄出
Ava
可以也寄給我嗎? veritawang@msn.com 謝謝
tungta
範例已寄出
len
大大 小弟我也要一份範例 謝謝!
E-mail:lenol5807@gmail.com
tungta
範例已寄出
愛希思
請問大大可否記份範例給我呢?
謝謝您!
goldenhorse@pchome.com.tw
tungta
範例已寄出
楊沒毛
我也想要範例
可以email給我嗎
謝謝
楊沒毛
我也想要範例
可以email給我嗎
謝謝
Szuhan Ho
想要自行選擇日期後,讓日報表編號配合日期顯示後,變成以下日報表編號顯示樣式加上-01以此類推之流水編號,但語法不知道哪邊錯誤請幫忙答案

請問資料表內有 檔名:資料表
欄位名稱 資料類型
1. 日報表編號 文字
2. 日期 日期/時間(會跑日期選擇器)
日期一般的格式已輸入ee/mm/dd變成民國年
則顯示如下:
例:
日報表編號 日期
1. 103/09/25-01 103/09/25
2. 103/09/25-02 103/09/25
3. 103/09/25-03 103/09/25
4. 103/09/27-01 103/09/27
5. 103/09/28-01 103/09/28
6. 103/09/29-01 103/09/29
7. 103/09/29-02 103/09/29

我看範例教學都說需要找出單編最大值
我已利用查詢選擇 檔名:日報編號

欄位: 日期 日報編號最大值:日報表編號
資料表: 資料表 資料表
合計: 群組 最大值

資料表單則是配合資料表檔名:資料表直接按表單建立
從資料表的設計檢視下選取全表單的屬性表類型進入Before Insert

語法如下

Private Sub Form_BeforeInsert(Cancel As Integer)
D = DMax("日報編號最大值", "日報表編號", "日期 =#" & Me![日期] & "#")

If IsNull(D) = False Then
Me![日報表編號] = Format(D, "###/##/##") & "-" & Format(Right(D, 2) + 1, "00")

Else
Me![日報表編號] = Format(D, "###/##/##") & "-01"

End If
End Sub



請問有範例可以寄給我解答嗎??謝謝你
han.pin1217@gmail.com
張亞萍
可email給我嗎!謝謝chang.yayaya@gmail.com
tungta
範例已寄出
Szuhan Ho
可email給我嗎!謝謝han.pin1217@gmail.com
Szuhan Ho
可email給我嗎!謝謝han.pin1217@gmail.com
tungta
範例已寄出
cs1110
可否寄給我範例~謝謝
羅伯斯
以公用函數設計的方式運用上較為靈活
可以在專案內由不同的模組呼叫設定日期+流水號的編號
不用每個模組寫相同的程式碼......(很煩人的)
呼叫的語法:
控制項名稱.Valu = SetNo("資料表名稱",控制項名稱.Value)

'//函數参數說明:
'//    傳入:
'//        TableName = 資料表名稱
'//        FiledName = 控制項名稱.Value
'//    傳回:
'//        當天日期+流水號(字串型態)
Public Function SetNo(TableName As String, FiledName As String) As String
    '//宣告資料庫物件變數
    Dim db As Database
    '//宣告資料集物件變數
    Dim rs As Recordset
    '//設定資料庫物件連接
    Set db = CurrentDb
    '//宣告編號及最大編號字串變數
    Dim strNo As String, endNo As String
    '//設定編號格式(民國年月日格式)
    strNo = Format(Year(Date) - 1911, "00#") & Format(Month(Date), "0#") & _
            Format(Day(Date), "0#")
    endNo = ""
    '//設定資料集物件的資料來源
    Set rs = db.OpenRecordset("SELECT * FROM " & TableName & " WHERE " & _
            FiledName & " ORDER BY " & FiledName & " DESC")
    '//檢查是否有資料
    If Not rs.EOF Then
        '//移動紀錄指標到第一筆
        rs.MoveFirst
        '//設定最編號變數值
        endNo = rs(FiledName)
        '//檢查最大編號變數值的前 7 碼,是否等於編號變數值
        If Trim(Mid(endNo, 1, 7)) <> Trim(strNo) Then
            endNo = ""
        End If
    End If
    '//關閉資料集物件
    rs.Close
    '//關閉資料庫物件
    db.Close
    '//檢查最大單編號變數值
    If endNo = "" Then
        '//設定編號變數值為當天的第一個流水號
        strNo = strNo & "01"
    Else
        '//設定編號變數值為當天最大編號值後 2 碼 + 1
        strNo = Mid(endNo, 1, 7) & _
                Format(CLng(Trim(CLng(Mid(endNo, 8, 2)) + 1)), "0#")
    End If
    '//設定函數傳回值
    SetNo = strNo

[code]
wail
可以也寄範例給我,謝謝
sts89161@hotmail.com
tungta
範例已寄出
jing
您好,我也想要此範例,謝謝!
yujing923@gmail.com
tungta
範例已寄出
夜語曈
大大可以寄一份範例給我嗎? 謝謝 mesley.shih@gmail.com
tungta
範例已寄出
Szuhan Ho
我也想要範例..可email給我嗎??
han.pin1217@gmail.com
tungta
範例已寄出
Louix
我也要範例,可以MAIL給我麼,感謝!
taomre@hotmail.com
tungta
範例已寄出
qq
可否也給我範例,謝謝
tt76ttt@gmail.com
tungta
範例已寄出
fiona
不好意思能給我一份範例嗎?,謝謝你。
pitawow@hotmail.com
tungta
範例已寄出
bin
大大好,
請給我一份範例參考,感恩不盡~!!
rongbin222@gmail.com
tungta
範例已寄出
宇辰
大大好,
請給我一份範例參考,感恩不盡~!!
qzero735280@gmail.com
tungta
範例已寄出
偉偉
不好意思能給我一份範例嗎?,謝謝你。
cwp6120@gmail.com
偉偉
不好意思能給我一份範例嗎?,謝謝你。
cwp6120@gmail.com
偉偉
不好意思能給我一份範例嗎?,謝謝你。
cwp6120@gmail.com
偉偉
不好意思能給我一份範例嗎?,謝謝你。
cwp6120@gmail.com
tungta
範例已寄出
Lu
您好~
我也需要一份範例
可以麻煩您寄一份給我參考嗎?
謝謝!

lovelyyang713@yahoo.com.tw
tungta
範例已寄出
Kody
不好意思能給我一份範例嗎?,謝謝你。
yangwoeijyh@gmail.com
Kody
不好意思能給我一份範例嗎?,謝謝你。
yangwoeijyh@gmail.com
tungta
範例已寄出
Hsuan Chen
新手求範例
Adonis Ip
我也要一份...謝謝大大

adonisip1020@gmail.com
tungta
範例已寄出
小黃
tungta大:
請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月日+流水號 可以自動產生的 ACCESS範例檔。email:jenpjou@gmail.com
小黃
tungta大:
請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月日+流水號 可以自動產生的 ACCESS範例檔。email:jenpjou@gmail.com
tungta
範例已寄出
小黃
tungta大
有收到您的MAIL,但是沒有範例檔,請問可以重寄?麻煩您了。謝謝。
tungta
範例再寄出
rodolfo96
tungta大:
請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月4碼+流水號5碼 (西元年只顯示後2碼,例如 2020年1月第一張單 = 2001000001) 可以自動產生的 ACCESS範例檔。email:rodolfo96@gmail.com
rodolfo96
tungta大:
請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月4碼+流水號5碼 (西元年只顯示後2碼,例如 2020年1月第一張單 = 2001000001) 可以自動產生的 ACCESS範例檔。email:rodolfo96@gmail.com
rodolfo96
tungta大:
請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月4碼+流水號5碼 (西元年只顯示後2碼,例如 2020年1月第一張單 = 2001000001) 可以自動產生的 ACCESS範例檔。email:rodolfo96@gmail.com
tungta
範例已寄出
rodolfo96
tungta大:
您好,不好意思,可以請您再寄一次給我嗎? 因為信跑到垃圾桶去了,我會多注意,麻煩您,造成您的不便,請見諒,謝謝!

請問現在還有範例,若有可否寄一個給我,因為我也有這樣的問題,謝謝.出貨單西元年月4碼+流水號5碼 (西元年只顯示後2碼,例如 2020年1月第一張單 = 2001000001) 可以自動產生的 ACCESS範例檔。email:rodolfo96@gmail.com
tungta
範例已寄出
GRACE.G
tungta大大...
我也想要出貨單編號的範例...
公司這幾個月開賣產品,我自學Access希望能有更好的管理,有您真好🥺

meowrlove@gmail.com
謝謝您!!!
tungta
範例已寄出
回到頂部