Access使い集合！
レス数が1000を超えています。これ以上書き込みはできません。
0001名無しきぼう
NGNGAccess or VB で yyyy/mm/dd hh:mm:ss に変換する方法を
教えて下され！
0951デフォルトの名無しさん
NGNG状況がわかんねぇ。何をやったらそうなったのよ？
再現性のあるものなのか？
0952デフォルトの名無しさん
NGNGとりあえず、おちけつ。
0953デフォルトの名無しさん
NGNG,.─-- x
/:::::::::::::/,,ヽ
i:::::::::::::::ｉ ii`!l
,.-＜二二ﾆ＝ｰ ｌ::::::::::::::ｌ ﾄ,ﾞji
／ ＼ |:::::::::::::| し/
/ l ヽ::::::::;;t_ノ ♪坊や〜
l ・ ・ .l r~￣`ヽ 良い子だ 金出しな〜♪
l ・ に二ﾆ= ,. -' ｝
i＿＿＿＿＿_● ^} _,..- '" ,-､ /
＼ ノラ ' _/::/-'"
` ァ-―''7"（ _,. -'' `"
/|::| ｛::::::ヽ__,,..- '"
0954デフォルトの名無しさん
NGNGハードディスクをフォーマットしてから、OSから再インストールすれば元に戻りますが。
0955デフォルトの名無しさん
NGNG値リストに項目を追加する方法を教えて下さい。
Access2002(XP)なら「リスト名.AddItem」なんですけど・・・
0956デフォルトの名無しさん
NGNGrowsourceプロパティ
0957デフォルトの名無しさん
NGNGテンプレとか作ったりしますか？
0958デフォルトの名無しさん
NGNGもともと一発ネタのスレを再利用したに過ぎないしなぁ・・・
最近は内容がビジネスsoft板のAccess総合相談所とカブッテいる気が
しなくもないし・・・個人的には次スレ必要ないと思うんだけど。
立てるならビジ板のスレと差別化してほしい。初心者入門お断りみたいな
0959デフォルトの名無しさん
NGNGビジ板のスレとの差別化には賛成だ。
とは言っても、ネタ振りに初心者は欠かせないからなぁ。
ム板なんだから、DAO/ADO系に特化するとか・・・。
0961デフォルトの名無しさん
NGNG0962デフォルトの名無しさん
NGNG0963教えて下さい。
NGNGon error go to の構文を誰か教えて下さい。
これはエラーがおきたら・・・って意味だと思うけど
よくわかりません
0964デフォルトの名無しさん
NGNG"エラー トラップ"をキーワードにVBAのヘルプを引くべし
使い方のサンプルプロシージャと共にキチンと説明されている
あと、フォームデザイン時にツールボックスのコントロールウィザードを
有効にして、"フォームを閉じる"とかのコマンドボタンを配置してみな
生成されたプロシージャにOn Error GoToステートメントが組み込まれるでしょ？
そういうのを、よ〜く観察して理解するんだよ
0965教えて下さい。
NGNGｻﾝｸｽ!!ﾁｭ!!
0966デフォルトの名無しさん
NGNGリストボックスやコンボボックスのプロパティを見ても
それらしいものはどこにもないし…
コード内で コンボ.Style = 2 と動的に変更するのはできないみたいだし…
ヘルプをひっくり返しても見当たりません
超基本的なことですが どうか教えてください
0967デフォルトの名無しさん
NGNG探していて、下記サイトに当たったのですが‥
http://support.microsoft.com/default.aspx?scid=http://www.microsoft.com/japan/support/kb/articles/JP404/0/63.asp
データが2ページ目にまたがる時、表示がおかしくなってしまいます。
具体的に言うと、18件毎に改頁させる時に30件のデータがあったとすると、
3ページ目に罫線だけのページが出てしまいます。
そもそも改頁には対応していないのでしょうか？？
どなたか教えていただけませんか？
納期が迫っていて焦っています。
0968デフォルトの名無しさん
NGNGでも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
0969デフォルトの名無しさん
NGNGAccessでレコードをランダムにソートしたいのですが
どうやればいいのでしょう？
最初ランダム関数を使ったのですが、
確かにランダムな数値は得られるのですが、全レコード同じ値になっていまいます。
0970デフォルトの名無しさん
NGNG0971969
NGNGその名の通りランダムに並び替えるってことです。
例：
1 テスト太郎 → 3 テスト三郎
2 テスト次郎 → 1 テスト一郎
3 テスト三郎 → 4 テスト四郎
4 テスト四郎 → 5 テスト五郎
5 テスト五郎 → 2 テスト次郎
0972デフォルトの名無しさん
NGNGテスト太郎はどこ逝ったんだ（ｗ
0974デフォルトの名無しさん
NGNGクエリの ORDER BY から呼び出せばよいのでは？
(もしかすると直にRndを呼べるかも)
0975デフォルトの名無しさん
NGNGもうちょっとシラミツブシに調べたら良かろうに。
基テーブル{ID, 名前} があるとして、SQLで乱数の列を付加すると仮定しよう
はじめに思いつくのはこんな感じだろ
select ID, 名前, Rnd() AS 乱数 from 基テーブル
ところが、これで生成した乱数列の値は貴方が言うとおり一様になる
select ID, 名前, Rnd(1) AS 乱数 from 基テーブル
のようにRnd()関数に引数を渡しても結果は同じだよね
0976デフォルトの名無しさん
NGNGじゃ、SQLの中で直接Rnd()関数を使うかわりに自前で乱数を生成するプロシージャを
用意して、それをSQLから呼び出すようにしたらどうなるか？
乱数生成プロシージャ(仮)
Function Random()
Random = Rnd()
End Funciton
select ID, 名前, Random() AS 乱数 from 基テーブル
これの結果は、やはり一様の値になる
じゃ、どうすれば良いのかと言うとプロシージャに引数を渡すように変更する
Function Random(x)
Random = Rnd()
End Funciton
実際には、渡された引数はプロシージャの中では使わないけどね。
0977デフォルトの名無しさん
NGNG次にSQLの中でプロシージャを呼ぶ時にどんな値を渡すのかだが
適当な任意の値を渡しても駄目
select ID, 名前, Random(1) AS 乱数 from 基テーブル
これでも乱数列の値は変化しない
乱数を全て異なる値にするには基テーブルの適当な列を引数に渡してやる
select ID, 名前, Random([ID]) AS 乱数 from 基テーブル
これで行毎に異なる乱数を持つことができる
とりあえず入り口はここまで。
どうして、そうなるのかは自分で推測してくれ
まだ、いろいろな問題が発生してくるので自力で解決してちょ
0978みか
NGNGAccessの質問です。
初歩的な質問で申し訳ありませんが、アドバイスください。
1つのファイルを複数の人間で使うとき、デザインビューで
色々と変更できないようにするためにMDEファイルの作成が
あると思うのですが、それ以外の方法ってなにかありますか？
ただ、フォームやレポートの変更をできないようにしたいだけです。
0979デフォルトの名無しさん
NGNGつーか、IDとRNDって列のテンポラリテーブル作って
RNDに乱数いれてIDでリンクして、RNDでORDER BYするのが
やっつけ的には早いんじゃない？
0980デフォルトの名無しさん
NGNG実現する方法は一つじゃないだろうからね。
>>969の人は、どんなやり方を望んでいるのか明らかにしないから
一例を挙げてみただけなんだ。あとは本人が考えればいい。
0981967
NGNG返事が遅くなり申し訳ありません。
結論から言うと、うまくいきました。
コードではなく、設定するところ（デザイン）に問題があり、
それが原因でうまく動いていなかったようです。
お世話になりました。ありがとうございました。
0982デフォルトの名無しさん
NGNGツール→セキュリティでユーザグループの権限とアカウントを設定。
管理者のパスワード設定もお忘れなく。
0983デフォルトの名無しさん
NGNGつーか、
ORDER BY Rnd(フィールド名)
だけでいい。
フィールドが正の数値でないとかNullを含む時は
Len関数等を併用すればいい。
0984969
NGNGORDER BY Rnd(ID)を使いました。
ありがとうございました。
0985デフォルトの名無しさん
NGNGポインタは俺に対して向けなくていい
>>969の人に対してアドバイスしてやれ
0986デフォルトの名無しさん
NGNGレコードに数値型の項目が含まれていない場合は使えなくない？
0987デフォルトの名無しさん
NGNGあ、それでLen関数使うのね・・・書いてあったか・・・
0988デフォルトの名無しさん
NGNG0989デフォルトの名無しさん
NGNGですがどうすれば出来るかわかるかたおりますでしょうか
osietekudasai
0990デフォルトの名無しさん
NGNGここはひとつビジ板の相談スレに統一という方向で。
0991デフォルトの名無しさん
NGNGあのね、RDBのレコードには「先頭」とか「最後」という概念はないの。
だから、「最終レコード」が何をいみするのか胸に手を当てて考えてほしいの。
それがハッキリすれば、WHERE句とかMAX関数とか駆使すれば更新できると思うの。
0992デフォルトの名無しさん
NGNG探りたいﾃｰﾌﾞﾙでレコードセット設定してMoveLastとかじゃだめですか(;´Д｀)ハァハァ
0993デフォルトの名無しさん
NGNG・Accessに関する質問、悩み、雑談 etc.をしたい方は下記スレッドへ
ビジネスsoft
ACCESS総合相談所 その４
http://pc.2ch.net/test/read.cgi/bsoft/1027491281/l50
0994デフォルトの名無しさん
NGNG違反した場合にシステムのエラーMSGではなく
独自のエラーMSGを表示したいってやつ、出来ました。
FormのErrorイベントです。
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Response = acDataErrContinue
MsgBox "（ﾟДﾟ）ｶﾞｵｰ"
End Sub
まぁ、ちょっとオレも使う用事があって調べてみたので
参考まで。
で、1000！
0995デフォルトの名無しさん
NGNG0996デフォルトの名無しさん
NGNG0997さらしあげ
NGNG0998デフォルトの名無しさん
NGNG************ 終 了 ************
09991000
NGNG10001000
NGNG1001１００１
Over 1000Threadもう書けないので、新しいスレッドを立ててくださいです。。。
レス数が1000を超えています。これ以上書き込みはできません。