Microsoft Access ClubAccess超初心者対象ForumAccess初級者対象ForumAccess初・中級者対象ForumAccess VBA Tips ForumDAO、ADO、SQL Forum

     

No22675.最後のレコードを表示させたい。

タイトル最後のレコードを表示させたい。
記事No: 22675
投稿日: 2004/05/24(Mon) 09:26
投稿者: イタヤ
OS:XP
Access Version:2002

帳票形式のフォームで、開いたときに一番最後のデータが画面の一番下に表示されて
開くようにはならないでしょうか?
現在は最初のデータが画面の一番上に表示されてきます。

タイトルRe: 最後のレコードを表示させたい。
記事No: 22676
投稿日: 2004/05/24(Mon) 09:31
投稿者: Tkwan
> 帳票形式のフォームで、開いたときに一番最後のデータが画面の一番下に表示されて
> 開くようにはならないでしょうか?
> 現在は最初のデータが画面の一番上に表示されてきます。

フォームの「開く時」に

Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord , , acLast
End Sub

タイトルRe^2: 最後のレコードを表示させたい。
記事No: 22679
投稿日: 2004/05/24(Mon) 09:46
投稿者: イタヤ
> > 帳票形式のフォームで、開いたときに一番最後のデータが画面の一番下に表示されて
> > 開くようにはならないでしょうか?
> > 現在は最初のデータが画面の一番上に表示されてきます。
>
> フォームの「開く時」に
>
> Private Sub Form_Open(Cancel As Integer)
> DoCmd.GoToRecord , , acLast
> End Sub

早速のお返事有難うございます。
やってみましたが、確かに最後のデータが表示されるのですが
最後のデータがフォームの画面の一番上に表示されてきます。
出来れば最後のデータが画面の一番下に表示されるようにしたいのですが、
出来るのでしょうか?
当然、データが少ないときは最後のデータが上のほうになってしまうとは思うのですが・・

タイトルRe^3: 最後のレコードを表示させたい。
記事No: 22682
投稿日: 2004/05/24(Mon) 10:02
投稿者: Tkwan
> 出来れば最後のデータが画面の一番下に表示されるようにしたいのですが、
> 出来るのでしょうか?
> 当然、データが少ないときは最後のデータが上のほうになってしまうとは思うのですが・・

下記でいかがですか?

Private Sub Form_Open(Cancel As Integer)
Dim x,y
x = Me.Recordset.RecordCount
y = 表示行数
DoCmd.GoToRecord , , acGoTo, x - y - (y - x - 1) * (x < y)
End Sub

タイトルRe^4: 最後のレコードを表示させたい。
記事No: 22684
投稿日: 2004/05/24(Mon) 10:07
投稿者: イタヤ
> > 出来れば最後のデータが画面の一番下に表示されるようにしたいのですが、
> > 出来るのでしょうか?
> > 当然、データが少ないときは最後のデータが上のほうになってしまうとは思うのですが・・
>
> 下記でいかがですか?
>
> Private Sub Form_Open(Cancel As Integer)
> Dim x,y
> x = Me.Recordset.RecordCount
> y = 表示行数
> DoCmd.GoToRecord , , acGoTo, x - y - (y - x) * (x < y)
> End Sub

すごい!!
できました!
これで安心です♪
有難うございました!!m(__)m

タイトル訂正です。
記事No: 22685
投稿日: 2004/05/24(Mon) 10:11
投稿者: Tkwan
> すごい!!
> できました!
> これで安心です♪
> 有難うございました!!m(__)m

DoCmd.GoToRecord , , acGoTo, x - y - (y - x - 1) * (x < y)
に訂正して下さい。
前のではレコード数が表示行数より少ないときにエラーになります。

タイトルRe: 訂正です。
記事No: 22688
投稿日: 2004/05/24(Mon) 10:15
投稿者: イタヤ
> > すごい!!
> > できました!
> > これで安心です♪
> > 有難うございました!!m(__)m
>
> DoCmd.GoToRecord , , acGoTo, x - y - (y - x - 1) * (x < y)
> に訂正して下さい。
> 前のではレコード数が表示行数より少ないときにエラーになります。

ありがとうございます。
ますます安心しました!
ありがとうございました!!

タイトルRe^2: もう一度訂正です。
記事No: 22692
投稿日: 2004/05/24(Mon) 10:37
投稿者: Tkwan
> > DoCmd.GoToRecord , , acGoTo, x - y - (y - x - 1) * (x < y)
> > に訂正して下さい。

すみません、もう一度訂正です。

DoCmd.GoToRecord , , acGoTo, x - y - (y - x + 1) * (x < y)
何度もすみません。<(__)>汗;

タイトルRe^3: もう一度訂正です。
記事No: 22693
投稿日: 2004/05/24(Mon) 11:03
投稿者: イタヤ
> > > DoCmd.GoToRecord , , acGoTo, x - y - (y - x - 1) * (x < y)
> > > に訂正して下さい。
>
> すみません、もう一度訂正です。
>
> DoCmd.GoToRecord , , acGoTo, x - y - (y - x + 1) * (x < y)
> 何度もすみません。<(__)>汗;

こちらこそ何度もすいませんm(__)m
ありがとうございます(^.^)


このAccessフォーラム過去ログ集は、Microsoft Access Club が運営しています

アダルト・ゲーム配信可能なPLESKパネル付属の専用・共有レンタルサーバーを提供しています。
アダルトやゲーム配信が可能です。
全専用/共有レンタルサーバーにPLESKパネルをインストール済み。

 

ページの先頭へ 前ページへ戻る