Access使い集合！

>949
とりあえず、おちけつ。

デンデン太鼓〜？
　　　　　　　　　　　　　　　　　　　　　　　 ,.─-- x
　　　　　　　　　　　　　　　　　　　　　　 /:::::::::::::/,,ヽ
　　　　　　　　　　　　　　　　　　　　　　i:::::::::::::::ｉ ii`!l
　　　 　　 ,.-＜二二ﾆ＝ｰ　　　　　　　ｌ::::::::::::::ｌ ﾄ,ﾞji
　　　　／　　　　　　　 ＼　　　　　　　 |:::::::::::::| し/
　　　/　　　　 　　　　　 　l 　 　　　 　 ヽ::::::::;;t_ノ　　　♪坊や〜
　　 l　・　　　　　　・　　　 .l　　　　　　 r~￣`ヽ　　　　　　良い子だ　金出しな〜♪
　　 l　　　・　　　　　　　に二ﾆ=　 ,. -'　　　　 ｝
　 　 i＿＿＿＿＿_●　　^} _,..- '"　　　,-､　 /
　　　 ＼　　　　　　　 ノラ '　　　　　　_/::/-'"
　　　　　`　ァ-―''7"（　　　　　 _,. -''　`"
　　　　　　/|::|　　｛::::::ヽ__,,..- '"　　　　

>949
ハードディスクをフォーマットしてから、OSから再インストールすれば元に戻りますが。

Access97とAccess2000の質問です。
値リストに項目を追加する方法を教えて下さい。
Access2002(XP)なら「リスト名.AddItem」なんですけど・・・

>955
rowsourceプロパティ

そろそろ次スレの季節なんだけど、どうします？
テンプレとか作ったりしますか？

>>957
もともと一発ネタのスレを再利用したに過ぎないしなぁ・・・
最近は内容がビジネスsoft板のAccess総合相談所とカブッテいる気が
しなくもないし・・・個人的には次スレ必要ないと思うんだけど。

立てるならビジ板のスレと差別化してほしい。初心者入門お断りみたいな

>>958
ビジ板のスレとの差別化には賛成だ。
とは言っても、ネタ振りに初心者は欠かせないからなぁ。
ム板なんだから、DAO/ADO系に特化するとか・・・。

>>956
ありがとう！

そういや、VBはﾄﾞﾄﾈﾄってのが出たけど、AccessVBAはどうなるの?

どうもならん

初歩的な質問で申し訳ありません。
on　error go to の構文を誰か教えて下さい。
これはエラーがおきたら・・・って意味だと思うけど
よくわかりません

>>963
"エラー トラップ"をキーワードにVBAのヘルプを引くべし
使い方のサンプルプロシージャと共にキチンと説明されている

あと、フォームデザイン時にツールボックスのコントロールウィザードを
有効にして、"フォームを閉じる"とかのコマンドボタンを配置してみな
生成されたプロシージャにOn Error GoToステートメントが組み込まれるでしょ？
そういうのを、よ〜く観察して理解するんだよ

>>964
ｻﾝｸｽ!!ﾁｭ!!

ドロップダウンリストボックスを作る方法がわかりません
リストボックスやコンボボックスのプロパティを見ても
それらしいものはどこにもないし…
コード内で コンボ.Style = 2 と動的に変更するのはできないみたいだし…
ヘルプをひっくり返しても見当たりません
超基本的なことですが どうか教えてください

レポートでデータが無くなっても罫線を一番下まで引くというのを
探していて、下記サイトに当たったのですが‥
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP404/0/63.asp

データが2ページ目にまたがる時、表示がおかしくなってしまいます。
具体的に言うと、18件毎に改頁させる時に30件のデータがあったとすると、
3ページ目に罫線だけのページが出てしまいます。

そもそも改頁には対応していないのでしょうか？？

どなたか教えていただけませんか？
納期が迫っていて焦っています。

やってみたけど>>967のようにはならなかった
でも18件ｺｯｷﾘのとき空のページが出てきたんでちょっと直した

Private Sub グループフッター1_Format(Cancel As Integer, FormatCount As Integer)
　　i = 0: j = DCount("*", "q住所", "営業員cd=" & Me.営業員cd)
End Sub

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
　　i = i + 1
　　If i Mod 18 = 0 Then
　　　　If i < j Then　　　'*******ここから*******
　　　　　　Me.bpage.Visible = True
　　　　ElseIf i = j Then
　　　　　　viv True
　　　　Else
　　　　　　viv False
　　　　End If　　　'*******ここまで******
　　Else
　　　　Me.bpage.Visible = False
　　　　If i < j Then
　　　　　　Me.NextRecord = True: viv True
　　　　ElseIf i = j Then
　　　　　　Me.NextRecord = False: viv True
　　　　Else
　　　　　　Me.NextRecord = False: viv False
　　　　End If
　　End If
End Sub

Private Sub viv(f As Boolean)
　　顧客番号.Visible = f: 氏名.Visible = f: 住所.Visible = f
End Sub

質問です。
Accessでレコードをランダムにソートしたいのですが
どうやればいいのでしょう？

最初ランダム関数を使ったのですが、
確かにランダムな数値は得られるのですが、全レコード同じ値になっていまいます。

ランダムにソート？・・・？

>>970
その名の通りランダムに並び替えるってことです。

例：
1　テスト太郎　→　3　テスト三郎
2　テスト次郎　→　1　テスト一郎
3　テスト三郎　→　4　テスト四郎
4　テスト四郎　→　5　テスト五郎
5　テスト五郎　→　2　テスト次郎

