台灣最大程式設計社群網站
線上人數
858
 
會員總數:245466
討論主題:189222
歡迎您免費加入會員
討論區列表 >> ACCESS >> [ACCESS 2013] 在表單輸入資料後列出開頭相同的資料
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
[ACCESS 2013] 在表單輸入資料後列出開頭相同的資料
價值 : 20 QP  點閱數:177 回應數:8

樓主

Delia
門外漢
0 4
79 6
發送站內信

我的資料表"名單"欄位有[自動編號]、[編號]、[姓名]、[生日-月]、[生日-日]、[資深],
表單也只放這六個欄位,
目前遇到2個問題想請教各位大大幫忙QQ
1.
如果現在表單的[編號]顯示0325B,
想要旁邊多一個的空格可以列出所有[font color="blue"]開頭為0325[/font]的[編號]和[姓名](如下圖),
我想用ACCESS程式碼建立器寫,不知道可以從哪裡下手呢?


2.
目前寫了個自動編碼的語法(如下),
編碼方式
[資深]沒勾選,則以T開頭加上自動編號;
[資深]有勾選,則以生日年月加上1個英文編碼(按ABC的順序)。

但資深人員每次都需要自己在後面加英文字,
有沒有辦法讓我在勾選[資深]之後自己加後面的英文字(按ABC排序)呢?

Private Sub 姓名_AfterUpdate()
Me![編號] = "T" & Me![自動編號]
End Sub

Private Sub 資深_Click()
If [資深] = True Then '若取得重複值
Me![編號] = [生日-月] & [生日-日] & [font color="red"]?(這裡不知道怎麼寫)[/font]
Else
Me![編號] = "T" & Me![自動編號]
End If
End Sub

搜尋相關Tags的文章: [ ACCESS ] , [ 2013 ] , [ 表單內含清單 ] , [ 自動編英文 ] ,
本篇文章發表於2019-12-28 11:49
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
不錯的參考

P陳
檢舉此回應
在[編號] 的 afterUpdate

選單.Rowsource="Select * from Table1 where 編號 lime '" & me.編號 & "*'"
只要編號有變化,選單就會跟著變

-------------------------------------------------
Private Sub 資深_Click()
If [資深] = True Then '若取得重複值
Me![編號] = [生日-月] & [生日-日] & [font color="red"]?(這裡不知道怎麼寫)[/font]

Me![編號] = format([生日],"mmdd")
Me![編號].forecolor=vbred <------ 編號設成紅色

Else
Me![編號] = "T" & Me![自動編號]
End If
End Sub

本篇文章回覆於2019-12-28 14:39
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
不錯的參考

P陳
檢舉此回應
另 [生日-月]、[生日-日] 直接用生日月日 一個欄立即可,不要分成二個欄位
本篇文章回覆於2019-12-28 14:40
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
最有價值解答

tungta
捐贈 VP 給 tungta 檢舉此回應
1.旁邊多一個的空格,在文字方塊屬性表的控制項資料來源輸入=[編號]+(Chr(13) & Chr(10))+[姓名]
2.以VBA來做選擇
本篇文章回覆於2019-12-29 13:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
作者回應

Delia
檢舉此回應
非常感謝P陳大大和tungta大大的指導和建議:D!

想請教P陳大大,
目前本菜有使用大大建議的Rowsource語法,
但有一些部分不太清楚怎麼處理,
想跟大大確認一下,
本菜有上網查Rowsource相關的語法用途,
但使用會跳出一些問題,
不清楚本菜是哪裡的設定沒有處理好。

Text8 → 問題的圖中用紅色圈選的文字方框
名單 → 資料表名稱

下面是tungta大大幫忙設定英文VBA的部份(超級謝謝tungta大大:D!!)
最後 編號_AfterUpdate() 是依P陳大大建議加的,
本菜輸入語法再進行操作,
但方框沒有跳出資料,
如果[編號]開頭是0325,
希望[Text8]可以列出所有0325開頭的資料,
不確定是不是[Text8]本身不應該用文字方框...
再麻煩大大指教,非常感謝:D!

