ACCESS総合相談所 その７
レス数が950を超えています。1000を超えると書き込みができなくなります。
0001名無しさん＠そうだ選挙にいこう
NGNG・OS、ACCESSのバージョンを明記してください
・質問内容は具体的に書いてください
テーブル/フォームの構成、クエリの内容など差し支えない
範囲で公開すると、早く回答が得られるかもしれません
・事前にヘルプ等で調べられる範囲は調べてください
回答される方へ
・わかる人は回答されるよう協力お願いいたします
・煽り、叩きの類は個々人の判断におまかせします(なるべく穏便に)
前スレッド - ACCESS総合相談所 その６
http://pc2.2ch.net/test/read.cgi/bsoft/1037856185/
過去スレッドリンクは>>2
0002名無しさん＠そうだ選挙にいこう
NGNG- html化済み -
ACCESS2000総合相談所
http://pc.2ch.net/bsoft/kako/965/965614164.html
ACCESS総合相談所 その２
http://pc.2ch.net/bsoft/kako/1007/10079/1007987001.html
ACCESS総合相談所 その３
http://pc.2ch.net/bsoft/kako/1019/10190/1019087338.html
ACCESS総合相談所 その４
http://pc.2ch.net/bsoft/kako/1027/10274/1027491281.html
ACCESS総合相談所 その５
http://pc.2ch.net/bsoft/kako/1033/10331/1033182163.html
0003名無しさん@そうだ選挙にいこう
NGNG0004名無しさん＠そうだ選挙にいこう
NGNGおつです
0005名無しさん＠そうだ選挙にいこう
NGNGサブフォームを含むそこそこ複雑なフォームを開く時
最適化後の一回だけ異常に待たされます。（数十秒）。
何か作り方が悪いんでしょうか？
0007名無しさん＠そうだ選挙にいこう
NGNG0008名無しさん＠そうだ選挙にいこう
NGNG無視してアクセスだけインストールする方法ありますか？
0009名無しさん＠そうだ選挙にいこう
NGNG英語版って選択インストール出来ないの？
そっちの方が不思議だが。
0010名無しさん＠そうだ選挙にいこう
NGNG8ですがバンコクのMBKで買ってきたoffice2000なんですが
wizardに従っていくと全てインストールされてしまい
選択インストール出来ないみたいです。
0011名無しさん＠そうだ選挙にいこう
NGNG不便だね。
んじゃ無理なんじゃない。
0012名無しさん＠そうだ選挙にいこう
NGNGメインレポートにサブレポートを貼り付ける時なのですが、サブレポートのレコ
ード数に合わせて、詳細領域の長さが自動的に伸びて表示してくれて、これは大
変便利です。ところが、レコード数が多くてメインレポートの詳細領域の最大長
に収まり切れない場合、改頁する設定にしても、改頁するのはサブレポートのレ
コードだけで、メインレポートの詳細領域のコントロール(罫線・ラベルなど）は
改頁しないようです。これはAccessの仕様なのでしょうか？それとも解決策があ
るのでしょうか？ご存じの方がおられましたが教えていただければ幸いです。
0013名無しさん＠そうだ選挙にいこう
NGNG段落のない長文は読む気氏ねー。
0014名無しさん＠そうだ選挙にいこう
NGNGクロス集計クエリーを作りたいのですが、期間を指定する
パラメーターがうまく機能しません。
'[販売日]'を有効なフィールド名、または式として認識できません。
と出てきてしまうのですがなぜでしょうか？
0015名無しさん＠そうだ選挙にいこう
NGNGもっと詳しく、実例あげないと誰も分からないと思われ。
「販売日」なんて出てきてないじゃん。
001614
NGNGスマソ。直前に「長文は読む気氏ねー」なんてあったので。
でもちょっと端折りすぎました。
えーと、まず商品マスターなるテーブルから「商品ID」「商品分類」
「販売金額」「販売日」と４つのフィールドを取り出して、
Between[販売日1]and[販売日2]という条件で抽出する
パラメータークエリを作りました。
で、そのクエリをもとにして、行に[商品分類]A,B,C,D,,,と取り
列に[販売金額]\1000,\2000,\3000,,,,となるように、
クロス集計クエリを作りました。
集計は[商品ID]をカウントしたものを表示するようにしています。
[販売日]で抽出しようとしなければすんなりできます。
でもそれだと過去の分も全部集計されてしまうので、
ある一定期間で販売した物だけ集計したいと
思ったのですがうまくいかなかったわけです。
001714
NGNG001814
NGNG0019名無しさん＠そうだ選挙にいこう
NGNG0020名無しさん＠そうだ選挙にいこう
NGNG段落があっても読んでくれて、なおかつ親切な人もいるよ。
そういう人で成立しているスレなんだから。
0021名無しさん＠そうだ選挙にいこう
NGNG「段落がなくても読んでくれて」の間違い。ｽﾏｿ。
0022名無しさん＠そうだ選挙にいこう
NGNG0023名無しさん＠そうだ選挙にいこう
NGNG分かった、簡単ジャン
0024名無しさん＠そうだ選挙にいこう
NGNG今酔っ払ってるので、間違ってたらゴメン。m(_ _)m
0025名無しさん＠そうだ選挙にいこう
NGNG0027名無しさん＠そうだ選挙にいこう
NGNGやめた方がいいな。
002814
NGNG詳細は>>16にあるので誰かヨロシコ。
0029名無しさん＠そうだ選挙にいこう
NGNGんな初歩的なこと質問すな
横着して質問しないでACCESSを１から勉強汁
日付データの取り扱いについてな
0030名無しさん＠そうだ選挙にいこう
NGNG演算子とパラメータの間にスペース空けろ
0031名無しさん＠そうだ選挙にいこう
NGNG書籍の1冊くらい買えよ。
嫌なら退職願だしとけ。二度と社会にもどってくんな。
0032教えてください
NGNG2002はライセンス認証が必要で、3台までしかインストールできないと聞きました。
私は4台にインストールしたいのですが、やはり4台めは無理でしょうか。
2000にはそういう制限はないと思うのですが、もう店には2002しか売ってないので
どうしたものか悩んでいます。
4台にインストールする方法などありましたら、是非教えて下さい。
よろしくお願いします。
0033名無しさん＠そうだ選挙にいこう
NGNGうそーとか思ってヨドバシドットコム見に行ったけど、
普通にAccess2000売ってんじゃん。子供みたいな事言うけど時間返せ。
0034名無しさん＠そうだ選挙にいこう
NGNGいつのまにかライセンス規定変更になったの？
アクティベーションで認証できる台数は"同時に使用しない"ことを条件に
２台目までで、３台目からはライセンス違反になると理解していたが。
３台目の認証で弾かれるかどうかは知らないけどね。
003514
NGNGアクセスのガイド本は５～６冊持ってんだけど、どれにも
書いてなかったんで本屋で違うの立ち読みしてたら書いてあった。
「クロス集計クエリのパラメーターはデータ型を指定しなくてはならない。」
って事だったんすね。それやったらバッチリできた。
まあ何にも教えてもらってないけど取り敢えず皆さんどうもでした。
0036名無しさん＠そうだ選挙にいこう
NGNG乙
0037名無しさん＠そうだ選挙にいこう
NGNGライセンスはＰＣの台数分必要。
http://www.microsoft.com/japan/info/license/
特別な場合のみ、１ライセンスで２台までインストールはＯＫ。
>◆ Select 4.X / 5.0 / 6.0、Enterprise Agreement、
>Open LicenseSelect 4.X / 5.0 / 6.0、Enterprise Agreement、
>Open Licenseでは Officeファミリー製品などの一部のアプリケーション製品について、
>業務関連での使用に限りソフトウェアを2台目の携帯型コンピュータ上で使用することが
>できます（「2つ目のコピー」）。携帯型コンピュータでの使用とは、ソフトウェアが
>コンピュータのハードディスクにインストールされた場合、そのコンピュータを使用する人が
>特定の1人に限られている時に、その人が使用する別の携帯型コンピュータ1台に
>インストールし使用することができるとするものです。
業務に使用する為に、ランタイムが必要なのなら、デベロッパーを買えば
（認められた範囲で）ランタイムの配布はＯＫになるから、Accessで作ったアプリケーションが
何台ででも使用できる。
そうではない場合は、
回線切って首つって死ね。
0038名無しさん＠そうだ選挙にいこう
NGNG表形式フォームのIDの項目をダブルクリックすると、単票形式フォームが開いてその項目に対応したレコードを表示させたいのですが、どうすればいいでしょうか？
表形式フォームのIDの項目ダブルクリック→単票形式フォーム開く。
までは行ったのですが、IDの値を拾ってきて、単票形式のIDに対応するやり方が解りません。
VBAの初歩的な質問かもしれませんが、よろしくお願いします。
0039名無しさん＠そうだ選挙にいこう
NGNG表形式のテキストBOX(内容は数値)をダブルクリック→単票形式の別フォームが開きIDが対応したレコードを表示
というのはどうすればいいでしょうか？
ダブルクリックした後、フォームを開くことは出来たのですが、IDが対応しません(一番はじめのレコードが表示される)
VBAの初歩かもしれませんが、当方VBA自体が良く分かっていないと思います。
もうしわけありませんがどなたかご教授願えないでしょうか？
0040名無しさん＠そうだ選挙にいこう
NGNG申し訳ありません。
0041名無しさん＠そうだ選挙にいこう
NGNGまず、クエリのSQLビューから
SELECT * FROM tblテスト WHERE (更新日付>#2002/01/15#) ORDER BY 更新日付;
を実行すると、更新日付(日付型(yyyy/mm/dd))が「2002/01/15」以降の5件が抽出されます。
で、コード上で同様にSELECT文でﾚｺｰﾄﾞｾｯﾄをｵｰﾌﾟﾝしているのですが、
------
strSQL = "SELECT * FROM tblテスト WHERE (更新日付>#2002/01/15#) ORDER BY 更新日付"
Set rs = db.OpenRecordset(strSQL)
lngTest = rs.RecordCount
------
とすると、lngTestになぜか「1」が入ります。
どうやら最初の一件しか取得できていないようです。
これは何がいけないのでしょうか。
よろしくお願いします。
0042名無しさん＠そうだ選挙にいこう
NGNGまずはヘルプで RecordCountプロパティについて調べるべし。
Recordsetをオープンした直後はレコード総数を取得することはできません。
最終レコードまでアクセスし終えた時点で初めて総数がわかります。
最終レコードに到達する手段として"MoveLast を使え"とヒントまで
明記されています。
いじょ
004341
NGNGなんとそんな仕様っすか。
Access歴浅くてADOしか使ってなかったので、ハマってしまいました。
申し訳ないっす。
>>38-40
テーブルに接続したフォームから、テーブルに接続したフォームを開くってUI的に必要っすか？
レコード選択して、コントロールに展開するなら、親子(サブ)フォーム使うとか、
なんだったらリストボックスでもできると思いますが、どうですか。
VBA以前の問題では。
0044名無しさん＠そうだ選挙にいこう
NGNG単票形式フォームが参照するテーブルは表形式フォームのテーブルと同じ？
それとも別のテーブル？ まぁ、いいや・・・
・表形式フォーム名をAとし、単票形式フォーム名をBとする
・フォームBが参照するフォームAの項目名はid
フォームBのRecordsourceとなるクエリーを作成
select * from table_name where id = Forms!A!id;
このtable_nameはフォームAのRecodesourceのテーブルと同じものを指す
これをQueryBとする
QueryBをRecordsourceとする単票形式フォームBを作成
VBAでゴリゴリやらなくても、こういう構造で期待する動作になると
思うけどどうでしょ？
0045名無しさん＠そうだ選挙にいこう
NGNGちょっと補足。
開くRecordsetのタイプがテーブルタイプである場合と、それ以外の
ダイナセット、スナップショット etc.である場合とでは RecordCount
プロパティに対する値の反映のされ方が違います。
004641
NGNG考えたら、
WHERE句使ってﾚｺｰﾄﾞｾｯﾄ取得→ﾚｺｰﾄﾞ数がゼロなら処理終了、
みたいな処理はいったんSQLのCountをかけないといけない訳ですか。
ゼロ件の時にMoveLastかけるとエラー出ますよね。
0047名無しさん＠そうだ選挙にいこう
NGNG開いた Recordset内にレコードが一つでもあればRecordCountの値は1になり
まったく無ければ0になります。（オープン直後）
だから、オープン直後にレコードが有るか無いか判定してから、MoveLastを
実行すればいいのではないですか？
・rs.RecordCountが0か？
・rs.EOF=Trueか？
など。
# 他にレコード有無を判定するメソッド、プロパティってありましたっけ？
# だいぶAccessから遠ざかってるんで忘れちゃった
0049名無しさん＠そうだ選挙にいこう
NGNGDoCmd.OpenForm "frm単票形式", acNormal, "", "[ID]=[Forms]![frm表形式]![frm表形式上のID]", , acNormal
※但し[ID]は単票形式フォームのレコードソースに存在する項目
ﾏｸﾛ-ﾌｫｰﾑを開く
で、Where条件式を指定する方法でもOK
0050名無しさん＠そうだ選挙にいこう
NGNG0051名無しさん＠そうだ選挙にいこう
NGNG0052名無しさん＠そうだ選挙にいこう
NGNG後者の[Form]!は必要か？
0053名無しさん＠そうだ選挙にいこう
NGNG前者は値を参照できるが後者は参照できない。
どこに書いたか知らんけど。
[Forms]![フォーム名]![コントロール名]とは、
「フォームオブジェクト(のコレクション)」の中の「フォーム名」という
名前のフォームの中の「コントロール名」という名のコントロールを指定しますよ
という意味。順番が違ったら意味を成さない。
005451
NGNG0055名無しさん＠そうだ選挙にいこう
NGNG分かってんじゃん。
0056名無しさん＠そうだ選挙にいこう
NGNG[Forms]![メインフォーム名]![サブフォーム名]![サブフォーム上のコントロール名]
0057名無しさん＠そうだ選挙にいこう
NGNGという作業を
DoCmd.transfertext acImportDelim, "インポート定義", "TBL_IMPORT", "C:\hoge\moge.csv", _
True, "", 50932
とやろうとしたら、手動のときには出来た属性の追加が出来ないのです。
どなたか、解決策をご存知でしたら教えてください。
005838
NGNGみなさんのお陰で解決いたさました。ありがとうございました
0059名無しさん＠そうだ選挙にいこう
NGNG勉強してきて、2日以内に」なんて言われてパニックです。
業務上使っている方、仕事で使う機能項目を重要なものから適当に教えて
下さい。仕事では大量のデータの傾向分析までやるみたいです。
0060名無しさん＠そうだ選挙にいこう
NGNG> 「アクセスを業務上で使えるレベルまで勉強してきて、2日以内に」
この場合の「使える」ってどういう意味？
開発だったら不可能だと思う。
0061名無しさん＠そうだ選挙にいこう
NGNG相手が本気で言っているのなら、そういつヤツとは仕事をしないように
根回しする。これ重要！
たとえキミが最強のアクセスマスターになったとしても、それを上回る
無理難題を次々と言出し、死ぬまで君を悩ませる事になるのは間違いなし！
君が頑張ってプログラムを仕上げる程に、
宛名職人みたいなのを（タダで）すぐ作れとか、
勘定奉行みたいなのを（タダで）すぐ作れとか、
ネットで注文がどんどん舞い込んで来て自動で商品が発送されて、
自動で売上金が回収出来て、自動で会社がどんどん大きくなるようなの
すぐ作れとか言出すのは時間の問題。
単に気合いの話しをしているのなら、クエリーを頑張って勉強しる！
データの選択も連結も集計も更新もクエリーを使う。出来なければ話にならない。
が、クエリーだけ出来ても、「業務上で使えるレベル」とは一般的には言えない訳だが。
0062名無しさん＠そうだ選挙にいこう
NGNG概ね同意
>単に気合いの話しをしているのなら、クエリーを頑張って勉強しる！
激しく同意
0063Kei
NGNGAccessのテーブルに、毎日２０～３０のデータを入力しています。
登録日を入れる欄があるのですが、それは当然同じ日になります。
データを日付型にしているのですが、何か連続して同じ値を
入力する方法は無いでしょうか？
例えば、ひとつ上のデータをコピーするような。。。
普通のカット＆ペーストさえできない状態です。（日付が変わってしまう）
何か簡単な方法がないでしょうか？（同じ日付をまとめてもしくは簡単に入力する方法）
よろしくお願いします。
0064名無しさん＠そうだ選挙にいこう
NGNGDefaultを入力日にするとか。
0065名無しさん＠そうだ選挙にいこう
NGNGCtrl + 7
0066Kei
NGNGありがとうございます。
>>64
シリアル番号（主キー）を入力した時点で、日付のところが
シリアル番号を入力した日になってくれれば一番楽なのですが
そのようなデフォルトってできるのでしょうか？？
>>65
ありがとうございます。確かにできました。
微妙に位置悪いですねぇ。７って（笑）
2つ以上のセルを同時にはできないから
Ctrl+7 の後の リターンの繰り返しが
微妙に打つぢらい。。。
でも、無いより10倍楽です。
ありがとうございます。
0067名無しさん＠そうだ選挙にいこう
NGNGテーブルのプロパティで日付フィールドの規定値に
date()を入れればデータ入力時に自動的に日付入るぞ
0068Kei
NGNG>>67
ありがとうございます＋すみません。
環境を説明してませんでした。
Accessなのですが、mdbではなくadpなのです。
確かにmdbでやってみたらできたのですが、adpではエラーでした。。。
残念。
0069名無しさん＠そうだ選挙にいこう
NGNG0072名無しさん＠そうだ選挙にいこう
NGNG設計者にクレーム入れれ。
0073名無しさん＠そうだ選挙にいこう
NGNGﾃｰﾌﾞﾙの既定値にgetdate()ってのは？
0074Kei
NGNG完璧です。ありがとうございました。
0075名無しさん＠そうだ選挙にいこう
NGNGマ弄れる環境って恐ろしい...
0076名無しさん＠そうだ選挙にいこう
NGNGアクセスで日々の売上金額を記録して行ってるのですが、
週毎の累計推移をグラフ表示する良い方法はありません
でしょうか？
９８ＳＥ上でアクセスＸＰを使っています。
宜しくお願いします。
0077名無しさん＠そうだ選挙にいこう
NGNG最も簡単なのはexcelにエクスポートすること。
技術があるなら、excelオブジェクト使って、コーディングして自動化しる。
0078徹夜三課目
NGNGレポートで各レコードのページを３枚（同じレコードを３回）表示させたい。
（データの作り込みで何とかするのではなくあくまでもレポート上で）
レポート内でモジュールを書いてもうまく制御できない。
例.テーブル構成レポート表示
ID氏名1ページ目 AAAA
01AAAA2ページ目 AAAA
02BBBB3ページ目 AAAA
03CCCC4ページ目 BBBB
5ページ目 BBBB
6ページ目 BBBB
7ページ目 CCCC
8ページ目 CCCC
9ページ目 CCCC
宜しくお願いします。
0079徹夜三課目
NGNGレポートで各レコードのページを３枚（同じレコードを３回）表示させたい。
（データの作り込みで何とかするのではなくあくまでもレポート上で）
レポート内でモジュールを書いてもうまく制御できない。
例.テーブル構成 レポート表示
ID 氏名 1ページ目 AAAA
01 AAAA 2ページ目 AAAA
02 BBBB 3ページ目 AAAA
03 CCCC 4ページ目 BBBB
5ページ目 BBBB
6ページ目 BBBB
7ページ目 CCCC
8ページ目 CCCC
9ページ目 CCCC
宜しくお願いします。
0080名無しさん＠そうだ選挙にいこう
NGNG>データの作り込みで何とかするのではなくあくまでもレポート上で
の意味が良くわからんけど。
1.印刷するとき部数を3で。
2.レポート上に同じコントロールソースのテキストボックスを3つずつ作る。
って縦に3ページ並ばないかな？
3.印刷用にテンポラリのテーブルを作る。そこに追加クエリなりで元のデータを
流しこんでレポートのレコードソースにする。
4.新しくテーブルを1個作ってフィールドをひとつ作る。数値型でいいや。
で、1,2,3と3つレコードを入力。元のテーブルとこの新しいテーブルでクエリを作る。
元のテーブルのフィールド全部を選ぶ。元と新で"結合をしない"。クエリを開くと
元のテーブルのレコードが3つずつ並んでいるはず。これをレポートのレコードソースに。
好きなの使って。まだなんか方法あるかな？
0081名無しさん@そうだ選挙にいこう
NGNG0082名無しさん＠そうだ選挙にいこう
NGNGそのボタンを押すとレポート全部の枚数(氏名でグループ化しておくとか)が
3枚ずつ出るようにすると言うのでいいのかな？それとも、3枚ずつそれぞれ
ページ数も連番にならないといけないの？
ページ数連番を考慮外にして、単に3枚ずつ出力すればいいと仮定するなら…
フォーム上に｢印刷｣ボタンがあると仮定する。
ボタンを押した時、印刷に必要なクエリーによりレポートを作成。
Docmd.OpenReport "レポート名",acViewPreview
Docmd.PrintOut acPrintAll, ,3
Docmd.Close acReport, "レポート名"
これで、全ページが3部ずつ印刷できると思うが…
ページを3枚ずつ全氏名分連番にする必要があるなら、もう少しひねる必要があると思う。
これでどうだろうか？
008382訂正
NGNG>そのボタンを押すとレポート全部の枚数(氏名でグループ化しておくとか)が
この上に｢フォーム上に｢印刷｣ボタンがあると仮定する。｣の一文が入る。
フォーム上に｢印刷｣ボタンがあると仮定する。
そのボタンを押すとレポート全部の枚数(氏名でグループ化しておくとか)が
3枚ずつ出るようにすると言うのでいいのかな？それとも、3枚ずつそれぞれ
ページ数も連番にならないといけないの？
…となります。
0084名無しさん＠そうだ選挙にいこう
NGNGイマイチ状況が判らないのだが……
1.元データが入っているテーブルはいじらない。
2.何でもいいからレコードが３件入っているワークテーブルを作成。
3.新規に選択クエリーを作成し、データテーブルとワークテーブルを追加。
フィールドは何も結びつけず、レポートにつかうフィールドを選ぶ。
4.クエリー上は元データ×３のレコードが選択される。
5.クエリーを元にレポートを作成。
ってのはどうか？
もし、同一内容で提出先が３箇所の書類を作ってたりするんだったら、
３件いれたワークテーブルのほうに提出先名を作っておけば
タイトルも印刷できるぞ。（「客先用」「提出用」「控用」とか）
ハズし率７５％くらいか？
0085名無しさん＠そうだ選挙にいこう
NGNG008780
NGNG>76 フォームをデザインビューで開いて、挿入-グラフでグラフウイザードが。
0088名無しさん＠そうだ選挙にいこう
NGNG伝票発行系なら、未だにその方法が多いかと。
ペンによる直接書き込みが複写できるし。
0089名無しさん＠そうだ選挙にいこう
NGNGレポートのデザインで改ページを入れたら？
0090名無しさん＠そうだ選挙にいこう
NGNGaccessに入力してるとすぐ、他のユーザーがロックしています
とかいう表示が出て、何も入力できなくなってしまいます。
閉じてまた開くと、最後に入力したとこが消えていて、
しばらく入力してると、またロックされ…その繰り返し。
そのとき他の誰もaccessを使ってないのですが、どうしてでしょう？
全くの初心者です。面倒でしょうがどなたか教えてください。
0091名無しさん＠そうだ選挙にいこう
NGNG仕様でつ。
0092名無しさん＠そうだ選挙にいこう
NGNGこれこれ。
0093名無しさん＠そうだ選挙にいこう
NGNG毎回そうなるのか？
009491
NGNGそのシステムを誰が作ったのかによる。
社内の誰かが作ったなら、初心者の仕事だ許してやる。
外注なら、無能な発注担当者にクレーム入れる。
009590
NGNG他の支店の人で、連絡してもほとんど外出中。。。
自分でなんとかできるかと思ったのですが、作った人間じゃないと
どうにもならないということでよろしいんですね？
どうもありがとうございました。
これを機に自分もaccess使えるようになりたいです。
おそらく既出でしょうが、0からaccess覚えるのに
最適な入門書などありましたらどなたか教えてください。
0096名無しさん＠そうだ選挙にいこう
NGNGよっぽど変なビュー（選択クエリー）を作ったんでしょうねえ。
レコードソースがよっぽどへたくそなんだと思います。
-----
こういう複数人数が叩くテーブルって非連結フォームで作る以外にみなさんどうしてます？
0097名無しさん＠そうだ選挙にいこう
NGNG６桁は、年下１桁＋月２桁＋３桁連番として下３桁は月ごとに００１から振り直すというものを考えています。
教えて君ですいませんがよろしくお願いします。
Win2000、Access2002です。
0098名無しさん＠そうだ選挙にいこう
NGNG取り急ぎヒントから。フォームの「挿入前処理」イベントプロシージャを使う。
0099名無しさん＠そうだ選挙にいこう
NGNG面倒だけど、やっぱり非連結フォームでやってる。
0100名無しさん＠そうだ選挙にいこう
NGNG（ ´∀｀）/＜先生！流行ってます。http://homepage3.nifty.com/digikei/ten.html
＿ / / / ＼＿＿＿＿＿＿＿＿＿＿＿
＼⊂ノ￣￣￣￣＼
||＼ ＼
||＼||￣￣￣￣￣||
|| ||￣￣￣￣￣||
0101名無しさん＠そうだ選挙にいこう
NGNGもうすぐ春ですね、ココは春満開！！
0102名無しさん＠そうだ選挙にいこう
NGNGJetを使わない。
0103名無しさん＠そうだ選挙にいこう
NGNG別MDBのテーブルにリンク貼って使ってました。
５、６人なんですけどまずいですか？
0104名無しさん
NGNG0105名無しさん＠そうだ選挙にいこう
NGNG次のようなクエリがあります。
日付 氏名 勤務状況
2002/12/01 山田 通常
2002/12/02 山田 出張
（省略）
2003/01/30 山田 年休
2003/01/31 山田 通常
これをもとに
「山田の出勤状況一覧」
月/日 １日 ２日 ３日…３１日
１２月 通常 出張 出張 年末休
１月 年始休 年始休 通常 通常
というレポートを作りたいのですが
「○日」のフィールドをどうやって作り、どうやって勤務状況を
いれればよいか判りません。
どなたか教えて下さい。
0106名無しさん＠そうだ選挙にいこう
NGNGUNIONででけんの？
0107名無しさん＠そうだ選挙にいこう
NGNG> ６桁は、年下１桁
西暦2010年問題で破綻するヨカーン。(ｗ
> 下３桁は月ごとに００１から振り直すというものを考えています。
契約が1000件を超えて運用が破綻するヨカーン。
0108徹夜三課目
NGNG皆さん、ありがとうございました。
>4.新しくテーブルを1個作ってフィールドをひとつ作る。数値型でいいや。
で、1,2,3と3つレコードを入力。元のテーブルとこの新しいテーブルでクエリを作る。
これでうまくいきました。
また宜しくお願いします。
0109
NGNG0110105
NGNG早速のレスありがとうございます。
UNIONってSQLで書かなければいけないんですね。
SQLは苦手なのでつまずいたらまた質問させて頂くことになるとは思いますが、
頑張ってみます。ありがとうございます。
0111名無しさん＠そうだ選挙にいこう
NGNGUNION使わなくても、レポート自体にDlookupで表示できると思います。
|1日 |2日|3日…
－－－－－－－－－－－
12月 |[A] |[ ]|[ ]
－－－－－－－－－－－
1月 |[ ] |[ ]|[ ]
－－－－－－－－－－－
2月 |[ ] |[ ]|[ ]
と言う表をレポートで作ります。
クエリーでは｢山田｣さんの勤務状態を取り出すクエリーに
month: Mid(CStr([テーブル名]![日付]),6,2)※月のみをテキスト型で取り出す
day: Right(CStr([テーブル名]![日付]),2)※日のみをテキスト型で取り出す
この2つを追加したクエリーを作成します。
レポートの例えば上記のAと言うテキストボックスのコントロールソースに
=DLookUp("kinnmu","クエリ1",(("month = '12'") And ("day = '01'")))
と言う式を入れると12月1日の勤務状態が表示されるはずです。
こんな方法で如何でしょうか？
0112111
NGNG>=DLookUp("kinnmu","クエリ1",(("month = '12'") And ("day = '01'")))
この式の"kinnmu"は勤務状況のフィールド名
この式の"クエリ1"は上記111で指定して作成したクエリー名
フォームあるいは何らかの指定で年(あるいは年度)や月、氏名を指定させれば、
他の人の勤務状況レポート、他の月や年にも応用可能(のはず)です…
0113名無しさん＠そうだ選挙にいこう
NGNGフォームと言うフォーム上に年月日を表示するフォームがあるとする。
box_dateと言う名前と仮定し表示は2003/01/01
6桁のコードは
mid(cstr(forms!フォーム!box_date),4,1)&mid(cstr(forms!フォーム!box_date),6,2)&format([月のレコード数]+1,"000")
※mid(cstr(forms!フォーム!box_date),4,1)はmid(cstr(forms!フォーム!box_date),3,2)の方が良いと思われる
と言う感じで、どうでしょうか?もしかしたら、どこか間違えているかもしれませんが…。
ヒントはMid関数、Format関数ですね。
ただし、これをどう記入するかはいろいろ方法があります…
月のレコード数の取り方もいろいろ方法があります…
これらのことは別途考えて見てください。
0114110
NGNG実はユニオンを調べていたのですが
複数テーブルを繋げるものばかりで
複数フィールドを１レコードにまとめるものを
作れず困っていました。
DLOOKUPで出来ました。あとはコピペで365個作ります。
ありがとうございました。
あと、ユニオンも覚えられたし、SQLもだいぶ慣れました。
>>106さんもありがとうございました。
また何かあったらお力添えお願いします。
0115ビジネスアシスト社
NGNGメールアドレス収集ソフト、ＤＭ送信ソフトなど各種宣伝用ツールを
格安でご提供いたします。
http://www.bizassist-jp.com/?ID=B0484
0116111
NGNGもう少し楽になる方法(?)として、月表示(1月とか2月)の1とか2とかのラベル
をDLookupに組み込む方法があります。
"month = '12'"の'12'にReports![レポート名]![月表示のラベル名]を指定す
ることが出来ます。この場合、ラベル内の文字に｢月｣があってはエラーに
なりますので注意してください。Cstrで文字列にしましたので、レポートの
ラベル内文字をCStrで文字列に変換しないといけないかもしれません。
いろいろやってみてください。
0117いちょう葉エキス
NGNGヘルプをあたってもどうにもよくわかりません。
当方Access2000です。
テーブル作成に際して、
あるフィールドＡのルックアップ列のためのSQLクエリ中のWhere句で、
現在入力中レコードの、フィールドＢの値を使いたいのですが、
そのような書き方ってあるでしょうか。
１）列Ａを入力する
２）列Ａの値により列Ｂのドロップダウンリストの集合が決まる
ということをしたいのですが・・・
0118いちょう葉エキス
NGNG=========================
１）フィールドＢを入力する
２）フィールドＢの値によりフィールドＡのドロップダウンリストの集合が決まる
ということをしたいのですが・・・
=========================
でした。
0119名無しさん＠そうだ選挙にいこう
NGNGフィールド、フィールドって、テーブルを直に更新している時の話しかね？
だったら無理かと。
通常はフォームを使うが、クエリでもできるかも。
0120いちょう葉エキス
NGNGはい、テーブルのデータシートビューで直更新時です。
そうですか・・・フォームやクエリの勉強に切り替えます。
レスポンスありがとうございました。
0121名無しさん＠そうだ選挙にいこう
NGNG私はテーブル上での指定は分からないけれど、どちらかと言うと
入力フォームを作った方が良いのではないでしょうか?
入力フォームと言うフォーム名と仮定する。入力フォームには
1)入力フォーム自体のプロパティでレコードソースをT_mainに指定、規定のビューは｢帳票｣か｢データシート｣
2)com_A(フィールドAの値を表示するコンボボックス)
3)box_B(フィールドBの値を入力するテキストボックス)、コントロールソースはT_mainのフィールドB
テーブルは
1)データを格納するテーブルをT_main(フィールドA、フィールドBを含む)
2)フィールドBの値により変化するフィールドAのドロップダウンリストの集合体(テーブル)をT_fieldA
※この場合T_fieldAの値はbox_Bの値によりグループ分けできる要素があるとする
クエリーは
1)T_fieldAから条件forms!入力フォーム!box_Bでcom_Aに表示する内容を抽出するクエリの名をQ_comAとする
上記の条件で
1)入力フォームのbox_Bのプロパティで変更後に｢プロシージャ｣で、docmd.Requery "com_A"を記入
2)入力フォームのcom_Aのプロパティでコントロールソースに値集合タイプ=テーブル/クエリ、
値集合ソース=Q_comAと指定する
3)com_Aの連結列、列数に注意のこと
以上のようにすると、フィールドBに該当するbox_Bに値を入力してcom_Aをクリックするとリストが表示される。
詳しくは、1冊本買って読みながらやった方が良いと思われ…
0122名無しさん＠そうだ選挙にいこう
NGNGcomとかboxとかも素人っぽくて見るに耐えない。
名前付け規則勉強しる。
0123121
NGNGこれは
T_fieldAの値の中から、入力フォームのbox_Bの値によりcom_Aに表示する値を抽出するクエリを作成し、
その名をQ_comAと名づけると言うことです。
あくまで、box_B(フィールドB)の値によりcom_A(フィールドA)に表示されるリストの値の元になる集合は、
T_main(データテーブル)外にT_fieldAとして持っていることとしています。
分かり難い説明でごめんなさい。
頑張ってやってみてください。
0124121
NGNGすみません…私も初心者なものですから。
勉強しなおします。
0125名無しさん＠そうだ選挙にいこう
NGNG概ね胴衣だが、言い過ぎ。
>>124
確かに名前付け規則勉強しておくと、多人数での保守時に便利。
昔誰かが作った会社の帳票出力用のシステムのソースなんて、
かろうじてコントロール名変えているが、規則性があまりなく、読む気がおきねーので
使いづらいのガマンしてるくらい。
いずれ一からつくりかえてやろうかと思っている。
ｶﾞﾝｶﾞﾚ。
0126名無しさん＠そうだ選挙にいこう
NGNGやるところだと思っていたが…トーシロは出入り禁止か。
これでまた、ヒントくれる奴が減ったな…
0127名無しさん＠そうだ選挙にいこう
NGNG話し合うのはいいことだ、と思た。
自分も名前付け規則とやらを勉強しようっと。
Google逝ってきまっす。
0128名無しさん＠そうだ選挙にいこう
NGNGどうしたら良いのか書けよ。
ただの例示にハンガリアンノーテーションでも書けってか？
comだのboxだの付いただけ、ただのAやBより親切だろが。
実際のコーディングしてる訳じゃないんだから、意味がわかりゃ
AやBだって問題ない。
少なくとも何の役にも立たない>>122みたいなレスよりずっと良い。
0130名無しさん＠そうだ選挙にいこう
NGNGコマンドボタンのプリフィックスはcmd、みたいな奴だな
http://homepage2.nifty.com/inform/vbmania/etc/code_naming.htm
チームでのコーディングの際は、チーム全員で
統一しておかないとコードの可読性が下がるから開発速度が下がってしまうってことだね
Microsoftが提示しているものなので、従って間違いは無いだろうけど、
個人で作るならどうでもいいんじゃねーかな
わいわい騒ぐほどのことじゃない
0131名無しさん＠そうだ選挙にいこう
NGNG素朴な疑問…
ググッても｢アンダーバーはイカン｣って言うのは今のところ見つからないんだ。
しかも、名付け規則って｢複数人数で行う際の効率化｣と言う問題だけなのかな?
｢ウンコ｣とまで言われるからには、バグに引っかかるとかエラーが起きるとか、
重大なミスでもあるのかと思っていたんだけど…単に｢複数人数で作るときの
ルール化｣と言う問題だけなのかな？
知ってる人に、後学のために教えて欲しいだけなんだけど…
0133いちょう葉エキス
NGNGできました！！！
ありがとうございます。
access凄い。OracleとVBで組んでた頃(もう８年前・・・）
から考えるとあの頃の苦労がアホみたいです。
ハンガリアン記法については、古今より賛否両論ありますが、
VB互換系では、やっぱり便利と思います。
0134いちょう葉エキス
NGNGバシバシつかっていたけれど・・・
0135名無しさん＠そうだ選挙にいこう
NGNG漏れはサンデーアクセスな上にプログラマでも何でもない
一人でコソコソ自分の業務処理を作って楽しんでるだけなんで、
正直、どっちを信じていいのかわからん…
頼む！誰か真実を教えてくれ～
0136名無しさん＠そうだ選挙にいこう
NGNGID Like 'b_'
みたいな。
0137名無しさん＠そうだ選挙にいこう
NGNGそれで？
ｺﾝﾄﾛｰﾙﾈｰﾑと何が関係あるんだ？
0138いちょう葉エキス
NGNG休日前の貴重なお時間を割いて初歩的な質問に答えていただいた
>> 119 さん、
>> 121 さん、
ありがとうございました。なんかいろんな意味で新しい世界です。。。
（始めて２ちゃんねるに書き込みしてすぐRes来たのでちょっと感動）
0140名無しさん＠そうだ選挙にいこう
NGNG（）（I） （I） ／￣￣￣￣￣￣￣￣￣￣￣
ヽ Д） ＜ アンダーバーとか使うヤシはウンコ
） （ ＼＿＿＿＿＿＿＿＿＿＿＿＿
γ ヽ ∧
/ ﾉ） （ﾉ ） ∬（＿）∬
(⌒ヽヽ / /⌒) （＿＿）
ヽ W⌒Wヽ_フ（＿＿＿）
/ノ ⊂´⌒つ；・∀・）つ
0142名無しさん＠そうだ選挙にいこう
NGNG0143105
NGNG今日は休みなので明日やってみます。
0144☆☆☆
NGNG発見する方法を教えてください！！
0145名無しさん＠そうだ選挙にいこう
NGNG両方のテーブルのレコードセット開いて全通り比較。
0146☆☆☆
NGNG同じセル（？）を発見できませんか？
0147名無しさん＠そうだ選挙にいこう
NGNG1テーブル内で全フィールドあるいは1フィールド内の値が同
じデータを見つけたいと言うことなのかな？
いちばん簡単なのは画面上にあるクエリーの｢新規作成｣で
｢重複クエリーウィザード｣を使う方法だと思うけど?
それじゃ、出来ない?
0148名無しさん＠そうだ選挙にいこう
NGNG途中で処理挟むことも出来るし。
0149148
NGNG0150名無しさん＠そうだ選挙にいこう
NGNGSendkeys何ちゃらでWindoesを終了させるやり方
だいぶ前、「Accsess Windows 終了」で検索かけたときは
ほぼ一発で見つかったんですが、今回はダメみたいで。
Sendkeysの後、たしか%とか~とか入っていたような気がするんですが、
他はまったく思い出せません
0151150
NGNGSendKeys "%{F4}S~", False
AppActivate ("Program Manager")
と。
お騒がせしました。
では。
0152名無しさん＠そうだ選挙にいこう
NGNG2000だと97のFlexGridって無いの？アクセスなんて97しか触ったこと無いんで。
0153名無しさん＠そうだ選挙にいこう
NGNG97だからあるんじゃなく、VB自体かVBのFrexGrid使ったソフト入れていたから
コントロール一覧に出たんじゃないかと。
0154名無しさん＠そうだ選挙にいこう
NGNGモジュールって、どうやって使うの？
式とかわからない
0155名無しさん＠そうだ選挙にいこう
NGNG>>式とかわからない
では使えません。
まずはマクロを作って、[ツール]-[マクロ]-[マクロをVisual Basicに変換]
をしてみて、どんなもんか見当をつけましょう。
マクロもワカラナイ場合は入門書から勉強しましょう。
いずれにせよ、Visual Basic for Applicationsの命令が
少しは分からなければ使えません。
使えるようになると何か良いことがあるかというと、
オリジナルの関数を作ったり、マクロにない処理を組み込んだりできる
ようになります。
逆に言えば、クエリー、フォーム、レポート、マクロの組み合わせで
用が足りているなら、どうしても絶対使わなければならない物でも
ありません。
0156名無しさん＠そうだ選挙にいこう
NGNG155
0157名無しさん＠そうだ選挙にいこう
NGNG複数個あるMDBファイル（ファイル名は国名＋年月）の中のテーブル（テーブル名は同じ）からデータを
インポートするのですが、この手順を自動化したいのです。
ただインポートするだけではなく、インポートの際に列を絞り、演算を行いたいです。
0158名無しさん＠そうだ選挙にいこう
NGNGこんなん？
Sub 国別インポート
Docmd.RunSQL "Insert Into tblインポート先(fld項目1,fld項目2) " & _
"Select fld項目1,fnc関数(fld演算項目) From " & _
"tblインポート元 In 'C:\Work\日本200302.mdb';
Docmd.RunSQL "Insert Into tblインポート先(fld項目1,fld項目2) " & _
"Select fld項目1,fnc関数(fld演算項目) From " & _
"tblインポート元 In 'C:\Work\中国200302.mdb';
end sub
0159名無しさん＠そうだ選挙にいこう
NGNGWinXP + Access2002（2000形式ADP+MSDE）です。
売上データの様なものを管理しているのですが、
Win2000 + Access2000よりバージョンアップしたところ
サブフォームが変な挙動を示すようになってしまいました。
メイン-サブは出庫IDでリンクさせているのですが、
サブフォーム（売り上げ詳細）を修正若しくは新規入力した後
サブフォームのカレントレコードが先頭にすっ飛んでしまいます。
サブフォームに入力後、メインフォームの合計金額・消費税を
VBAにて修正しているのですが、そのタイミングで先頭レコードに移動するみたいです。
心当たりのある方いらっしゃいますか？
0160名無しさん＠そうだ選挙にいこう
NGNGメインフォームに書くとき、
ついでにしてることってない？
0161名無しさん＠そうだ選挙にいこう
NGNGPrivate Sub Form_AfterUpdate()
Me.Parent.Controls("出庫金額総計") = DSum("出庫金額", "廉売マスター", "出庫ID = " & Me.出庫ID)
Me.Parent.Controls("消費税") = Fix(DSum("出庫金額", "廉売マスター", "出庫ID = " & Me.出庫ID) * 消費税率)
End Sub
一行目実行後先頭にすっ飛びます。
ちなみに、メインフォームはこんな感じです。
Private Sub Form_Current()
Me.日付.SetFocus
End Sub
Private Sub Form_Open(Cancel As Integer)
Me.OrderBy = "日付,出庫ID"
Me.OrderByOn = True
End Sub
0162名無しさん＠そうだ選挙にいこう
NGNGTableDefやらQeryDefでオブジェクトを作成するとき、
同じ名前のオブジェクトがあるとエラーになります。
エラーをださない方法を教えてください！
0163名無しさん＠そうだ選挙にいこう
NGNG正直、意味が分からない。
Nothingでもかけて、同じ名前のオブジェクトを殺しておけば？
0164名無しさん＠そうだ選挙にいこう
NGNGあとからTableAを作成しようとすると実行エラー3010?見たいなエラーがでます。
おそらく同じ名称のテーブルがもともとあるからですよね。
0165名無しさん＠そうだ選挙にいこう
NGNG2002/08/09 1 2500
2002/08/09 2 3500
2002/08/13 4 1000
2002/08/13 1 500
上のようなテーブルを月日ごとに
人数、金額を合計するSQLはどのように
書けばよろしいのでしょうか？ExcelのSUMIFのように。
0166名無しさん＠そうだ選挙にいこう
NGNGSELECT [月日], Sum([人数]) AS 人数計, Sum([金額]) AS 金額計
FROM hoge
GROUP BY [月日];
で、如何でしょう？
0167名無しさん＠そうだ選挙にいこう
NGNGちょっとやってみます。ｃ⌒っﾟ∀ﾟ)っφ ﾒﾓﾒﾓ...
0168165
NGNG( ﾟДﾟ)ｳﾏｰなこといきました。ありがとうございます。
貴方に神のご加護がありますように。
0169名無しさん＠そうだ選挙にいこう
NGNGこれがIEのキャッシュを参照している様なので、キャッシュを参照しないようにする事は可能でしょうか？
http://www.allapi.net/apilist/A9157204909015547863E48E3E348BE6.html
0170169
NGNGbrowserコントロールも試したのですが、画像のストレッチや、ファイルタイプがbmpの場合、
なぜかペイントが起動してしまうので困っています。
0171名無しさん＠そうだ選挙にいこう
NGNGレポート等を印刷したとき、印刷中のステ－タス表示メッセ－ジが出ますが、
それを表示させない方法はありますか？
API等でできるんであれば、それでもいいんでご教授願いたいです。
0172名無しさん＠そうだ選挙にいこう
NGNGそのリンクが切れているので、詳しくは分からないけど、
キャッシュでも良いのでは？
明示的に更新してからキャッシュを参照じゃダメなの？
>>171
どんなメッセージ？
プリンタドライバが表示しているメッセージボックスは消せないよん。
0173171
NGNG印刷中
現在'rpt_xxx'の1ページを
canon-xxxのLPB-xxxで
印刷しています。
キャンセル
こんな感じのメッセージボックスの奴です。わかるかな？
昔勤めてた会社のVBで作ってあったシステムが、メッセージボックスが出ないで
印刷されてたので、ACCESSでもできるのかなぁと・・
VBでもPrinterObjectで印刷かけると出ないみたいですね。
ACCESSじゃなくてVBならできるんであればそのやり方も教えて欲しいのですが・・
スレ違いになってしまいすみません。
0174名無しさん＠そうだ選挙にいこう
NGNGうち普通にそんなの出ないよ。
>>172が言うようにドライバが出してんでは？
別に出ても良いじゃん。
0175名無しさん＠そうだ選挙にいこう
NGNG簡単だから自分で調べてみ。
やってみて、わからない所があれば改めて聞きにおいで。
0176名無しさん＠そうだ選挙にいこう
NGNG「い」という語で表示するにはどうすればいいでしょうか？
0177176
NGNGコントロールソースに、「種類」というフィールド名を指定しているのですが、
その種類の中のデータが1のときは、「あ」2のときは「い」と表示したいのです。
0178名無しさん＠そうだ選挙にいこう
NGNG別に
1 あ
2 い
みたいなテーブル作ってクエリで繋いでソースに。
0179名無しさん＠そうだ選挙にいこう
NGNGマクロで値の代入で行えばいい。
0180名無しさん＠そうだ選挙にいこう
NGNG0181名無しさん＠そうだ選挙にいこう
NGNGプレビュー見ながら幅を調整する。
0182名無しさん＠そうだ選挙にいこう
NGNGフォームで、マクロを使ってテキストボックスを使用付加にする場合は、
[テキストボックスの名前].Enabled
false
ですが、マクロで入力付加にする場合は、どうすればいいですか？
0183名無しさん＠そうだ選挙にいこう
NGNGLocked
ture
で編集不可
Locked
falseで
編集可能
0184171
NGNGいろいろググって、
http://www.users.gr.jp/ml/archive/access/545.asp
とか出てきたんですけどレスついてなかったり、リンク切れてたりでした。
中には「出来ません」ときっぱり言ってるとこもあってあきらめてたんですけど
正直やってみてわからないじゃなくてどこを設定したらいいかも見当つきません。
教えて君で申し訳ないんですがヒントだけでもいただけないでしょうか？
0185名無しさん＠そうだ選挙にいこう
NGNG誤ってデータベースウィンドウからあるテーブルを
消去してしまいました。もう元に戻す事は出来ない
のでしょうか？
0186名無しさん＠そうだ選挙にいこう
NGNG不可。
0187名無しさん＠そうだ選挙にいこう
NGNG20レコード抽出するクエリ作ってそれをレコードソースにしたらええ。
0189名無しさん＠そうだ選挙にいこう
NGNGどうすればいいでしょうか？
0190名無しさん＠そうだ選挙にいこう
NGNGテーブル更新の後にRequeryを実行。
0191名無しさん＠そうだ選挙にいこう
NGNGリストボックスに表示された１レコードをクリックすると、その詳細が別のフォームで
表示出来るようにしたい。
クエリーで抽出したレコードをリストボックスに持ってくる所までは出来たのですが、
レコードをクリックして別フォームに詳細出力させる方法が分かりません。
どなたかお知恵を．．．。
当方の環境は、Win2K＋Access2000です。
0192名無しさん＠そうだ選挙にいこう
NGNGリストボックスをクリック時のイベントで別フォームを開いて
別フォームのレコードソースにリストボックスの値で抽出するクエリー書け
0193191
NGNG早速のご回答有難うございます。
こんな感じで設定したのですが、どうも上手くいきません。
(1)リストボックスＡ
・プロパティ「ダブルクリック時」の値 => 「マクロＡ」
(2)マクロＡ
・アクション「フォームを開く」の値 => 「詳細用フォーム」
(3)詳細用フォーム
・プロパティ「レコードソース」の値 => 「クエリＡ」
(4)クエリＡ
・抽出条件の値 => [Forms]![一覧用フォーム名]![リストボックス名].[Column1]
上記(3)の詳細用フォーム単体で実行した場合には機能しているようですが、一覧用フォーム
からリストボックスをクリックするとダメです。（フォームに何もデータが表示されない）
リストボックスから正しく値が渡されていないように見えます。
どの辺りが悪いのでしょうか？
0194192
NGNGColumn(1)じゃないのか？
0195191
NGNGColumn(1)でも結果は全く同じなんです．．．。
0196192
NGNG0197192
NGNG[リストボックス名].Column(1)ね
0198191
NGNG値を”[Forms]![一覧用フォーム名]![リストボックス名].Column(1)”
に変えてみましたが、クエリーを実行するとエラーになってしまいます。
"Column(x)"は括弧でくくらないと駄目みたいですね。
※エラーメッセージ：
『式に未定義関数があります。
'[Forms]![一覧用フォーム名]![リストボックス名].Column'』
他にも色々と試してみます。
0199175
NGNGWindow関連のAPIについて調べてみよう。
まずはハンドルでも取得してみ。
0200171
NGNGありがとうございます。
調べてやってみます。
0201169
NGNG明示的に更新ってACCESSで出来るのでしょうか？
0202名無しさん＠そうだ選挙にいこう
NGNG0203名無しさん＠そうだ選挙にいこう
NGNGフォーム上のリストボックスであれば、
連結列をクエリーで必要な列にして、
フォーム上の表示が違うようなら列数、列幅で調整する。
これで、クエリー内の指定は[Forms]![一覧用フォーム名]![リストボックス名]
にすればいけるのでは？
ただし、リストが複数選択を許可してる場合は？？？？？
あるいはColumnの指定でだめなら、関数作ってクエリーに
入れ込んだ方がいいと思う。
0204191
NGNG連結列をクエリーで必要な列にして、
クエリー内の指定を、[Forms]![一覧用フォーム名]![リストボックス名]
とすることで上手くいきました。
有難うございました！
0205名無しさん＠そうだ選挙にいこう
NGNG亀レスですが>133 いちょう葉エキスさん、無事解決良かったです。
>175さん、その後どうなったのでしょう。
私も自宅会社の両環境で同じダイアログ（プリンタは違うメーカー）が出ます。
別に何の問題もないから気にもしなかったけれど、175さんの質問に
「そう言えば…」と思っていろいろ調べてみてますが、引っかかりません。
APIでもあまり引っかからないのは、検索の仕方がヘタレだからでしょうね。
何か手があるのでしょうかね？分かったらご報告いただきたいです…
0206205
NGNGすみません、逝ってきます…
0207171
NGNGまだ解決できてません。
>175さんにいわれたAPIでWindowの取得は出来てるんですが、
それから先に進んでいません。正直まだあまり調べてないので
明日以降またチャレンジします。
出来たら報告しますね。
0208名無しさん＠そうだ選挙にいこう
NGNG特にCloseWindow()やDestroyWindow()など…如何でしょう？
ttp://homepage1.nifty.com/MADIA/vb/VBKANREN.htm
ttp://www.ecoop.net/coop/api/function.html#CreateWindow
私もがんばってみます…
0209名無しさん＠そうだ選挙にいこう
NGNG表形式レポートで値の入っていないテキストボックスに斜線を引きたいと思っています。
ところが、直線は条件付き書式がありません。
レポートを開くときのイベントに
If IsNull(Me.[テキストボックス名]) = False Then
Me.直線67.Visible = False
Else
Me.直線67.Visible = True
End If
と書くと、最初のレコードの該当テキストボックスの状況に
依存してしまいます。
解決策をお願いします。
0210名無しさん＠そうだ選挙にいこう
NGNG[レポートを開くときのイベント]→[詳細フォーマット時]
に変えてみては？
0211171
NGNGとりあえず、できました。まだ不完全ですが・・
APIでアクティブなウィンドウのハンドルを取得して(GetForegroundWindow)
ウィンドウをタイトルバーのテキストをバッファにコピーする。(GetWindowText)
レポートを開くときに、
Private Sub Report_Open(Cancel As Integer)
Dim lngWindowHandleForeground As Long
Dim strWindowText As String * 128
Dim lngWin32apiResultCode As Long
Dim Ret As Long
' アクティブなウィンドウのハンドルを取得
lngWindowHandleForeground = GetForegroundWindow()
' アクティブなウィンドウのタイトルを取得
lngWin32apiResultCode = _
GetWindowText(lngWindowHandleForeground, _
strWindowText, _
Len(strWindowText))
' アクティブなウィンドウのタイトルを表示
If Left(strWindowText, _
InStr(strWindowText, vbNullChar) - 1) = "印刷中" Then
Ret = DestroyWindow(lngWindowHandleForeground)
End If
End Sub
で、205さんに教えてもらったDestroyWindowで消えたのですが、
フォーカスがACCESS以外に行ってしまいます。（たとえばフォルダを開いていたら
そのフォルダがアクティブになってしまう。）
ちなみにCloseWindowを使うと印刷中のフォームが最小化されて左下に行くのですが、
印刷中のフォームの跡が白く残ってしまいました。
とりあえずざっと作ったので、これからもう少しがんばります。
0212名無しさん＠そうだ選挙にいこう
NGNG設定し、表示させたいと考えているのですが、
「このオブジェクトには、オートメーションオブジェクト
'qry台帳情報01'は含まれません」
と出てしまいます。
どうすればよろしいでしょうか、アドバイスをお願い致します。
マクロ記述は以下のようにしています。
アクション：値の代入
アイテム：[Forms]![frmテスト]![cmb台帳情報].[RowSource]
式：[qry台帳情報01]
（式をクエリ名ではなくＳＱＬ文にすると、文字列が長すぎるためエラー）
コンボボックスの設定は以下の通りです。
値集合タイプ：テーブル/クエリ
値集合ソース：空欄 （ここにマクロでクエリを入れたい）
連結列：１
列数：７
Windows2000、Access2000です。
0213209
NGNGおかげさまで解決しました。
0214名無しさん＠そうだ選挙にいこう
NGNGマクロじゃなくて
値集合タイプ：テーブル/クエリ
値集合ソース：qry台帳情報01
連結列：１
列数：７
にして、更新後Requeryじゃぁだめ？
0215初心者
NGNGどなたでも結構ですので、サイトのアドレスでも、貼り付けてください・・・
0216175
NGNGttp://www.microsoft.com/japan/msdn/library/default.asp
この辺を参考に、色々試してみよう。
0217175
NGNG0218名無しさん＠そうだ選挙にいこう
NGNG! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
|￣￣￣￣￣|
http://saitama.gasuki.com/kaorin/
0219205
NGNGす、す、すごい！がんばれ～って言うか、山は半分以上越えましたね！
…やろうと思っていたのですが、個人的に業務処理に利用してる
mdbの改良が必要になって取り組んでいるので、今、出来ません…
力になれず、ごめんなさい…口先ばっかですね…
アクティブなプリンタのウィンドウタイトルが所得できたら、閉じる前に
mdb側をアクティブにしてから(プリンタウィンドウを非アクティブにする)
プリンタウィンドウを閉じる…と言うことはできないでしょうかね？
プリンタ制御関係のウィンドウじゃ無理かなぁ～
人に言うより、自分で自分でやれよ…ですよね
0220175
NGNGAPIを使えるようになったら、出来ることが一気に拡がりますよ。
たいていのことは出来るし。
あと、こっちにも来てみるといいかも。
http://pc2.2ch.net/test/read.cgi/tech/1044929160/l50
0221212
NGNG複数のクエリから条件にあったものをその都度マクロで設定したいので、
デザイン時にプロパティを設定するのとは別の方法で解決したいと
思っています。
フォーム上のアイテムを
[forms]![cmb台帳情報].[Column](2.1)
などと表記するように、クエリも
[○○]![qry台帳情報01]
のようにしないと、フィールドと誤認されてエラーが
出ているのかなと思ったりしています。
でも・・○○が何かどうしてもわかりません。
アドバイスをよろしくお願いします ｍ(_ _）m
0222名無しさん＠そうだ選挙にいこう
NGNGVBA使え
0224名無しさん＠そうだ選挙にいこう
NGNG本の７３ページを参考に作っているのですが、更新クリエでエラーになります。
何が間違っているのか全然わかりません。
初心者なのでわかりやすく教えてください。
0225名無しさん＠そうだ選挙にいこう
NGNG釣り、ご苦労さん。
0226名無しさん＠そうだ選挙にいこう
NGNG0227名無しさん＠そうだ選挙にいこう
NGNG検索で例えば名前検索をしたいと思いまして、
クエリーで
Like"*"&[ﾅﾏｴを入力下さい]&"*"
としました。 入力でIMEが 半角ｶﾀｶﾅにならないのですが。
これはどうにもならないのでしょうか。 テーブルは半角指定にしていますが
よろしくお願いします。
0228名無しさん＠そうだ選挙にいこう
NGNGそもそもこの時代に半角カナを使うのが間違い
0229名無しさん＠そうだ選挙にいこう
NGNG1)半角をやめる
2)検索フォーム作成→SQL発行
っていうか、半角になるし・・・・・
0230212
NGNGおかげさまで解決しました。
ありがとうございました！
0231
NGNG0232名無しさん＠そうだ選挙にいこう
NGNG227です
0233名無しさん＠そうだ選挙にいこう
NGNGAccessでバーコードコントロールを入れて、
自分でデータ入力して、印刷時にバーコード
印刷するようにmdbを作れば？
0234名無しさん＠そうだ選挙にいこう
NGNGいつ電話したとか
いつDMを出したとか
いつ商談したとか
いつの何時からの展示会に呼んだとか
いつどうゆうサポートをしたとか
そういう処理履歴を細かく管理したいんですが
本屋とかネットを探してもそういうソリューションが載って無く
どうすれば良いのか分かりません｡
どなたかアドバイスを下さい｡
0235名無しさん＠そうだ選挙にいこう
NGNGそういうのはAccess云々の前に、顧客管理の方法をまず作らなければならない。
顧客へのアプローチ情報をどうやって集めるのか？
集めた情報をどう整理するのか？
最終的にその情報をつかって何をしたいのか？
こういった仕組みをロジカルに構築する事がまず必要。
顧客管理とは何をする事なのか？
単に顧客のアドレス帳を作りたいのか、販売履歴が知りたいのか、
売掛の金額を管理したいのか、具体的なものがなければ何もできない。
コンピューターをなんとなく弄ったら良い営業方法やら販売手法が沸いてきて
なにやら仕事が自然に良い感じに行くようになったなんて事は有得ない。
Accessの使い方ではなく、顧客管理の仕方をまず調べるべき。
台帳や伝票でも顧客管理は出来てる！ でも処理を効率化したいのでＤＢを使う
というのならAccessの出番になる。
「顧客名の一部から電話番号を検索したい」とか
「今月の売上額が○○の範囲にある顧客をリストアップしたい」とか
の話になったら、ここでＯＫなヨカソ！
0236名無しさん＠そうだ選挙にいこう
NGNGいつ電話したとか
いつDMを出したとか
いつ商談したとか
いつの何時からの展示会に呼んだとか
これなんの為に必要なのか、手書きで１～２ヶ月ほど
言っているやつにやらせてみれ、データは多い程よい
ばかばかしさに気がつくはず、もつともそういう統計でもとる
会社なら別だが、、、、
0237名無しさん＠そうだ選挙にいこう
NGNG顧客数は多いし紙のファイルだとソートかけられないし
あとから特定の情報を取り出すのが大変。
だからコンピュータで管理したかったんだけど。
0238名無しさん＠そうだ選挙にいこう
NGNGとりあえずコンピューターが使ってみたいというのなら、テーブルだけ作って
ガシガシと直接データ入力していけば？
ソートも出来るし検索も出来る。でも特定の情報というものが取り出せるのかどうか
はワカラナイけどね。
まあ、役には立たないと思うけど。
業務分析をして目的をはっきりさせるのが先決。
手段が目的化しているうちは、頑張っててもただのあそび。
0239名無しさん＠そうだ選挙にいこう
NGNGフォーム作成やプログラミングができるなら、不足部分を作り足していけば
いいんでないの。
基本や拡張の設計がうまくできてないと後で地獄だけど。
0240名無しさん＠そうだ選挙にいこう
NGNGどうやって作ればよいかわからんなら、既存の顧客管理で
使えそうなものを探せばよかろう？
対応できそうなもので機能が足りなきゃ制作者に問い合わ
せるなり、
http://www.vector.co.jp/vpack/filearea/win95/writing/address/index.html
http://www.vector.co.jp/vpack/filearea/win95/business/kokyaku/index.html
いくらでもおちてるだろう
0241名無しさん＠そうだ選挙にいこう
NGNGといっても質問は初めてなんですが
教えてほしいことがあります。
データの新規入力と修正を同じフォームで行いたいんです。
表示用のフォームは別に作ります。
それで、新規入力時はフォームに何も入力されていない状態で表示し、
修正のときは表示用のフォームからボタンなりを押すと
そのフォームに飛び、表示用フォームに表示されていた
レコードの内容を表示したいのです。
こういうことってどうやればできますか？
0242名無しさん＠そうだ選挙にいこう
NGNG非連結にする
0243名無しさん＠そうだ選挙にいこう
NGNG私がよくやる手は、メインのフォームにサブフォームを入れ込み、
表示されたサブフォームのレコードをクリックすると、メインフォー
ム上のテキストボックスやコントロールボックスに内容が反映され
る…と言う奴。
で、メインフォームには【新規】【修正】【削除】というボタンをつけて、
それぞれ機能させるようにしてる。
ちなみに、メインフォームに検索ボタン作って、検索でヒットしたレ
コードをサブフォームの切り替えによって表示も出来ますよ。
がんばってくれ！
0244名無しさん＠そうだ選挙にいこう
NGNG入力用のフォームを開いたとき、MoveLast,MoveNextを実行する。
表示用フォームでボタンを押したとき、そのレコードのID等を入力用フォームに
渡してFindFirstを実行。
0245241
NGNG早速回答して頂いてありがとうございます！！
やってみます。
0246243
NGNG各テキストボックスやコンボボックスの内容がクリアされ、サブ
フォームのレコード内容を表示しても｢新規｣ボタンで新規レコー
ドとして登録、内容修正して｢修正｣ボタンで表示レコード内容の
修正になります。表示内容クリア状態で表示部分に入力して｢新規｣
ボタンでも新規データの登録ができます。
つまり、レコード内容の表示部分と登録内容を入力する部分を兼
ねるようにしているのです。
個人的に1つの画面(フォーム)で済ませた方が好きだからそうしてるけど…
そう言うこともできますね…
0247名無しさん＠そうだ選挙にいこう
NGNG0248名無しさん＠そうだ選挙にいこう
NGNG0249名無しさん＠そうだ選挙にいこう
NGNG同じようなことやってるよ。
まずは>>235氏の言っているように仕事の処理方法を決める。
その後、入力する情報を記入する書類を作成。
その書類と、「何がしたいのか」に合わせてmdbを設計。
具体的には、以下のような3つのデーブルを作り、そのデータをクエリ、フォーム、
レポートを使って必要なデータを作成という手順で良いのでは？
・顧客テーブル→顧客の住所や氏名、電話番号等の情報
・業務テーブル→電話、DM、商談、展示会等の業務項目
・履歴テーブル→顧客、業務、日付等の履歴
0250名無しさん＠そうだ選挙にいこう
NGNGACCESSでこちらが作ったデータベースをインターネット上で他の人が検索に利用することはできるのですか。
できるとしたら、使用側にACCESSがインストールされている必要があるんでしょうか？
0251名無しさん＠そうだ選挙にいこう
NGNGクライアント側よりも、サーバー側に条件が出てくるね。
「データアクセスページ」をキーワードに調べてみたらすぐにわかると思う。
0252250
NGNGありがとうございます。もうちょっと調べてみます。
0253
NGNG今見積書をエクセルで作成して、ファイルの中に入れて管理しています。
品番を入力するだけで、見積書を拾い出すようなことをしたいんですが
アクセスではこのようなことは出来ますか？
0254名無しさん＠そうだ選挙にいこう
NGNGアクセスではこのようなことは出来ますか？ との事なので、
出来ます。。。。。
0255名無しさん＠そうだ選挙にいこう
NGNG今でも嫌いじゃないぞ
0256255
NGNG0257名無しさん＠そうだ選挙にいこう
NGNG出来ます。品番が入っていればの話だけど…。
具体的なやり方は作り方によって違うから答えられない。
0258257
NGNG0259みゅう
NGNGツールバーなんですが、自分でマクロを貼り付けてつくってるんです。
access2000で作成中です。現象としては、ツールバーの一部が消えてしまうというものです。
現在作成しているのでは、ツールバーに4つのボタンをはっていて、よく消えるのが一番左端です。
ただ、カーソルを当てると表示されます。
実はこの現象は開発マシンから、実際使用するマシンへ移行したあとに発生しています。
この二つのマシンにさほど違いはありません。
それが発生する過程として、メインの画面から、たとえば台帳などを表示させる画面の二つがあるとします。
その間に、ツールバーだけを表示させている画面があります。
メインから台帳画面に展開するときはきちんと表示されていますが、台帳から戻ってくると消えているのです。
わかりにくく、長い文章ですいません。
もしわかられる方がいましたら、アドバイスおねがいします。
0260名無しさん＠そうだ選挙にいこう
NGNG0261名無しさん＠そうだ選挙にいこう
NGNGフォームでリクエリをかけたときに
カーソルが先頭レコードに行ってしまいますが、
リクエリ時のレコードにカーソルがあるようにしたいと思っています。、
どうすればいいのでしょう。
最後のレコードだったら「GOTORECORD」で何とかなるのですが
そうでないときが多いので困っています。
よろしくお願いします。
0262名無しさん＠そうだ選挙にいこう
NGNG実際にやったことはないけれど…
リクエリーかける前に内部的に変数等でレコードIDを保存し
リクエリー後にそのレコードIDに飛ばす…ってのはどうだろうか？
この程度のアドバイスじゃ、アドバイスになってないかな…ごめん
0263名無しさん＠そうだ選挙にいこう
NGNG常道です。
リクエリ用のメソッドを別に書いて、Bool型の引数を渡せる
ようにする。
trueならリクエリ前のレコードをカレントに
Falseなら先頭レコードに
とか。
0264名無しさん＠そうだ選挙にいこう
NGNGメインの画面がアクティブになったら
なぜ消えるのかはわからんが、表示させるなら
CommandBars("自分のツールバー").Enabled = True
CommandBars("自分のツールバー").Visible = True
0265261
NGNGIDを変数に保存は出来たのですが、
「GOTORECORD」の「acGOTO」って
移動先を「何番目のレコードへ」としか
指定できないようで再び困ってしまいました。
どうやってレコードを数えれば良いのでしょう。
教えて君で申し訳ないのですが、ヒントでも教えて下さい。
0266263
NGNG0267263
NGNGとか。
後は自分で調べてね。
0268名無しさん＠そうだ選挙にいこう
NGNGBookMarkを使う
0269名無しさん＠そうだ選挙にいこう
NGNG起動時の設定で 「すべてのメニューを表示」のチェックを外しました。
メニューバーの表示が当然変わる訳ですが、
これを元の表示に戻すのは、どのようにしたらよろしいか、教えて下さい。
0270名無しさん＠そうだ選挙にいこう
NGNG「起動時の設定 ACCESS」でGoogleしろ
0271bloom
NGNG0272名無しさん＠そうだ選挙にいこう
NGNG起動時にShiftキーを押しながらmdbをダブルクリックすると、
デフォルトの状態でメニューが表示され、起動時に設定されて
いるバッチ処理等があればそれを行わない状態でmdbが起動す
ると思う。
そこから起動時の設定を変更することができると思う。
0273名無しさん＠そうだ選挙にいこう
NGNG269です。遅くなりすみません。
0274名無しさん＠そうだ選挙にいこう
NGNG0275名無しさん＠そうだ選挙にいこう
NGNGhttp://support.microsoft.com/
0276261
NGNGMe.Recordset.FindFirst "ID = " & 保存したID
で出来ました。
>>268さん、試していないのですが調べてみたら便利そうなので
今度使ってみます。
また何かありましたらよろしくお願いします。
0277171
NGNGほかの仕事が忙しくてなかなかできませんでした。
結局、レポートを開くときにDestroyWindowで「印刷中」のウィンドウを消して、
その直後CloseWindowで印刷処理を行うフォーム以外がアクティブになっていたら
最小化するということでできました。
ただ、この処理は本当はSTARFAXのOCXをつかったFAX送信のときに使いたくて
普通の印刷を行うプリンターならうまくいくのですがSTARFAXのプリンタドライバに
印刷をかけると一応できるのですが、印刷を準備するのに時間がかかる？ようで
「印刷中」のウィンドウがしばらくでて、それから最後にやっとDestroyWindowで
ウィンドウを消すような感じになってしまいます。FAX送信のときに一番使いたかった
のですが、少し残念です。でも皆さんのおかげで大変勉強になりました。
また、根本的に違うやり方、考え方等あればご教授ください。ありがとうございました。
0278みゅう
NGNGちょっと試してみます。今、週１，２回しかネットを見る機会がないので
なんともいえないんですけど、またそのときに結果を報告します
0279名無しさん＠そうだ選挙にいこう
NGNG中身は120文字で1レコード分の固定長データになっています。
これをテーブルに読込むのにはどうしたら良いでしょうか。
0280名無しさん＠そうだ選挙にいこう
NGNGVBA使うしかないだろうねい…
0281279
NGNGGetでもInput#でも読めない感じです。ちなみに97でやってみてます。
028280
NGNG280さんではないんだけど、こんなの書いてみた。
一応手元の120固定の引落しの結果のデータからバイナリエディタで改行取っ払ったもの、
17520バイトを改行付きにでけた。
別ファイルに書き出すんじゃなくて、Daoでテーブルに書き込むように改造するなり
よくわからんならこれで書き出したのをインポートで取り込むなり。
注：何バイトまでいけるかはテストしてないから不明。PCにもよるかも。
全角文字は考えていないよ。Access2000で作ったから97で動くかはわかんない。
Dim FileName As String
Dim NewFileName As String
Dim TextLine As String
Dim Temp As String
FileName = InputBox("取り込むファイルの名前をパスつきで入力。「C:\Windows\temp\test.txt」のような感じで。")
NewFileName = Left(FileName, Len(FileName) - 4) & "New.txt"
Open FileName For Input As #1
Open NewFileName For Append Lock Write As #2
Line Input #1, Temp
Do Until Len(Temp) = 0
TextLine = Left(Temp, 120)
Temp = Mid(Temp, 121)
Print #2, TextLine
Debug.Print TextLine
Loop
Close #1
Close #2
0283279
NGNGちゃんと取込めてます。>>282さん、ありがとー！ (^∀^)ノ
0284名無しさん＠そうだ選挙にいこう
NGNG”一週間お利息無料制”当社の商品なら
一週間以内に返せば、何度借入してもお利息は頂きません。
早く返せば必ずお得。初めての方でも安心の
”一週間無利息キャッシング”！
パソコンからは
http://www.ez-cash.ne.jp/pc/
imodeからは
http://www.ez-cash.ne.jp/i/
jskyからは
http://www.ez-cash.ne.jp/j/
0285みゅう
NGNGありがとうございました。無事見えました。
それにしても、マシン次第で消えたり消えなかったりって不思議です
それも、全部消えるのではなくて、ツールバーの一部だったので。
ありがとうございました
0286282
NGNGLine付けてたのは前に作った時のを元にしたから。(違いはHelpみてね)
で、InputよりGetで1レコードずつ取った方がいいのかなあと作ったのが↓。
ただ、OpenしてCloseしてを何度も繰り返すから>282より遅い。
元のファイルより後ろから取り込むとAscすると0になるデータで埋まったものが
返ってくるみたいだから、それでLoopを出てる。(ちなみに数字の0は48を返すよ)
「Type ReData」は手元のもの依存。そちらのデータに合わせた区切り・変数名にしてね。
Public Type ReData'ここから
Bank As String * 20'銀行番号(5桁+15個スペース)
Siten As String * 22'支店番号(3桁+19個スペース)
KouzaType As String * 1'口座種別(普通とか当座とか)
KouzaNo As String * 7'口座番号
KouzaName As String * 30'口座名(半角カナ)
Kingaku As String * 10'金額。
Shokai As String * 1'初回か2回目以降か
KeiyakuNo As String * 20'頭の方は代理店番号かな？
Kekka As String * 1'引き落とせたか、落とせなかったか。
Umetate As String * 8'あまりをスペースで埋めて120ちょうどにしてるのかな？
End Type'ここまで はモジュールを作ってそこに置く。
もうすこししたら同じようなことやらないといけなそうだからちょっと真面目に
コメントつけてみたり。 続くよ。
0287282
NGNGDim FileName As String
Dim Temp As ReData
Dim LoopNo As Integer'Integer型の最大の3万ちょいが取り込めるたぶん限界。もっと必要ならLong。
FileName = InputBox("取り込むファイルの名前をパスつきで入力。「C:\Windows\temp\test.txt」のような感じで。")
'毎回同じファイル名を取り込むなら「FileName = "C:\Windows\temp\test.txt"」とかの方がいいかも。
LoopNo = 1
Do
Open FileName For Random As #1 Len = 120
Get #1, LoopNo, Temp
If Asc(Left(Temp.Bank, 1)) = 0 Then'左1文字をAscして0が返ってきたら出る。
Exit Do
End If
Debug.Print Trim(Temp.Bank) & "," & Trim(Temp.Siten)
'とりあえずデバッグウインドウに表示。Daoなりフォームなりで取り込んでね。
LoopNo = LoopNo + 1
Close #1
If LoopNo > 1000 then'無限Loopしかねないから、1000件でとりあえず止める。
Exit Do
End If
Loop Until Asc(Left(Temp.Bank, 1)) = 0'If Asc～と同じことだけど、念のため。
Msgbox("取り込みおしまい")
End Sub
0288名無しさん＠そうだ選挙にいこう
NGNG勉強ならん。
0289名無しさん＠そうだ選挙にいこう
NGNG帳票形式のサブフォームを使っているのですが、その中にチェックボックス
があって、チェックがついている行だけその行の背景色を変えたいんですけど
どうすれば出来るでしょうか？
0290名無しさん＠そうだ選挙にいこう
NGNG元のデータを無くしてしまったmdeファイルはどのようにしていじればよろしいのでしょうか？
0291名無しさん＠そうだ選挙にいこう
NGNG0292名無しさん＠そうだ選挙にいこう
NGNG通報しますた。
0293279
NGNGいやー、まさにこれでした。
テキストファイル上の銀行，支店コードを統廃合後のに置換えてちょ。
とか言われて試したら、なかなかインポート出来なくてこまってたんです。
前回のと合わせて、ヘッダ、フッタ処理と、エラー文字チェックをつくれば
行けそうです。
>>282さん本当にありがとうございました。
0294bloom
NGNG0295名無しさん＠そうだ選挙にいこう
NGNGでも、こういう優しい人がいるから
ROMってるだけでも勉強になるのでした
0296名無しさん＠そうだ選挙にいこう
NGNGエクセルで言う行の挿入みたいなのが出来ればいいのですが。
0297名無しさん＠そうだ選挙にいこう
NGNGデータベースについて基礎から勉強しなおしたほうがいいよ。
何が分からないのかがわからない。
0298名無しさん＠そうだ選挙にいこう
NGNGすいません。テーブルに47都道府県を入力したとして、福島県だけ入力を忘れました。今から入力すると沖縄県の下に入力される事になってしまいます。今から福島県を山形県の下に入力することは可能でしょうか？
0299名無しさん＠そうだ選挙にいこう
NGNGなぼのページでも見に行け。それでも納得いかなければ、エクセルに
テーブルをエクスポートして行の挿入でもなんでもして、アクセスに
インポートしなおせ。
0300297
NGNGORDER BY してるフィールドはないの？
何でソートしてるの？
0301298
NGNGなぼのページとは？
0302名無しさん＠そうだ選挙にいこう
NGNGこれだ！
http://www.naboki.net/access/hell/index.html
0303名無しさん＠そうだ選挙にいこう
NGNG0304名無しさん＠そうだ選挙にいこう
NGNG0305名無しさん＠そうだ選挙にいこう
NGNG0306298
NGNG0307名無しさん＠そうだ選挙にいこう
NGNG他の関係するデータによって色々変えれば？
更新クエリでなんとでもナルでしょう
ちなみに、急に社員番号変えても他に影響でないのかな？
他部署とか統一してACCESSで逝っているのでしょうか・・・
0308306
NGNG0309名無しさん＠そうだ選挙にいこう
NGNGその間、旧番号と新番号を別フィールドで保守して、
新規の更新は新番号を基準にして移行を進める。
旧番号がなくてよいと見極めがついたら消去。
みずほのような能無しぞろいならともかく工夫しようはあるだろ。
0310名無しさん＠そうだ選挙にいこう
NGNG0311名無しさん＠そうだ選挙にいこう
NGNG何の為のリレーションかと小一時間(略
どういう設計してるの？
新しい社員番号の生成基準も分からないし。
0313名無しさん＠そうだ選挙にいこう
NGNG制約や整合性をちゃんと考えて設計されていれば、何の問題もない。
元設計が糞
0314名無しさん＠そうだ選挙にいこう
NGNGフォームでコマンドボタンを押すと、
レコードセレクタ（でいいんですよね、左端の三角とか鉛筆印とかでるところ）に
コントロールを移動させたいのですが、どうすればよいでしょう？
何をしたいかといいますと、表形式フォームから
コマンドボタンで同じソースの
同じIDのレコードの単票フォームに飛ぼうとしているのですが
もとフォームのレコードが新規だった場合、
同じIDの単票フォームのレコードがまだ存在していないようで
拾って来れません。
試行錯誤の結果、レコードセレクタに一旦飛べば確定されることが分ったので
その後で単票フォームを開いたら上手くいくと考えました。
よろしくおねがいします。
また、「こうやった方が早い」というのもあれば併せて
教えて下さい。
0315名無しさん＠そうだ選挙にいこう
NGNGコントロールウイザードが効いた状態でコマンドボタン作るとレコードの保存が
作れるから、それのDocmd～～ってとこをパクるってのはどーだい？
0316名無しさん＠そうだ選挙にいこう
NGNGデータシート形式のフォーム上のフィールドにクリック時のイベントプロシージュアを設定し
「パブリック変数にCurrentRecordを代入したあと単票形式のフォームを開きその変数の
レコードにジャンプする」というコードを書く。
0317名無しさん＠そうだ選挙にいこう
NGNG家計簿サンプルデータ－ベースをデスクトップにアイコンを作りたいのですが、
どのようにすればよいのでしょうか？教えてください。
0318名無しさん＠そうだ選挙にいこう
NGNG0319名無しさん＠そうだ選挙にいこう
NGNGはあ？寝るよ。
0321名無しさん＠そうだ選挙にいこう
NGNG0322名無しさん＠そうだ選挙にいこう
NGNGAlt押しながらデスクトップにドラッグ&ドロップしてみ。
>>321
Outlookでも使わないと無理じゃないの？
mapiとかAccessで使えない気も。
Set objOl = New Outlook.Application
なんて参照するだけでも。
0323名無しさん＠そうだ選挙にいこう
NGNGこれを使うと簡単
http://www.hi-ho.ne.jp/babaq/basp21.html
0324名無しさん＠そうだ選挙にいこう
NGNG0325名無しさん＠そうだ選挙にいこう
NGNG広告収入と登録収入、４種の収入をゲットしよう！！
（1,000～50,000円の広告収入と新規登録者が出ると5,000円×登録人数）
リンク広告収入と新規登録収入の二つの収入が発生するシステムを組込んだ出会い・
ゲーム・占い他のバラエティーホームページのオーナーになりませんか？
サポートページ充実メール打てる人・コピペ出来る人ならビジネス可能です。
あなたの仕事はサポートを利用したりして完成されたホームページをＰＲするだけ！
いま、キャッシュバックキャンペーン実施中で年間保守料が無料のチャンス！！
あなたもこれを機会にオーナー登録しましょう。
申し込みは↓からです。
http://drmnt.com/cgi-bin/main/bus_main.cgi?gaccid=5213
オーナーとなるHPは以下の２種類です。
http://drmnt.com/i/5213.html
（↑携帯用アドレス）
http://drmnt.com/5213/
（↑ＰＣ用アドレス）
0326名無しさん＠そうだ選挙にいこう
NGNG>部署の見直し、統合等により…、決める人と作る人は違うという事で
この場合、違う人間が担当するのが問題じゃなくて、作る人が無能過ぎ
るのが問題だね。
データベースで入力順って....
0327名無しさん＠そうだ選挙にいこう
NGNG0328名無しさん＠そうだ選挙にいこう
NGNGAccess2000で、クエリーの全外部結合（テーブルの両データとも表示する）はできるのでしょうか？
0329名無しさん＠そうだ選挙にいこう
NGNG0330314
NGNG>>306さんの会社って、部署の見直しで社員コードが変わるということは
今後、人事異動の度に社員コード振り替えが起きそうですね。
社員コードじゃないキーを持ってDBではそちらで管理したらどうでしょう。
0331名無しさん＠そうだ選挙にいこう
NGNG・自分でやってみたのか？
やってない→氏ね
やってみた→、どこまでやって、どういう現象が出たのか？を書け
・ヘルプは見たか？
見てない→氏ね
見た→どこを見て、どういう見当をつけているのか？を書け
0332名無しさん＠そうだ選挙にいこう
NGNG誰か教えてください。
0333名無しさん＠そうだ選挙にいこう
NGNGこっちは期待できるかな。
0334名無しさん＠そうだ選挙にいこう
NGNGWindows98、Office2000パーソナルを使用してます。
0335名無しさん＠そうだ選挙にいこう
NGNGどういった用途に使うんでつか？
0336334
NGNGOracleの入門書を買ってきたのですが、その中で実践例としてVB6.0とAccess2000を
使っているんです。
VBはありますがAccessがないのでどうしようかと。
今さら単体のAccess2000を買ってよいものか……と悩んでおります。
0337名無しさん＠そうだ選挙にいこう
NGNG■■http://pink7.net/yhst/■■
0338名無しさん＠そうだ選挙にいこう
NGNG普通にOracle＆VBでやりゃあ良いじゃねーか。
Oracle始める為に入門書買ってきたんじゃねーのか。
アフォか。
0339名無しさん＠そうだ選挙にいこう
NGNGAccessVBA上から他のファイル(.xlsファイル)をコピーし
指定した場所へ名前を変えて保存したいのですが．．
可能だとは思うのですが、オブジェクトの操作(?)ってのがよくわかりません。
どなたか助けて下さい～
0340名無しさん＠そうだ選挙にいこう
NGNGファイルのコピーと名前変更だろ
ヘルプ嫁！
0341名無しさん＠そうだ選挙にいこう
NGNGVBA上から自動でやりたいんですてばさー
0342名無しさん＠そうだ選挙にいこう
NGNGVBAのヘルプ嫁！
0343名無しさん＠そうだ選挙にいこう
NGNGVBAのファイル操作関数を使うのもいいけど、この際だからファイルシステムオブジェクトを覚えませう。
こんな感じ。
Dim objFS As Object
Set objFS = CreateObject("Scripting.FileSystemObject")
Call objFS.CopyFile("コピー先ファイルフルパス", "コピー先ファイルフルパス")
Set objFS = Nothing
0344343
NGNGCall objFS.CopyFile("コピー元ファイルフルパス", "コピー先ファイルフルパス")
0345名無しさん＠そうだ選挙にいこう
NGNGファイルをコピーしたい
↓英語にすると
FileCopy
↓ステートメントは？
FileCopy そのまんま、、、、、
0346名無しさん＠そうだ選挙にいこう
NGNGFORMAT C:
FORMAT D:
0348名無しさん＠そうだ選挙にいこう
NGNGhttp://www.pink-angel.jp/betu/index.html
0349名無しさん＠そうだ選挙にいこう
NGNGおまいら、みんなやさしいなぁ
0350名無しさん＠そうだ選挙にいこう
NGNG・自分でやってみたのか？
やってない→氏ね
やってみた→、どこまでやって、どういう現象が出たのか？を書け
・ヘルプは見たか？
見てない→氏ね
見た→どこを見て、どういう見当をつけているのか？を書け
0351名無しさん＠そうだ選挙にいこう
NGNG0352名無しさん＠そうだ選挙にいこう
NGNG不覚にもワロウタ (^◇^;
0353名無しさん＠そうだ選挙にいこう
NGNGmdbのリンクテーブル名・列名の変更があるんだけど、mdbを一気に変換する方法ってあるんでしょうか？
かなりクエリーがあるんで、１個ずつ変換するの大変なんですぅ。
0354353
NGNGwinNTです
0355名無しさん＠そうだ選挙にいこう
NGNGまず、あなたが何をしたいのかがわかりません。
あとは>>350を嫁
0356353
NGNG＜現状＞
１．リンクテーブルを参照しているmdbファイルがあります。
２．そのmdbファイルには沢山クエリーがありあます。
＜テーブルレイアウトの変更＞
３．テーブル名及び列名が変わってしまいます。
＜私のしたいこと＞
４．変更のあったテーブル名・列名を一気に変換できる方法を模索しております。
＜その他＞
クエリーの各項目先を１つずつ変更するのは大変すぎる
どうぞ、よろしくお願いします。
0357名無しさん＠そうだ選挙にいこう
NGNG大変ならしない方が良いぞ
0358名無しさん＠そうだ選挙にいこう
NGNGQueryDefだな
0359らんさ
NGNGwin2k、access2k環境です。
パラメータクエリで抽出条件を １０以上２０以下 のように範囲で指定することはできないのでしょうか？
ダイアログボックスに <= 10 and >=20 と記入しても抽出されずに困ってます。
よろしくお願い致します。
0360名無しさん＠そうだ選挙にいこう
NGNGBetween
0361名無しさん＠そうだ選挙にいこう
NGNG>=10 and <=20じゃないの？
0362デフォルトの名無しさん
NGNG移したいのですが、テーブルの移動がスキップされましたと言われ全然アップサイズ
されません。ログにもスキップされましたとしか出てこないのですが、原因がわかる
人居ませんか？ちなみにオフィス2000のパッチはあてました。タノンマス。
0363名無しさん＠そうだ選挙にいこう
NGNG1.沢山のクエリーには一切手を加えない。
2.旧リンクは名前を変えるか削除する。
3.新テーブルへリンクを作成。
4.新テーブルの列名を旧名称に変えるだけの選択クエリーを旧リンク名で作成。
5.今までのクエリーはそのまま使う。
※もっと良い方法
元テーブルには余計な変更を加えず、テーブル設計を弄ろうとしている香具師をクビにする。
0364名無しさん＠そうだ選挙にいこう
NGNG> 4.新テーブルの列名を旧名称に変えるだけの選択クエリーを旧リンク名で作成。
エイリアス変換 + SQLネストのオーバーヘッドはどのぐらいだろう？
（無視できるレベル？？）
0365名無しさん＠そうだ選挙にいこう
NGNG正直、虫で切るレベルとは言えない。レコードが多ければ。
でも、Accessオンリーで使い物になっているアプリなら、
ちょっと速いＰＣで処理させれば、なんとかなるレベルである事が多いし、
サーバー側が別のＤＢＭＳ（オラとか）だったら、遅くて困ったクエリーから
手を入れて（パススルーに変更して、サーバー側に処理させるとか）
なるべく変更すくなくした方が、いろいろ楽な感じ。
0366364
NGNGありがとう。参考になりますた。
というか、だいぶ以前(3～4年前)にやったことあるよ、「名前対応」クエリー。(藁
当時のスキルでは、SQLを自動的に書き換えるなんて思いも及ばなかった。
(あまりのアホらしさにモチベーション下がりまくりだったｗ)
今だったら、別のアプローチを考えると思う。
0367名無しさん＠そうだ選挙にいこう
NGNGVBA使わずにできるのでしょうか？
0368名無しさん＠そうだ選挙にいこう
NGNG多分それだけの情報だと
テーブルをデザインで開いて好きなように変えろ
とかっていう答えしかできないよ
0369367
NGNG3つのフィールドをもつテーブルAがあります。このテーブルAの2つめのフィールド1のデータを
テーブルBのフィールド名として使用したいのです。
【テーブルA】
ID フィールド1 フィールド2
0 商品名 name
1 型番 type
2 メーカー maker
3 分類 family
4 価格 price
【テーブルB】
ID 商品名 型番 メーカー 分類 価格 ・・・・・・
↑
ID以外はテーブルAのフィールド1のデータをフィールド名（カラム名）として自動的に
設定されるようにしたい
0370名無しさん＠そうだ選挙にいこう
NGNGVBAとSQLを使わなきゃ無理だろ。
つうか、変な仕様だな
何がしたいんだ？
0371名無しさん＠そうだ選挙にいこう
NGNG削除クエリを実行しようとすると
「指定されたテーブルから削除できませんでした」と表示され削除できません。
ヘルプを見ると読取専用か権限がないからだと書いてありますが
そんなことはないと思います。
そのクエリをレコードビューにしてレコードをセレクターで選択しDELETEを押すと
ちゃんと削除されます。
どうすれば削除クエリからレコードを削除できるでしょうか？
怪しいところをご指摘下さい。
0372名無しさん＠そうだ選挙にいこう
NGNG最終的に何をしたいのかを書けば、もっと良い方法を教えてもらえると思うよ。
0373名無しさん＠そうだ選挙にいこう
NGNGおまえが教えてやれ
0374名無しさん＠そうだ選挙にいこう
NGNG・・・と火に油を注いでみるテスト。
0375名無しさん＠そうだ選挙にいこう
NGNG0376名無しさん＠そうだ選挙にいこう
NGNGていうかそういう構造にしたい理由がわからん。
もしかしてフィールド２をフィールド名にして
Bと同じものを作ると表記が英語になる仕掛けが欲しいとかか？
0377名無しさん＠そうだ選挙にいこう
NGNGVBAでCreateTableのSQL文で対応すれば？
0378名無しさん＠そうだ選挙にいこう
NGNGACCESS2000の（マクロの入った）ファイルを、ACCESS97に変換してくれる
ところはありませんか？
先方がDQN会社でさ、ACEESS97しか持ってないでやがんの（ｗ
0379名無しさん＠そうだ選挙にいこう
NGNGAccess2Kのデータベースの変換を使うのは駄目なのか？
それともネタなのか？…
0380名無しさん＠そうだ選挙にいこう
NGNGAccess97に接続したシステムを導入しているだけかもしれないじゃねーか。
相手会社をDQN扱いする前にシステム更新にかかる時間と金の事とかもっと
勉強した方がいいよ。
0381名無しさん＠そうだ選挙にいこう
NGNG折れが￥１００００００００/マクロくらいで引きうけるぞ！
0382名無しさん＠そうだ選挙にいこう
NGNGつうかさあ、正直、>>378の会社の方がDQNに見えるんだけど、気のせい？
0383名無しさん＠そうだ選挙にいこう
NGNG天地逆さまに表示したいのですが、どのようにすれば良いのでしょうか？
Access2002です
0384名無しさん＠そうだ選挙にいこう
NGNGテキストボックスをさかさまに配置すれば？
0385383
NGNGwordのワードアートのように、角度指定で回転できるようなメニューが
あるのでしょうか？
プロパティの書式には見当たらなかったのですが、逆さまに配置する
方法を教えてもらえないでしょうか？
0386名無しさん＠そうだ選挙にいこう
NGNG. _, ._
<ヽ｀∀´>ｙ―~~~ TVを逆さまにしるﾆﾀﾞ!
0387名無しさん＠そうだ選挙にいこう
NGNG0388名無しさん＠そうだ選挙にいこう
NGNG0389名無しさん＠そうだ選挙にいこう
NGNG外字で逆さま文字を作る（ｗ
だいたいなんでそんなことをする必要があるんだ？
0390名無しさん＠そうだ選挙にいこう
NGNGリッチテキストボックスならどうにか…
てか、なんでさかさま？
0391383
NGNG窓付き封筒で使用するA4のレポートなのですが
A4用紙の下にミシン目で切り取って使用する郵便振替用紙が２枚付いていて
上の余白が宛名部分になります
振替用紙と宛名部分に差込印刷を行うのですが、封筒の窓のレイアウト上
どうしても宛名部分は天地逆に印刷しないと駄目なんです
紙の折り方を変えて、裏面に印刷する方法も考えましたが、両面印刷ユニットも
無いし、時間も２倍かかってしまうので・・・
一旦印刷して、紙を逆に挿入してもう一度印刷する方法は、紙詰まりが多いのと
振替用紙と宛名が一致しているかチェックしなければならないので、どうしても
１回の印刷で済ませたいのです
>>390
リッチテキストボックスですか・・・ 調べてみます
0392名無しさん＠そうだ選挙にいこう
NGNGその用紙の設計に問題はないでつか？
ソフト代金の振込請求などで、同じような用紙（宛名と振替用紙が同一用紙）を
時々受け取るけど、どれも同じ方向に印刷されてて、>>391 さんのようなの
見たことないなぁ。
特殊事例を固守して、将来プリンタやソフトを置き換えた時も同じ設定
やり直すような手間をかけるより、用紙以外の設備でできることにあわせるのが
生産的でつよ。
用紙のストックがたくさんだったり、会社の方針だったらしかたないけど。
0393383
NGNGうちの場合、振込用紙が２枚なんですよ･･･
通常の振込用紙１枚の場合は、均等に３つ折して長３封筒に入るんですけど
振込用紙２枚だと、１枚あたりの高さが115mm A4の縦が297mmなので
115mm・115mm・67mmという不均等な3つ折になります
既成の窓付き封筒は上側に窓がついているので、67mmの部分に宛名を印刷するには
どうしても逆さまに印刷する必要が出てくる訳です
封筒の印刷（自社名）を逆さまにすれば、伝票は同一の向きで印刷しても構わない
のですが、やはり封筒の表書きとして、お客さま名より自社名が上に来るのはマズイかと
片面印刷と既成の窓付き封筒にこだわる理由は、工程の簡略化による手間とコストの
削減です。
ちょっと特殊な(?)プロパティの設定などで、簡単に「逆さま印刷」が出来ると
思ってこちらで聞いたのですが、どうやら一筋縄ではいかないようですね
仕方ないので、用紙レイアウトから根本的に見直してみようかと思います
ご質問に答えて下さった皆様方、ありがとうございました
0394392
NGNG２枚綴りも受け取ったことありまつ。次のどっちかのパターンでしたね。
１）振込用紙以外の余白にプリントされた宛名を、封筒の窓に表示。
確かに窓は封筒の下側で、社名が右上にあったけど、漏れは気に
ならなかったでつね。
２）振込用紙の振込人欄にプリントされた郵便番号・住所・氏名を、
封筒の窓に表示しているもの。
これは窓が封筒の左中央あたりにあって、社名は横か下側。
どっちも宛先と振り込み欄が同じ方向に印刷されてまつた。
>>393 さんのようなの受け取ったことないので明言できないでつけど、
宛名と用紙が逆方向に書かれてたら広げて読むときにひっくり返さないと
いけなくて、かえって迷惑そうでつよ。
暴言多謝。
0395名無しさん＠そうだ選挙にいこう
NGNGフォーム自体を変更するか、代行業者でも使った方がいいと思うけど。
0396名無しさん＠そうだ選挙にいこう
NGNGプルダウンメニューから 未着手、着手、修正中、中断、完了
という5段階で進捗をちぇっくするとします。
ステータスを変更した際の日時を記録していきたいのですが
どのようなテーブル構造を作成すればいいでしょうか？
修正は複数回発生したり、中断の後、修正中に戻る事が予想されます。
0397名無しさん＠そうだ選挙にいこう
NGNG厳密な意味でサーバーといったものではないんですが、
1台のPC中にあるいくつかのMDBファイルのテーブルを、
4台のPCからリンクで引っ張って突っつき回しています
(すべてAc2000)
ときどき、このリンクテーブルが読み書きできなくなる
現象が起こります。
そのテーブルに読み書きする処理を実行すると、プチフリーズ状態。
しばらく放っておくと、
「XXX(テーブル名だったかMDB名だったか)が認識出来ません」
みたいなメッセージが出てきて、「終了」か「OK」かの選択を
求められます。
「終了」を押すと、砂時計のまま(コード中にDoCmd.Hourgrass true
が入っているため)
「OK」を押すと、いきなりバーッとコード画面。
(みっともねえ・・・職場のDBなんですが、素人の僕の自作です)
慌ててXボタンを押して引っ込めると、いつの間にか正常動作に
戻ってたりして
読み書きの処理はいちおう使用中フラグをたてながら行わせているので、
他のPCとかち合っているようなことはないと思います(自信はないですけど)
共有データが置いてあるPCのメモリが足りないのかなとも考えましたけど、
これも全く根拠はありません(Win2K、128MB)
何台ものPCから突っつき回しているためにMDBが壊れたというわけでもなさそうです。
どういった原因が考えられるでしょうか。
0398名無しさん＠そうだ選挙にいこう
NGNGデータ部分とプログラム部分、ちゃんと分割してる？
0399名無しさん＠そうだ選挙にいこう
NGNG記録したい日時って、最新だけじゃなくて全て？
最新だけだったら、日付入力用のフィールドを追加するだけ。
全てだったら、日付入力用のテーブルが必要になる。
0400名無しさん＠そうだ選挙にいこう
NGNG>慌ててXボタンを押して引っ込めると、いつの間にか正常動作に
>戻ってたりして
ってことがあるのなら、デッドロックしてタイムアウトしてる感じだね
>(自信はないですけど)
を見直した方がいいのでは
プログラムを１ステップずつストップさせながら突っつきあいをテストして、再現できないのかな
0401397
NGNG>>400
レス感謝します。
いまAccsess関連のサイトずっと回ってきて、ヒントらしいものも得られず
焦っていたところなんで、涙が出そうなほど嬉しい。
>>データ部分とプログラム部分
分けてます分けてます。
もうバラッバラに。
データだけでも12個のMDBに分けてます。
もしかして多すぎ、だったりして・・・
ざっと思い返してみると、おかしくなるのは、比較的アクセス頻度の
低いMDBのような気がします。
しょっちゅう書き込みされてるMDBは、たぶんまだ問題を起こしていません。
使用中フラグに自信がない、ってのは、たしかにそうなんですよ。
フラグテーブルもメインPCの中にあって、それをリンクにしてるんです。
処理実行ボタンを押したら、まずそのフラグテーブルを見に行かせて、
0だったら1に書き換えたうえ処理開始、処理が済んだら0にもどす。
1だったら「使用中ちょっと待て」のメッセージ。
みたいな形にしてるんですが。
運用開始以来、1週間以上過ぎたいまも、この「使用中」のメッセージに
当たったっていう人が、一人もいないんです。
(つくっているときは何度も実験してちゃんと出ることをたしかめたんですが
・・・ただ、全部１台のローカルで、疑似状態をつくってやった実験です)
ともかく、明日もういちど確認してみます。
(ワンステップずつの確認ってのは、すぐにはむりかなあ。もう本格的に
稼働始まっちゃってるし)
0402名無しさん＠そうだ選挙にいこう
NGNGやっぱり使用中を判別するフラグが機能してないのかもしれないね。
>>400氏も言ってるけど、まずはその部分のプログラムの見直しから。
それでもわからなかったら、ここにコードを晒してみるとか。
おれも同じような立場だから気持ちはよくわかる・・・
がんばれ！
0403名無しさん＠そうだ選挙にいこう
NGNG! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
|￣￣￣￣￣|
http://saitama.gasuki.com/wara/
0404名無しさん＠そうだ選挙にいこう
NGNG0405みゅう
NGNGとあるシステムで、画面の入力項目のところに、入力規則の条件を指定し、桁数のチェックを行ないたいたいと思ってます。
入力する文字は、半角全角両方使用します。
現在以下のような条件にしているのですが、うまくいきません。半角も全角1文字と同じ換算をしてしまいます
Is Null Or LenB([項目])<=桁数
何か良い案があればｎお願いします
0406名無しさん＠そうだ選挙にいこう
NGNGそれはOffice 2000のバグです。(SP-3で修正済みです)
0407名無しさん＠そうだ選挙にいこう
NGNG中身が想像できないので的外れかもしれないけど
全角と半角が入る場所が決まっているならLeftとかMidで
切りながら判定したらどうでしょう。
フィールド内容晒せない？
0408名無しさん＠そうだ選挙にいこう
NGNGAccess2000（97？）以降は、内部の文字コードがUnicodeなんで半角も全角も2バイトだよ。
ヘルプで文字列操作関数関連を辿れば、そのへん踏まえたバイト数算出方法載ってる。
0409名無しさん＠そうだ選挙にいこう
NGNGExcelで自作した会社のシステムをAccessに移行することになり、
最近ようやく初心者向けの入門書を一冊終了したところなんですが、
勉強していて1つ心配なことがあったんで、質問させていただきます。
その入門書によると、「Accessでは、1つのデータベースファイルの
中にテーブル・フォーム・レポート・クエリなどのオブジェクトがひと塊
で保存される。その方が、作ったオブジェクトがどこへ行ったのか
分からなくなるといったトラブルが無いから良い」とあるんですが、
これから作るシステムは、LAN接続された複数の端末で使用します。
端末2 端末3 端末4
フォーム フォーム フォーム
↑ .↑ .↑
└─────┼─────┘
LAN接続 .│
.↓
端末1
テーブル
感じとしては、端末1をサーバー（？）のように使って、端末2～4の
入力画面でユーザーが入力した情報は全て端末1のテーブルに蓄積
され、テーブルのデータを2～4のフォームに呼び出し→修正→更新
したりします。2～4は同時に作業が行なわれることもあります。
このような使い方だと、フォームとテーブルは別ファイルになると
思うんですが、このようなことは可能なんでしょうか？ また、可能な
場合、テーブルの情報はリアルタイムで更新されるのでしょうか？
（例えば、端末2でテーブルの「A」というレコードの情報を変更した
数秒後に端末3で「A」を呼び出すと、もう変更が反映されている）
非常に基本的な話で申し訳ありませんが、よろしくお願い致します。
長くてすいませんでした。
0410名無しさん＠そうだ選挙にいこう
NGNGそしたらなんかめちゃくちゃな事が書いてあるんです。
で、よく見たらなんか接続図なんか書いてあって、1つのデータベースファイルの方が
トラブルが無いから良い、とか書いてあるんです。
もうね、アホかと。馬鹿かと。
お前らな、複数端末なのにAccessなんか使ってんじゃねーよ、ボケが。
入力業務だよ、入力業務。
なんかLAN接続とかもしているし。一家４人でデータ入力か。おめでてーな。
テーブルの情報はリアルタイムで更新されるのでしょうか？、とか言ってるの。もう見てらんない。
お前らな、少しは教えてやるから良く考えろと。
Accessってのはな、もっとスタンドアロンか参照系フロントエンドとして使うべきなんだよ。
データテーブルは別PC上のどのmdbファイルといつリンクしてもおかしくはない、
メニューの[ﾌｧｲﾙ]-[外部ﾃﾞｰﾀの取込]-[ﾃｰﾌﾞﾙのﾘﾝｸ]でリンクすればいいんじゃねーか。女子供は、すっこんでろ。
で、リンク出来たと思ったら、隣の奴が、Accessでマルチユーザするとファイルが壊れる、とか言ってるんです。
そこでまたぶち切れですよ。
あのな、Accessでは自分で排他制御をしなきゃなんねーんだよ。ボケが。
得意げな顔して何が、Accessのmdbはすぐ壊れる！、だ。
お前は本当にクライアントサーバーってものを知ってるのかと問いたい。問い詰めたい。小１時間問い詰めたい。
お前、ロック制御って言葉さえも知らないだけちゃうんかと。
データベース通の俺から言わせてもらえば今、データベース通の間での最新流行はやっぱり、
おらくる、これだね。
Oracle9i Database Enterprise Edition。これが通の頼み方。
おらくるってのはライセンス料が多めに入ってる。そん代わり説明が少なめ。これ。
で、エンドユーザーには料金体系がわからない。これ最強。
しかしこれを頼むとバカ高い保守契約しないと説明書さえ見せてもらえないという危険も伴う、諸刃の剣。
素人にはお薦め出来ない。
まあお前らド素人は、SQLサーバーでも勉強して下さいってこった。
0411名無しさん＠そうだ選挙にいこう
NGNG久し振りに見ると、なんだか新鮮だね（ｗ
力作、ごくろうさん。
0412409
NGNG温かいレスありがとうです。まさかコピペ改造で回答頂けるとは（涙
>データテーブルは別PC上のどのmdbファイルといつリンクしてもおかしくはない、
>メニューの[ﾌｧｲﾙ]-[外部ﾃﾞｰﾀの取込]-[ﾃｰﾌﾞﾙのﾘﾝｸ]でリンクすればいいんじゃねーか。
ってことは可能ってことですね。どうもありがとうございました。
あと、アホ過ぎる質問ですいませんでした。
0413名無しさん＠そうだ選挙にいこう
NGNG優しいなぁ…。
>>409
410の中で意味がわからない単語、片っ端から検索しる
あと>>302とかかな？
0414名無しさん＠そうだ選挙にいこう
NGNG「訂正氏名」にデータがある時は、「訂正氏名」を、
空白の時は「氏名(漢字)」を表示したいのですが、
以下の式だと、「訂正氏名」空白時には何も表示されません
どこか式が間違っているのでしょうか？
=IIf([訂正氏名]=Null,[氏名(漢字)],[訂正氏名])
0415名無しさん@そうだ選挙にいこう
NGNG=IIf(IsNull([訂正氏名]),[氏名(漢字)],[訂正氏名])
0416409
NGNGどうもありがとうです。なにしろ超初心者用入門書終わっただけの
状態なもので（汗・・・お騒がせしました。
ここに来る前にGoogleで「Access」「ネットワーク」「データベース」「共有」
などの語句で検索はしたんですが、なかなかいい情報が見つからなくて、
アホな質問だろうなと思いながらも、質問してしまいました。
とりあえず>>409が可能かどうかで、これ以上Accessを勉強する
意味があるのかどうかが決まる状況だったので、可能だと分かり
俄然ヤル気が出ました。
>>302のサイト、さっそく覗いてみました。いろいろ勉強してみます。
どうもありがとうございました。
0417みゅう
NGNG407 ありがとうございます。
内容はお店の名前とか場所とか、管理者とかを入力する台帳みたいな画面上のテキスト項目です（前記した）
408 半角も2バイトなんですか？しらんかったです。
こんどやってみるです。
みなさんありがとうございました。
どうにかプロパティのところの入力規則でなくて、プログラムすることでどうにか解決しました。
ありがとうございました
0419名無しさん＠そうだ選挙にいこう
NGNG先は長いだろうけど頑張れ。
T'sWareの掲示板あたりも役に立つかも。
ぐぐれば出てくる。
とにかくわからない事があったら、ぐぐって調べまくれ。
それだけでも結構なんとかなる。
0420名無しさん＠そうだ選挙にいこう
NGNGエクセルの作成済み住所データをmdbにインポートする必要があるのですが、
カラムがバラバラで、１つ一つ修正してインポートしなくてはなりません
なんとか、簡単にインポートする方法はありませんか？
0421名無しさん＠そうだ選挙にいこう
NGNG★その目で確認すべし！！★超おすすめ★
0422名無しさん＠そうだ選挙にいこう
NGNGAccess の文字数カウントは 405 の書いているとおり、Unicode で
される。StrConv を使って、システムの規定コードに変換してやると
期待通りの結果が返されるはず。
Is Null Or LenB(StrConv([項目],128)) <= 桁数
0423名無しさん＠そうだ選挙にいこう
NGNG0424名無しさん＠そうだ選挙にいこう
NGNGメアド欄見れ。
ついでに407も
0425名無しさん＠そうだ選挙にいこう
NGNGこれあたり使ってみ
http://www.vector.co.jp/soft/win95/business/se208279.html
0426名無しさん＠そうだ選挙にいこう
NGNG様々ヘルプも探したんだけど判らなくて教えて下さい。
今やっていて判らない事は、
フォームをデザインビューで開き、貼り付けたｃｍｄボタンを
ツールからＶＢに変換しようとした時
｢マクロが現在アクティブでなければなりません｣と表示され、ＶＢに変換されません
ｃｍｄボタンコマンドにはクリック時の指示やマクロも作っているのですが・・・。
素人ですみませんが、教えて下さい。
0427名無しさん＠そうだ選挙にいこう
NGNG何故そんなエラーがでるのかわからんが、
"フォーム マクロを Visual Basic に変換"を使わず、
個々のマクロをVisual Basicに変換してもダメなのか？
0428名無しさん＠そうだ選挙にいこう
NGNGクエリで延べ時間を求めたいのですが
例えば18：00～0：30の時などは、どうして求めればいいのですか？
エクセルなら[h]:mmの書式で24：30と入力できますが・・・
お願いします。
0429名無しさん＠そうだ選挙にいこう
NGNG紙と鉛筆で計算しる。
これ最強。
0430名無しさん＠そうだ選挙にいこう
NGNG俺は日付変わるところで条件分岐したことがあるけど
もっといい方法ありそうだな。
0431名無しさん＠そうだ選挙にいこう
NGNGこんなんではダメか？
NobeTime: Format(IIf([StartTime]>[EndTime],24+[EndTime]-[StartTime],[EndTime]-[StartTime]),"hh:nn")
NobeTime ＝ クエリー上の計算式
StartTime ＝ テーブル上のフィールド（hh:mm書式で入力）
EndTime ＝ テーブル上のフィールド（hh:mm書式で入力）
※３日徹夜等には非対応
0432y
NGNG激レア情報も多かったので残念。
お早めに。
http://pakopako.misty.ne.jp/enter.cgi?id=fdeai
0434名無しさん＠そうだ選挙にいこう
NGNG時刻で保存せず、日時で保存するようにDBを変更する
クエリーでごまかすより、DBの設計を見直したほうが良いと思う
0435名無しさん＠そうだ選挙にいこう
NGNGVBでは無いのでしょうか。
FrexGridにTextbox移動させて重ねるしかないのでしょうか。
0436名無しさん＠そうだ選挙にいこう
NGNGVBなどでACCESSのmdbからデータを取り出したいのですが、
そのまま取り出すとテーブルの中身（フラグの値）が
そのまま連結したコントロール上に表示されてしまいます。
オラクルの場合、Decodeなどを使うことで
テーブルのデータと取り出される文字を変換できるのですが、
ACCESSにはそういった目的に使える関数はあるのでしょうか？
0437435
NGNGスレ汚しすみませんでした…。
0438名無しさん＠そうだ選挙にいこう
NGNG(日々の作業として、ひとつひとつ手動でやるのは、ちょっとつらい)
下のようなやり方を考えたんですが
Call Shell("""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\data\data1.mdb""/compact", 1)
Call Shell("""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\data\data2.mdb""/compact", 1)
Call Shell("""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\data\data3.mdb""/compact", 1)
Call Shell("""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\data\data4.mdb""/compact", 1)
Call Shell("""C:\Program Files\Microsoft Office\Office\MSACCESS.EXE"" ""C:\data\data5.mdb""/compact", 1)
・・・
これって、安全なんでしょうか?
もちろんこれでも確かに最適化は出来てるみたいなんですが、開いたり
閉じたり、何だかとんでもない苦行を強いているような気がして。
あと、どこかのサイトで、最適化はツールバーから手動でやるのが
いちばん安全確実いうような記事もあったので、ちょっと心配です。
0439428
NGNGありがとうございました。
0440428
NGNG元データの日付、時刻が文字列で（例20030312、0830）となってます。
日付時刻型に変換する方法ありますか？
お願いします。
0441名無しさん＠そうだ選挙にいこう
NGNGMid → CDate,DateValue
0442名無しさん＠そうだ選挙にいこう
NGNGhttp://homepage3.nifty.com/digikei/
0443428
NGNG???
わかりません
もう少し詳しく教えて下さい・・・。
0444名無しさん＠そうだ選挙にいこう
NGNGヘルプ嫁
0445名無しさん＠そうだ選挙にいこう
NGNGADOでコーディングに書き換えようとしています。
FindFirst,NoMatchがADOでは使えないみたいですが、
とくにNoMatchに代わるものが無いか探しています。
あるレコードがあるかないか判断したいのですが、
何か知っていたら教えて下さい。
0446bloom
NGNG0447名無しさん＠そうだ選挙にいこう
NGNGACCESS2Kなら、CompactDatabaseメソッドがある。
Shellで子プロセスを起動するより効率が良さそう。
>>445
経験的に、FindFirst,NoMatch,Seek といった処理は
レコードをメインキー順に１件ずつ参照するようなので
処理速度がかなり遅い。特に大量データでは効いてくる。
だから、Openメソッドを実行する際のSourceにWHERE条件を
付けてクエリにし、BOF，EOFﾌﾟﾛﾊﾟﾃｨを参照した方がいいヨ。
Dim CN As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim mySQL As String
mySQL="SELECT * FROM テーブル1 WHERE 条件式"
With RS
.Open mySQL, CN, dbOpen,adOpenForwardOnly,adLockReadOnly
If .EOF And .BOF Then
Msgbox "アンマッチ"
Else
Msgbox "マッチ"
End If
.Close
End WIth
0448名無しさん＠そうだ選挙にいこう
NGNG---引用-----[ヘルプ]－[ﾄﾋﾟｯｸの検索]－[Mid関数]------
Mid 関数
バリアント型 (内部処理形式 String の Variant) の値を返します。文字列から指定した文字数分の文字列を返します。
構文
Mid(string, start[, length])
次の例は、Mid 関数を使って、文字列の中から指定した文字数分の文字を返します。
Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo"' 文字列を定義します。
FirstWord = Mid(MyString, 1, 3)' "Mid" を返します。
LastWord = Mid(MyString, 14, 4)' "Demo" を返します。
MidWords = Mid(MyString, 5)' "Function Demo" を返します。
---------------------引用おわり---------------------------------
"20030312" → "2003"と"03"と"12" → 区切を追加 "2003"&"/"&"03"&"/"&"12"＝"2003/03/12"
"0830" → "08"と"30" → 区切を追加 "08"&":"&"30"＝"08:30"
---引用-----[ヘルプ]－[ﾄﾋﾟｯｸの検索]－[CDate関数]------
CDate 関数の使用例
次の例は、CDate 関数を使って、文字列を日付型 (Date) に変換します。一般的には、この例のように文字列で日付/時刻を表すことはお勧めできません。文字列の代わりに、日付リテラルや時刻リテラル (#2/12/1969# および #4:45:23 PM# など) を使ってください。
Dim MyDate, MyShortDate, MyTime, MyShortTime
MyDate = "February 12, 1969"' 日付を定義します。
MyShortDate = CDate(MyDate)' 日付型に変換します。
MyTime = "4:35:47 PM"' 時間を定義します。
MyShortTime = CDate(MyTime)' 日付型に変換します。
---------------------引用おわり---------------------------------
0449名無しさん＠そうだ選挙にいこう
NGNG優しすぎ。。
教えてくんを増長させるだけだと思うぞ・・
0450428
NGNGどうもありがとう。
助かりました。
0451みっこ
NGNG入電内容を記録するシステムをDAOで作りました。
AccessのDB用ファイルを十数人ほどでLAN上で使用しています。
入力したレコードを呼び出し、このレコードを編集用のフォームで
編集したところ編集後にこのレコードが消失してしまいました。
この編集用フォームは、編集するレコードの内容を編集用の空のテーブル
に書き込んで、編集用フォームに表示します。
修正されたフォームの内容をフォーム上の編集ボタン押下時に元のテーブル
にEditするように作ってあります。
消失したことが発覚した後、テーブルを開いて消失したレコードを検索しても
見つからないのに、テーブルの並び替え(Z→A)をしたところ消失したレコード
が表示されるという現象が起きました。
並び替えを行うとテーブルの下部にあるレコード数が１つ増え、並び替え解除すると１つ
減るということも確認しました。
DBの最適化を行ったところ、消失レコードは並べ替えを行っても見れなくなりました。
原因が全くわかりません。
編集用のテーブルを初期化する以外はDeleteはしていません。
1年ほど使用しているシステムで入力編集作業はほぼ毎日行っていますが
このようなことは初めてでした。
似たような現象をご存知の方はいませんか？
0452名無しさん＠そうだ選挙にいこう
NGNGAccessのDB用ファイルを十数人ほどでLAN上で使用しているという事だけど
編集用フォームではきちんと排他制御は行っているかい？
症状そのものはレコードのインデックスが壊れた状態なんだけどな。
（複数のユーザーが同一レコードを絶妙に同一のタイミングでアップデートすると
インデックスが壊れる事があるような気がするが…定かではない）
そんな訳でEditするためにOpenRecordsetする際に、dbDenyWriteオプションを
付けるようにしてはどうだろうねい？安全性は増すと思うぞ。
0453名無しさん＠そうだ選挙にいこう
NGNG２ｃｈ的に書けば、「アクセスＤＡＯを十数人で使う時点でＤＱＮ」で片づきそうだが。
最適化はどういう運用で行ってました？
0455452
NGNG２ｃｈ的に書けば、「複数人で同時に使うサーバー＆クライアントアプリを設計する際に
排他制御を考慮していない時点でＤＱＮ」って事だな。
それがＪｅｔに限らずどんなデータベースエンジンであっても悩みのタネ。
それは排他制御が同時に発生する可能性があるからで～ （以下省略）
0456名無しさん＠そうだ選挙にいこう
NGNGデータベーとしては極小の部類だし...
0457名無しさん＠そうだ選挙にいこう
NGNGアクセスはきちんと排他制御をしても壊れることがある気がする。
必ず再現するわけではないのだが、やっぱり複数からの接続の際の安定性は低い。
そこんとこ理解した上で使うには便利なソフトだが、
十数人というのはアクセスに任せられる許容量を超えている、というのが
一般的な認識だと思う。
そういう認識が薄いことがＤＱＮ扱いされるポイントかと。
0458名無しさん＠そうだ選挙にいこう
NGNGきちんとって、どんな排他制御してますか？（純粋に質問）
0459名無しさん＠そうだ選挙にいこう
NGNGCompactDatabaseメソッドで最適化されるのはJetのオブジェクトだけ。
Forms、Reports、Macros、Modulesのテンポラリ領域は最適化されない罠・・・。
それを問題視するなら、>>438の処理を選ぶのが無難な選択。
0460名無しさん＠そうだ選挙にいこう
NGNGアクセス９７を使用しています。
単票の「受注」フォームに、データシートの「受注明細」サブフォームがリンクされています。
そのときに、「受注明細」サブフォームの中に「商品」コンボボックスと
「ロット番号」コンボボックスを作成し、その際、先に入力した「商品」
コンボボックスの値から、「ロット番号」コンボボックスのドロップダウンリストに、
対応するロット番号のみが表示される、というようにしたいのです。
最初、>>121さんのやりかたに基づいて、商品名、およびロット番号が入力されている
「商品リスト」テーブルから
抽出条件：forms!受注明細!商品
のクエリー「ロット抽出クエリー」を作成して、「受注明細」サブフォームの
「ロット番号」コンボボックスの値集合ソースには「ロット抽出クエリー」を設定し、
「商品」コンボボックスには
Private Sub 商品名_Change()
DoCmd.Requery "ロット番号"
End Sub
のイベントプロシージャーを設定しました
実際に動かしてみると、「受注明細」サブフォーム単独で起動した場合には
うまく動くのですが、「受注」フォーム内で動かしてみると、「商品」コンボボックスから
商品名を選択した後に「ロット番号」コンボボックスを選択しようとすると、
forms!受注明細!商品
のパラメータを要求されてしまいます。
これは、どうやったら解決できるのでしょうか？
よろしくお願いいたします。
長文スマソです。
0461名無しさん@そうだ選挙にいこう
NGNG>抽出条件：forms!受注明細!商品
をForms!受注!受注明細!商品としてみては？
Forms!メインフォーム名!サブフォーム名!サブフォームのコントロール名
0462sage
NGNGあ、できた・・・
ありがとうございます！
こんな簡単なこともわからん初心者は回線切っ（ｒｙ
ですね・・・。
ずぶの素人がひとりで、１週間で受発注システムを
たちあげなければならないんで・・・。
正直無理ぽですが、頑張って勉強します。
0463名無しさん@そうだ選挙にいこう
NGNGガンガレ！当方もシロウトでつ
0464名無しさん＠そうだ選挙にいこう
NGNG0465438
NGNGこちらもありがとさんです
全部テーブルオンリーのmdbですんで、CompactDatabaseのほうを
採りたいと思います。
クエリ、フォーム、レポート、モジュールの入ったmdbは、最適化しない、
と、ついさっき決めました。
別フォルダに無傷の新品置いて、たとえば毎月3回5のつく日の起動時に
そっちから自動的にコピーする、というような形。
いま、その具体的なやりかた決めてる最中です。
0466名無しさん＠そうだ選挙にいこう
NGNGアクセスのあるオフィスは２０００のしか持ってない。アクセスだけインストールできる？
0467名無しさん＠そうだ選挙にいこう
NGNGできるよ。
0468名無しさん＠そうだ選挙にいこう
NGNGhttp://multianq3.uic.to/mesganq.cgi?room=yasuhito
毎月アンケートの内容が変わるよ。
0469名無しさん＠そうだ選挙にいこう
NGNG名簿フォームから名前を選んでクリックすると、その人に電話をかけてくれる
ある日とつぜんこんな機能が欲しくなった。
モデムに電話をかけさせる仕組みなんて全然分からないので、Windowsの
おまけでついているDialerでもためしにつかってみようかと考えた。
Call ShellでDialerを起動
名簿中の電話番号を､mid関数で1文字ずつ拾いながらSendKey
これでどうにか電話はかけられた。
しかし
異常に使いにくい
何より、受話器を置いても、PC側で回線切断をクリックしないと
切れてくれない。
「これじゃ指でピポパのほうが楽だ」
あ、いや、愚痴といえば愚痴、ただの日記といえば日記です
ﾀﾞﾚｶ ｱｸｾｽ ﾃﾞ ﾂｸｯﾃ ｸﾚﾅｲｶﾅ
0470名無しさん＠そうだ選挙にいこう
NGNGあとはATDコマンドで。
0471名無しさん＠そうだ選挙にいこう
NGNG寺タームとかにやらせりゃいいんじゃん？
あとはATDコマンドで。
0472名無しさん＠そうだ選挙にいこう
NGNG、フォームをロードした時にデータを表示できますよね。ADOコーディング
で同じようなこと出来ないでしょうか？テーブルはSQLサーバーにあります。
RecordsetオブジェクトのOpenメソッドで開いて、それをMe.Recordset=Recordsetオブジェクト
をするとフォームにSQLサーバーのテーブルから取ってきたデータを表示できる
のですが、読み取り専用らしくて書込みが出来ません。
0473bloom
NGNG0475名無しさん＠そうだ選挙にいこう
NGNGコンボボックスを自動で開くコードを作ったのですが、そのあと項目を選択したら次のフィールドに進むのではなく、
いったんそのコンボボックスでとどまるようにしたいのです。（確認をしたいのです）例えばレコードの最後にコンボボックスがあると、選択したあと確認できずに次のレコードに飛んでしまうので・・。
どうしたらいいでしょうか？
0476名無しさん@そうだ選挙にいこう
NGNGSetFocus
0477名無しさん＠そうだ選挙にいこう
NGNGだから何だよ
もういい加減,こういう社会不適応者にPC触らすなや
0478名無しさん＠そうだ選挙にいこう
NGNG0479名無しさん＠そうだ選挙にいこう
NGNG0480名無しさん＠そうだ選挙にいこう
NGNGコンボボックスの右側に「確定」ボタンを作成しておく。
(ボタンを押したらレコードを update とかするようにしておく)
0481名無しさん＠そうだ選挙にいこう
NGNG日付を入力したら、2003/10/01になります。
年から入力すればいいのですが、面倒なので
なにかいい方法ないでしょうか？
0482名無しさん＠そうだ選挙にいこう
NGNGすごくいろんな方法があるけど…
あんたはどうやったのよ？
Ctrl+D とかは？
0483名無しさん＠そうだ選挙にいこう
NGNGバカ正直に、2002/10/01と入力しました。
CTRL+D? いったいどうやるのですか？
0484tantei
NGNG●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
●ストーカー対策
社会問題ともなっているストーカーを撃退致します！！
その他人生相談からどんなお悩みでも解決いたします！！
直通 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
グローバル探偵事務局
0485名無しさん＠そうだ選挙にいこう
NGNG★その目で確認すべし！！★超おすすめ★
0486名無しさん＠そうだ選挙にいこう
NGNG格子罫線を簡単に引くことは無理なのでしょうか？
0487名無しさん＠そうだ選挙にいこう
NGNG何を基準に年を判断させたいのかが分からんと、どうしようもない。
キミの脳内か？
0488名無しさん＠そうだ選挙にいこう
NGNGありがとうございました。せっかく教えていただいたのですが、違う方法考えて見ます。ごめんなさい・・。
0490名無しさん＠そうだ選挙にいこう
NGNG「簡単に引くこと」は無理。
天地の高さを詳細の天地と同じにして
書式設定から左右の間隔を極限まで狭める。
0491名無しさん＠そうだ選挙にいこう
NGNGADPなら書き込めたはずだが
0492名無しさん＠そうだ選挙にいこう
NGNG重複クエリーウイザードで作ったクエリーと削除クエリーで
毎日重複（日付を<date()にして）を削除しています。
重複クエリーの方ですが、条件を２つ以上入れると固まってしまいます
（フィールド名が都道府県で抽出条件が"東京"または"千葉"など）
現在は毎回ビューで戻り条件を一個づつ入れ直していますが、
１０個の県を一回で抽出させるにはどうすればいいのでしょうか？
0493名無しさん＠そうだ選挙にいこう
NGNGvba使えよ
0494名無しさん＠そうだ選挙にいこう
NGNGフォーマットイベントで引くとか。
Private Sub Report_Page()
Call s_MakeCrossLine(Me, 4, 20)
End Sub
Sub s_MakeCrossLine(objRpt As Report, x1 As Long, y1 As Long)
Dim x As Double
Dim y As Double
Dim i As Long
With objRpt
.ScaleMode = 7
.DrawStyle = 0
.DrawWidth = 5
x = .ScaleWidth
y = .ScaleHeight
For i = 0 To x1
objRpt.Line (x / x1 * i, 0)-(x / x1 * i, y), RGB(0, 0, 0)
Next i
For i = 0 To y1
objRpt.Line (0, y / y1 * i)-(x, y / y1 * i), RGB(0, 0, 0)
Next i
End With
End Sub
0495名無しさん＠そうだ選挙にいこう
NGNGどーしましょ？
0496名無しさん＠そうだ選挙にいこう
NGNG勉強しる。
もしくはお金貯めて外注しる。
知恵も金もなければしこしこ手書きで作業しる。
0497492,495
NGNGVBまで分からないとできないんですね…
普通のクエリーだったら、条件をどんどん入れても別に問題ないので
簡単にできるのかと思いまして。がんばって勉強してみます
0498496
NGNGクエリー画面で、表示→SQLビュー ででてくるSQLをコピーして、
使い回すあたりからやってみそ。
0499497
NGNGレス、どーもです！
SQLビューっていう存在自体はじめて知りました
ちょっとみた感じこれなら、理解できそうです
コピーして、いろいろイジってみまする
0500名無しさん＠そうだ選挙にいこう
NGNG0501名無しさん＠そうだ選挙にいこう
NGNG変わらない。
つか、なんでやってみない？
0502名無しさん＠そうだ選挙にいこう
NGNG0503名無しさん＠そうだ選挙にいこう
NGNG念力と気合で入れる(w
チェックボックスのコントロール名.Value = True
ってどこかのモジュールに書けば？
当該フォーム外のモジュールだったら「Forms!フォーム名!」がコントロール名の前に必要だけど。
0504名無しさん＠そうだ選挙にいこう
NGNG出来る、マウス以外で言うが、他のなにで入力するの。
まさか画面に向かって入れてー・・・・・と言うの。
0505名無しさん@そうだ選挙にいこう
NGNGスペースキーでオンオフできる
0506名無しさん＠そうだ選挙にいこう
NGNG0507名無しさん＠そうだ選挙にいこう
NGNGどう計算していいか困ってます。ご教授願います。
（あちこち調べても全くわかりません）
0508名無しさん＠そうだ選挙にいこう
NGNG0509名無しさん＠そうだ選挙にいこう
NGNG過去に出たネタだな。>>428から読んでみろ
0510名無しさん＠そうだ選挙にいこう
NGNG↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓ ↓
http://www.pink-angel.jp/betu/index.html
0511名無しさん＠そうだ選挙にいこう
NGNGいかにレベルが低(以下略
0512名無しさん＠そうだ選挙にいこう
NGNG０時以降は超勤なので、最大と表示したいのです。
0513508
NGNG0514bloom
NGNG0515名無しさん＠そうだ選挙にいこう
NGNGところなんですが、「リレーションシップ」ってのは結局、
フィールドがメチャクチャ多くなって、テーブルが横方向に
メチャクチャ長くなるのを避ける為に、用途や意味合いごとの
小さなかたまりにテーブルを分けて、それらにうまい具合に
同じフィールドを散りばめて連動させられるようにすることで、
「巨大な一つのテーブル」のときと同じような状態にする。
みたいなことなんでしょうか？ 駄文で申し訳ないっス。
0516名無しさん＠そうだ選挙にいこう
NGNGチョットは合ってるが概ね違う。
「正規化」と「正規形」でググッてみれ！
これがわかったら、ＤＢＭＳ毎の物理的制限について調べてみれ～！
がんがれ～！
0517名無しさん＠そうだ選挙にいこう
NGNG∧＿∧ | | ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（ ´Д｀）／/ ＜ 先生！こんなのを発見シマスタ！
／ / ｜
/ /| / ＼ http://saitama.gasuki.com/wara/
＿＿| | .| | ＼
＼ ￣￣￣￣￣￣￣＼ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
||＼ ＼
||＼||￣￣￣￣￣￣￣||￣
|| ||￣￣￣￣￣￣￣||
.|| ||
0518515
NGNGどうもっス。「正規化」と「正規形」でググッてみて
www.st.rim.or.jp/~ryoma/tips/seikika.htm
↑これ読んだらイマイチよく分からなかったんですが、
www.pursue.ne.jp/jouhousyo/sysad/sysad012.htm
↑これ読んだらスッキリ分かりますた。
いろいろ勉強してきます。ありがとうございました！
0519bloom
NGNG0520名無しさん＠そうだ選挙にいこう
NGNG"[並べ替え/グループ化] ダイアログ ボックス"っていうのが出てこなくなりました。
出てくるようにする方法お判りの方、ご教授ください。お願いします
0521名無しさん＠そうだ選挙にいこう
NGNG再インスコ
0523520
NGNG0524名無しさん＠そうだ選挙にいこう
NGNGスクロールバー下げてみそ。
0525名無しさん＠そうだ選挙にいこう
NGNGテーブルのフォント設定について教えてください。
フォント名・サイズ等を［書式（O）］→［フォント（F）］で設定すると、
見出し（フィールド名）部分とレコード部分が一括で設定され、
フィールド名部分はレコード部分と同じ設定の「太字」になって
しまいますが、これを変更することはできますでしょうか？
例えば、
レコード部分：MS Pゴシック・9P・スタイル「標準」
フィールド名：MS P明朝・10P・スタイル「太字 斜体」
などのようにです。
また、レコード部分の背景・枠線等は［書式（O）］→［データシート（E）］
で設定できるのは分かったんですが、フィールド名部分の設定方法が
分かりません。例えば背景色グレー（デフォルト）を緑に変更するなど
は、どこで行なったらよいのでしょうか？
よろしくお願い致します。
0526名無しさん＠そうだ選挙にいこう
NGNG0527bloom
NGNG0528名無しさん＠そうだ選挙にいこう
NGNGうまくできません。
1854秒
↓
時間 0
分 30
秒 54
というようにしたいのです。
よろしくお願いします。
0529520
NGNGそれも考えて、
スクロールバーがないのでわざわざレポートの小窓を下や右や左に動かして
スクロールバーを出してうねうねしたのですが発見できず。
ボタンを押してフォーカスが"[並べ替え/グループ化] ダイアログ ボックス"に行ってるであろう状態で
F4を押すと、そのレポートの元になるクエリーのフィールド名が画面の左下(スタートボタンの上)に
現れるのですが、この辺がおかしな状態のヒントにつながります？
0530名無しさん＠そうだ選挙にいこう
NGNG60で割って整数部分と余りに分けれ。
時間はその応用。
やり方が分らなければ自分で調べれ。
0531528
NGNG>>530
> 60で割って整数部分と余りに分けれ。
意味がわかりません。
「割って」って・・・？？
0532名無しさん＠そうだ選挙にいこう
NGNG>「割って」って・・・？？
何がどうわからないか、やったことをきちんとわかりやすく
かけ
教えてｸﾝなら、とっとと消えろ
0533名無しさん＠そうだ選挙にいこう
NGNGAccessなんてやってる場合か？
小学校へもう一回行ったほうがいいぞ。
0534名無しさん＠そうだ選挙にいこう
NGNG「小学校の算数板」とか、作る必要があるかね ( ´д)ﾋｿ(´д｀)ﾋｿ(д｀ )
0535名無しさん＠そうだ選挙にいこう
NGNG1854秒→ 0時間30分54秒の計算をしたんだ？（ｗ
0536524
NGNGタスクバーの下に隠れてるね。
タスクバーの上端を画面一番下までドラッグして、高さ０にしてみそ。
0537名無しさん＠そうだ選挙にいこう
NGNG罫線ヘルパー
0539名無しさん＠そうだ選挙にいこう
NGNG20個以上の項目があるテーブルから
管理番号/郵便番号/住所/氏名
の四つの項目だけを抜き出す選択クエリを作り、
csv形式でエクスポートしたいと思ってます。
上記の四つの項目を抜き出すだけのクエリなら
ちゃんとcsv形式にエクスポートできるのですが、
管理番号の抽出条件を
Between [何番から？] And [何番まで？]
にするとエクスポートする際に
「パラメータが少なすぎます。2を指定してください。」
のエラーメッセージが出ます。
どなたかおわかりの方、ご教授いただきたいです。
0540名無しさん＠そうだ選挙にいこう
NGNGしてるんだよね。
自信はないし試してみる気もないが、何となくこれでいけそうな気がする
Between Hajime() and Owari()
で、モジュールに以下を
Function Hajime()
Hajime=Forms![form1]![txt1]
End Function
Function Owari()
Owari=Forms![form1]![txt2]
End Function
ダメだったらごめん
0541名無しさん＠そうだ選挙にいこう
NGNGそれで動いたとしても邪道だ。
邪道を初心者に勧めるのはやめれ。
0542名無しさん＠そうだ選挙にいこう
NGNGあれれ、これってどっかのサイトで読みかじったやり方なんだけど
邪道なの?
ｶﾞｰﾝ
素人の俺がつくった職場のデータベース、これ使いまくりなんだけど、
もしかして何かやばい?
だってすげえ便利なんだもん・・・ﾎﾞｿﾎﾞｿ
0543539
NGNG抽出条件は、
クエリをデザインビューで開いて指定しました。
モジュールも勉強不足でわからないのですが、
もう少しヘルプとにらめっこしてみます。
0546名無しさん＠そうだ選挙にいこう
NGNG説明すると長くなりそうなので、アレだけど、TransferDatabaseメソッドは
使わず、DAOかADOのExecuteメソッドで処理するのが本筋。
> もしかして何かやばい?
動作には問題ない。作り方の「作法」、「ポリシー」が感心できない。
0547名無しさん@そうだ選挙にいこう
NGNGパラメータクエリに関してはここを参照
http://homepage1.nifty.com/tsware/tips/tips_083.htm
0548539
NGNG挙げていただいたサイトやモジュールなどを
さらっと理解できるほどのレベルまで至ってないので、
毎回デザインビューにて
Between xxx And yyy
と指定することにします。
皆さんありがとうございました。
0549520
NGNGそれが隠れていませんでした…。
五里霧中とはこの事だ～。
やっぱり再インストール以外の手はないんでしょうかね…。
隣の人のパソ奪って仕事するっていう手もありますが。(^^;)
0550536
NGNG絶対に隠れてると思うのだが。。解像度を上げたらどう？
0551540
NGNGｻﾝｸｽ
そそ､パラメータクエリなのよ｡
俺がこの関数化(んな呼び方あるか?)の便利さを思い知ったのは｡
抽出条件どころか
追加クエリの、追加元のフィールドでさえ使っちゃってる｡
リンク先のAccsessTipsのサイト､覗いてきました｡
何つか､たしかに俺はお行儀の悪いやり方をとっていたと思う｡
やっぱり素人のあさましさ｡
基本も何もない、八方闇の中
｢とにかく何よりも動くこと｣だけを目指してドカドカ進んでいくと
こうなっちゃうんだろうな｡
0553名無しさん＠そうだ選挙にいこう
NGNGVBのコーディングだったのでAccess用に修正しました。
Public Sub ExportCsv()
Dim db As DAO.Database
Dim strSQL As String
Set db = CurrentDb
strSQL = "SELECT * INTO " & _
"[Text;DATABASE=C:\].[Pubs.CSV] " & _
"FROM Publishers"
db.Execute strSQL
db.Close
End Sub
参照設定でMicrosoft DAO Objectをチェックしてね
0554suma
NGNG2つのテーブルをリンクさせたいのですがどのようにすれば
よいのでしょうか？
フィールドのDATAが完全に一致しない場合です。
aのテーブルに
例：
aのテーブル
code
a1
b1
bのテーブル
code
a1 te01
a1 te02
b1 te01
というように内容の一部が一致する場合です。
よろしくお願いします。
0555suma
NGNGよろしくお願いします。
下が切れてしまいましたので
0556名無しさん@そうだ選挙にいこう
NGNG>strSQL = "SELECT * INTO " & _
>"[Text;DATABASE=C:].[Pubs.CSV] " & _
>"FROM Publishers"
割り込みスンマセン
ここの中段（Text…）部分で「HDR=NO」とするとヘッダーが消えますよね。
この部分で「"(ダブルクォーテーション)」を付けないように書けるんでしょうか？
0557名無しさん＠そうだ選挙にいこう
NGNGhttp://www.k-514.com
0558名無しさん＠そうだ選挙にいこう
NGNGダブルクォーテーションをつけない方法は知らないです。
やはり、最後の方法は1レコードごとにテキストに書き出すVBAを書くしかないかも
私はExcelフォーマットに出力する方法を良く使います。
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Publishers", "c:\Publishers.xls", false
0559名無しさん＠そうだ選挙にいこう
NGNG誹謗中傷のみの糞レス。>>547が眼に入らない視覚障害者(めくら)
人間のクズはさっさと死んでください。
>>556
schema.iniを使う、とか。
0560名無しさん@そうだ選挙にいこう
NGNGどうしてもって訳ではないのでいいんですが…
Accessで書き出したデータを会計ソフトにインポートする際に
「"(ダブルクォーテーション)」が邪魔だったんで…（CSVのみインポート可）
>>559
>schema.iniを使う、とか。
Executeメソッドでエクスポートを行うと出来るヤツですよね
これってCSVファイル名毎にファイル内に書かれるようですが
CSVファイル名を変えても固定schema.iniを使用するって
ことは出るのでしょうか？
0561544
NGNGPublic Sub ExportCsv(strTableName As String)
Dim fso As New Scripting.FileSystemObject
Dim objFile As Object
Dim db As DAO.Database
Dim strSQL As String
Dim strExportFilePath As String
' schema.iniの作成
Set objFile = fso.CreateTextFile("C:\schema.ini", True)
objFile.WriteLine ("[" & strTableName & ".csv]")
objFile.WriteLine ("ColNameHeader = False")
objFile.WriteLine ("CharacterSet=OEM")
objFile.WriteLine ("Format=CSVDelimited")
objFile.WriteLine ("TextDelimiter=None")
objFile.Close
' 既存のCSVを削除
strExportFilePath = "C:\" & strTableName & ".csv"
If fso.FileExists(strExportFilePath) = True Then
fso.DeleteFile strExportFilePath
End If
' テーブルをCSVに出力
Set db = CurrentDb
strSQL = "SELECT * INTO " & _
"[Text;DATABASE=C:\].[" & strTableName & ".csv] " & _
"FROM " & strTableName
db.Execute strSQL
db.Close
End Sub
参照設定
Microsoft DAO 3.6 Object Library
Microsoft Scripting Runtime
0562名無しさん@そうだ選挙にいこう
NGNG>作ってみたよ
ふぇ～ありがとうござんす！
自宅には環境がないんで、月曜に会社でやってみます。
※割り込みなのにご親切にどーもです。
0563名無しさん＠そうだ選挙にいこう
NGNGをつくったんです。パラーメーターが複数あるのでVariant型の配列に入れてACCESS側でCommand
文でストアドプロシージャーを呼んでいます。しかし、”textからintには変換できません”
などとエラーが出ます。”smalldateやnvarcharには変換できません”などのエラーも出ます。
パラメーターをint型の項目一つにしたときは、普通に登録できたのですがエラーの理由がわかりません。
何か心当たりのあるかたいますか？
0564あ
NGNGとりあえずマルチやめろよ。
0566520
NGNGこのパソの最高解像度、1024*768で作業していて
逆に640*480にしたり、accessの窓を小さくしたりしても
やっぱりF4を押すとスタートボタンの上のところに出てくるんですよ…。
0567名無しさん＠そうだ選挙にいこう
NGNG再インスコが無理だったら、面倒だけれど正常に動いているPCの
Officeのフォルダ内にある *.olb; *.cnt; *.ocx; *.dll をサイズ比較
してみてはどうだろうねい？ファイルが壊れているのだと思うのだけれど...
違うサイズのものがあったら怪しいよねえ。
それとも、Microsoft Office ダウンロードセンターから
Microsoft Office 97 Service Release 2を落としてきて当てる？
壊れてるファイルが運良く上書きされて直るかもよ。
0568名無しさん＠そうだ選挙にいこう
NGNG並べ替え/グループ化のダイアログをカンで出しておいて、Windowsのタスクバーを右クリック。
重ねて表示でも並べて表示でもOK。ダイアログが出てきたら大きさ調整して下さい。
0569名無しさん＠そうだ選挙にいこう
NGNGで、簡単に検索するためのクエリを、抽出条件を下記の通り設定して
作りました。
Like "*" & [書籍名に含まれる文字を入力してください:] & "*"
しかし、検索結果が出ません。
どういう原因が考えられるでしょうか。
0570名無しさん＠そうだ選挙にいこう
NGNGビューを設定していると、読み取り専用でフォームの各フィールド
を書き換えようとすると怒られますよね？ユニークテーブルを指定
すると書き換えができるようですが、ビューにおいてJOINなどで複数
テーブルからデータをとってきてる場合、更新処理をすればいいでしょう？
フィールドを移動するたびにユニークテーブルを設定しなおせばいいのでしょうか？
それでも怒られるみたいですが・・・・。
0571名無しさん＠そうだ選挙にいこう
NGNG0572名無しさん＠そうだ選挙にいこう
NGNGRecordSourceプロパティにセットして、
データを取ってきて表示できるならそうしたほうが
簡単じゃないですか。コードでsql投げてデータを
取ってきてもいいんですけど・・・・取ってくる
データが10万件近くあるんですよ。それをループ
させて、フィールドに設定していくのもおそくて
・・・・。
0573名無しさん＠そうだ選挙にいこう
NGNG処理方法変えろ。
自分の方法しか知らないからじゃねーのか。
他の方法模索するくらいの根性出せ。
0574名無しさん＠そうだ選挙にいこう
NGNGたった、５万件程度でへいこらへいこらしてんだから。
>>573のような奴に限って何もしらねんだから放っておけ。
0575名無しさん＠そうだ選挙にいこう
NGNG573が自分のやってる方法を書いてくれるよ。書けるんならねｗ
0576名無しさん＠そうだ選挙にいこう
NGNG別な板で質問したのですが、こちらで質問するのが本筋のような気がしましたので、
マルチとは思いますが、失礼させていただきます。
一から質問内容を書くと長文なのでリンクさせていただきます。
http://pc2.2ch.net/test/read.cgi/tech/1032402846/440-443
上記の流れなのですが、お知恵を貸していただければ助かります。
よろしくお願いします。
0577名無しさん＠そうだ選挙にいこう
NGNG0578名無しさん＠そうだ選挙にいこう
NGNGMac OS Xのみの対応となります。
0579名無しさん＠そうだ選挙にいこう
NGNG＞コードでsql投げてデータを 取ってきてもいいんですけど
自分で答え書いてるやんかさぁ (･∀･)(･∀･)(･∀･)(･∀･)ﾆﾔﾆﾔ
0580名無しさん＠そうだ選挙にいこう
NGNGMac用は98だろ
0581名無しさん＠そうだ選挙にいこう
NGNG結局それかよｗ
0582bloom
NGNG0583名無しさん＠そうだ選挙にいこう
NGNGうまい方法はないでしょうか？
outLookのデータは取り込めたのですが他の
メーラは使えません。
もしくは、Accessそのものをメーラとして使えな
いものでしょうか？
ご存じの方がおられましたらお教えください。
0584名無しさん＠そうだ選挙にいこう
NGNGビューにこだわるなら、以下の方法はどうでしょうか？
ビューの連結フォームを作成
レコードソースプロパティを空にする
読み込みボタンと更新ボタンを置く
[ロード時]
ビューの表示内容と同じレイアウトの一時テーブルを作成
[読み込み]
SQLで10万件のビューからレコード件数を絞り込んで一時テーブルにインサート
一時テーブルのレコードセットを作成
フォームのレコードセットプロパティに一時テーブルのレコードセットを指定
[更新]
一時テーブルのレコードセットからテーブルを更新する
[フォームを閉じる時]
一時テーブルを廃棄
0585名無しさん＠そうだ選挙にいこう
NGNG"RecordSource/レコードソース" プロパティ
メモ 開いているフォームやレポートのレコード ソースを変更すると、
基になるデータの再クエリが自動的に行われます。フォームの Recordset
プロパティを実行時に設定すると、そのフォームの "RecordSource/レコード
ソース" プロパティが更新されます。（ヘルプより）
0586名無しさん＠そうだ選挙にいこう
NGNGAccess2000で作ったファイルを、Access97ファイル形式にしようとしましたが、
「フィールドのデータ型が正しくありません」のエラーが出ます。
２２コのテーブルからいくつかずつ削除を繰り返すうち、
そのうち特定の２コを削除するとエラーが出ないことがわかりました。
が、ここから、「何が正しくないのか」がわかりません。
２コのテーブルを構成するフィールドのデータ型は、
「日付/時刻型」「テキスト型」「数値型」で、
全部で３３フィールド（１８，１５）です。
２０００→９７にする場合に、データ型のプロパティ等で使えないモノ、
エラーの原因がわかりましたら宜しくお願い致します。
0587名無しさん＠そうだ選挙にいこう
NGNG一つにくっつけるようなことはできないんでしょうか？結構簡単にできそうに
思えてなかなかできません。初級シスアドのテキストには「併合」とか
書いてあるんですけど、googleで検索してもなかなかわからないです。
そもそも、名簿A、名簿Bみたいに同じ形式のテーブルが複数ある時点で
データベースとしておかしいのでしょうか？？？
0588名無しさん＠そうだ選挙にいこう
NGNGUnionクエリ
0589587
NGNG0590587
NGNGこれを機会に挑戦してみるか・・。
0591名無しさん＠そうだ選挙にいこう
NGNGのフォームにうまく表示できません。常に最後の一件だけ表示されます。
帳票形式のフォームにADOのレコードセットオブジェクトを使ってとって
きたデータをうまく表示させることは出来ないのでしょうか？
0592名無しさん＠そうだ選挙にいこう
NGNGヒント：クエリ
0593名無しさん＠そうだ選挙にいこう
NGNG／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://saitama.gasuki.com/shinagawa/
0594名無しさん＠そうだ選挙にいこう
NGNG0595名無しさん＠そうだ選挙にいこう
NGNG0596名無しさん＠そうだ選挙にいこう
NGNGサブフォームを使え。
0597名無しさん＠そうだ選挙にいこう
NGNG表示されているデータって読み取り
専用でフォーム上で編集できませんよね？
0598名無しさん＠そうだ選挙にいこう
NGNG2000と97で制限が違うかどうかは知らないけど、
1.97のdbsに2000のと同じテーブルを手動で作る。
2.2000で新しくdbsを1個作って新しい97のdbsと古い2000のdbsの
コンバート出来ないテーブルをそれぞれ違う名前でリンク。
3.追加クエリで古いのから新しいのへデータを移動。
これでどうだろ？
>597
できる。追加・編集できないならレコードソースが原因だとおもわれ。
0599名無しさん＠そうだ選挙にいこう
NGNGADOを使ってるなら、SQLサーバーかオラクルなどを
使っているんだと思うけど、帳票形式で表示は出来ても
それを編集するのは無理です。読み取り専用になってる
と思うけど。ADOには”フォームのレコードソースをプログラム
野中で使うとき””レコードセットをフォームに表示しフォーム上
で編集をするとき”で制約があり、このような場合はDAOを
使うようにとなっています。
0600名無しさん＠そうだ選挙にいこう
NGNGテーブルA 種類にあるデータを
テーブルB 商品のある商品名フィールドにコンボボックスの形で使用したいのですが
どうすればよいでしょうか？
TableA 種類
ID 種類名
1 牛肉
2 豚肉
3 鶏肉
4 馬肉
5 その他
TableB 商品
ID 商品名 種類名
1 ○○ 鶏肉
2 ×× 馬肉
3 ▼▼ その他
4 □□ その他
↑TableBの種類名のフィールドにTableAの種類名のフィールドを使用したい
よろしくお願いします
0601名無しさん＠そうだ選挙にいこう
NGNGコンボボックスのプロパティを見て、
値集合ソースのところに
SELECT 種類名 FROM TableA ORDER BY ID;
・・かな？
とりあえずやってみて。
0602名無しさん＠そうだ選挙にいこう
NGNG0603名無しさん＠そうだ選挙にいこう
NGNGなるほど！
どうもありがとうございました！
0604bloom
NGNG0605わからね～～よ！！
NGNGEXCELからaccessへデータを貼り付けて使用できることは知っているのですが、
リレーションを使っているDBにEXCELからデータを貼り付けて使用することは
可能なのでしょうか？オートナンバー型をキーにしているので連結が壊れるのではないか
と心配です。
0606名無しさん＠そうだ選挙にいこう
NGNG2000パーソナルって何？
0607名無しさん＠そうだ選挙にいこう
NGNG最近発売されたらしい。(俺も知らなかったが)
ただし、販路は限られていて、秋葉原の怪しげな外人から買わないと
入手できないらしい。(ｗ
その他にも、Windows 97 とか、Access 98 とか、歴史の表面に出て
いないレアものはいろいろある。(ｗ
0608わからね～～よ！！
NGNG0609名無しさん＠そうだ選挙にいこう
NGNGAccess98ってマックで動くという幻のﾊﾞｰｼﾞｮﾝだよな（ｗ
何とか入手できんものか？
100ﾏｿﾍﾟｿで手を打つぞ（ｗ
0610名無しさん＠そうだ選挙にいこう
NGNGその前にテーブルの設計を見直したほうがよさげな気も。
0611名無しさん＠そうだ選挙にいこう
NGNGハァ？
0612名無しさん＠そうだ選挙にいこう
NGNG0613名無しさん＠そうだ選挙にいこう
NGNG>>608
君の脳内にしか存在しないOSだから、誰も答えられないよ。（ｗ
動作検証できないからね。（ｗ
0614名無しさん＠そうだ選挙にいこう
NGNG６１０のアドバイス極めて松任だ
よって６１１は馬鹿
0615名無しさん＠そうだ選挙にいこう
NGNG引用元をリンクにしない理由と、数字を全角で書く理由を小一時間(略)
0616名無しさん＠そうだ選挙にいこう
NGNGそれをOKボタンを押したら反映される、とかにできませんか？
0617名無しさん＠そうだ選挙にいこう
NGNGできる。
0618名無しさん＠そうだ選挙にいこう
NGNG0619名無しさん＠そうだ選挙にいこう
NGNGことになりました。さっそく、９７で使用していたACCESSのファイルを
２０００で開こうとすると、変換していいかメッセージボックスが出て、
変換しました。すると、全角の関数名がすべてエラーになってしまうんですが、
これは回避できないのですか。また、関数名には全角文字は使えないのですか。
例 Function 成績データ取得() as long
0620あ
NGNG2000で全角の関数名は別に問題なく使える。
変換に関してはよく知りません。
あとは>621が答えてくれると思いますので
そちらを参照してください。
0621名無しさん＠そうだ選挙にいこう
NGNGテーブルAのフィールドを種類ID,種類名、Bのフィールドを商品ID,商品名,種類ID
とした方がいいと思うよ。で、フォームで種類IDのところを601さんの様に。
>616
>フォームに入力するとその瞬間にテーブルに反映されますよね。
されてないよ。レコードの移動だったり、レコードセレクタをクリックしたり
フォームを閉じたりしたとき、テーブルに反映されてるみたい。
で、確実にレコードの保存を制御したいなら、非連結のフォームを作って
そこのボタンをクリックしたら、テーブルにデータを入れるVBA組むのがいいと思うよ。
>619
変換は知らないけど、Access2000で追加された機能でどーしても使いたい機能が
あるってんじゃなければ、Accessは97、Word/Excelは2000で行ったら？
変換するなら、これを良い機会と捉えて全角の関数名を止めて半角英数にしたら？
過去ログとか見た感じだと「使えるけど、問題がまったく無いわけじゃないよ」って
感じだし。
0622わからね～～よ！！
NGNG勝手に俺を装うなよ！訴えてやる！
>>613
会社のPCなんだけど､WINDOWS2000PERSONALって・・・あれっWINDOWS2000PROFESSIONALになってるぞ！
俺が間違ってるらしい・・・。
ちなみに､悩み相談にひゃ答えてもらえるの？
0623名無しさん＠そうだ選挙にいこう
NGNGとりあえず自分で貼り付けてみろ。そしたら分かる。
壊れるのが不安ならコピーをとっておけ
0624619
NGNG使いたい機能は別にありませんが、サイズ制限が２ギガまでになるので
変換して２０００形式にしたいのです。また、コントロールやクエリー内に
も全角の関数名を使ってるので、現状の全角関数のままにしておきたいのです
。
他のサイトを見ると、どうもAccessの変換機能を使用すると途中で
止まったりするみたいなので、テーブルやフォームなどのオブジェクトを全て
インポートして対応してみます。ありがとうございました。
ちなみに、私のところは全角関数名どころかフォームやレポートも全角ですが
、これは一般的ではないのですか。
0625名無しさん＠そうだ選挙にいこう
NGNG＞ちなみに、私のところは全角関数名どころかフォームやレポートも全角ですが
＞、これは一般的ではないのですか。
まぁ、全裸で新宿二丁目を歩くようなものですな。 (´ー`)ｙ－～～
0626名無しさん＠そうだ選挙にいこう
NGNG0627名無しさん＠そうだ選挙にいこう
NGNGそのページごとの集計と全ページの集計というのは可能でしょうか？
請求明細が百件以上あるため、５ページくらいになるのです。
こんな感じにしたいのです↓
レポートヘッダー------------------------------------------------
「全ページの請求金額合計」 「全ページの消費税額合計」
ページヘッダー---------------------------------------------------
（略）
詳細-------------------------------------------------------------
「納品日」 「明細」 「請求金額」 「消費税」
ページフッター----------------------------------------------------
「ページごとの請求金額合計」 「ページごとの消費税合計」
-----------------------------------------------------------------
で、「全ページの請求金額合計」「全ページの消費税額合計」と
「ページごとの請求金額合計」「ページごとの消費税合計」を
レポート上で計算して自動的に入力できる方法を教えてください。
コントロールソースで式を入れようかと思いましたが式がよくわかりません。
すみませんがよろしくお願いします。
0628名無しさん＠そうだ選挙にいこう
NGNGコントロールソースの式を「=Sum(請求金額 or 消費税額)」にしたものを
ページフッタとレポートフッタにそれぞれ置いてみるよろし。
0629名無しさん＠そうだ選挙にいこう
NGNGhttp://home.impress.co.jp/books/powerful/access/access.htm
http://www.c-r.com/mo_acs97u.htm
書籍ならここらへんかな。
上のを持ってるけど結構便利。
ネット上で探すなら、「Access レポート ページ合計」でぐぐる。
ページフッターでSUM関数が使えれば簡単なのにな。
0630名無しさん@そうだ選挙にいこう
NGNGttp://homepage1.nifty.com/tsware/tips/tips_016.htm
0631627
NGNGうわーーありがとうありがとう～～！！ おかげでなんとかできそうです。
まだちょっとよくわからんところがあるんですがじっくり勉強します。
ご親切なお三方に幸あれ。
0632名無しさん＠そうだ選挙にいこう
NGNGボックスへの入力でクエリの抽出を行って、レコードを検索するという画面を
作っています。
それで、その抽出結果をクリアして全件表示するというボタンをつけたのですが、
テキストボックスに入力した内容がレコードに該当しない内容、つまり
検索をかけると何も表示されないという状態でこのボタンを押すと、
レコードは全件表示されるのですが、テキストボックスに文字だけが
残ってしまうのです。
だれか解決策を教えてください、よろしくお願いします。
0633名無しさん＠そうだ選挙にいこう
NGNGVBAならMe.テキストボックス.Value=""を挿入、
マクロなら「値の代入」を使ったらどうかな？
0634名無しさん＠そうだ選挙にいこう
NGNGレスありがとうございます。
それやると、フォーカスが喪失されるんですよ、そんでSetFocusとかやってみると、
「カレントレコードには”テキストボックス名”がありません」とか出てくるんですよね、
フォーカス喪失後のとこに同じマクロを入れてやってもうまくいかないです。
0635名無しさん＠そうだ選挙にいこう
NGNGはしょらずにコードを全部書いてみてよ。
話を聞く限り記述ミスの可能性が高いから。
0636名無しさん＠そうだ選挙にいこう
NGNGそうですね、すみません。ただ手元にデータが無いもので。
先ほども書きましたが、クエリでデータを抽出しております。
・オプションボタンで5つの項目から選択（ただしひとつは全件表示のボタン）
・テキストボックスに文字入力後、検索するとそのキーワードを含む文字から選択
マクロでは、
・コントロールの移動（テキストボックス）
・テキストボックスの文字での再クエリ
を行って検索
問題の抽出クリアのボタンでは、
・コントロールの移動（テキストボックス）
・オプションボタンを既定値（全件表示）へ
・テキストボックスのクリア
などをやってます。
レコードが表示されない状態（ありえないカナ名を入力したときなど）
で抽出クリアを行うと、テキストボックスがクリアされません。
[テキストボックス名].[text]
""
とやっているのですが、エラーになります。SetFocusをしないといけないのでは
ないかと思うのですが、前述 >>634 のようになってしまいます。
コントロールが無いとか、カレントレコードにないとか色々・・・
もしここまでで誰か思い当たることがある方いたらレスお願いします。
明日また詳細をお伝えできるようにしてきますので、よろしくおねがいします。
0637名無しさん＠そうだ選挙にいこう
NGNGマクロなら[Forms]![フォーム名]![テキストボックス名]だろ？
0638名無しさん＠そうだ選挙にいこう
NGNG最も効率の良い変換の仕方はどうしたらよいでしょうか？
新しいIME2002の郵便番号辞書が出てから、バーコードデータをもとに再生成
しようかと思ったのですが、約半数の郵便番号も変わってしまうのでお手上げです。
0639名無しさん＠そうだ選挙にいこう
NGNG町名をキーにするしかねーべ。
郵便番号辞書をテーブルにして、町名をキーとして町名を区名+町名に変更汁。
郵便番号も、郵便番号をキーとして新番号に変えればいいんでないの。
0640名無しさん＠そうだ選挙にいこう
NGNG>>638
> 最も効率の良い変換の仕方はどうしたらよいでしょうか？
水爆を投下してさいたま市を消滅させる。
0641638
NGNGレスありがとうございます
>>640の方法でやってみたいと思います
＼ │ ／
／￣＼ ／￣￣￣￣￣￣￣￣￣
─（ ﾟ ∀ ﾟ ）＜ さいたまさいたま！
＼＿／ ＼＿＿＿＿＿＿＿＿＿
／ │ ＼
??∧ ∧ ／￣￣￣￣￣￣￣￣￣￣
￣￣￣￣￣￣￣￣＼??∧ ∧ ＼（ ﾟ∀ﾟ）＜ さいたまさいたまさいたま！
さいたま～～～！ ＞（ ﾟ∀ﾟ ）/ ｜ / ＼＿＿＿＿＿＿＿＿＿＿
＿＿＿＿＿＿＿＿／ ｜ 〈 ｜ ｜
/ ／＼_」 / ／＼」
￣ / ／
￣
0642627
NGNG627の件はみなさんのおかげで「全ページの合計」はSumにて、ページごとの計算は
------------------------------------------
Option Compare Database
Dim AAA As Long
Dim BBB As Long
-------------------------------------------------
Private Sub ページフッターセクション_Format(略）
Me!テキスト78 = AAA
AAA = 0
Me!テキスト82 = BBB
BBB = 0
End Sub
-----------------------------------------------
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
AAA = AAA + Me!請求金額
BBB = BBB + Me!消費税額
End Sub
このようなプロシージャにて解決いたしました。
ところが、あるページだけ「ページごとの消費税金額」が、電卓で計算したものに比べ
１円の誤差がでます。小数点以下の数字によるもの？と思ったのですが
「小数点以下」は0にしており、以下は切り上げになっていて、それを計算して
同じレポート内で誤差がでるのはどうも合点が行きません。
しかも、「ページごとの消費税額」で出た数字を全ページ足すと「全ページの合計
消費税額」に出た数字とまた１円ずれるのです。つまり最終的に手動で計算した
ものと「全ページの合計消費税」は２円ずれます。
誤差というのは避けたいので、よろしくお願いします。長々とすみません。
0643名無しさん@そうだ選挙にいこう
NGNG請求金額や消費税額などの金額計算するフィールドは「通貨型」になってますか？
※ 以下ヘルプより抜粋
数値型および通貨型のフィールドについて
数値データを格納する場合は、数値型と通貨型の 2 種類のフィールドのデータ型を使用できます。
数値型フィールドは、計算で使用する数値データを格納するために使用します。
ただし、金額の計算や高い精度を要する計算で使用するデータは除きます。
数値型フィールドに格納できる値の種類や長さは "FieldSize/フィールドサイズ" プロパティの設定値に
より制御されます。たとえば、バイト型フィールドには 0 から 255 までの整数値のみが格納され、1 バイト
のディスク スペースを使用します。
通貨型フィールドは、計算時に丸めによる誤差が生じないようにする場合に使用します。通貨フィールド
では、整数部分は 15 桁まで、小数部分は 4 桁までの精度が保証されます。通貨型フィールドは、
8バイトのディスク スペースを使用します。
0644627=642
NGNGレスありがとうございます。
通貨型にしています。￥マークもついています。
小数部分は 4 桁までの精度が保証されるということは、小数点以下が
見えなくても４桁はあるってことなんでしょうか……
一度ためしに「小数点以下」を2桁にしてみたのですが、
「ページごとの合計」は変わらず、電卓で足したものと比べ更に誤差が出ていました。
……あああー。
0645名無しさん＠そうだ選挙にいこう
NGNG合計してから消費税計算した値と…（A)
消費税計算してから合計した値が…（B)
丸め上で食い違っているだけのような気がするけど？
（A) 205円＋105円＝310円， 310円ｘ0.05＝16円。
（B) 205円ｘ0.05＝10円， 105円ｘ0.05＝5円， 10円＋5円＝15円。
0646627=642
NGNGなるほど！と一瞬思いましたが、違うみたいです。
この中では「×」は使っていないのですよ。全て「足し算」の話なんです。
３ページある数字の列を全部足したもの（=Sum([消費税額]）と
１ページずつ足した数字を足したもの（ページごと小計＋ページごと小計+
ページごと小計）が違うんです。
ちなみにこの元になっている消費税のレコードというのはエクセルから
インポートした「請求金額」にクエリで0.05をかけたものでした。
試しにインポートする前にエクセルで作って取り込んでみましたが
一緒でした…
0647名無しさん＠そうだ選挙にいこう
NGNG((彡ミミミミ))彡彡)))彡)
彡彡ﾞﾞﾞﾞﾞ"ﾞﾞ""""""ヾ彡彡)
ﾐ彡ﾞ ..＿ ＿ ﾐﾐミ彡
((ミ彡 '´￣ヽ '´/￣ ｀ ,|ミミ))
ミ彡 '￣￣' 〈￣￣ |ﾐミ彡
ミ彡| ） ） | | ｀（ （ |ﾐ彡
((ﾐ彡| （ （ -し｀) ） ） |ﾐﾐミ ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
ゞ| ） ） ､,! 」（ ( |ソ ＜ 罫線ヘルパ感動した！
ヽ（ （￣￣￣' ) ）/ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
,.|＼､) ' ( ／|､
￣￣| ｀＼.`──'´／ |￣￣｀
＼ ~＼,,／~ /
＼／▽＼／
テンプレについかしる
0648名無しさん＠そうだ選挙にいこう
NGNGDim AAA As LongとLong型になってるせいじゃないの？
Dim AAA As Currencyにしてみて
もし違うなら演算誤差という気もするけど・・・。
0649636
NGNG0650名無しさん＠そうだ選挙にいこう
NGNGInt（もしくはRound）で小数点以下を丸めてる？
0651名無しさん＠そうだ選挙にいこう
NGNGアクセス2000を使用しています。
Function kuriage(siyouryo As Long, hosei As Long, zengetu As Long, kongetu As Long)
If siyouryo >= 0 Then kuriage = siyouryo
If siyouryo = Null Then kuriage = Null
If siyouryo < 0 Then kuriage = hosei - zengetu - zengetu + kongetu
End Function
このようなユーザー定義関数を作成しました。
これは計測メーターが一回りして再び０に戻った場合に使用量がマイナスになるのを補正するものとして作成したつもりです。
それぞれの変数はzengetu（前月指針）,kongetu(今月指針）,siyouryo（使用量:kongetu-zengetu),hosei（補正した前月指針:Clng(1&zengetu))です。
これでとりあえず補正はできたのですが、指針共にが0値やnull値の場合#ERRORとなってしまいます。
エラー処理をしようと思いIsERROR関数を使用してみましたが#ERRORは処理出来ないようです。
どうしたらエラー処理できるのでしょうか？
0652名無しさん＠そうだ選挙にいこう
NGNGを
If IsNull(siyouryo) = True Then kuriage = Null
に変えれ。
0653652
NGNGそれ以前にLong型引数にNullを引っ張ってくる時点で
エラーだべ。
0654名無しさん＠そうだ選挙にいこう
NGNGIf IsNull(siyouryo) = True Then ～ は
If IsNull(siyouryo) Then ～ の方がよくない？
ttp://homepage1.nifty.com/tsware/tips/tips_034.htm
わざとならすまん。
0655名無しさん＠そうだ選挙にいこう
NGNGそもそも数量を扱う際はNullを使わない方がいい。
siyouryouにNullがあり得る設計に無理があるなぁ。
Nullを使わずに0では駄目なの？
それからFunctionの戻り値の型も宣言した方が後々のため。
Function kuriage(siyouryo As …) As Long ←★
If siyouryo = 0 Then kuriage = 0
もう１つ。そもそもFunctionってのは同じ処理をあちこちの
ﾌﾟﾛｼｰｼﾞｬで利用する時に書くものなんだけど、この処理って
何度も使う？ 使わないんだったらﾌﾟﾛｼｰｼﾞｬに組み込んだ方が
いいよー！
0656名無しさん＠そうだ選挙にいこう
NGNG> もう１つ。そもそもFunctionってのは同じ処理をあちこちの
クエリーで使いたいとか・・・。
0657名無しさん＠そうだ選挙にいこう
NGNG0658名無しさん＠そうだ選挙にいこう
NGNG補正前月指針のClng（1&zengetu)ってまずくないのか？
そもそも引数は前月指針と今月指針だけでよいのではなかろうか。
0659名無しさん＠そうだ選挙にいこう
NGNGコードの記述に矛盾があるからではないでしょうか。
俺もそのためMDE作れなかったことある。
0660名無しさん＠そうだ選挙にいこう
NGNG単純に使用量求めちゃいかんのだろうか。
Function siyouryo(zengetu As Long,kongetu As Long)As Long
Dim i As Long
i=10000 'メーターが4桁の場合
Select Case True
Case kongetu > zengetu
siyouryo = kongetu - zengetu
Case kongetu < zengetu
siyouryo = (kongetu + i) - zengetu
Case Else
siyouryo = 0
End Select
End Function
0661名無しさん＠そうだ選挙にいこう
NGNG下のようなクエリを作りました。
Q作業行動表**************************************************
1 2 3 4 5 6 7
作業年月 作業日 開始時間 終了時間 社員C 社員名 作業先名
*************************************************************
このクエリから次のような帳票フォームを作り
F作業行動表********************************************************
ヘッダ-------------------------------------------------------------
作業年月(非連結) 社員コード(非連結,コンボボックス:集合値は[T社員])
詳細---------------------------------------------------------------
作業日 開始時間 終了時間 作業先名
-------------------------------------------------------------------
*******************************************************************
0662661
NGNGQ作業行動表の抽出条件を
作業年月 forms![F作業行動表]![作業年月]
開始時間 forms![F作業行動表]![開始時間]
として、ある月の社員の行動一覧を表示するようにしました。
動かしてみると一覧表示はできるのですが、
フォームの[社員コード]に入力した値が表示されません。
表自体は社員コードで絞込みされています。
[社員コード]にフォーカスを合わせると入っているはずの
値が表示されることもあります。
以前ユニオンクエリでないクエリから同じようなフォームを作ったとき、
フォームのプロパティでレコードセットをスナップショットにすると
同じような現象が出ました。その時はレコードセットをダイナセットに
したら正常に動作しました。ユニオンクエリから作ったのが原因なのでしょうか？
なにか良い回避策があったら教えてください。
Win2000+access2000です。
0663名無しさん＠そうだ選挙にいこう
NGNGてか、その前にコンパイルしたりしてみればいい。
そうやってエラー個所を探せばよい。
0664627=642
NGNG結局取り込む前にエクセルのデータで小数点以下を四捨五入して
綺麗に0にしてからインポートすることで解決しました。
というか解決させました……
まだ腑に落ちない点はあるのですが……
皆さんのおかげでなんとか完成できました。ありがとうございます！
>>650
Int(Round)は使ってませんでした。一度試しに使ってみたんですが
ずれるのは一緒でした……
0665名無しさん@そうだ選挙にいこう
NGNGAccessでは見えない小数点以下が存在するのでExcelからインポートした段階で
いくらAccessで小数点以下を隠していてもしょうがないのでは？
Excelベースで消費税計算するのではなくAccess側ですればいいのではないでしょうか？
Accessには四捨五入をする関数がない(いるにはあるのですが正負で答えが違う)ので
Excelの関数を引っ張ってきたり、ユーザ定義関数を作成すればいいと思います。
前者はライブラリ「参照設定」で「Microsoft Excel 10.0 Object Library」をオンにし、
Excel.Aplication.Round(数値,桁数)で利用できます。
後者は以下を参照してみてください。
ttp://www.ruriplus.com/msaccess/faq/faq_006.html
0666657
NGNG0667名無しさん＠そうだ選挙にいこう
NGNGLEFT$（）とLEFT（）の違いって？
0668名無しさん＠そうだ選挙にいこう
NGNG$付が文字列型で返し、$なしはバリアント型で返す。
戻り値を文字列型で定義した変数に代入するなら$付のほうが動作が速い（らしい）。
0669667
NGNG0670名無しさん＠そうだ選挙にいこう
NGNGレスが遅れて申し訳ありません。
アドバイスいただいた内容をもとにいろいろ試して見ようと思いますが、
私用で来週まで出社しないので、来週以降の報告になります。
>655
自動検針で5000程度がテキストデータとして出力されたものをインポートして使用します。
止まっているメーターのデータはnullとしてインポートされます。
それからFunctionを使用しているのはクエリで使用するからです。
>658
>660
メーターは多数ありまして、桁数がバラバラなのです。
そのためClng（1&zengetu)を使用してみました。
たしかに、これでは、ケースによっては間違った値がでますが、運用上はあり得ないのでよいのです。
（例えば5桁のメーターで4桁しか無い状態から一気にメーターが1回りすることはあり得ないということです。）
0671651
NGNG上の670は651でした。
>>651
0672777
NGNGhttp://my.vector.co.jp/servlet/System.FileDownload/download/ftp/0/279026/pack/win95/game/table/pachinko/sikisai.lzh
0673名無しさん＠そうだ選挙にいこう
NGNGまずクエリ側での引数チェックが必要じゃないかな？
IIｆとIsNull使ってTrueなら0を渡すとか。
ただこれやるとバカ長い計算式になるだろうから
IIF(Or(IsNull([zengetu],IsNull([kongetu])),Null,Function(～))
とかやって指針のどちらかにNullが入ってた場合は
すぐにNull返しちゃう方が楽かも。
あー、止まってたメーターが今月は動くとかって考えなくていいのかな。
0674673
NGNGIIFは真偽両方評価かかるの忘れてた。
やっぱり面倒でも引数にチェックかけて渡すのが一番かも。
0675名無しさん＠そうだ選挙にいこう
NGNGレポート内にサブレポートを表示させる時に
それを中央寄せして表示するにはどうしたら良いですか？
どなたか、ご教授下さい。
0676名無しさん＠そうだ選挙にいこう
NGNG確かにMSのドキュメントにはそう書いてあるが、実際に計測してみると
その差はわずか。(俺のテストの仕方が悪いのかもしれんが)
現実的には、Null値の発生を回避する意味合いの方が強いような気がする。
($付きなら、Null値が返ることはない)
0677名無しさん＠そうだ選挙にいこう
NGNG2つのDBをリレーションで連結して使用しています。
詳細内容が同じでキー名称だけが違うﾃﾞｰﾀを複製ボタンを作って複製した時に
メインフォームのﾃﾞｰﾀは複製されるのですがサブフォームのﾃﾞｰﾀが複製されません。
どうしたらいいんでしょうか？
0678名無しさん＠そうだ選挙にいこう
NGNGメインフォームのデータはどうやって複製しているんでつか？
0679名無しさん＠そうだ選挙にいこう
NGNGRequery
0680名無しさん＠そうだ選挙にいこう
NGNGAccess2000で開発しています。
なぜか昨日からフォーム（どのフォームでも）をデザインモードで
開こうとすると
現在、このデータベースには排他モードでアクセスしていません。変更しても、後で保存できない可能性があります。
ＯＫ キャンセル
のダイアログが表示されるようになり、困っています。
ＯＫ選択後、保存する際にも保存できないかもしれない、という警告のダイアログがでます。
設定等を触った覚えはありません。
このメッセージボックスを表示されないようにするには
どうすればいいでしょうか？
とりあえずオプションの詳細タブにて
規定の開くモードを「排他モード」を選択
に共有モードから変更しました。
でもさっぱり改善していません。
どうかアドバイスいただけないでしょうか？
ほんと困ってるんでよろしくお願いします。
0681名無しさん＠そうだ選挙にいこう
NGNGあ、それ私もなった事があるぞ。
私も原因＆対処方法が知りたいです。
その時は結局、別の空のDBを作って
変になった元DBから全てのｵﾌﾞｼﾞｪｸﾄをｲﾝﾎﾟｰﾄ、
元DBは諦めて、新しいDBを使うようにしたのだけれど、
もっと上手な方法がありそうな…。
0682680
NGNGあ、突然のことで
新規ＤＢにインポートすることも試していませんでした。
言われたとおり、やってみるととりあえず回避できるようになって
助かりました。
ありがとうございます。
でも根本的な原因ってなんなんでしょうね。
「mdbが壊れた」で済ましていい問題なのか疑問です。
なにはともあれありがとうございました。
0683名無しさん＠そうだ選挙にいこう
NGNG自宅と会社でプロジェクトファイルを持って
行き来しながら制作したいのですが、
権限か何かの関係で自宅で作ったものを会社で開くと
読み取り専用になってしまいます。
どうにかしてこれを実現する方法がないでしょうか？
0684あぼーん
NGNG／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://saitama.gasuki.com/aomori/
0685佐々木健介
NGNG／＿ |
/. ＼￣￣￣￣|
/ ／ ― ― |
| / - - |
||| (5 > |
| | | ┏━┓| ／￣￣￣￣￣￣￣￣￣￣
| | | | ┃─┃| ＜ こんなサイトを見つけた
|| | | | ＼ ┃ ┃/ ＼ 正直、スマンカッタ
| || | | ￣ ＼＿＿＿＿＿＿＿＿＿
http://saitama.gasuki.com/hiroyuki/
0686あぼーん
NGNGhttp://muryou.gasuki.com/moe/hankaku09.html
http://muryou.gasuki.com/moe/hankaku10.html
http://muryou.gasuki.com/moe/hankaku07.html
http://muryou.gasuki.com/moe/hankaku08.html
http://muryou.gasuki.com/moe/hankaku05.html
http://muryou.gasuki.com/moe/hankaku06.html
http://muryou.gasuki.com/moe/hankaku03.html
http://muryou.gasuki.com/moe/hankaku04.html
http://muryou.gasuki.com/moe/hankaku01.html
http://muryou.gasuki.com/moe/hankaku02.html
0687あぼーん
NGNG∧＿∧ | | ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（ ´Д｀）／/ ＜ 先生！こんなのを発見シマスタ！
／ / ｜
/ /| / ＼ http://saitama.gasuki.com/koumuin/
＿＿| | .| | ＼
＼ ￣￣￣￣￣￣￣＼ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
||＼ ＼
||＼||￣￣￣￣￣￣￣||￣
|| ||￣￣￣￣￣￣￣||
.|| ||
0688あぼーん
NGNG! i iﾉﾉﾘ）) 〉
i l l.´ヮ｀ﾉﾘ ＜先生！こんなのがありました！
l く/_只ヽ
|￣￣￣￣￣|
http://muryou.gasuki.com/sinagawa/
0689680
NGNGやっぱり新規DBを作成してインポートし直しても
同じ現象が起こるようです。現象>680
確認した時は確かに大丈夫に思えたのですが、
今試してみるとやっぱりダメです。
何度かインポートし直したりもしたのですが、
ダメみたいです。
もう一度アドバイスいただけないでしょうか？
0690金正日
NGNGr｢l l h. ／￣￣￣￣￣￣￣￣￣￣
| ､. !j |
ゝ .f ＿ |
| | ,r'⌒ ⌒ヽ､. │ http://www.saitama.gasuki.com/hangul/
,｣ L_ f ,,r'￣￣ヾ. ヽ. │ こんなのあったニダ
ヾー‐' | ゞ‐=H:=‐fｰ)r､） |
| じ､ ﾞiー'･･ー' i.ﾄｿ |
＼ ＼. l ; r==i; ,; |' .人＿
＼ ﾉﾘ^ー-＞==__,..-‐ﾍ＿＿＿
＼ ノ ﾊヽ |_/oヽ__／ /＼
＼ / / / |.
y' /o O ,l |
0691680
NGNG状況をもうちょっと調査してきました。
ファイルからでなく、スタートパネルからAccessを起動し、
ファイル->開く より問題のmdbを選択後、開くボタンについている
横の拡張メニュー(?)から排他モードで開くを選択して
開いてもまったく効果がないみたいです。
開きたての状態では「このデータベースは排他モード～」の
警告メッセージボックスはでません。
一度でもいずれかのフォームをデザインモードで開くと
ことある度に表示されるようになります。
何度もすみません、困り切ってます。
心当たりでも結構ですのでアドバイスいただけると助かります。
0692あぼーん
NGNG∧＿∧ | | ／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
（ ´Д｀）／/ ＜ 先生！こんなのを発見シマスタ！
／ / ｜
/ /| / ＼ http://saitama.gasuki.com/yamazaki/
＿＿| | .| | ＼
＼ ￣￣￣￣￣￣￣＼ ＼＿＿＿＿＿＿＿＿＿＿＿＿＿
||＼ ＼
||＼||￣￣￣￣￣￣￣||￣
|| ||￣￣￣￣￣￣￣||
.|| ||
0693あぼーん
NGNGhttp://muryou.gasuki.com/hankaku/hankaku06.html
http://muryou.gasuki.com/hankaku/hankaku05.html
http://muryou.gasuki.com/hankaku/hankaku01.html
http://muryou.gasuki.com/hankaku/hankaku02.html
http://muryou.gasuki.com/hankaku/hankaku03.html
http://muryou.gasuki.com/hankaku/hankaku04.html
http://muryou.gasuki.com/hankaku/hankaku07.html
http://muryou.gasuki.com/hankaku/hankaku08.html
http://muryou.gasuki.com/hankaku/hankaku09.html
http://muryou.gasuki.com/hankaku/hankaku10.html
0694名無しさん＠そうだ選挙にいこう
NGNGミスリードはしたくないので分かる範囲で情報出すと
エラーの意味は、
「排他モードで入っていないので
複数クライアントのアクセスがあった場合、
変更がデータに反映されない恐れがある」
という意味で、そういう状況が想定されない場合は
特に動作に問題はないと思われる。
エラーメッセージを出したくないということであれば、
多分、メニューから入る設定項目で設定可能な気はする。
ただ、動作に問題ないのであれば機械的にOK押すという
ことでいいんじゃないか？という気はする。
気はするばっかりでなんだが 参考までに
0695名無しさん＠そうだ選挙にいこう
NGNGどうしようもなかったら、一旦Accessをインストールしなおしてみたら？
最終的な方法だけど時間ばかり食うよりは、いくらかマシやもしれん。
0696680
NGNGオプションで設定できる
規定の開くモードを「排他モード」に設定しているにも
関わらず、警告メッセージが表示されるようです。。
デザインモードに入る時、閉じる時くらいならいいのですが、
VBEditorで編集してる時、ことあるごとに聞かれるので
それはちょっとつらいんです。
>695
今インストールし直してきましたが
全然改善しませんでした。
同じような現象に出会った方、
お心当たりのある方、どうかよろしくお願いします。
なんでこんなことになったんだろう。。
0697名無しさん＠そうだ選挙にいこう
NGNG作成済みのユーザー定義関数を手直しするためにいじりたいのですが、
データベースウィンドウのモジュールの一覧にありません。
モジュールの表示/非表示切り替えとかどこかにあるのでしょうか？
フォームやレポートのデザインビューからVBEを開けると行けるのですが…。
ちなみにその関数はちゃんと動いています。
ご存知の方、よろしくお願いします
0698名無しさん@そうだ選挙にいこう
NGNG隠しファイルなっているとすれば…
ツール>オプション>表示
「隠しオブジェクト」にチェックを入れる
> フォームやレポートのデザインビューからVBEを開けると行けるのですが…。
プロジェクトエクスプローラの標準モジュールフォルダ内にあるのでは？
プロジェクトエクスプローラが表示してないなら表示させてみて
0699名無しさん＠そうだ選挙にいこう
NGNGレスありがとうございます。
> ツール>オプション>表示
> 「隠しオブジェクト」にチェックを入れる
をやってからPCを再起動したら
出てくるようになりました。
> > フォームやレポートのデザインビューからVBEを開けると行けるのですが…。
> プロジェクトエクスプローラの標準モジュールフォルダ内にあるのでは？
> プロジェクトエクスプローラが表示してないなら表示させてみて
その通り標準モジュールの下にありますが
関数を作ったのが初めてなので
ここにあると不具合が起こるのであれば教えて下さい。
0700名無しさん@そうだ選挙にいこう
NGNG> その通り標準モジュールの下にありますが
> 関数を作ったのが初めてなので
> ここにあると不具合が起こるのであれば教えて下さい。
それでいいと思います。
隠しオブジェクトになっていて、それを表示しない(チェックオフ)状態でも
「標準モジュールからたどれば見ることができる」ってだけのことです。
0701名無しさん＠そうだ選挙にいこう
NGNGありがとうございます、またよろしくお願いします
0702名無しさん＠そうだ選挙にいこう
NGNG商品マスターテーブルに商品名、商品NOのフィールドがあって
注文履歴テーブルには商品名のみが追加されるようにしていたのですが、
商品NOも必要になりました。
商品マスターテーブルの商品名・商品NOフィールドをもとに履歴テーブル
のデータに商品NOを振っていきたいのですがいい方法はないでしょうないでしょうか？
更新クエリで考えているのですが、商品マスターテーブルの商品名と注文履歴テーブルの商品名を
比較して、注文履歴テーブルの商品NOフィールドに値を入れていく書き方がわからないです。
そうかもっと簡単な方法があるでしょうか？
0703名無しさん＠そうだ選挙にいこう
NGNG商品名と商品Noが１：１で対応しているなら、
履歴テーブルのデータに両方を記録させるのは
お勧めではない。
せっかくマスターがあるんだから
ルックアップ使って表示だけさせるとかの方が
データベース的には正解だが・・・・・・・・
でもまあ、どうしてもデータとして記録させたいなら
考え付くのは、
１．商品の種類が少ない場合
商品名でフィルターかける→商品名に対応したNoをエクセルなりでいっぱい作ってコピペ
２．商品の種類がやや多い場合
上述のルックアップで商品名から商品Noを表示させるクエリ作成
→表示されている商品No（ルックアップ列）のデータをコピー
→用意してある商品No（レコード格納列）にペースト
３．商品の種類、もしくはレコード数がとんでもなく多い場合（5万とか10万とかのレコード数ならね）
VBAで処理、こちらの環境はAccess2000でVBAの仕様違うはずだから
詳しくは書かないが、商品名をマスタと比較して
逐次データを書いていく
こんなとこですが・・・・・
0704名無しさん＠そうだ選挙にいこう
NGNG普通に更新ｸｴﾘで問題なし。
更新ｸｴﾘ作成中に、表示(V)→SQLﾋﾞｭｰ(Q)としてから、以下の構文を貼ってくれ。
UPDATE 商品マスターテーブル INNER JOIN 注文履歴テーブル ON 商品マスターテーブル.商品名 = 注文履歴テーブル.商品名 SET 注文履歴テーブル.商品NO = 商品マスターテーブル.商品NO;
0705まるまる
NGNGAccessのアプリケーション稼働専用マシンにする為、
Shellをaccess.exeにして、Windows起動時にAccessを
起動させることは出来たのですが、
同時にファイルを起動させることが出来ません。
アクセス起動後にいちいちファイル＞開く で
ファイルを選択することなく、
アクセスが起動したら特定のファイルが開くようにしたいのですが、
もし出来るようで有れば方法を教えて下さい。
（Shell化してるのでファイルアイコンからの起動は不可です）
宜しくお願いします。
0706bloom
NGNG0707名無しさん＠そうだ選挙にいこう
NGNG---HELP引用（開始）---
Startup コマンド ライン オプション
次の表は、Access で指定するコマンド ライン オプションの一覧です。
オプション処理内容
データベース ファイル名Access を起動すると、指定したデータベースが自動的に開きます。データベース ファイル名には、ドライブとパスも含めて指定できます。既定のパスは、[My Documents] フォルダです。
---HELP引用（終了）---
これではいかんのかなと言ってみる素人考え
0708名無しさん＠そうだ選挙にいこう
NGNG手数料 = 取引金額 * 手数料率 （小数点以下切捨て）
消費税 = 手数料 * 5% （小数点以下切捨て）
のとき
基準価格を9000円
手数料率について、取引金額が1億円未満の場合は2%、1億円以上の場合は1%
とした場合、
例えば投資金額を1千万円、1億円、5億円のときも
投資金額 = 取引金額 + 手数料 + 消費税
が成り立つ取引金額・手数料・消費税・口数をセルに表示させたいのですが
どのようにすればよいでしょうか？
0709680
NGNGまたいろいろわかってきたので追記しておきます。
問題のmdbはまれにCurrentDBで落ちます。
実行時エラー 3734
マシン'PCの名前'のユーザー'Admin'がデータベースを開けない状態、
またはロックできない状態にしています。
とのエラーが出ます。
まれにですが。
Adminって誰でしょう。
WindowsのアカウントにAdminなんてないですよねぇ。
Administratorじゃないし。。
以前いずれかのフォームを開いた後、
デザインモードに入る際警告メッセージが出る、と書きましたが、
どうも下記のコードが入ってるフォームを開いた後のみのようです。
これってなにか変ですか？
今のところ、これが入っていると警告メッセージがでる、
としかわからないのですが、検討違いかもしれません。
どうか知恵をお貸しください。。
起動時
Set Ws = Workspaces(0)
Set Db = CurrentDb
終了時
Db.Close
Set Db = Nothing
Ws.Close
Set Ws = Nothing
0710677
NGNGごめんなさい！仕事中にカキコして他門で忘れてた。
複製ボタンはACCESSのボタンのウィザードで作ったので､ACCESSに勝手にVBAを
組まれたものです。
別にメインフォームとかサブフォームなんかの設定はウィザードでは見当たりません
でした。
私はVBAが解読できないのでモジュールを見ても何してるかわかりません。
多分コピーアンドペーストをやってるだけだと思うのですが。
0711名無しさん@そうだ選挙にいこう
NGNGそのmdb内にリンクされているテーブルがないですか？
リンク先のmdbが他の人が排他で開いたまま、何らかの拍子に
開いたままになっているとか？
0712702
NGNG丁寧な解説ありがとうございます。
やはり更新ｸｴﾘの方でやらせていただきました。
内部結合させるんですね！
無事解決しました。ほんとありがとうございました。
0713名無しさん＠そうだ選挙にいこう
NGNG難しくない。mdbﾌｧｲﾙとAccessが関連付けされているはずだから、
ｽﾀｰﾄｱｯﾌﾟﾌｫﾙﾀﾞに起動したいmdbﾌｧｲﾙのｼｮｰﾄｶｯﾄを作成すればOK！
0714681
NGNG同様の経験のある681です。AdminはAdministratorで合ってるよ。
Accessのﾍﾙﾌﾟをﾜｰｸｸﾞﾙｰﾌﾟで検索してみて欲しい。
でもさ、問題はAdminが排他ﾛｯｸしたままの状態でAccessが終了
するのか？って事なんだよねい…。VBAで悪いことでもしたのかなあ？
実際、漏れもさっぱり判らないんだよね･ﾟ･(ﾉД`)･ﾟ･｡
0715713
NGNG0716名無しさん＠そうだ選挙にいこう
NGNGAccess2000でVBAを使ってオラクルのDBからデータを絞り込んで自前のテーブルにインサートする
ルーチンを書いたのですが、自分のPCでこのmdbを実行しても何も起こらないのですが、
他の人のPCへmdbをコピーして実行するとクエリ(SQL)が実行される度に確認のメッセージが出ます。
このメッセージを出ないようにすることはできないのでしょうか？
ヘルプにはAccessのクエリについては書いてありましたが、VBAでRunSQLすることに対するメッセージ
の抑止については見つけることができませんでした。
よろしくお願いします。
0717名無しさん＠そうだ選挙にいこう
NGNGＡ案：
他人のマシンでMDBデータベースを開いた状態で[ツール]-[オプション]を表示し、[編集/検索]タブの「確認」の「アクションクエリ」チェックをはずす。
Ｂ案：
Docmd.RunSQLを使わないでADOのConnectionオブジェクトまたはCommandオブジェクトのExecuteメソッドを実行する。
DAOのやり方は忘れた(w
0718名無しさん＠そうだ選挙にいこう
NGNGDoCmd.SetWarnings False
0719名無しさん＠そうだ選挙にいこう
NGNGサンクスです。
とりあえずA案でうまくいきました。
コピーする度に変更は面倒なので、B案でコードを書き直すことも検討します。
0720bloom
NGNG0721名無しさん＠そうだ選挙にいこう
NGNGおぉ、こんなコマンドもあるんですね。
サンクスです。
やってみます。
0723680
NGNG結論から言うと、
起動時に
Set Ws = Workspaces(0) としていたのを
Set Ws = DBEngine.Workspaces(0)
とすることで解決しました。
フォームのクローズ時に
Ws.Closeも Set Ws = Nothing
もしてたんですけどねぇ。。
つまり
Workspaces(0) と
DbEngine.Workspace(0)
は似て非なるものということみたいですね。
どう違うか等、まったくわかっていませんが、
後々理解していきたいと思います。
アドバイスいただいた方々、ありがとうございました。
>681さん
原因が同じだったら解決なんですけどねぇ。
先解決しちゃいました、すみません。
0724683
NGNG答えてもらってください。
0725名無しさん＠そうだ選挙にいこう
NGNGファイル属性（右クリック－[プロパティ]－[全般]－[属性]）の読み取り専用
属性のチェックを外すだけちゃうんかとあてずっぽう言ってみるテスト。
0726名無しさん＠そうだ選挙にいこう
NGNG権限の問題なら、権限を与えてやればいいだけちゃうんかとあてずっぽう
言ってみるテスト。
0727あぼーん
NGNG0729名無しさん＠そうだ選挙にいこう
NGNG社員C 工数 項目C
001 1.5 01
001 1.0 02
001 1.0 01
001 2.0 10
というデータがあるのですが、
社員C 項目01～05の工数の合計 項目06～10の工数の合計
001 3.5 2.0
のような集計をするにはどうしたら良いでしょうか？
Win2000でAccess2000を使ってます。
0730名無しさん＠そうだ選挙にいこう
NGNG社員C 項目01～05の工数の合計 項目06～10の工数の合計
ってテーブルを作る。
社員C 工数 項目C なテーブルから社員Cをグループ化して
(ここに書いて無いだけで日付等で絞込が必要ならそうして)↑のテーブルに
社員Cだけ追加クエリで追加。
社員Cをグループ化 工数を合計 項目CをWhere 条件で01～05
のクエリを作って↑のテーブルの項目01～05の工数の合計を更新クエリで更新。
同じようにWhere 条件で06～10にして項目06～10の工数の合計を更新。
これでどお？
0731名無しさん＠そうだ選挙にいこう
NGNGテーブル設計から見直すことを激奨
0732名無しさん＠そうだ選挙にいこう
NGNGパススルークエリー中にパラメータを埋め込みたいんですが、定石みたいな
方法はあるんでしょうか？
後から見たときに分かりやすかったり、色々なパラメータをシンプルに指定
できたり。
環境は Access97 or 2000 で、パススルーの接続先は Oracle8 です。
0733名無しさん＠そうだ選挙にいこう
NGNGquerydef.SQL ﾌﾟﾛﾊﾟﾃｨに、SQL文を全部文字列として設定する作りに
すること ダイアログ云々やり始めるとロクなことない
0734名無しさん＠そうだ選挙にいこう
NGNGＡ」という関数を入れたいのですが、
=IIf(IsNull([フィールドB]),[フィールドA],[フィールドＢ])
という式を立てましたが、フィールドBにデータがある時ははそのまま反映して
、フィールドＢが空白の時はエラーになってしまいます。どうしてなのでしょ
うか？
(ACCESS2000)
0735あぼーん
NGNG0736bloom
NGNG0737名無しさん＠そうだ選挙にいこう
NGNGならないけど
0738tantei
NGNG●浮気素行調査
彼氏、彼女、妻、夫の浮気を調査致します！！
●別れさせ工作
あらゆる手段を使ってターゲットを別れさせます！！
●盗聴器盗撮機発見
あなたの部屋に誰かが仕掛けているかも！！
●行方調査
行方不明になっている家族の消息を調査致します！！
●電話番号から住所割り出し
一般電話、携帯から住所を割り出し致します！！
その他人生相談からどんなお悩みでも解決いたします！！
直通 ０９０－８５０５－３０８６
ＵＲＬ http://www.h5.dion.ne.jp/~grobal/
メール [email protected]
■グローバル探偵事務所
0739名無しさん＠そうだ選挙にいこう
NGNGNullじゃなくて空文字列だったり。
0740683
NGNGありがとうございます。
あそたかあしったには試させてもらいますけど
いいですか？
0741名無しさん＠そうだ選挙にいこう
NGNG0742名無しさん＠そうだ選挙にいこう
NGNG来週、１日３時間の５回。
「初歩からのAccess2002」ってやつに行って来る。
講座費用５万２千円だってさ。
Ａｃｃｅｓｓ２００２インストール済みの
ノートパソコンを持ってくるようにだってよ。これ自分のだよ。
買っちまった。
簡単なデータベースは組めるようになるらしい。
できるようになったらここでみんなに教えちゃる。
待っててな。
0743名無しさん＠そうだ選挙にいこう
NGNG15時間ぐらいで教えられるようになるわけないだろ。
と釣られてみるテスト。
0744名無しさん＠そうだ選挙にいこう
NGNG（紙とかファイルとか
0745名無しさん＠そうだ選挙にいこう
NGNG0746名無しさん＠そうだ選挙にいこう
NGNGえ！･･･どのあたりか分かりませんか？
（ちなみに97です
0747名無しさん＠そうだ選挙にいこう
NGNG薄々気がついてはいたけど、最近のバージョンでは出来ないみたいだね
（だからあえて昔の話と書いたのだが……）。
とはいえ1つのフィールドのプロパティ値を何行にも渡って書き出すような
代物で、とても仕様書に添付出来るようなものではなかった事を一言
明記しておく。
それよりはもっと便利な定義書作成ツールがあるので、代わりに紹介
しておく。
AccessTool ドキュメント作成2000
ttp://www.syswat.com/freesoft.html
MDBオブジェクトで、コードも見られる（w）ので、いろんな意味で
オイシイツールだと思う。
ただひとつ問題なのは、このMDBがアクセス2000ファイル形式だという
事なのだが……
0748名無しさん@そうだ選挙にいこう
NGNGツール>解析>データベース解析ツール
じゃなかったけか？
0749748
NGNGこれでもいいんでねーの？
ttp://hp.vector.co.jp/authors/VA026700/#top
0750名無しさん＠そうだ選挙にいこう
NGNGほんとだ！
って俺は747なんだけどね。こういう機能に限ってM$はどんどんオプション
にまわす傾向にあったので、まだ削られずに生き残っていた事にちょっと
びっくりだよ。
0751名無しさん＠そうだ選挙にいこう
NGNG蟻が糖
0752名無しさん＠そうだ選挙にいこう
NGNGウィザードで３つのテーブルを指定するとサブフォームの
指定するウィザードが飛ばされてしまいます。
リレーションは親から各子へ作成してあります。
サブフォーム一つだけだとうまくいきました。
バージョンはAccess2000です。
よろしくお願いします。
0753名無しさん＠そうだ選挙にいこう
NGNG手動で作れ
0754名無しさん＠そうだ選挙にいこう
NGNG今、手動で作ろうと思い、ヘルプに従ってツールボックスのサブフォームボタンを
クリックしたらAccess2000premiumのCDを要求されました。持ってません。
ほかに方法はありますか？
0755名無しさん＠そうだ選挙にいこう
NGNG買え
0756754
NGNG0757名無しさん＠そうだ選挙にいこう
NGNG0758名無しさん＠そうだ選挙にいこう
NGNG親レポートと日付でリンクさせたサブレポートを
「区分」フィールドでグループ化しており、
グループの先頭のレコードだけ区分を表示させようとして
Option Compare Database
Dim kbn As String
Private Sub Report_Open(Cancel As Integer)
kbn = ""
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Me.区分 = kbn Then
Me.区分.Visible = False
Else
Me.区分.Visible = True
End If
kbn = Me.区分
End Sub
と書きました。
その日付に複数の区分があると意図どおりに表示されるのですが
区分が一つしかないと全レコードで「区分」が空白になってしまいます。
調べたらフォーマット時の処理を4周していて、
駄目な時は2周目以降は全部falseに、
意図通り表示されるときは最後のレコードと先頭のレコードが不一致なので
trueに行くようです。
どうすれば回避できるのでしょうか？
教えて下さい。
0759名無しさん＠思考停止中
NGNGものを１つの納品書、請求書を発行でき、かつデータ管理できるものを作っています。
１つのフォーム内に内訳（見積明細）を表示でき、かつ納品書・請求書発行ボタンを持つものを作りたいのです。
もちろん内訳を合計して、受注総額を表示できるようなものです。
テーブル１ 取引先
テーブル２ 受注管理
テーブル３ 内訳管理
テーブル４ 見積
テーブル５ 見積明細
とまず作ってみました。
次に見積明細を出す、クエリを作る段階でとまってしまいました。
問題点
①フォーム作成段階で、見積と見積明細クエリを共有するよう選択しても、サブフォーム選択がでません。
（見積テーブルと見積もり明細テーブルを選択すると出来ます。）
②見積明細クエリの作り方もいまいち理解できていません。
理想とする完成形
・１つのフォームから、納入先、受注仕事名、内訳を選択できて、選択した内訳の数量、金額を自動計算して総額を表示する。
消費税額も表示したい。
どなたか救いの手をお願いします。
0760名無しさん＠そうだ選挙にいこう
NGNG普通に「区分」を区分ヘッダーに表示じゃいかんの？
>759
ちょっとテーブルに作った項目をさらしてみて。
そしたらこうした方がいいよって言えるよ。
0761よろしくお願いします。
NGNG下のようなイベントプロシージャを書いてみたのですが、どうも無理があるようです。
これはレポートをワード形式でメール送信するためのものです。
メールアドレスを５つまで自由に変更できるように、メールアドレステーブルの各フィールドからメールアドレスを取得します。
同様にメールアドレステーブルからメールに記載する内容を取得します。
管理状況テーブルからも年月日の最初の日と最後の日を取得しメールに記載する内容とします。
①とりあえず動くは動くのですが、処理に凄く時間がかかります。
②また、一度立ち上がったメーラーのウインドウを閉ると、アクセスを閉じない限り、２度とこのプロシージャは動作しません。
③それから、メールタイトルを"管理状況報告書"としたいのですが"管理状況報告・"となってしまいます。
なにぶん独学なもので、とんでもない書き方をしているかもしれませんが、よろしくお願いいたします。
コードは↓です。
0762よろしくお願いします。
NGNGDim m_1 As String
Dim m_2 As String
Dim m_3 As String
Dim m_4 As String
Dim m_5 As String
Dim m As String
Dim n_1 As String
Dim n_2 As String
Dim kf As Date
Dim kl As Date
Dim K As String
m_1 = DFirst("アドレス１", "メールアドレス")
m_2 = ";" & DFirst("アドレス２", "メールアドレス")
If m_2 = ";" Then m_2 = ""
m_3 = ";" & DFirst("アドレス３", "メールアドレス")
If m_3 = ";" Then m_3 = ""
m_4 = ";" & DFirst("アドレス４", "メールアドレス")
If m_4 = ";" Then m_4 = ""
m_5 = ";" & DFirst("アドレス５", "メールアドレス")
If m_5 = ";" Then m_5 = ""
m = m_1 & m_2 & m_3 & m_4 & m_5
0763よろしくお願いします。
NGNGn_2 = DFirst("内容２", "メールアドレス")
kf = DFirst("年月日", "管理状況")
kl = DLast("年月日", "管理状況")
If kf = kl Then
K = Format(kf, "ggge年m月d日")
Else
K = Format(kf, "ggge年m月d日") & "～" & Format(kl, "ggge年m月d日")
End If
DoCmd.SendObject acSendReport, "管理状況報告書レポート", "RichTextFormat(*.rtf)", m, , ,"管理状況報告書", n_1 & K & n_2
End Sub
0764名無しさん＠そうだ選挙にいこう
NGNG（Basic以外のプログラム開発経験あり、アクセス初心者。）
0765名無しさん＠そうだ選挙にいこう
NGNGまず、グーグルで検索しろ。頼むから。
0766名無しさん＠そうだ選挙にいこう
NGNGhttp://www.accessclub.jp/
0767名無しさん＠そうだ選挙にいこう
NGNG「この会社辞めようと思った」スレ向けにピッタリな内容ですね。
0768名無しさん＠そうだ選挙にいこう
NGNG0769名無しさん＠そうだ選挙にいこう
NGNGこんな糞コードどないしろと？（ｗ
0770名無しさん＠そうだ選挙にいこう
NGNG0771651です。
NGNG出直してきます。
お騒がせしました。
0772761でした・・・
NGNG重ね重ねすいませんでした＞＜
0773758
NGNG質問しておきながらレスが遅れてしまいすみません。
普段なら区分ヘッダでやるんですが、
今回はスペースが取れなくてダメなんです。
0774名無しさん＠そうだ選挙にいこう
NGNG別にあなたに責任は無いと思うよ。悪いのはその初心者が書いた
コードすら理解しようとしない回答者の方だと思うから。
実際コードを見ても、アルゴリズム云々を指摘出来る程複雑な事は
していないみたいだから、それが処理時間に影響を与える事は考え
にくい（DFirstがどれだけ作業に負担をかける処理なのかはよく知らん
けど）。
となるとコードの問題というより、SendObjectの先に問題があるんじゃ
ないか？ こればかりは個々の環境によっても違うから、なんとも
アドバイスし難い。
0775名無しさん＠そうだ選挙にいこう
NGNG集計関数は重いよ。合計とかが使いたいならともかく、最初のレコード・最後のレコード
を読みだすだけならクエリ「メールアドレス」をフォームかDAOかADOで開いて
MoveFirstとかしてそこのアドレス１～５、内容１・２を読み込めば速くなるかと。
「管理状況」も同じようにね。フォームで開いての方が簡単だけど、Docmd.Closeを
使わないほうが良いみたいだから。新しく覚えるならDAOよりADOが良いみたい。
でもWeb上の情報はまだまだDAOの方が多いね。
楽さ・簡単さだとフォーム>DAO>ADO。お勧め度・将来性とかなら真逆かな？がんば。
"管理状況報告・"に関しては、最後の1バイトが欠けたのかエンコード違いの文字化け
なのか。1バイト欠けるためなら半角スペースでもつけとく、エンコードならメーラーの
設定なんだけど、他で困るかもしれないから"管理状況報告"で我慢して貰うか。
ところでみんな選挙行った？
0776名無しさん＠そうだ選挙にいこう
NGNG（OSも2000でつ。）
目的としては、ACCESSのクエリの条件式の欄に、EXCELで表示されたものを代入したいのでつ。
ACCESSのテーブルとなるデータは既にあるのでつが、そこから集計したい
データを抽出するためのクエリの条件がちょっと複雑なので、
クエリに指定する条件をEXCELに表示させるようにしたんでつ。
（順番は貼り付けるクエリと同じ順番になってまつ。）
これをアクセスのクエリに貼り付けるのにいちいちEXCELをみながら
書き込むのが不便なので、VBAでも使って自動的に書き込めるように
したいのでつが、可能でつか？
可能ならどんなコードを書けばよいでつか？
ACCESSの解説を見てもテーブル操作はしてもクエリは操作してないでつし、
EXCELの本はACCESSに触れてなかったりして、ちょっと困ってまつ。
よろしくお願いしまつ。
0777名無しさん＠そうだ選挙にいこう
NGNGオレとしてはExcelを使えば問題が解決するという発想がどこから出たか、知りたい。
0778名無しさん＠そうだ選挙にいこう
NGNGとりあえず、レスどうも。
まあ、こんな条件な訳でつ。
クエリの抽出条件は約２０あるのだけれど、必要な条件を抽出するためには
いくつかの条件を組み合わせて抽出しないとうまくいかないものもある。
たとえば、欲しいデータを抽出するためには約２０個の抽出条件のうち４番目、
７番目、１１番目、１４番目に条件を設定しないといけない。
また、欲しいデータ２を抽出するためには４番目、８番目、１５番目に条件を設定する・・・と、こんな感じ。
いちいちどの条件を組み合わせれば欲しいデータを得られるかを調べるのは
大変だし、他の人にもやってもらう可能性もあるのでメモですませるわけにも
行かなかった。
というわけで、欲しいデータが何かを選択すれば、クエリのどの項目に
どういった条件を入力すればいいか表示するようにしてみた。
といういきさつでつ。
0779名無しさん＠そうだ選挙にいこう
NGNGいまいちピンと来ないが、検索条件を求めるフォームを作って、
結果をクエリのソースに与えてやればいいんじゃないの？
0780名無しさん＠そうだ選挙にいこう
NGNG「クエリのソース」の意味がよくわからんが、
クエリの条件の枠にコピー＆ペーストするという意味なら問題外でつ。
それだと間違いやすい（項目が多い＋紛らわしい項目がある）から
自動で貼り付けるようにしたいという要望でつ。
0781名無しさん＠そうだ選挙にいこう
NGNGフォーム+VBAでできるでしょ
間違いやすいからこそフォームでエラーチェックすればよい
0782779
NGNGだからクエリの条件をいちいち修正させるんじゃなくて、フォーム上で指定
した条件からSqlを生成して、クエリに与えてやればいいんじゃないかって
意味。理由は781に同じ。
あなたの考えに合わせるなら、
欲しいデータが何かを選択すれば、条件が必要な項目「だけ」に
条件が入力出来るフォームを作ってやれば、入力も容易になるし、
打ち間違いも減る。
0783名無しさん＠思考停止中
NGNGご指摘がありましたので、項目を書きます。
テーブル１ 取引先・・・取引先ＩＤ、社名、郵便番号、住所、電話、ＦＡＸ
テーブル２ 受注管理・・・受注管理ＩＤ、受注番号（相手先が指定した番号）、受注名、金額、納期
テーブル３ 内訳管理・・・内訳管理ＩＤ、受注管理ＩＤ、内訳名、金額、数量、納期
テーブル４ 見積・・・見積ＩＤ、取引先ＩＤ、取引先名、見積日付、受注番号、受注名、小計、消費税、税込み金額
テーブル５ 見積明細・・・見積明細ＩＤ、受注管理ＩＤ，内訳管理ＩＤ，内訳名、数量、金額
とりあえずこんな感じで作りました。
見積フォームの中に、内訳を表で組み込む意図で作りました。
アドバイスをよろしくお願いします。
0784名無しさん＠そうだ選挙にいこう
NGNGテキストボックスの書式で「重複データ非表示」っていうのがあった筈だけど。
（前行と同じ内容なら表示しない）
0785動画直リン
NGNG0787名無しさん＠そうだ選挙にいこう
NGNGＣＳＶファイルをtransfertextでインポートするとき先頭データが不要なのですが、どうすればよいですか？
2行目のデータからインポートしたいです。テーブルのフィールド名も決まっています。
0788787
NGNG先頭データに変化があった場合対応できなくなるので
0790名無しさん＠そうだ選挙にいこう
NGNG非連結でフォームを作成していますが
サブフォームはどうやって組み込めばいいのでしょうか。
0791名無しさん＠そうだ選挙にいこう
NGNGツールパレットから選択しる
0792名無しさん＠そうだ選挙にいこう
NGNG0793名無しさん＠そうだ選挙にいこう
NGNG最近access使い始めたばかりで判らない事だらけです
>>791
連結してるサブフォームなら普通に作成できるのですが
非連結での作成方法がよく判らないのです。
>>792
サブフォーム用レコードセットをもとに
フォーム上に表示テーブルを作成すると言うことでしょうか?
0794790
NGNG0795787
NGNG見つからないんですが
TransferTextのメソッドだけでできることなんでしょうか？
0796bloom
NGNG0797名無しさん＠そうだ選挙にいこう
NGNGヘルプの内容ぐらいWEBでも調べられるだろう
0798748
NGNGしょうがないなぁ…
**引用**
DoCmd.TransferText [transfertype][, specificationname], tablename, filename[, hasfieldnames][, HTMLtablename]
hasfieldnames
インポート、エクスポート、またはリンク時に、テキスト ファイルの最初の行をフィールド名として使うには、True (- 1) を
使います。
テキスト ファイルの最初の行を通常のデータとして扱うには、False (0) を使います。この引数を指定しないと、False
(既定値) が使われます。
この引数は、Word の差し込みデータ ファイルに対しては無視されます。このファイルには、最初の行に常にフィールド名
が含まれています。
**終わり**
0799787
NGNGそれはわかるんですが、
一行目はデーターとしてもフィールド名としても必要のないデータなので、インポートしたくないわけで。
なので、現状はインポート後に削除クエリで消してますと。
で、実現したいのはＶＢＡとかインポート定義とかでインポート処理の段階で排除できないかと。
hasfieldnames これを応用すればいいということですか？
0800名無しさん＠そうだ選挙にいこう
NGNG今、大勢の方が『なんだよ～そういう事かあ！』と
腰砕けになっていると思います（ｗ
１行目がゴミデータということであれば、VBAで
テキストファイルの加工をするコードを書くしか
方法はなさそうですね。
0803名無しさん＠そうだ選挙にいこう
NGNG１案
オートナンバー型のフィールド作っておいて
インポート時に不要行のナンバーを取得しておく
インポート後そのデータを検索して削除というのはどうか
２案
インポートするテキストをTextStreamオブジェクトとして取得。
さらに新規TextStreamオブジェクトを作成し、
インポートするテキストの1行目以外をそっくり書き込んで
作業用のテキストファイルとしてどこかに保存。
インポートは作業ファイルを用いて行う。
３案
インポートするテキストをTextStreamオブジェクトとして取得。
インポート先をレコードセットとして取得し、
テキストの2行目以降を1行づつSplit関数でばらして追加処理をしていく
どれもあんましスマートじゃないが・・・・・・・
0804名無しさん＠そうだ選挙にいこう
NGNGこれでいいんとちゃう？
0805760
NGNG759を見た段階だと受注管理と見積・内訳管理と見積明細がそれぞれ対応しているのかと思ってたんだけど、
783だと見積明細の下に受注管理と内訳管理が付く、しかも受注管理の下にも内訳管理が付くみたいなんだけど？
┌取引先
見積 金額=見積明細の金額×数量の合計
│┌内訳管理
└見積明細 金額=受注管理の金額の合計？ それか 内訳管理の金額×数量の合計？
└受注管理 金額=内訳管理の金額×数量の合計？
└内訳管理
こんな感じ？でもこれ変だよ？
┌内訳管理
┌受注管理 金額=内訳管理の金額×数量の合計
取引先 ↑コピー。その際、見積明細を内訳管理へコピー。
└見積 金額=見積明細の金額×数量の合計
└見積明細
たとえば、こんな感じで見積出して通ったら受注に見積をコピーして請求書を作成？
もしもこうなら、テーブルはこうかな？
取引先・・・取引先ＩＤ、社名、郵便番号、住所、電話、ＦＡＸ
受注管理・・受注管理ＩＤ、取引先ＩＤ、見積ＩＤ(どの見積から持って来たか)、
受注番号、受注名、受注日、納期、（小計、消費税、合計）
内訳管理・・内訳管理ＩＤ、受注管理ＩＤ、内訳名、単価、数量、(内訳納期)
見積・・・・見積ＩＤ、取引先ＩＤ、見積日付、受注番号、受注名、(小計、消費税、合計）
見積明細・・見積明細ＩＤ、見積ＩＤ、内訳名、単価、数量
0806760
NGNG小計、消費税、合計も計算で出せるからテーブルに持つ必要はない。
けど、そこから消費税の端数切捨てとか小計や合計からの値引きがあったりするとテーブルに
持たないといけなかったり。
でも、これは759さんの希望してるのと違う気がする。ん～俺が流れが見えてないからか。
擬古猫商事さんからテーブル1台椅子4脚のオーダーメイドでの作成依頼がありましたよと。例えば。
で、759さんは見積もりを出します。テーブル10万円、椅子1脚3万円。小計24万円、合計252,000円。
見積フォーム
取引先 擬古猫商事株式会社▼(コンボBOXで選択する)
受注番号 1000(手入力)
受注名 ダイニングセット(手入力)
見積日付 2003/4/15
サブフォーム
内訳名 単価 数量
テーブル(手入力) 100,000(手入力) 1(手入力)
椅子(手入力) 30,000(手入力) 4(手入力)
小計 240,000(単価×数量の合計)
消費税 12,000(小計×0.05)
合計 252,000(小計＋消費税 以上3箇所をサブフォーム内を入力後
計算ボタンを押すと計算する)
[計算ボタン] [見積印刷ボタン] [受注ボタン]
0807760
NGNGお見積 平成15年4月15日
擬古猫商事株式会社様
株式会社759
受注番号 1000
受注名 ダイニングセット
内訳名 単価 数量
テーブル 100,000 1
椅子 30,000 4
小計 240,000
消費税 12,000
合計 252,000
受注ボタンを押すと追加クエリを2つ動かして見積テーブル＞受注管理テーブル、
見積明細テーブル＞内訳管理テーブルへと。(受注日はDate関数でその日を付けて)
で、受注管理フォームを開いて納期の入力。
納品時に納品書と請求書を受注管理フォームからボタンでレポートを印刷。
って感じで、(説明しにくかったらテーブルと椅子じゃなくて他のでね)流れを
書いて見て。
表がずれないかと自分の仕事が終わってないことが心配。
0808名無しさん＠そうだ選挙にいこう
NGNG>>800 >>802 例をあげると
・csvの先頭に ABC,DEF,GHI,
で、２列目から 001,002,003, ←ここから下が必要
・アクセステーブル（フィールド名はすでにある）
インポートする度に
ABC,DEF,GHI,
001,002,003,
ABC,DEF,GHI,
001,002,003, となるので削除クエリでＡＢＣを検索して削除。
でも、この運用で将来的にＡＢＣなどの名称が変更になった時、対応しないと
ダメなので、それなら初めからインポートしなければと思ったわけで。
>>803さんのを参考に検討させていただこうと思いますが、
>>801 ズバリできるんですか？ もっと研究してみます。
以前にどっかのサイトでインポート処理時に解決してるのを見た気がして
探したんですが見つからなくて
0809名無しさん＠そうだ選挙にいこう
NGNG0810801
NGNGまだ解決してなかったのか……
だから［hasfieldnames/フィールド名の設定］がその機能だって書いてる
のに。
このスイッチをTrueにすると、新規テーブルにインポートする時には
先頭レコードをフィールド名に設定し、既存のテーブルにインポートする
時には単に先頭レコードを無視して、いずれも2レコード目からインポート
するんだよ。
つか説明見たら普通はそういう機能と思う筈だぞ。
0811名無しさん＠そうだ選挙にいこう
NGNGWindwsXP Pro + Access2000で、他人の作ったプロジェクトを
引き継ぐことになり、Accessを1から勉強中です。
とりあえず、テーブル一覧でもつくりたいのですが、
テーブル数が結構あるので、テーブル名を一括して取得する
方法はあるでしょうか？
ORACLEなら"SELECT * FROM dba_tables"
とかで出来ると思うんですが。
ついでにクエリ名の一覧も取得できたらありがたいです。
0812名無しさん＠そうだ選挙にいこう
NGNGconnection.OpenSchema...ADO
catalog.Tables(Views)...ADOX
0813名無しさん＠そうだ選挙にいこう
NGNGfalseの時は、先頭行をデータとして認識すると思うんだが・・・・・
もしかして俺のAccessと違う動作をするのか？
>>798で
テキスト ファイルの最初の行を通常のデータとして扱うにはｆａｌｓｅ
と書かれているようだが、
これを普通に読めば、先頭行はデータとしてインポートされると
なるわけだが・・・・・・・・
0814748
NGNG1.テキストインポートウィザードで「先頭行をフィールド名として使う」にチェックしない
インポート定義を作成(定義名をTest2 ｲﾝﾎﾟｰﾄ定義とする)
2.CSVファイル名は「test.csv」とし、Cドライブ直下にあるものとす。
3.>>798を参考に以下をコマンドボタン(ここではcmdImportとする)のクリックイベントに
記述す
Private Sub cmdImport_Click()
DoCmd.TransferText acImportDelim, "Test2 ｲﾝﾎﾟｰﾄ定義", "Test", "C:\test.csv", True
End Sub
以上
キモはインポート定義作成時に"「先頭行をフィールド名として使う」にチェックしない"定義を作成することと
Trueの部分(hasfieldnames)です。
0815名無しさん＠そうだ選挙にいこう
NGNG>>539-565のやりとりと同じことをしているような...
0816名無しさん＠そうだ選挙にいこう
NGNGだから、先頭行はいらないんだからTrueにして使えって話だろうに。
0817787
NGNGおお、できました。
インポート定義で先頭をフィールド名に使うにチェックしたらフィールド名上書きになってしまったんで、
ＶＢＡでＴｒｕｅにしても同じことだと思ってました。
みなさんお手数おかけしました。
0818名無しさん＠そうだ選挙にいこう
NGNG項目A(テキスト型)にパス
(例)C:\dirname\
項目B(テキスト型)にファイル名
(例)FileName.txt
が入力されているとして、クエリで項目A(パス)と項目B(ファイル名)
を結合してハイパーリンク型に変換することはできるでしょうか？
CStrで数値を文字型に変換するような感覚で。
フォームにボタンを配置してVBAで記述すればどうにかなる
のはわかりますが、てっとりばやく、データシートのクリックのみで
該当ファイルを開きたいと思いまして。
ヘルプやぐぐっても方法が見当たらなかったのでよろしくお願いします。
0819名無しさん＠そうだ選挙にいこう
NGNGヘルプで「ハイパーリンク アドレスについて」を読めば判る
UPDATE Test_Table SET Test_Table.Hyperlink = [Folder] & [FileName] & "#" & [Folder] & [FileName];
0820名無しさん＠そうだ選挙にいこう
NGNG0821山崎渉
NGNG0822名無しさん＠思考停止中
NGNG807様のご指摘のような請求書フォームの形を理想としています。
自分なりに作ってみたのですが取引先等の作成は問題なく進みました。
しかし、エラーが出てしまうのです。
フォーム作成において、デザインモードから切り替えると、「式または・・・が複雑すぎて」
というエラーメッセージが出ます。
いかがしたもんでしょうか。
0823名無しさん＠そうだ選挙にいこう
NGNGつかその程度の内容のフォームがそんな複雑になんかならないって
0824名無しさん＠そうだ選挙にいこう
NGNGエラーの元になってる式
書いてみたら？
0825名無しさん＠そうだ選挙にいこう
NGNGどのように式を書けばよいのでしょうか
Between ○○○ And Date()
の、○○○の部分がわかりません
0826名無しさん＠そうだ選挙にいこう
NGNGDateAddは？
0827名無しさん＠そうだ選挙にいこう
NGNGDateSerial(year(date)-1, month(date), day(date))
では？
0828名無しさん＠そうだ選挙にいこう
NGNG時々「メモリが足りません」と表示されてしまいます。
エクスポートをキャンセルしてアクセスを終了すると、
その後は何事もなかったように、またエクスポートが出来るようになります。
大丈夫なんでしょうか？
環境は、
ウィンドウズ98
オフィス2000（アクセス2000）←これがエラー
オフィス97と共存（アクセス97あり）
サービスパック３まで当てた後、アプリケーションの自動修復をしています。
（その後、オンラインでのパッチ要・不要のチェックをしたら不要と出たので、
何もしてません）
0830825
NGNG条件付き書式で、日付フィールドの値が１年以内のものの背景に色を付けたいのですが
「フィールドの値」「次の値以上」「DateSerial(year(date)-1, month(date), day(date))」
とやってみたのですが上手くいきません
この方法では駄目なのでしょうか？
ちなみに日付データは、日付・時刻型になっています
0831名無しさん＠そうだ選挙にいこう
NGNGＰＧって、思ったより簡単みたいだね。
みんな！応援してね。
http://school2.2ch.net/test/read.cgi/job/1049610473/
0832名無しさん＠そうだ選挙にいこう
NGNGアクセス使ってると、不思議な現象が頻発するが
いちいち気にしていると、生きていけない予感・・・・
0833名無しさん＠そうだ選挙にいこう
NGNGそれだと開きなおすと勝手に
DateSerial(Year("Date")-1,Month("Date"),Day("Date"))
になってないかい？こうだね。
DateSerial(Year(Date())-1,Month(Date()),Day(Date()))
もしくは826さんのDataadd使うほうだと
DateAdd("yyyy",-1,Date())
0835名無しさん＠そうだ選挙にいこう
NGNG帳票フォームで、交互に背景色を最後まで塗り分ける方法は
ないでしょうか？
条件書式ですと、レコードがない場合できないので困っております。
0836名無しさん＠そうだ選挙にいこう
NGNG顧客マスターで、顧客コードがあるのでそれを主キーに
しようと思っていたら、どうしても顧客コードを無しに
したいお客さんがあるとかで、顧客コードを主キーに
することができません。（主キーの説明をしましたが
説得できませんでした）
客先名を入れる時に、顧客コードからでも、客先名からでも
振り仮名からでも入れることができるようにしたいそうです。
（だから顧客コードが無いお客さんでも問題ないとかで）
マニュアルどおりの作り方で今まで来たものですから、私には
いい案が思いつかないのですが、どのようなテーブルがいい
のでしょう。
オートナンバーで管理して、顧客名からも顧客コードからも
出せるようなフォームを作ることができるのでしょうか？
0837名無しさん＠そうだ選挙にいこう
NGNG他のフィールどに主キーを割り当てる。
もしくは新しく主キーを設定するフィールドを作る。
0838名無しさん＠そうだ選挙にいこう
NGNGはい。わかりました。
顧客名かオートナンバーにしようと思います。
でも、もしそうした場合に、フォームから顧客名を
入れる際に、主キーではない顧客コードを使って
顧客名を出すことができるのでしょうか。
0839bloom
NGNG0840名無しさん＠そうだ選挙にいこう
NGNGできるよ。
0841名無しさん＠そうだ選挙にいこう
NGNGどうもありがとう。
何とか調べてやってみます。
0842名無しさん＠そうだ選挙にいこう
NGNGよく使う手は、顧客コードの'9999’あたりを一見さん専用に割り
当てたりはするけど。
プライマリキーはユニークな値によってレコードを識別できれば
よいから必ずしも表面に出す必要はない。
0843名無しさん＠そうだ選挙にいこう
NGNG一つのレポートに複数のクエリーの結果を反映させたいのですが上手くいきません。
仕様上不可能なのでしょうか?
可能であれば、サンプルが見たいのですが･･･
参考になるURLなどお教え願えないでしょうか。
よろしくお願いしますm(__)m
0844名無しさん＠そうだ選挙にいこう
NGNG一見さんではなく、いつも持っていたいデータなので
9999が１つだけだと、やっぱりダメなんですよね。
841の後すぐにgoogleで、「商品名から」とか「顧客名から」という
ようなキーワードでいろいろ検索していたのですが、どうしても
フォームで顧客を特定するのに、顧客コードからも顧客名からも
顧客を選択する方法が見つかりませんでした。
売上伝票フォームに入れる顧客欄で、顧客コードを入れると
顧客名が出るし、顧客名を入れると顧客コードが出るように
したいのです。
840番さんができるとおっしゃっていましたが、どうしても
わかりません。どのような方法をとったらいいのでしょうか。
0845名無しさん＠そうだ選挙にいこう
NGNGそれなら、9万とか90万台を一見さん用にすれば良いだけ
検索条件に
=[テキスト1]
もしくは
Like "*" & [テキスト1] & "*"
0846名無しさん＠そうだ選挙にいこう
NGNG下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか
・検索対象テーブル
［内容］
可能表現には人が意志を持って何かをする
・検索文字テーブル
［内容］
可能表現
人が
意志を
持って
・検索結果格納テーブル
［内容］
<A>可能表現<B>には<A>人が<B><A>意志を
<B><A>持って<B>何かをする。
最終的に ＨＴＭＬに変換したいので宜しくお願いいたします
0847845
NGNG0848名無しさん＠そうだ選挙にいこう
NGNG必要なのは複数のクエリーの結果を反映させたものではなく、必要な
データでしょ？ どんなデータが必要かをきちんと整理して、一つに
まとめるんだよ。
選択条件を増やすのならAND、OR条件を使えばいいし、選択テーブル
を増やすのならセレクトテーブルを追加すればいい。
よほど無理な事を考えているのでない限り、困る事はそうそう無いはず
だよ。
0849名無しさん＠そうだ選挙にいこう
NGNGありがとうございます。
もすこし考えをまとめてみます。
0850名無しさん＠そうだ選挙にいこう
NGNGﾏｽﾞﾊﾆﾎﾝｺﾞﾉﾌﾞﾝｼｮｳﾉｶｷｶﾀｦｵﾎﾞｴﾃﾈ(ﾊｧﾄ
0851山崎渉
NGNG（ ＾＾ ）＜ ぬるぽ（＾＾）
0852名無しさん＠そうだ選挙にいこう
NGNG0853名無しさん＠そうだ選挙にいこう
NGNG脳内仕様書で創り直して下さい。
0854bloom
NGNG0855名無しさん＠そうだ選挙にいこう
NGNG素敵な お相手が貴方を待っています！
もちろん 女性は完全無料です！
http://www.sweet.st
0856名無しさん＠思考停止中
NGNG見積明細クエリからなる見積明細サブフォームにある、受注内訳のフィールドに日本語を直接打ち込みたいのですが出来ますでしょうか？
0857名無しさん＠そうだ選挙にいこう
NGNG0858852
NGNG貴方の脳内仕様書を見せてください。
私のは少ないのですが、貴方のはページ数多いはずですよね。
0859名無しさん＠そうだ選挙にいこう
NGNG0860名無しさん＠そうだ選挙にいこう
NGNGあなたの質問は、エクセル・アクセスetcで散々既出な質問の上、
ここの様なBBSでは「さぁ、ないんじゃない？メーカに聞いてみたら？」
以外の返答は、してはいけない不文律となっております。
MSに聞いて素直にあきらめましょう。
それでも、納得いかなければ、google当りに望みをかけましょう。
お仕事はかどるといいですね、では、とっとと帰ってください。
0861名無しさん＠そうだ選挙にいこう
NGNG0862bloom
NGNG0863名無しさん@お腹いっぱい。
NGNGどっかに有料で解除してくれる業者があったような…
0864名無しさん＠そうだ選挙にいこう
NGNG漏れが解除してやってもよいが（ｗ
0865
NGNGhttp://www.geocities.co.jp/Athlete-Acropolis/6963/
0866名無しさん＠そうだ選挙にいこう
NGNGACCESS XP
レポートにWEB上の画像をレイアウトして表示したいのですが、
苦戦しています。具体的にはW自社のebにある商品写真をレポートで
レイアウトして印刷したいのです
いままでやってみたこと
・レポートの中に画像ボックスを配置してレコードソースに
アドレスを指定 http://www.abc.com/aaa.jpg
ローカルなネットワーク内だとOKだけどネットになると参照できない
・ActivXコントロールのマイクロソフトウェブアクセスを使う
フォーム内に配置するとうまく動いてくれるが、サイズ調整が不可
レポートに配置すると表示されない
こまってしまいました。うまい方法ないでしょうか?
0867名無しさん＠そうだ選挙にいこう
NGNG0868名無しさん＠そうだ選挙にいこう
NGNG0869名無しさん＠そうだ選挙にいこう
NGNG一通り完遂すべし。後は自分の目的別にどうとでも応用できるんでは。
受発注システムがどうのいってるのは大概使い物にならない。
0870名無しさん＠そうだ選挙にいこう
NGNG下記の検索文字テーブルと検索対象テーブルを比較して検索文字テーブル存在する
検索対象テーブルのデータ前後に決まった文字列を可能なのでしょうか
・検索対象テーブル
［内容］
可能表現には人が意志を持って何かをする
・検索文字テーブル
［内容］
可能表現
人が
意志を
持って
・検索結果格納テーブル
［内容］
<A>可能表現<B>には<A>人が<B><A>意志を
<B><A>持って<B>何かをする。
最終的に ＨＴＭＬに変換したいので宜しくお願いいたします
0871名無しさん＠そうだ選挙にいこう
NGNG0872名無しさん＠そうだ選挙にいこう
NGNGAccess97を使用してます。
ﾓｼﾞｭｰﾙで郵便番号フィールドのデータの更新（置換）を考えてます。
@@@-@@@@ → @@@@@@@ のように "-"を""に置換です。
又、クエリでも同様の処理を考えております。
短文ですがよろしくお願いします。
0873名無しさん＠そうだ選挙にいこう
NGNGUPDATE テーブル SET テーブル.フィールド = Left([テーブル]![フィールド],3) & Mid([テーブル]![フィールド],5);
0874名無しさん＠そうだ選挙にいこう
NGNGありがとうございました。（返事が遅くなりました）
アドバイスどおり、9万番台を一見さんにしました。
それから、顧客名から顧客コードを探すための選択クエリ
（顧客名が左で顧客コードを右に配置したもの）を作って、
顧客名をコンボボックスで選べてその結果２列目を表示して
顧客コードを探せるようにしました。
後は出てきたコードを本当のコード欄にコピペします。
きっと変な方法だと思いますけど、今のところはこのくらいが精一杯なので。
＞検索条件に
＞=[テキスト1]
をやってみましたが、まだ意味のわからない状態です。
もっと賢くなってから再度やってみます。報告まで。
0875名無しさん＠そうだ選挙にいこう
NGNGもう少し複雑？な処理が有るのですが・・・。
@@@--@@@@ → @@@@@@@
@@@ @@@@ → @@@@@@@
@@@ｰｰ@@@@ → @@@@@@@
などです。つまり完全に数値データのみにしたいです。
大変恐れ入りますがよろしくご指導お願いいたします。
0876名無しさん＠そうだ選挙にいこう
NGNG= Left([フィールド],3) & Right([フィールド],4)
WHERE ((Len([フィールド])>"3"));
0877名無しさん＠そうだ選挙にいこう
NGNG１文字ずつチェックして数字のみ取り出す関数の一例
Public Function ZipNumber(ZipCode As String) As String
Dim i As Integer
Dim w As String
ZipNumber = ""
For i = 1 To Len(ZipCode)
w = Mid(ZipCode, i, 1)
If IsNumeric(w) Then
ZipNumber = ZipNumber & w
End If
Next i
End Function
0878名無しさん＠そうだ選挙にいこう
NGNGフォームにおいて、画像（固定の画像ではなくて、レコードのデータの一つとしての画像）
を表示させるボックスを作ったときに、
そのボックスへデータを取り込むための、いわゆる「ファイルを開く」のような、
ファイルを選ぶウインドウを開くコマンドボタンを作るにはどうすればよいのでしょうか？
0879名無しさん＠そうだ選挙にいこう
NGNGACCESSのバージョンは？
2002ならFileDialogオブジェクトを使ったら簡単かも。
0880名無しさん＠そうだ選挙にいこう
NGNGよろしくお願いします。
クエリで１からの連番フィールドを追加することは可能なのでしょうか？
0881名無しさん＠そうだ選挙にいこう
NGNG可能です
0882880
NGNGすばやい解答ありがとうございます。
その方法のヒントでもいいですのでお教えくだされ。
0883名無しさん＠そうだ選挙にいこう
NGNGSQLほんをいっさつかってから。
0884878
NGNG返事が遅れてすみません。
ACCESS2000です。
2002でそんな機能があるとは知らず、全てのACCESS共通で質問できるかと思ってしまいました。
0885動画直リン
NGNG0886名無しさん＠そうだ選挙にいこう
NGNG2000ならAPIを使ってみればどうでしょう。
「GetOpenFileName API」あたりでググってみれば目的の機能が見つかるはず…
0887名無しさん＠そうだ選挙にいこう
NGNGテーブル上で計算したいのですが・・・やり方がよく分かりません｡
0888名無しさん＠そうだ選挙にいこう
NGNGテーブル上では無理だ
0889878
NGNG仰せの通り検索してみましたら、VBAを超えた(？）自分の知らない世界が…
すぐに使えなくとも、いずれは一つ前に進めそうです。
お返事いただき、ありがとうございました。
0890名無しさん＠そうだ選挙にいこう
NGNG素敵な お相手が貴方を待っています！
もちろん 女性は完全無料です！
http://www.sweet.st
0891名無しさん＠そうだ選挙にいこう
NGNG887なんですが。
できないならテーブルデータをエクセルに吐いて計算してテーブルに戻したいです。
スマートなやり方はないのでしょうか･･･
0892名無しさん＠そうだ選挙にいこう
NGNG普通にインポートとエクスポートでいいのでは。
それ以前に、なぜクエリーじゃいけないの？
0893名無しさん＠そうだ選挙にいこう
NGNGありがとうございます。
初心者なものでクエリーを使いこなせず｡
悩むこと半日なのです｡
また、クエリーで計算してレポートにする術をいまいち理解できず｡
エクセルに渡せば済むかなと｡
0894名無しさん＠そうだ選挙にいこう
NGNGまずは本を読むか、ある程度知ってる人に聞くかしないと、
そのレベルの質問じゃ煽られるだけだよ。
0895名無しさん＠そうだ選挙にいこう
NGNG本でも買って勉強しる
0896名無しさん＠そうだ選挙にいこう
NGNGhttp://www.mahoutsukaino.com/
こことかわかりやすいので、
一通り勉強された方が後々の運用が楽だと思いますよ。
0897名無しさん@お腹いっぱい。
NGNGテーブルなどオブジェクトのプロパティで「隠しオブジェクト」属性にチェックを入れ、
Accessのツール→オプション→表示で「隠しオブジェクト」にチェックを入れると
当該オブジェクトは非表示状態になりますが、別のmdbを開いてもツールからの
設定が有効なため隠しオブジェクトが非表示になってしまいます。
起動時にVBAかマクロで「ツールからの設定」をオンオフできるでしょうか？
せっかく非表示にしていても他のmdbを開いて「ツールからの設定」から「隠しオブジェクト」に
チェックされると非表示設定をしていたmdb(mde)の「隠しオブジェクト」が見えてしまうので…
0898名無しさん＠そうだ選挙にいこう
NGNGども。886さんの言われる GetOpenFileName APIでも、もちろん可能ですが
ツール(T) →ActiveXコントロール(X) →Microsoft Common Dialog Control
として、コモンダイアログをフォーム上に配置した方が簡単だと思いますよ。
他のテキストBOXなんかと同じ要領でプロパティの設定もできますし。
0899動画直リン
NGNG0900名無しさん＠そうだ選挙にいこう
NGNG「隠しオブジェクト VBA プロパティ」でぐぐる。
質問する前にぐぐるくらいしておいても損はないぞ。
0901名無しさん＠そうだ選挙にいこう
NGNGつか878がそのコントロール持ってるとは限らないし、持ってたとしても
使える権限があるかわからないし。
0902898
NGNGご指摘ありがとうございます。
Microsoft Common Dialog Control (Comdlg32.ocx) はＶＢのランタイムですから
環境によっては無いかもしれません。しかし入手は容易ですから、持っていても
損のないｺﾝﾄﾛｰﾙだと思います。（言葉足らずで正直ｽﾏﾝｶｯﾀ…）
0903名無しさん＠そうだ選挙にいこう
NGNGAccess入ってるならExcelは大概入ってるだろうに。
単にCreateObjectすれば使えるんだから、ややこしいAPIとか、実行環境に入ってるかどうか判らないような
OCXとか使ってるより良いような気がするが。
0904動画直リン
NGNG0905名無しさん＠そうだ選挙にいこう
NGNGまあ使ってる人も当然いるでしょう。ただ、環境に依存するという
意味ではOCXと大差ないから、あまり表立って言わないだけで。
0906名無しさん＠そうだ選挙にいこう
NGNGいいこと教えてもらった。ありがとう。
こういうのって知らなきゃ知らないでいけるからなぁ。
参照設定とDim obj as New Excel.Applicationでいけるのか。
機会があれば使ってみよう。
0907名無しさん＠そうだ選挙にいこう
NGNGありがとうございました。
0908動画直リン
NGNG0909878
NGNG昼間仕事をサボりながら、昨日教えていただいたAPIをつらつらと勉強していたんですが、
新たな発見がたくさんありました。使いこなせたらかなり便利そうですね。
ただ、そうなるまでにはかなり時間がかかりそうなので、
当面の問題には一番簡単そうな903さんのやり方を拝借しようかと思います。
色々と教えていただきありがとうございました。
0910名無しさん＠そうだ選挙にいこう
NGNG顧客名を入れるコンボボックスを作って、顧客名を選択できるように
しています。
コンボボックスの▼の印をクリックして、出てきた顧客データを
マウスで選択する際には問題ないのですけど、▼の印をクリックした
後、「↓」キーで顧客名を選択して「エンター」キーを押すと、
見積書の次のページに行ってしまいます。
なんでなんでしょうか。
access2000を使っています。
0911名無しさん＠そうだ選挙にいこう
NGNG0912名無しさん＠そうだ選挙にいこう
NGNG0913名無しさん＠そうだ選挙にいこう
NGNG0914名無しさん＠そうだ選挙にいこう
NGNGフリーの開発環境やRDBMSがたくさんある中で、JETを選択す
る理由はどんなのがあるかな。
0915名無しさん＠そうだ選挙にいこう
NGNG調べ物が楽
これが最もでかい
0916名無しさん＠そうだ選挙にいこう
NGNG915は確かにでかい。あとプラスして
・最初からPCに入ってる（入ったのしか買わない）
・上司でも（名前だけだが）あたりまえに知ってる
・上司の頭の中ではデータベース=Access
田舎の小さな会社なんでそんなもんだな。
作り手もド素人なうえ、事務仕事と半々なんて状況。
大体選択してるわけじゃなくて、それしか知らんのだからなぁ。
M$の思うツボなんだろうけどね。
0917名無しさん＠そうだ選挙にいこう
NGNG> 最初からPCに入ってる
その通り、Accessがない環境でも、MS-Office製品のどれかが入っていればOK。
# フリーで利用可能という意味では、MSDEという選択肢もあるが。
0918名無しさん＠そうだ選挙にいこう
NGNG0919名無しさん＠そうだ選挙にいこう
NGNG同感。
同時使用さえなければ、ある程度レコード件数が多くなっても、
快適な速度で動くし。
0920名無しさん＠そうだ選挙にいこう
NGNG今のマシンのVBA用のヘルプ、検索で引っかかっても肝心のドキュメントが
表示されないんだけど・・・・・・ (ﾊｧ
0921名無しさん＠そうだ選挙にいこう
NGNGコンボボックスで出てきた項目をマウスではなく
キーボードで選択するのに、エンターを押しては
いけないということ？
候補までカーソルを下げていき、これ、と思ったところで
エンターを押すと、レコードの移動ボタンを押して次の
画面に行った状態になるので、次のレコードの中のデータが
変わってしまうんです。
0922名無しさん＠そうだ選挙にいこう
NGNGまず>>911 メール欄
他にはキー入力関係のイベントを使う
0923名無しさん＠そうだ選挙にいこう
NGNG0924名無しさん＠そうだ選挙にいこう
NGNG正直、そのものを見ないとどんな問題か
見当つかない。
タブ移動順を見直すか、移動ボタンはずすかしてみたら？
手持ちのフォームで試してみたけど>>921のような現象は出なかった。
（出られても困るが・・・・・）
0925名無しさん＠そうだ選挙にいこう
NGNG単に、そのコンボボックスがタブオーダーの最後になってて
フォームのENTERでの移動が全てのレコードになってるだけじゃないの？
0926名無しさん＠そうだ選挙にいこう
NGNGやっぱりヘルプ関係は昔の方が充実していた気がする。
そんなわけで、歴代オフィスのヘルプを抜き出して保存する為だけに、
昨日クリーンな環境を1つ作った。
これからここに、歴代オフィスをバージョン順にインストールし（ｱｸｾｽなら
1.1から）、ヘルプを媒体に保存してアップデートという作業を繰り返す。
エクセル4とワード5の媒体が既に逝ってたのが癪だが（VBA入ってないけど）。
0927名無しさん＠そうだ選挙にいこう
NGNGくれくれタコラ
ヘルプファイルだけでも固めてどこかにあげてｸﾚｸﾚ
いや、ｸﾀﾞｻｲ（ｗ
0928名無しさん＠そうだ選挙にいこう
NGNGCDからインストールしなさい
0929名無しさん＠そうだ選挙にいこう
NGNG0930名無しさん＠そうだ選挙にいこう
NGNGいや、インストール時に関係しそうな
ヘルプはみんなチェック入れてるんだけど･･･
表示されないキーワードのドキュメントって
製品VB用のヘルプ内容っぽいから、
プロフェッショナル版もしくはOfficeだけでは全部のヘルプ
入ってないんだと思ってたんだが、違うのかな？
0931名無しさん＠そうだ選挙にいこう
NGNG入会しなくても見れるの？
0933>>932
NGNG感謝感激
ありがとう!
そうか、MSDN＝30万円の先入観が強すぎた･････
0934名無しさん＠そうだ選挙にいこう
NGNGありがとおぉ！
言われたとおりでした。タブオーダーの最後になっていた。
プロパティのタブストップをオフにしました。
うれしいよー。
（>>911さん、メール欄に答えがあるとは思ってなかった。
意地悪だなぁ。けど、ありがとね！）
0935926
NGNGとりあえずヘルプはデコンプ出来たので、次にオフィス4.3をインストール
した。乗り換えUG版だったので、乗り換え対象ソフトを探すのが激しく
面倒だった。
この頃のマクロはアプリごとにWord Basic、Access Basicという具合に
異なっている。パワーポイントにマクロはまだ無い。
注目のVisual Basicはこのバージョンのエクセルから登場。OLE2にも
対応し、Visual BasicからもWordなどのオブジェクトを参照出来るように
なった（ちなみにExcel 4.0 マクロの記録、編集、実行も依然サポート
している）。
あとソフトの起動がバカっ速い。
0936名無しさん＠そうだ選挙にいこう
NGNGコンポボックスでテーブル参照したら、
参照先テーブルの列順でなく、昇順ソートがかかった
コンポボックスの選択になるんですが、どのようにしたら
参照先テーブル列のままの順番で表示できるようになるのでしょうか？
0937名無しさん＠そうだ選挙にいこう
NGNGクエリかSQLで好きな順に並べろ。
0938名無しさん＠そうだ選挙にいこう
NGNG0939名無しさん＠そうだ選挙にいこう
NGNG別にカリキュラムというわけでもなないので
いまだにとか言われても（w
常に、分からない人は存在していると思われ・・・・・
0940名無しさん＠そうだ選挙にいこう
NGNG0941名無しさん＠そうだ選挙にいこう
NGNGしりよろ
0942名無しさん＠そうだ選挙にいこう
NGNG国内3000件の掲示板に一括書き込み
リンクスタッフ無料登録1000円プレゼント
アクセスアップ最強サイトしかも安価で登録
http://accessplus.jp/staff/in.cgi?id=9879
http://accessplus.jp/staff/in.cgi?id=9876
http://accessplus.jp/staff/in.cgi?id=9877
http://www.hptouroku.com/cgi-bin/affiliates/clickthru.cgi?id=7064057
0943bloom
NGNG0944880
NGNGshell関数でエクセルのテンプレートを使用しての新規ファイルの起動は可能でしょうか？
Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE""C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\test.xlt""", vbMaximizedFocus)
このように書いてみたのですが、ファイルがありませんと出ます。
記述に問題があれは指摘お願いします。
ちなみにHyperlinkAddressプロパティを使用するとテンプレートファイル(test.xlt)そのものが立ち上がってしまうのでダメでした。
0945名無しさん＠そうだ選挙にいこう
NGNG試してないけど
Dim oXLS As Object
Set oXLS = CreateObject("Excel.Application")
oXLS.Workbooks.Add("C:\Documents and Settings\Administrator\Application Data\Microsoft\Templates\test.xlt")
oXLS.Visible = True
oXLS.UserControl = True
Set oXLS = Nothing
0946944
NGNGありがとうございます！！
ちゃんと動きました。感謝です。
0947926
NGNGDAOとADOのヘルプが充実したのが喜ばしい。
0948名無しさん＠そうだ選挙にいこう
NGNG0949名無しさん＠そうだ選挙にいこう
NGNG誰か真偽のほどを知らないかな？？（ﾆﾔﾘ
0950名無しさん＠そうだ選挙にいこう
NGNG成仏させてやってほしい・・・・・・・
0951名無しさん＠そうだ選挙にいこう
NGNGエクセルの TRIM関数と同じ動きをしてくれる関数は無いでしょうか？
色々探したのですが、無かったんです。
方法としてはスペース２つ分を１つ分に置き換えるを出来なくなるまで
繰り返すという方法もありますが、何回もやるはめになるんで・・・
0952名無しさん＠そうだ選挙にいこう
NGNG動作違ったっけ？
0953bb
NGNG( ,,)┌─┴┴─┐
/ つ.;ダブダブ-│
～′ /´ └─┬┬─┘
∪ ∪ ││ _ε３
゛゛'゛'゛
おかずなら過激に
http://www.dvd01.hamstar.jp
0954名無しさん＠そうだ選挙にいこう
NGNG見つからないどころか、クエリ式にすら使えてしまうわけだが
0955名無しさん＠そうだ選挙にいこう
NGNG勉強不足ですね、出直しましょう
0956名無しさん＠そうだ選挙にいこう
NGNG0957名無しさん＠そうだ選挙にいこう
NGNGボタンAを押すとフォームAが開く
ボタンBを押すとフォームBが開く
～ ～
で、ある日ある時、ボタンAを押したらフォームDが開いちゃった。
目の前に並んでいるボタンの中に、フォームDを開くボタンDは、ない。
こんな経験をお持ちの方、いらっしゃいますか?
当方Win2K、AcKです。
0958名無しさん＠そうだ選挙にいこう
NGNG言いがかりはやめてください。
0959名無しさん＠そうだ選挙にいこう
NGNG0960名無しさん＠そうだ選挙にいこう
NGNGそれによって何かデタラメなデータが入力されたとか、実害があったわけじゃ
ないし。
一週間ほどおいて、つい昨日、また同じような現象に出くわして。
やっぱり実害はなし。
焦りとか怒りとかじゃなく、ありゃ～、また座敷わらし見ちゃった、
みたいな不思議な気分で。
他にも同じような気分を味わっている人がいたら、ちょっとは安心かなと
思ったもので。
0961名無しさん＠そうだ選挙にいこう
NGNGコード見直せ。
0962bloom
NGNG0963957
NGNGちょっと長くなるけど、許してください
そのフォームにはボタンが8つほど、プラス、ダミーコントロール(テキストボックス)があります。
Private Sub Cmd1_Click()
[ダミー] = 1
DoCmd.GoToControl "ダミー"
End Sub
Private Sub Cmd2_Click()
[ダミー] = 2
DoCmd.GoToControl "ダミー"
End Sub
Private Sub Cmd3_Click()
[ダミー] = 3
DoCmd.GoToControl "ダミー"
End Sub
・・・
0964957つづき
NGNG長い長い処理
で、その処理の後
Select Case [ダミー]
Case Is = 1
DoCmd.OpenForm "フォーム1"
Case Is = 2
DoCmd.OpenForm "フォーム2"
Case Is = 3
DoCmd.OpenForm "フォーム3"
・・・
End Select
End Sub
1～8どのフォームを開く際にも、事前に同じ処理が入るので、
こういう書き方にしたんですが、何か関係ありそうでしょうか?
0965名無しさん＠そうだ選挙にいこう
NGNG目的の値になってなかったとしか言えない
コントロールの値を使うんじゃなくて、普通に変数使うようにしたら？
0966名無しさん＠そうだ選挙にいこう
NGNGダミーコントロール消して、こうしろ↓
Private Sub Cmd1_Click()
MyOpenForm 1
End Sub
Private Sub Cmd2_Click()
MyOpenForm 2
End Sub
:
Private Sub MyOpenForm(byval n as Long)
長い長い処理
Select Case n
Case 1
DoCmd.OpenForm "フォーム1"
Case 2
DoCmd.OpenForm "フォーム2"
:
End Select
End Sub
0967名無しさん＠そうだ選挙にいこう
NGNG0968名無しさん＠そうだ選挙にいこう
NGNG同意。
0969957
NGNGそれ、直前の書き込みしながら、ほんのちょっとだけ近いこと考えてました。
何で自分はこんな書きかたしたんだろうって。
Private Sub MyOpenForm(byval n as Long)
↑これほどスマートなやり方は知りませんでしたけど
「長い処理」ってのは、Subとして1個書いておけば
それぞれのクリック時に使うことができるんですよね
Private Sub Cmd1_Click()
長い処理
DoCmd.OpenForm "フォーム1"
End Sub
みたいなかんじで。
どう考えてもダミーは要りません
変数とかSubとかFunctionって、これをつくりながら身につけたテクなんで
あらためて見返してみると、全体にかなり回りくどいことやってます。
何だか長々と失礼しました。
0970名無しさん＠そうだ選挙にいこう
NGNG非OO的糞コードの典型。
仕変のたびにCase文が増えて、スパゲティ化が確実。
分岐を使わずに記述する方法がいくらでもあるだろうに・・・。
0971名無しさん＠そうだ選挙にいこう
NGNG質問というか確認というか。
Access97で、過去の売上実績を保存しています。
データベースを検索した後のクエリを使って、エクセル出力させる機能を追加しようと思ったのですが、
-----
Private Sub Excel_Click()
On Error Resume Next
MsgBox "過去のデータをエクセルに出力します"
DoCmd.OpenForm "メッセージ"
DoEvents
Kill "C:\honyarara.XLS"
DoCmd.TransferSpreadsheet acExport, 8, "Q_honyarara表示", "C:\honyarara.XLS"
DoCmd.Close acForm, "メッセージ"
DoEvents
MsgBox "Ｃドライブの直下に C:\honyarara.XLS のファイルを出力しました。ファイルを確認して下さい"
End Sub
------
ただ、ユーザ配付のソフトのため、MDE化しています。
MDEだと、エクセル出力できないんでしたっけ……？
0972名無しさん＠そうだ選挙にいこう
NGNGACCESSレベルなら、これで十分。
ACCESSが糞だから。
0973名無しさん＠そうだ選挙にいこう
NGNG0974名無しさん＠そうだ選挙にいこう
NGNG一瞬間違えてマ板のスレ覗いたのかと思ったよ。
ところで970は>>966はどうすれば綺麗なコードになると
考えてるのか聞きたい。アオリとかでなく自分が勉強したいから。
自分は引数をフォーム名にしちゃえばSelect Case使わないし
楽なんじゃないかと思ったんだが…どうなんだろう。
0975名無しさん＠そうだ選挙にいこう
NGNGぱっと思いつくのは、フォーム名を引数で渡すか、WithEventでイベントを委譲する、
のどちらか。
0976名無しさん＠そうだ選挙にいこう
NGNGまず、ここに非難が集中するとみたw
0977名無しさん＠そうだ選挙にいこう
NGNG0978名無しさん＠そうだ選挙にいこう
NGNGレスさんくす。WithEventって初めて見たので調べてみた。
ここのスレは本当に勉強になる。
素人がちまちま他の仕事の片手間にやってるので
変に知識が片寄ったり、当り前の事知らなかったり…。
自分程度の知識でも無理矢理モノが出来上がるあたり
Accessって実は怖いモノなんじゃないかと思ってたりするよ。
0979名無しさん＠そうだ選挙にいこう
NGNG> Accessって実は怖いモノなんじゃないかと思ってたりするよ。
(1) ファイルがオブジェクト単位で物理的に分かれていない。
(2) ファイルを開いただけでタイムスタンプが書き換わる。
(3) インポートしたオブジェクトのタイムスタンプはインポート時点のシステム日付となる。
(4) 1つのモジュールを更新すると、変更していない他のモジュールのタイムスタンプも書き換わる。
(Access 2000以降)
といった問題があり、バージョン管理が非常にやりにくい。
0980名無しさん＠そうだ選挙にいこう
NGNGAccessじゃなくてもタイムスタンプでバージョン管理はしないと思う。
0981名無しさん＠そうだ選挙にいこう
NGNG0982名無しさん＠そうだ選挙にいこう
NGNG>979はアクセス云々以前に、単なるど素人だと思うが？
0983名無しさん＠そうだ選挙にいこう
NGNG0984名無しさん＠そうだ選挙にいこう
NGNGPS win98とOffise97の組み合わせが一番安定しているような・・・。
0985名無しさん＠そうだ選挙にいこう
NGNGフォーム上のコマンドボタンのフォントを
HGP創英角ゴシックUBなどにすると、
文字がつぶれるというか、荒くなってしまいます。
同じ環境の別のパソコンで見たときは、正常なのですが。
0986名無しさん＠そうだ選挙にいこう
NGNGXPはよく知らないけど、スクリーンフォントの縁を滑らかにすればいいんじゃない。
（meの場合はディスクトップで右クリックしてプロパティ－設定）
0987名無しさん＠そうだ選挙にいこう
NGNGそんな変なフォント使うな。
0988このスレ立てた者です
NGNG0989このスレ立てた者です
NGNGACCESS総合相談所 その８
http://pc2.2ch.net/test/read.cgi/bsoft/1051630268/
0990名無しさん＠そうだ選挙にいこう
NGNGデスクトップで右クリック－プロパティ
－デザイン－効果
に「スクリーンフォントの縁を滑らかにする」
があり、うまくいきました。
ありがとうございました。
レス数が950を超えています。1000を超えると書き込みができなくなります。