台灣最大程式設計社群網站
線上人數
1507
 
會員總數:243325
討論主題:188102
歡迎您免費加入會員
討論區列表 >> ACCESS >> 同時顯示第一筆與最後一筆資料
[]  
[我要回覆]
1
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
同時顯示第一筆與最後一筆資料
價值 : 10 QP  點閱數:161 回應數:4

樓主

棠棠
門外漢
0 18
198 22
發送站內信

各位大大您們好:
我想寫一個體驗資料的表單(資料表有很多筆不同人的資料)
我利用"輸入名字"進行篩選,然後按下一個按鈕,出現以下表單;
左側為此人第一次體驗資料,右側為最後一次此人體驗資料:


我能夠用以下語法,使左側第一筆資料顯示:
Private Sub FORM_LOAD()
Me.SetFocus
DoCmd.GoToRecord acDataForm, "測量資料", acFirst
Me.Refresh
End Sub

但不曉得該怎麼寫讓右側也能同時顯示最後一筆資料,
想請問大大們此語法該怎麼寫起呢?

搜尋相關Tags的文章: [ 篩選後選取資料 ] ,
本篇文章發表於2018-08-24 16:45
別忘捐VP感謝幫助你的人 新手會員瞧一瞧
1樓
不錯的參考

tungta
捐贈 VP 給 tungta 檢舉此回應
另一個用子表單顯示
本篇文章回覆於2018-08-24 18:16
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
2樓
作者回應

棠棠
檢舉此回應
如果想列在同一表單內的話有機會嗎? 太多表單跑出來不太理想
本篇文章回覆於2018-08-24 18:46
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
3樓
不錯的參考

小魚
檢舉此回應
SQL的話
我想到的是 第一筆 UNION 最後一筆
不過我沒用Access寫過SQL,
不知道能不能這樣寫
如果以MS-SQL為例大概像這樣

(SELECT TOP 1 ... ORDER BY XX ASC) UNION ALL (SELECT TOP 1 ... ORDER BY XX DESC)
本篇文章回覆於2018-08-24 23:10
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
4樓
最有價值解答

roar
檢舉此回應
做了一個類似的東西如下

https://drive.google.com/open?id=1ytvy1NOPrXUqbuQFESYHA3nEoCTYfi3r


主要是利用 movefirst , movelast

Private Sub InPutNameB_AfterUpdate()

Dim str As String
Dim qdef As QueryDef
Dim rs As Recordset

Set qdef = CurrentDb.QueryDefs("B")
qdef.Parameters("InPutT") = Me.InPutNameB
Set rs = qdef.OpenRecordset()

rs.MoveFirst
Me.IDS = rs![ID]
Me.HeightS = rs![Height]
Me.WeightS = rs![Weight]
Me.MyNameS = rs![MyName]
Me.MeasureDateS = rs![MeasureDate]


rs.MoveLast
Me.IDE = rs![ID]
Me.HeightE = rs![Height]
Me.WeightE = rs![Weight]
Me.MyNameE = rs![MyName]
Me.MeasureDateE = rs![MeasureDate]


Set rs = Nothing
Set qdef = Nothing

End Sub
本篇文章回覆於2018-08-27 15:11
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔--
   
1

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