Function Check1() As Boolean '編號組成
1001 If [資深] = True Then '若資深有勾選
1002 p = DMax("編號", "名單", "Left([編號], 1)<>'T'") '排除最左字元為T
1003 If IsNull(p) = True Then '若編號無資料
1004 Me![編號] = [生日-月] & [生日-日] & "A"
1005 Else '若編號有資料
1006 k = Right(p, 1) '取得最右字元
1007 If k = "A" Then Me![編號] = [生日-月] & [生日-日] & "B"
1008 If k = "B" Then Me![編號] = [生日-月] & [生日-日] & "C"
1009 If k = "C" Then Me![編號] = [生日-月] & [生日-日] & "D"
1010 If k = "D" Then Me![編號] = [生日-月] & [生日-日] & "E"
1011 If k = "E" Then Me![編號] = [生日-月] & [生日-日] & "F"
1012 If k = "F" Then Me![編號] = [生日-月] & [生日-日] & "G"
1013 If k = "G" Then Me![編號] = [生日-月] & [生日-日] & "H"
1014 If k = "H" Then Me![編號] = [生日-月] & [生日-日] & "I"
1015 If k = "I" Then Me![編號] = [生日-月] & [生日-日] & "J"
1016 If k = "J" Then Me![編號] = [生日-月] & [生日-日] & "K"
1017 If k = "K" Then Me![編號] = [生日-月] & [生日-日] & "L"
1018 If k = "L" Then Me![編號] = [生日-月] & [生日-日] & "M"
1019 If k = "M" Then Me![編號] = [生日-月] & [生日-日] & "N"
1020 If k = "N" Then Me![編號] = [生日-月] & [生日-日] & "O"
1021 If k = "O" Then Me![編號] = [生日-月] & [生日-日] & "P"
1022 If k = "P" Then Me![編號] = [生日-月] & [生日-日] & "Q"
1023 If k = "Q" Then Me![編號] = [生日-月] & [生日-日] & "R"
1024 If k = "R" Then Me![編號] = [生日-月] & [生日-日] & "S"
1025 If k = "S" Then Me![編號] = [生日-月] & [生日-日] & "T"
1026 If k = "T" Then Me![編號] = [生日-月] & [生日-日] & "U"
1027 If k = "U" Then Me![編號] = [生日-月] & [生日-日] & "V"
1028 If k = "V" Then Me![編號] = [生日-月] & [生日-日] & "W"
1029 If k = "W" Then Me![編號] = [生日-月] & [生日-日] & "X"
1030 If k = "X" Then Me![編號] = [生日-月] & [生日-日] & "Y"
1031 If k = "Y" Then Me![編號] = [生日-月] & [生日-日] & "Z"
1032 End If
1033 Else '若資深無勾選
1034 Me![編號] = "T" & Me![自動編號]
1035 End If
End Function

Private Sub 生日_月_AfterUpdate()
1001 x = Check1() '呼叫編號組成
End Sub

Private Sub 生日_日_AfterUpdate()
1001 x = Check1() '呼叫編號組成
End Sub

Private Sub 資深_AfterUpdate()
1001 x = Check1() '呼叫編號組成
End Sub

Private Sub 編號_AfterUpdate()
Text8.RowSource = "Select * from 名單"
Text8.Requery
End Sub
本篇文章回覆於2020-01-04 11:02
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
5樓
作者回應

Delia
檢舉此回應
修正 編號_AfterUpdate() 的語法,
少打了...

Private Sub 編號_AfterUpdate()
Text8.RowSource = "Select 編號, 姓名 from 名單 where 編號 like '" & Left ( me.編號, 4 ) & "*'"
Text8.Requery
End Sub
本篇文章回覆於2020-01-04 11:05
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
6樓
不錯的參考

P陳
檢舉此回應
1007 If k = "A" Then Me![編號] = [生日-月] & [生日-日] & "B"
1008 If k = "B" Then Me![編號] = [生日-月] & [生日-日] & "C"
......
1008 If k = "Y" Then Me![編號] = [生日-月] & [生日-日] & "Z"
-----------------------------------------------------------------
一句話就解決了
Me![編號] =[生日-月] & [生日-日] & chr(asc(K)+1)

本篇文章回覆於2020-01-04 11:31
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
7樓
不錯的參考

P陳
檢舉此回應
Text8 文字框 不能用RowSource

RowSource 只能用在選單

其餘的話個人無法猜出您的問題在那
本篇文章回覆於2020-01-04 13:36
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
8樓
作者回應

Delia
檢舉此回應
謝謝P陳大大!
最後我用Query和聚集來處理其他部分了,
這次很有收穫,非常感謝:D!
本篇文章回覆於2020-02-08 10:50
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

回覆
如要回應,請先登入.