テスト一浪はどっから出てきたんだ（ｗ
テスト太郎はどこ逝ったんだ（ｗ

>>972
するどいつっこみですな（ｗ
×テスト一郎
○テスト太郎
です。

ランダムな値を生成する関数を作って、
クエリの ORDER BY から呼び出せばよいのでは？
(もしかすると直にRndを呼べるかも)

>>969
もうちょっとシラミツブシに調べたら良かろうに。
基テーブル{ID, 名前} があるとして、SQLで乱数の列を付加すると仮定しよう
はじめに思いつくのはこんな感じだろ
　select ID, 名前, Rnd() AS 乱数 from 基テーブル
ところが、これで生成した乱数列の値は貴方が言うとおり一様になる
　select ID, 名前, Rnd(1) AS 乱数 from 基テーブル
のようにRnd()関数に引数を渡しても結果は同じだよね

>>975の続き
じゃ、SQLの中で直接Rnd()関数を使うかわりに自前で乱数を生成するプロシージャを
用意して、それをSQLから呼び出すようにしたらどうなるか？
乱数生成プロシージャ(仮)
　Function Random()
　　Random = Rnd()
　End Funciton

　select ID, 名前, Random() AS 乱数 from 基テーブル
これの結果は、やはり一様の値になる
じゃ、どうすれば良いのかと言うとプロシージャに引数を渡すように変更する
　Function Random(x)
　　Random = Rnd()
　End Funciton
実際には、渡された引数はプロシージャの中では使わないけどね。

>>976の続き
次にSQLの中でプロシージャを呼ぶ時にどんな値を渡すのかだが
適当な任意の値を渡しても駄目
　select ID, 名前, Random(1) AS 乱数 from 基テーブル
これでも乱数列の値は変化しない
乱数を全て異なる値にするには基テーブルの適当な列を引数に渡してやる
　select ID, 名前, Random([ID]) AS 乱数 from 基テーブル
これで行毎に異なる乱数を持つことができる
とりあえず入り口はここまで。
どうして、そうなるのかは自分で推測してくれ
まだ、いろいろな問題が発生してくるので自力で解決してちょ

まちがえて違うところにスレしちゃいました！ごめんなさい・・。

Accessの質問です。
初歩的な質問で申し訳ありませんが、アドバイスください。

1つのファイルを複数の人間で使うとき、デザインビューで
色々と変更できないようにするためにMDEファイルの作成が
あると思うのですが、それ以外の方法ってなにかありますか？
ただ、フォームやレポートの変更をできないようにしたいだけです。

>>977
つーか、IDとRNDって列のテンポラリテーブル作って
RNDに乱数いれてIDでリンクして、RNDでORDER　BYするのが
やっつけ的には早いんじゃない？

>>979
実現する方法は一つじゃないだろうからね。
>>969の人は、どんなやり方を望んでいるのか明らかにしないから
一例を挙げてみただけなんだ。あとは本人が考えればいい。

>>968さん
返事が遅くなり申し訳ありません。
結論から言うと、うまくいきました。
コードではなく、設定するところ（デザイン）に問題があり、
それが原因でうまく動いていなかったようです。
お世話になりました。ありがとうございました。

>978
ツール→セキュリティでユーザグループの権限とアカウントを設定。
管理者のパスワード設定もお忘れなく。

>>975
つーか、
ORDER BY Rnd(フィールド名)
だけでいい。
フィールドが正の数値でないとかNullを含む時は
Len関数等を併用すればいい。

ランダムソートの件、おかげさまで解決しました
ORDER BY Rnd(ID)を使いました。
ありがとうございました。

>>983
ポインタは俺に対して向けなくていい
>>969の人に対してアドバイスしてやれ

>>983
レコードに数値型の項目が含まれていない場合は使えなくない？

>>986
あ、それでLen関数使うのね・・・書いてあったか・・・

ところで、もうすぐ1000ゲットですね。

テーブルの最終レコードを呼び出し（レコード数は変動）フィールドの内容を更新したいの
ですがどうすれば出来るかわかるかたおりますでしょうか

osietekudasai

やっぱ、ム板にAccess相談スレモドキは似合わないなぁ・・・
ここはひとつビジ板の相談スレに統一という方向で。

>989
あのね、RDBのレコードには「先頭」とか「最後」という概念はないの。
だから、「最終レコード」が何をいみするのか胸に手を当てて考えてほしいの。
それがハッキリすれば、WHERE句とかMAX関数とか駆使すれば更新できると思うの。

>>989
探りたいﾃｰﾌﾞﾙでレコードセット設定してMoveLastとかじゃだめですか(;´Д｀)ハァハァ

とりあえず誘導

・Accessに関する質問、悩み、雑談 etc.をしたい方は下記スレッドへ
ビジネスsoft
ACCESS総合相談所 その４
http://pc.2ch.net/test/read.cgi/bsoft/1027491281/l50

ちょっと前にあったテーブルで設定した書式を
違反した場合にシステムのエラーMSGではなく
独自のエラーMSGを表示したいってやつ、出来ました。

FormのErrorイベントです。

Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = acDataErrContinue
MsgBox "（ﾟДﾟ）ｶﾞｵｰ"

End Sub

まぁ、ちょっとオレも使う用事があって調べてみたので
参考まで。

で、1000！

しかし何だ、これが995とは思えないほどﾏﾀｰﾘだな。

ｺ､ｺｺなら初の1000ｹﾞｯﾄも夢ではなさそうだな。

いまだー！10000000000げとずさぁぁぁぁぁぁ！

************ 終　了 ************

おめでとう。

chi

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。