ACCESS総合相談所 その８

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

25 ：名無しさん＠そうだ選挙にいこう：03/04/30 22:42

>>23
あるとは言い難いが、無いとも言えない。

とりあえずそのボタン（コントロール）を持っているのなら、登録すれば
使えない事は無いが、無いならアクセス2002に乗り換えるのが楽かと。

26 ：名無しさん＠そうだ選挙にいこう：03/04/30 22:52

>>25
そうですか・・・・
2002に乗り換える予定はまだないので困ってしまいます。
そのボタン（コントロール）というのは有償で販売しているのでしょうか？

27 ：名無しさん＠そうだ選挙にいこう：03/04/30 23:00

自分の場合はVBに付いてきたコントロールを使っていたが、わざわざ
買うよりは、エクセルやワードのダイアログを呼び出した方が早い気がする。

28 ：名無しさん＠そうだ選挙にいこう：03/04/30 23:11

>>27
度々質問して申し訳ありません。
エクセルやワードのダイアログを呼び出す手順はどうすればよいのでしょうか？

29 ：__：03/04/30 23:19

30 ：名無しさん＠そうだ選挙にいこう：03/04/30 23:43

>>28
Function f_GetOpenFilename() As String
　Dim strFileName As String
　Dim appliXL As Object
　Set appliXL = CreateObject("Excel.Application")
　With appliXL
　　.Visible = False
　　strFileName = .GetOpenFilename
　　.Quit
　End With
　Set appliXL = Nothing
　If strFileName = "False" Then
　　End
　Else
　　f_GetOpenFilename = strFileName
　End If
End Function
Sub test()
　MsgBox f_GetOpenFilename
End Sub

31 ：名無しさん＠そうだ選挙にいこう：03/04/30 23:48

>23さん　>>28
Accessで｢ファイルを開く｣ダイアログをWordやExcelを使う方法もあるし、
自分(WordやExcelを使わず)でファイルを開くダイアログを開く方法もある。
ネットで調べるか本読んでみるといい…
｢Acc○ssで使えるAPI｣｢Acc○ssTips」｢Acc○ssKn○wh○w」…とか
Access関連のHP見てみるといろいろあるから調べてみるといい
1回自分でモジュール作れば使い回し可能だから便利だよ。
自分はWordやExcelに依存しないのを作って使い回ししてる。

32 ：名無しさん＠そうだ選挙にいこう：03/04/30 23:59

30,31さま
ありがとうございました！
これから本格的にアクセスの勉強をするつもりなので書籍等を購入してがんばって見ます。
基本的なのは持ってるんですが、APIとかでてくるとサッパリで・・・・ｗ

またよろしくおねがいします。

33 ：名無しさん＠そうだ選挙にいこう：03/05/01 14:50

ACCESS始めたばかりという人は一度全過去ログに目を通すといい。
わけわからんことの方が多いと思うが、宝の山だぞ。

34 ：徹也３日目：03/05/01 15:20

教えてください。
win98 offise97です

住所データ
東京都東京市東京町1-5-4トウキョウハイツ202ｺﾞｳ

例1：Len 6文字で区切る
① 東京都東京市
② 東京町1-5
③ -4トウキョ
④ ウハイツ20
⑤ 2ｺﾞｳ

例2：12Bytで区切る
（半全角byt混在のBytCountﾓｼﾞｭｰﾙは別途作成）

① 東京都東京市（12byt）
② 東京町1-5-4ト(13byt or 11byt）
③ ウキョウハイ（12byt）
④ ツ202ｺﾞｳ（ 8byt）

外部Textにcsvにて出力したい

最終形：東京都東京市,東京町1-5-4ト,ウキョウハイ,ツ202ｺﾞｳ

例1だとお尻がバラバラなので例2を考えてます。

文字コード "0020～00FF" 半角領域？
mojicod = Nz(Hex(Asc(Mid("address", i, 1))))
For～Nextでｸﾞﾙｸﾞﾙ
文字コードで半角を拾いバイト合わせにて作成しようと思ってます。が・・・なかなか形になりません。（今日で3日目）ご指導よろしくお願いいたします。

35 ：名無しさん＠そうだ選挙にいこう：03/05/01 18:24

>>34
何の呪文？
意味不明にもほどがあるｗ

36 ：名無しさん＠そうだ選挙にいこう：03/05/01 18:44

3日も時間があれば、都道府県どころか市区町村別の更新用テーブルを
作ってもおつりがくるな。

37 ：名無しさん＠そうだ選挙にいこう：03/05/01 19:01

>>34
何はともあれ、一回その作業を中断して
寝ることを勧める。

38 ：名無しさん＠そうだ選挙にいこう：03/05/02 15:32

先日、パソコンをフォーマットして、再インストールしたら
アクセスを起動したときに、意味不明なテーブルが出てくるようになりました。

MSysAccessObjects
MSysACEs
MSysObjects
MSysQueries
MSysRelationships

上記、５ファイルが出てきて、削除もできないのです。
他のユーザーかプロセスが使用中のためと出てきます。
アイコンの色が他のテーブル等に比べると薄いので何かしらのシステムデータ
とは思うんですが、どうしたらこのデータは消せるのでしょうか？

39 ：名無しさん＠そうだ選挙にいこう：03/05/02 15:39

40 ：名無しさん＠そうだ選挙にいこう：03/05/02 15:53

>38
ツール-オプション-表示-システムオブジェクトのチェックをはずす。

41 ：名無しさん＠そうだ選挙にいこう：03/05/02 15:58

>>38 それだけ情報あるなら検索しようや
>>40 やさしいな

42 ：名無しさん＠そうだ選挙にいこう：03/05/02 17:30

ヤフオクでACCESS2000が15000円で出ていますが
高いですか？

43 ：名無しさん＠そうだ選挙にいこう：03/05/02 17:47

安いと思ったとしたらどうかしてる

44 ：名無しさん＠そうだ選挙にいこう：03/05/02 18:31

不当に釣り上がっているって事ですか？
97から2002にアップグレードした方が良いのかな…。
CDROM無くしてしまったのですが、インストールさえしてあれば
アップグレード可能でしょうか？

45 ：名無しさん＠そうだ選挙にいこう：03/05/02 19:15

自演デモしてるんじゃない？

46 ：初心者ですが：03/05/02 20:25

質問です。

フォームなどでメモ型（にかぎらずですが）のテキストボックスに長文を書き込んでいて、ESCキーを押すと
入力前の状態に戻りますが、それを避けることはできるでしょうか？

長文を入力していて間違ってESCキーを押した瞬間に、いままでの苦労が水の泡になってしまうので。

ちなみに環境は
WinXP Pro、ACCESS2000
です。

よろしくお願いします。

47 ：動画直リン：03/05/02 21:14

48 ：名無しさん＠そうだ選挙にいこう：03/05/02 22:13

>>46
一度、メモ帳で文作ってから
コピペ。
ESCで元に戻らない方がよっぽど不便だべ。

49 ：名無しさん＠そうだ選挙にいこう：03/05/02 23:42

教えてください。アクセス2000です。
フォームの非連結テキストボックスで=Count([C_txtbox])を使用して算出したレコード件数をＶＢＡで使用したいのです。
抽出したレコード件数が０件の場合にイベントブロシージャを実行したいのですが、どうもうまくいきません。

If IsNull(C_txtbox) = True Then
MsgBox IsNull(C_txtbox)
Else
MsgBox IsNull(C_txtbox)
End If

このように書いてみたのですが、どんな場合でもFalseしか帰ってきません。
IsEmpty(C_txtbox)としても同じでした。

バリアント変数にC_txtboxを代入すると、レコード件数が０件の場合に、値が無いから代入出来ないと出ます。
何かが根本的に間違ってますよね・・・・・
初歩的な質問で申し訳ないですが、ご指摘よろしくお願い致します。

50 ：美人ＯＬ：03/05/02 23:47

さやかだけど明日どうしたいい？？？

http://ime.nu/www.net-de-dvd.com/

51 ：名無しさん＠そうだ選挙にいこう：03/05/03 00:14

アクセス２０００、XPホームです。
フォームのデータをテーブルに格納するのに、非連結にして追加クエリを使用したのですが、
一回ボタンを押すと（追加クエリを実行すると）、たくさんのデータが入ってしまいます。
一件だけでよいのですが・・・・
ちなみに全て同じデータが入っています。
何が悪いのでしょうか・・・・

52 ：49：03/05/03 00:26

自己解決致しました。
IsNumeric(C_txtbox)で出来ました。

53 ：名無しさん＠そうだ選挙にいこう：03/05/03 01:00

>>51
クエリ

54 ：名無しさん＠そうだ選挙にいこう：03/05/03 21:53

>>51
それって、せめてSQL文見せてもらわない事にはなんとも・・・

55 ：名無しさん＠そうだ選挙にいこう：03/05/04 09:28

WinXP home、access 2002 を使用しています。

フォームを選択、開いたときに、最初に入力フォームを
表示させる方法はありますか？
あったら教えてください。よろしくお願いします。

56 ：名無しさん＠そうだ選挙にいこう：03/05/04 10:52

素朴な疑問
Access2000->Access97->Access2000と変換するとサイズが半分ぐらいになるけど
これはなぜ？使いようによっては便利。

ただし2000特有の機能を使ってる場合は泣きを見る諸刃の剣。

57 ：名無しさん＠そうだ選挙にいこう：03/05/04 11:03

お願い致します。
フォームのテキストボックスに値を代入するのは
Me.テキストボックス名 = 値　
ですよね。
同じ処理をコンボボックスでもしたいのですが、うまくできません。
もしかして無茶なことをしようとしているのでしょうか？

通常はリストから選び、ある条件下では決まった値が代入できるようにしたいのです。
可能なことであれば、どのようにコードを書けばよいのか教えて下さい。
アクセス２０００です。

58 ：bloom：03/05/04 11:14

59 ：名無しさん＠そうだ選挙にいこう：03/05/04 11:24

リスト関数

60 ：名無しさん＠そうだ選挙にいこう：03/05/04 11:27

>>56
その話はあまり人前でしないように

理由は秘密だ

61 ：名無しさん＠そうだ選挙にいこう：03/05/04 19:48

スレ違いかもしれませんが、お願いします。

VBの開発ソフトを持ってないので、
AccessのVBAを使ってプログラムの勉強しているのですが…。
　次のような、テキストボックスに入力された数字を計算させるプログラムを、
コマンドボタンのクリック時イベントプロシージャで実行した時、
　例）　
Private Sub コマンド0_Click()
　　テキストボックス２.Text = Val(テキストボックス１.Text) + 100
End Sub
実行時エラー
「コントロールがフォーカスを取得していない時に、
コントロールのプロパティまたはメソッドを参照することはできません。」
というエラーが出てしまいます。

62 ：名無しさん＠そうだ選挙にいこう：03/05/04 19:53

63 ：６１：03/05/04 19:55

どのようにしたら、計算ができるのかとか、
VBAとVBの違いなど、詳しい方いらっしゃいましたら、
教えて頂きたいのです。

64 ：６１：03/05/04 19:58

すみません。
Access2000でWindows2000です。

65 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:07

>>61
コマンドボックスとボタンが別のフォームにおいてあるんじゃない？
テキストボックスのオブジェクトをフォーム名から指定してみたら・・・

ちなみに書式は
forms(フォーム名*""で囲む).conntrols("テキストボックス２.")　=　～

なお､デフォルトのVBとVBAは参照設定が違うが、同じと考えていいよ。
VBで例えばアクセスのオブジェクトなんかを扱おうと思ったら、
それ用のライブラリを参照させてやる必要がある。

>>62
ツール→起動時の設定

66 ：65：03/05/04 20:09

コマンドボックス　→　テキストボックスね（苦笑
酔ってるので失礼ｗ

67 ：名無しさん＠そうだ選挙にいこう：03/05/04 20:34

つーか原因がエラー文にズバリと書いてあるじゃん。

「コントロールがフォーカスを取得していない時に、
コントロールのプロパティまたはメソッドを参照することはできません。」

という事は単純に、コントロールにフォーカスを与えてやればいいだけの話。

そしてフォーカスを取得していないと参照出来ないという事は、そもそも
以下の式自体が成り立たない。

テキストボックス２.Text = Val(テキストボックス１.Text) + 100

とりあえずヒントはこれぐらい。簡単だから自分で考えてみろ。

68 ：６１：03/05/04 20:34

>>65
ありがとうございます。
フォーム名が、「フォーム１」だとして

forms"フォーム１".conntrols"テキストボックス２".Text　=
Val（forms"フォーム１".conntrols"テキストボックス１".Text）+100
で良いのでしょうか？

69 ：６１：03/05/04 20:54

>>66
ダメでした
>>67
ありがとうございます。
ひょっとしてSetFocusを使いますか？

70 ：名無しさん＠そうだ選挙にいこう：03/05/04 21:02

>>69
プロパティを参照する場合は、

使う

71 ：名無しさん＠そうだ選挙にいこう：03/05/04 21:10

>>68
Forms("フォーム１").Conntrols("テキストボックス２").Text　=
Val（forms("フォーム１").conntrols("テキストボックス１").Text）+100
が正解。

あと、データの型は揃えること。
テキスト形式(String)にはvariant型も格納できるけど、
なるべく、String型にして代入する訓練しといた方が
後々のため。

オブジェクトがきっちり指定してあれば、
コントロールにフォーカスが無くてもこの程度の
コードなら問題ないはずだが、
フォーカスを移してというのであれば、SetFocusを使う。

72 ：名無しさん＠そうだ選挙にいこう：03/05/04 21:17

>>71
多分駄目だと思う

73 ：６１：03/05/04 21:38

みなさんレスありがとうございます。
とりあえず、
Private Sub コマンド0_Click()
Dim ans As Single

Forms!フォーム1.テキストボックス1.SetFocus
ans = Val(Forms!フォーム1.テキストボックス1.Text) + 100
Forms!フォーム1.テキストボックス2.SetFocus
Forms!フォーム1.テキストボックス2.Text = ans

End Sub
でうまく逝きますた。

>>71
テキストボックスのﾃｷｽﾄ形式の宣言て必要ですか？
>>72
なんで駄目なんですか？

74 ：６１：03/05/04 21:54

↓でもうまく逝きました。
Private Sub コマンド0_Click()
　　 Dim ans As Single
　　 Forms("フォーム1").Controls("テキストボックス1").SetFocus
　　 ans = Val(Forms("フォーム1").Controls("テキストボックス1").Text) + 100
　　 Forms("フォーム1").Controls("テキストボックス2").SetFocus
　　 Forms("フォーム1").Controls("テキストボックス2").Text = ans
End Sub

75 ：名無しさん＠そうだ選挙にいこう：03/05/04 21:57

>>73
理由は>>67に書いた通り。

Forms("フォーム１").Conntrols("テキストボックス２").Text　=
Val（forms("フォーム１").conntrols("テキストボックス１").Text）+100

これだとテキストボックス１と２のプロパティを同時に参照する事に
なるから。

ちなみに、プロパティを参照するという事だったので>>67のような書き方
をしたが、手っ取り早くやるなら、以下の式だけでもOK。

テキストボックス２ = Val(テキストボックス１) + 100

76 ：名無しさん＠そうだ選挙にいこう：03/05/04 21:58

気になったんで、実際試してみた｡

Forms("フォーム1").Controls("テキスト2") = Forms("フォーム1").Controls("テキスト1") + 100
または、
Forms("フォーム1").Controls("テキスト2").Value = Forms("フォーム1").Controls("テキスト0").Value + 100

この形だとうまくいく。

なるほどTextプロパティ(=データ更新前の見た目の入力結果)の取得の形にすると
フォーカスが無いとダメみたいだね。

以下ヘルプより

コントロールにフォーカスが与えられているとき、Text プロパティには、
コントロールの現在のテキストデータが格納されています。
Value プロパティには、コントロールで最後に保存されたデータが格納されています。
フォーカスを別のコントロールに移動すると、コントロールのデータは更新され、
Value プロパティには新しいデータが格納されます。その後、Text プロパティの値は、
コントロールにフォーカスが戻るまで使用できません。
コントロールにフォーカスを移動しないで、[レコード] メニューの [レコードの保存] コマンドを使って
コントロールのデータを保存した場合は、Text プロパティと Value プロパティの値は同じになります。

77 ：57：03/05/04 22:21

>59
レスありがとうございます。
現在リスト関数と格闘中ですが僕にはまだ難しいようです。
違う方法も検討中です。

78 ：名無しさん＠そうだ選挙にいこう：03/05/04 22:36

>>77
以下のどちらかでダメなの？
Me.コンボ0.ListIndex = 1
Me.コンボ0.Text = "hage"

79 ：６１：03/05/04 23:01

>>76
親切なレスありがとうございます。
AccessのVBAでは、
数値の計算をするくらいでは「テキストボックス1.Text」と
プロパティを指定する必要がないんですね。

80 ：名無しさん＠そうだ選挙にいこう：03/05/04 23:29

>>79
微妙に違う
プロパティを指定しないと言うことは、規定のプロパティを指定していると言うこと

81 ：名無しさん＠そうだ選挙にいこう：03/05/04 23:36

.Textは既定のプロパティじゃないという点も重要だな

82 ：呑んべぇさん：03/05/05 08:16

プログラム開発経験者でAccess の経験がない人

ここの Access Basic 入門みると一発でいけます。
http://island99.hp.infoseek.co.jp/access/index.html

サイト管理者へお礼の意味で無断推薦です。
ありがとうございます。

83 ：名無しさん＠そうだ選挙にいこう：03/05/05 09:39

97を基準に解説してるのにAccess Basicと書いてるあたりが微妙に
不安を感じさせる

84 ：名無しさん＠そうだ選挙にいこう：03/05/05 09:55

やはり不安は当たったようだ……

85 ：名無しさん＠そうだ選挙にいこう：03/05/05 16:41

AccessBASICだぜ！

86 ：名無しさん＠そうだ選挙にいこう：03/05/05 16:51

初心者には魔法使いを推薦、これ最強
ただしこれをやると性格まで異常にマターリになって帰ってくるという
危険も伴う諸刃の剣。初心者にはお勧めできない。

87 ：名無しさん＠そうだ選挙にいこう：03/05/05 21:48

>>48
どうもありがとうございました。たしかにソレもありですね。

ただ、あまりコンピューターいじらない人も使うDBなので、
いろいろと面倒くさくすると使ってもらえないのですが....

設定でかえたりできないんですよね。
残念。

88 ：呑んべぇさん：03/05/05 22:30

>>83
想像はつきます。

依頼者にAccessは止めたほうがいいと説得したのですが
アクセス９７でなければならない事情ありましてやむを得ず。

89 ：名無しさん＠そうだ選挙にいこう：03/05/05 22:53

つーか97の時点でVBAに変わっていたはずなのだが

90 ：名無しさん＠そうだ選挙にいこう：03/05/05 22:57

>>89
VBでなくてアクセスの基本って意味ではｗ
でも、雑談はスレ違いだねsage

91 ：名無しさん＠そうだ選挙にいこう：03/05/05 22:58

なるほど。確かにコードについてはほとんど解説していないな。

92 ：名無しさん＠そうだ選挙にいこう：03/05/06 09:26

>>87
VBAで作ってみた

Private m_Test As String

Private Sub Textbox1_Enter()
m_Test = Nz(Me.Textbox1.Value)
End Sub

Private Sub Textbox1_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
Me.Textbox1.Text = m_Test
Else
m_Test = Me.Textbox1.Text
End If
End Sub

93 ：57：03/05/06 20:22

>78
ありがとうございます。
遅いレスすいませんです。

未だ苦戦中です。
Me.コンボ0.ListIndex = 1
で、コントロールにフォーカスがあればコンボボックスへの代入が出来るのは分かったのですが

Private Sub コンボ1_AfterUpdate()
If Me.コンボ1.ListIndex = 1 Then
Me.コンボ2.SetFocus
Me.コンボ2.ListIndex = 2
End If
End Sub

こんな感じでコンボ1の更新後処理でコンボ2に自動入力したいのです。
しかし｢ListIndexプロパティの使い方が不正です｣とエラーが出ます。
ちなみに同じ処理をボタンのクリック時イベントで行うと問題無く動きます。
この処理は無理なのでしょうか？

94 ：78：03/05/06 21:37

>>93
Private Sub コンボ1_AfterUpdate()
If Me.コンボ1.ListIndex = 1 Then
Me.コンボ2.Value = Me.コンボ2.ItemData(2)
End If
End Sub

95 ：93：03/05/07 04:41

>94
ありがとうございます。できました。

教えて頂いたコードを自分なりに理解しようと思ったのですが
TextとValue、ListIndexとItemDataと似たようなプロパティで理解し難いですね。
勉強が足りないようです。

96 ：名無しさん＠そうだ選挙にいこう：03/05/07 20:15

>>92殿
なるほど。
ESCキー入力をひっかけてイベントプロシージャーで、
テキストボックスの内容を書き換えるようにするということですね。
これならうまくいきそうです。

どうも親切にありがとうございます。

ちなみにNｚ（Me.Textbox1.Value）のところのNzっていう関数はなんでしょうか？
ヘルプでしらべてみてもでてこないようですが。

97 ：Not 92：03/05/07 20:24

>>96
データがNullのときの返り値を指定する
例えばNｚ(FIelds(1),"")などとすれば
とすればFIelds(1)がNullの時
文字数0の文字列を返す
""を0とすれば0が返る

98 ：名無しさん＠そうだ選挙にいこう：03/05/07 20:53

あれっ！昨日頼んだのにもう来てる本当に安かったのでびっくりしました

http://ime.nu/ime.nu/ime.nu/www.net-de-dvd.com/

99 ：名無しさん＠そうだ選挙にいこう：03/05/09 00:00

>>96
NzはNull to Zero の略。
Nullの時に0を返すが、>>97のように
自分で返す値も設定できるってことです。

100 ：名無しさん＠そうだ選挙にいこう：03/05/09 01:48

ところで
最適化ってのは、どんなタイミングでやればいいんでしょ。
正味サイズより5割増えたら?
倍になったら?
そんなこと関係なしに、毎日かかさず?

Dim fs, fl
Set fs = CreateObject("Scripting.FileSystemObject")
Set fl = fs.GetFolder("C:\DataHogeHage")
If fl.Size < XXXXXXXX Then
最適化処理をしないでそのまま業務終了
Else
最適化処理をしてから業務終了
End if

↑みたいな書き方を最近知ったので、これで
機械に完全おまかせにできないかなと思って
(日々増えていくデータ量はほぼ一定なので、
適正サイズは概算できます)

101 ：92：03/05/09 09:05

>>96
私はAccess 2000を使っていますが、Nz関数はヘルプに載っています。
また、Googleで検索すると使い方を解説したWebサイトが引っかかってきますよ。
http://www.google.co.jp/search?hl=ja&ie=UTF-8&oe=UTF-8&q=Access+Nz+%E9%96%A2%E6%95%B0&lr=lang_ja

102 ：名無しさん＠そうだ選挙にいこう：03/05/09 12:45

俺は乱暴かも知れないけど、［終了時に最適化］のオプションを使ってる

103 ：名無しさん＠そうだ選挙にいこう：03/05/09 14:24

私の最適化方法

mdbファイルは実行ファイルとデータファイルを分けて管理しています。

実行ファイルの最適化は行いません。
WSH(vbsファイル)で実行ファイルを作業用フォルダにコピーして、
作業用フォルダの実行ファイルを起動するようにしています。

データファイルの最適化はDBEngine.CompactDatabaseをバッチで行っています。
ファイルサイズで判断はせず、毎日定時に実行しています。

最近はMSDE使っているけど。

104 ：名無しさん＠そうだ選挙にいこう：03/05/09 16:41

>>100
基本的に最適化は可能な限り行った方がよい。

ただし、
最適化のタイミングでMDBファイルが壊れていたり壊れたりすることがあるので
必ず最適化の前の段階でバックアップを取るようにする方が大事で、
私の場合は２世代遡れるようにしている。
こうしておけばサイズを気にする必要性は無いのではないかな？

105 ：名無しさん＠そうだ選挙にいこう：03/05/09 20:55

>>104
>>100がいってることで、ほぼ言い尽くされてるんだけど
複数の端末からアクセスがあるのであれば、
最適化のタイミングは、気をつけたほうがいいよ。

誰かがアクセスしてるのに気づかないで
バックアップや最適化かけると、トラブルの元になりやすい。

106 ：自分でも気づかずに100取ってた100：03/05/09 23:21

>>between 102 and 105
他の人がどれぐらいの頻度でやっているのか、知りたくて
質問させていただきました。
いろいろ参考になるご意見ありがとうございます。

しばらくは、最近知った上記のやり方 + DBEngine.CompactDatabase
でやってみます。
(実は、DBEngine.CompactDatabaseってのも最近知りました。前スレの最後の
ほうで)

107 ：103：03/05/10 00:17

最適化でトラブルが発生しないように私がしているのは以下の方法です。

ldbファイルが存在すれば削除し、mdbファイルをバックアップ用のファイル名にリネームします。
ldbファイルの削除や、リネームでエラーが出た場合はmdbファイルにアクセスしているユーザーがいるので作業を中止します。
リネームしたら当然そのファイルはアクセスされなくなります。
リネームしたファイルからDBEngine.CompactDatabaseで最適化したファイルを生成します。
このとき生成するファイル名は元のmdbファイル名を指定します。
最適化に失敗したらリネームしたファイルを元に戻します。

108 ：103：03/05/10 00:33

最適化前に修復もね
DBEngine.RepairDatabase

109 ：名無しさん＠そうだ選挙にいこう：03/05/10 00:35

http://www1.neweb.ne.jp/wb/prof/
平成15年度自作板PC環境調査最新結果（一部抜粋）
◆4月分の結果が出ました。現在は5月分に移行しています。◆

平均年齢　　　　　　　 25.4歳

ネット(2ch含)　　　　　　78.7%
ゲーム　　　　　　　　　 59.0%

Windows XP Family　　　　46.9%
Windows 2000 Family　　　34.4%

Athlon　　　　 45.3%
Pentium 4　　　　 29.7%

平均RAM搭載容量 780MB

平均HDD搭載容量 166GB

nVIDIA 49.2%
ATI 28.9%

DVD-R/RW/ﾏﾙﾁ 20.4%
CD-R/RW 75.9%

光ファイバー 8.3%
ADSL/xDSL 64.5%

CRT 74.6%
LCD 25.4%

110 ：名無しさん＠そうだ選挙にいこう：03/05/10 01:59

>>108
RepairDatabaseは Access97までがサポート。
Accessのバージョンに注意が必要でし。

111 ：名無しさん＠そうだ選挙にいこう：03/05/10 08:01

>>102の方法
> 俺は乱暴かも知れないけど、［終了時に最適化］のオプションを使ってる

って乱暴なの？
一人でスタンドアローンで使ってる分には問題ないでつか？

112 ：103：03/05/10 09:46

>>110
フォローありがと
ソース見たらコメントアウトしてありました。

113 ：名無しさん＠そうだ選挙にいこう：03/05/10 19:12

>>97
>>99
>>101
どうもありがとうございます。
accessのヘルプばっかりみてました。ヘルプで検索してもなんもでてこなかったです。
VBのヘルプでないとのってないのですね。っていま気づきました。
丁寧に教えていただきまして、ありがとうございました。

ググルことは基本なんですね。
以後、気をつけます。

かんしゃ　かんしゃ

114 ：bloom：03/05/10 19:14

115 ：名無しさん＠そうだ選挙にいこう：03/05/13 09:15

「最適化を実行した跡でmdbファイルを削除できません」と出て
最適化データベースの名前が変わってしまうことがあるのですが
これは何が原因なのでしょうか。教えてください。

116 ：名無しさん＠そうだ選挙にいこう：03/05/13 10:26

>>115
たまにあることだ気にするな。
「終了時に最適化」でこれが発生すると問題になるので
私は「終了時に最適化」は使わない。

117 ：115：03/05/13 10:48

＞116
情報サンクスです。気にするなで解決するとは思いませんでした。
最適化に関する情報を過去ログから拾ったりして
自己確認して忘れることにします。ありがとうございました。

118 ：名無しさん＠そうだ選挙にいこう：03/05/14 08:23

>>117
最適化は、mdbを最適化したコピーを作ってもとのファイルを消す。
もとのファイルが何らかの原因（ロックとか）で消せないとき、
同じ名前のファイルは作れないので、別名になる。
後（再起動後とか）で元ファイルを消し、コピーされたファイルをリネームで問題なし。

119 ：名無しさん＠そうだ選挙にいこう：03/05/14 08:29

ブロポーショナルフォントの物理的な表示幅を求める方法を教えて下さい。
VBAだけで済めばベストですが、API使った方法でも構いません。
バージョンは2000、もしくは2002で、OSは2000proです。
よろしくお願いします。

120 ：117：03/05/14 09:21

>>118
さらに情報サンクスです。問題なしで解決するとは思いませんでした。
最適化に関する情報を118さんの情報を追加させた後
自己確認して今晩飲みに行きます。ありがとうございました。

121 ：名無しさん＠そうだ選挙にいこう：03/05/14 09:23

>119
不毛な気配。

122 ：名無しさん＠そうだ選挙にいこう：03/05/14 11:27

>>104
局所的には正論かもしれないけれど、ディスク領域に優しくないのでは？
(ムダにディスクI/O、フラグメンテーションを増大させそうな予感・・・)

123 ：名無しさん＠そうだ選挙にいこう：03/05/14 11:30

>>122
データの方が断然大事。
ハードは金で買えるが、情報は消えればそれまで。

124 ：名無しさん＠そうだ選挙にいこう：03/05/14 11:48

>>122
気にならんレベルだろ
まともに管理したいならMSDEにするがよろし

125 ：名無しさん＠そうだ選挙にいこう：03/05/14 11:52

仕事で使うなら毎日バックアップしろよ
mdbファイルは突然壊れるぞ

126 ：名無しさん＠そうだ選挙にいこう：03/05/14 13:13

ド素人です。
この４月からアクセスを使いはじめました。

蔵書目録を作ろうとしているのですが、フォームのところでつまづきました。
ID番号を入れたら、次の欄で名前が出るようにしたいのですが　
Dlookup関数入れたり、コンボボックスなどいろいろ試してもできません。
分からないなりに本を読んでリレーションシップとかクエリとか、
やってはみたんですが、どうもうまくいきません。
他に簡単なやりかたありましたらご教授ください。

127 ：名無しさん＠そうだ選挙にいこう：03/05/14 13:34

ＩＤ、書物名のテーブルがあるんですよね？
じゃぁ、フォームのレコードソースにそのテーブルを指定したら
書物名の欄はテキストボックスに自然に出ると思います。
どうやったら出ないようにできるのか、その方が知りたい。

128 ：名無しさん＠そうだ選挙にいこう：03/05/14 13:35

>127 は、>126宛てです。

129 ：名無しさん＠そうだ選挙にいこう：03/05/14 13:40

>126
よく考えたら私、蔵書目録ってどんなのか知らないんだ。
ID入れたら本の名前が出るなんて簡単なもんじゃないのかナ
どんなテーブル作ったのですか？

130 ：名無しさん＠そうだ選挙にいこう：03/05/14 13:57

>>127
>>129

蔵書目録っていうと若干語弊がありますが
その本についてのデータを単票形式で入力できるフォームをつくってるんです。
その中に対象年齢って項目を入れたいので、その本の対象年齢のテーブルをつくりました。
（幼児、児童、生徒～高齢者までで、男女だとか学年によっても細かくわけるようにしています。）
１０から６０番ぐらいまでのID（？）ナンバーとその数字に対応する対象者をテーブルにしました。
例１１→幼児一般
　１２→幼児（女）
　１３→幼児（男）
　　　・
　　　・
　　　・
　６０→高齢者一般
　６１→高齢者（女）
　６２→高齢者（男）
こんな感じでテーブルをまずつくりました。
その後は１２６に書いた通りです。

131 ：名無しさん＠そうだ選挙にいこう：03/05/14 14:14

>130
本についてのデータを入れるテーブルの構成と
フォームのレコードソースの構成も教えて欲しい。

132 ：名無しさん＠そうだ選挙にいこう：03/05/14 14:36

蔵書マスターと対象者マスターがあるのか？

133 ：名無しさん＠そうだ選挙にいこう：03/05/14 14:40

二つのテーブル、PARTとORDERSがあり、それぞれの定義は
以下のようになっているとします。
左がフィールド名で右が型名です。

TABLE: PART(
PARTNUM------NUMBER
DESCRIPTION--STRING
PRICE--------NUMBER
)

TABLE: ORDERS(
ORDEREDON ---DATE
NAME --------STRING
PARTNUM------NUMBER
QUANTITY-----NUMBER
REMARKS------STRING
)

今、二つのSQL文、SQL1とSQL2をACCESS2000上で実行したところ、
まったく同じ結果が得られました。
（つづく）

134 ：名無しさん＠そうだ選挙にいこう：03/05/14 14:41

>>133 (つづき）

SQL1:
SELECT O.PARTNUM, SUM(O.QUANTITY * P.PRICE), COUNT(O.PARTNUM)
FROM ORDERS AS O, PART AS P
WHERE P.PARTNUM=O.PARTNUM
GROUP BY O.PARTNUM
HAVING SUM(O.QUANTITY * P.PRICE) >
( SELECT AVG(O1.QUANTITY * P1.PRICE)
FROM PART AS P1, ORDERS AS O1 --------B
WHERE P1.PARTNUM = O1.PARTNUM
AND P1.PARTNUM = O.PARTNUM); --------A

※---A,---Bはコメント

SQL2:
SELECT O.PARTNUM, SUM(O.QUANTITY * P.PRICE), COUNT(O.PARTNUM)
FROM ORDERS AS O, PART AS P
WHERE P.PARTNUM = O.PARTNUM
GROUP BY O.PARTNUM
HAVING SUM( O.QUANTITY * P.PRICE ) >
( SELECT AVG( O.QUANTITY * P.PRICE )
FROM PART AS P, ORDERS AS O
WHERE P.PARTNUM = O.PARTNUM );

（さらにつづく）

135 ：133：03/05/14 14:42

>>134 (つづき）

SQL1は本に載っていたものです。
Aの部分とBの部分の必要性が理解できなかったので
それらを取り除いて、どんな風に誤作動するのか試しに作ったのがSQL2です。
ところが、まったく同じ結果が得られてしまい悩んでいます。
動いているのでよしとしたいところですが、SQL2の文で間違いがある場合は
おしえてください。板違いかもしれませんが、ACCESS2000上での動作ということで
よろしくおねがいします。

136 ：名無しさん＠そうだ選挙にいこう：03/05/14 14:53

あれっ！昨日頼んだのにもう来てる本当に安かったのでびっくりしました

http://www.net-de-dvd.com/

137 ：126：03/05/14 14:59

本についてのデータはID（通し番号）、書名、フリガナ、対象者ID、対象、カラーかどうか、大きさ、ページ数、あらすじな
を入力しようとしています。

入力フォームは上をそのまま利用。カラーかどうか→チェックボックス、フリガナはオートで出るようには設定できました。
テーブルは、上と同じ物と、対象者IDと対象者を入れているものの２つあります。

138 ：名無しさん＠そうだ選挙にいこう：03/05/14 15:07

>>137
まず「テーブルの正規化」で検索かけることをすすめる。
対象者フィールドはデータテーブルにはいらないだろ。

テーブル名：対象年齢マスタ
・対象年齢ID
・対象年齢

フォーム上に
・対象年齢IDリストボックス
・対象年齢テキストボックスとするなら

対象年齢コードリストボックスの更新後処理に
Me.対象年齢テキストボックス = Dlookup("対象年齢","対象年齢マスタ","対象年齢コード = " & Me.対象年齢IDリストボックス)
でいけると思う。名前は適当。

139 ：名無しさん＠そうだ選挙にいこう：03/05/14 15:25

>>138
この程度ならクエリでフォームを作ったほうが簡単

蔵書テーブル
蔵書ID, 書名, フリガナ, 対象者ID, カラー

対象者テーブル
対象者ID, 対象

蔵書クエリ
SELECT 蔵書テーブル.*, 対象テーブル.対象
FROM 蔵書テーブル LEFT JOIN 対象テーブル ON 蔵書テーブル.対象ID = 対象テーブル.対象ID;

蔵書登録フォーム
レコードソース：蔵書クエリ

140 ：名無しさん＠そうだ選挙にいこう：03/05/14 15:39

138>139
あ、確かにクエリの方がいいな。
レコード移動した時の処理とかあるもんなー。

141 ：126：03/05/14 16:29

どうもありがとうございました。
教えていただいた方法で今からやってみます。

142 ：教えてください。：03/05/14 18:12

帳票フォームにサブフォームを作成しようとすると、帳票フォームにはサブフォーム作れないと怒られて単票フォームに変更させられちゃいますよね。
それでも、ヘッダー部にリンク無しのサブフォーム作るなら、再度帳票フォームに戻してやると出来ますがそれすると何か問題ありますか？

143 ：118：03/05/14 19:41

>>121
不毛？きりないんですか？
たしかVBだとできたような…

144 ：名無しさん＠そうだ選挙にいこう：03/05/15 01:49

かわいいかも・・・・・
(*´∀`*)ハァハァ

http://plaza16.mbn.or.jp/~satchel/omoshiroi/

145 ：名無しさん＠そうだ選挙にいこう：03/05/15 03:26

>>133-135
SQL1 相関副問い合わせ（相関サブクエリー）
SQL2 副問い合わせ（サブクエリー）

どちらも式としては正しいけれども求めようとしている結果は違う。
・SQL1のサブクエリーはPARTNUM毎の平均値を順番に返す
・SQL2のサブクエリーは結合表全体の総平均値を１回だけ返す
当然メインクエリーにおける条件式の評価は異なるわけだが。

今回は"たまたま"結果が同じになっただけだろう。
もっと試行錯誤して理解を深めることが必要。

146 ：126：03/05/15 11:42

>>138-139
昨日教えていただいたとおりにやってみましたが、ダメでした。
全くのド素人で初めてのアクセスなので本を見ながらやっているのですが、
たぶん、というか間違いなくそれより前に作った部分のどこかが根本的に違っているんだと思います。
もういっぺん最初からやり直してみます。

この蔵書目録を作るに当たって、ド素人用に何かよいアドバイス（基本的なところから）
があれば教えていただけるとありがたいです。

147 ：_：03/05/15 11:55

148 ：名無しさん＠そうだ選挙にいこう：03/05/15 12:03

>146
初心者向け書籍（サンプル付き）を購入する。
ネット上（Vecter等）でAccessの蔵書目録DBを探す。

個人的には書籍の購入をすすめます。
探せば蔵書目録系のDBサンプル付きのがあると思う。

149 ：126：03/05/15 13:49

何度もすみません。
>>138さんの

蔵書テーブル
蔵書ID, 書名, フリガナ, 対象者ID, カラー

対象者テーブル
対象者ID, 対象

蔵書クエリ
SELECT 蔵書テーブル.*, 対象テーブル.対象
FROM 蔵書テーブル LEFT JOIN 対象テーブル ON 蔵書テーブル.対象ID = 対象テーブル.対象ID;

↑ここまでをもういっぺんやり直しました。
蔵書登録フォーム
レコードソース：蔵書クエリ
ここをどうも間違えていた
（コントロールソースのところでむりやりしていました）模様だったんですが、
どうやったらいいのか分かりません。
ド厨房で申し訳ないです、教えて下さい。

150 ：名無しさん＠そうだ選挙にいこう：03/05/15 14:47

＞１４９
まず日本語勉強した方がいいんじゃない？
その書き方では全然わけわからん。

とりあえずもう少し基礎を勉強してから出直しといで。
ネットでも探せばいくつも初心者向けのサイトあるから。

151 ：名無しさん＠そうだ選挙にいこう：03/05/15 16:53

>>150
お前になんか聞いてない。偉そうに何様のつもりだ。
内容のあるコメントが出来ないなら発言するな。死ね。

152 ：名無しさん＠そうだ選挙にいこう：03/05/15 16:55

>>151
ここで、つまんない煽りを入れるなよ・・・・

153 ：動画直リン：03/05/15 17:14

154 ：名無しさん＠そうだ選挙にいこう：03/05/15 17:21

なんでもいいが、

>対象者テーブル
>対象者ID, 対象
と
>SELECT 蔵書テーブル.*, 対象テーブル
>FROM 蔵書テーブル LEFT JOIN 対象テーブル ON 蔵書テーブル.対象ID = 対象テーブル.対象ID;

でテーブル名称もフィールド名も違うが・・・・・・・・

まさか、それでうまくいってないなんて事はないよな・・・・
まさかな。単なるうち間違いだよな。
そんなことあるはず無いよな。

155 ：名無しさん＠そうだ選挙にいこう：03/05/15 18:28

過労死させられても反抗すらできない民族、それが日本人。
どうすりゃいいの？
　　　　　　∪ / ﾉ
　 | ｜| 　　ミ　　　 / 　　　　　　|　　　　　　ヽ　　　　　　　/ / /
　ヽ_)_)　　　　∧/∧　　　　　　　|　　　　　　　∧ヽ∧　彡　　しl_ﾉ
　　　　　　　　（ / ⌒ヽ　　　　　　　|　　　　　　（ / ⌒ヽ
　　　　　　　　　| | 　　|　　ミ　　∧ |∧　　彡　　| | 　　|
　　　　　　　　　∪ / ﾉ　　　　　（ / ⌒ヽ　　　　 ∪ / ﾉ
　　　　　　　　　 | ｜| 　　　　　| | 　　| 　　　　 / / /
　　　　　　　　　ヽ_)_)　　　　　　∪ / ﾉ　　　　　しl_ﾉ
　　　　　　　　　　　　　　　　　　　| ｜|
　　　　　　　　　　　　　　　　　　　∪∪
日本ロジテム（みずほの融資先）の子会社せいも素（みずほの融資先）で
サービス残業させすぎによる過労で自殺者が出た。
http://www.samos.co.jp
http://society.2ch.net/test/read.cgi/traf/1046749189/l50
http://tmp.2ch.net/test/read.cgi/company/1046775680/l50

156 ：139：03/05/15 19:38

これは入力ミスですねぇ。>>126さん、すまそ
「対象」と「対象者」が混在しているので、どちらかに統一してくれ

157 ：名無しさん＠そうだ選挙にいこう：03/05/15 19:57

んで、結局>>126を実現する方法となると、

サブフォームを作るか、Afterupdateにイベントをつける位しか思い浮かばんな。
どっちにしても、ちょっとは勉強が必要。

158 ：名無しさん＠そうだ選挙にいこう：03/05/15 20:43

>>157
いや、139でいいんじゃないの？　要するに親と子が項目IDで連結されてる場合、

SELECT 親.ID, 子.名前
FROM 親 LEFT JOIN 子 ON 親.ID = 子.ID;

という事でしょ？　それとも違う事がやりたいのかな？　何にせよ126の書き方の
解りにくさが、要らぬ混乱を招いている気がする。

159 ：名無しさん＠そうだ選挙にいこう：03/05/15 21:05

ご質問です。
アクセス2000をWinXPで使用しています。
フォームの中でWeb上の画像を表示させたいのですが可能でしょうか？
「イメージ」というコントロールのパスのところにURLを打ち込んだらダメでした。
jpegだけなのでHTMLまで表示する必要はないのですが・・・・。

よろしくおねがいいたします。

160 ：名無しさん＠そうだ選挙にいこう：03/05/15 23:38

ACCESS２００を使って画像データベースを作ろうと思ってるんですが、
画像データをデータベース内に埋め込もうとするとめちゃくちゃ容量がでかくなって
困っています。
画像データをデータベース内にほどよいサイズで収めるにはどうしたら
いいのでしょうか？

161 ：名無しさん＠そうだ選挙にいこう：03/05/16 00:10

>>160
データベースにはパスだけ記録して、
画像はファイルで持っておく。

162 ：名無しさん＠そうだ選挙にいこう：03/05/16 01:25

>>159
Webブラウザコントロール使え

163 ：126：03/05/16 09:12

すみません。日本語もまだ勉強中なもので。

登録用のフォームで対象者IDに番号をいれると、対象者の欄に自動的に対象者がでるようにしたい
ということで、クエリを教えていただきました。
そして教えていただいたやり方で登録フォームまでは作れました。
ところが、フォームで実際にIDを入力しようとすると、IDの欄に数字を入力できないんです。
下にエラーメッセージで「入力はできません」って出るんです。

素人用のアクセススレがあるのを先程発見しました。
ほんとだったらそちらで教えてもらうべきだったんですね。申し訳ないです。

164 ：動画直リン：03/05/16 09:14

165 ：名無しさん＠そうだ選挙にいこう：03/05/16 10:10

ACCESS2000を使ってます。
タイトルバーの色を変更することは可能ですか？
通常より濃い青とかにしたいのですが。

166 ：名無しさん＠そうだ選挙にいこう：03/05/16 10:25

ここ？
http://www.dvd01.hamstar.jp/

167 ：名無しさん＠そうだ選挙にいこう：03/05/16 10:35

>>163
あのさ、本当に基礎の部分からもう一度勉強した方がいいと思う。
意地悪とかアオリとかそういうのじゃないよ。
自分に合ったテキスト買うとか、初心者向けのAccessサイト見るとかいろいろ方法はある。
そういうものなら絶対データ入力フォームの作り方の基礎が載ってるから。

>>165
Accessだけっていうのは無理だと思う。

168 ：165：03/05/16 10:40

>>167
サンキュです。点滅させる程度で我慢しますねｗ

169 ：133：03/05/16 13:10

>>145
>SQL1 相関副問い合わせ（相関サブクエリー）
>SQL2 副問い合わせ（サブクエリー）

correlated subqueryってやつと
subqueryってやつのことですね。

>>どちらも式としては正しいけれども求めようとしている結果は違う。
>>・SQL1のサブクエリーはPARTNUM毎の平均値を順番に返す
>>・SQL2のサブクエリーは結合表全体の総平均値を１回だけ返す
>>当然メインクエリーにおける条件式の評価は異なるわけだが。

>>今回は"たまたま"結果が同じになっただけだろう。
>>もっと試行錯誤して理解を深めることが必要。

たまたま同じになったことがわかっただけでも
私には十分な収穫です。ありがとうございました。

ちなみに参考にしているのはsamsの
theach yourself SQL in 21 daysってやつです。
実は列名もそのまま。
指摘された内容を頭において、もう一回
読んでみます。

170 ：動画直リン：03/05/16 13:14

171 ：名無しさん＠そうだ選挙にいこう：03/05/16 21:00

ACCESS2000形式のMDBを、ACCESS2002でMDEに変換出来ないんですが無理でしょうか。

172 ：名無しさん＠そうだ選挙にいこう：03/05/17 07:14

2002形式に変換してからやればいいじゃん　

173 ：171：03/05/17 09:36

2000でも使用しないといけないので、2002への変換は行いたくなくて‥
さらに同じファイルを、2000でMDE変換しようとしましたが、出来なくなってしまいました。
2000形式のファイルでも2002で更新＆最適化すると、影響を受けるんでしょうか？

174 ：名無しさん＠そうだ選挙にいこう：03/05/17 12:17

フォームの事についてお聞きします。Access2002です。

テキストボックスへのEnterの空打ちでフォームが閉じるように
したいのですが、テキストのフォーカス喪失時イベントで

Private Sub フォーム1_Exit(Cancel As Integer)

If IsNull(Me!テキスト0) Then
docmd.close
End If

End Sub

と書き込んだのですが
エラー2585
フォームイベントまたはレポートイベントを処理しているときは、
このアクションを実行できません。

と出てフォームを閉じる事が出来ません。
回避する方法を教えてください。
よろしくお願いします。

175 ：動画直リン：03/05/17 13:12

176 ：名無しさん＠そうだ選挙にいこう：03/05/17 22:06

仕様は
> テキストボックスへのEnterの空打ちでフォームが閉じるように
なのにコーディングしようとしているのは
> テキストのフォーカス喪失時イベントで
ところがコードは
> Private Sub フォーム1_Exit(Cancel As Integer)

君はいったい何がしたいのか？

177 ：名無しさん＠そうだ選挙にいこう：03/05/18 01:47

初めまして、Access2000 or 2002で顧客管理を行っております。
それに加えて、下記のようなスケジューラ機能を追加したいのですがわかりませんでした。

Googleで検索してみても、Web+イントラネットで共有という形では見つけたのですが
ローカルで行う方法が分かりません。

よろしければアドバイスを頂けないでしょうか。

使用例：
顧客管理をAccessで行っており、葉書を出す、振り込みなどのメッセージを
設定した日付になったら使用者へ自動的に知らせてくれる（メール若しくは画面にポップ＋音）機能

178 ：名無しさん＠そうだ選挙にいこう：03/05/18 07:47

やっぱり解散して欲しいなあ

179 ：名無しさん＠そうだ選挙にいこう：03/05/18 10:08

>>177
日付だけの管理だったら、データベースの起動時に時刻と
設定日の比較をしてメッセージを出すとかでだめかな？

これだと、起動しないと教えてくれないけど・・・

180 ：名無しさん＠そうだ選挙にいこう：03/05/18 16:26

>>177
access とぜんぜん関係ないけど、Becky! というメーラーには
その機能がついてます。リマインダーという機能です。

181 ：名無しさん＠そうだ選挙にいこう：03/05/18 17:40

>>177
メール送信は顧客管理とは別プログラムにするのがお勧め。

Windowsのタスクを使って毎日定時にアプリを起動(スタートアップでもよいかな)
アプリは起動したらシステム日付でデータベースをチェック、
必要があればメールを送信して終了。送信するデータが無ければそのまま終了。
メールの送信はOutlook(Expressじゃない)をVBAでコントロールするか
BASP21.DLLを使うのが簡単です。

または、顧客管理を起動時にチェックして一覧をフォームに表示。
メールボタンやハガキ印刷ボタンを使って実行する。
データが無ければフォームは表示しない。

182 ：名無しさん＠そうだ選挙にいこう：03/05/18 21:56

>>181
AccessでBASP21使って作ってる人いるね。
vectorで見かけた（ｗ

183 ：177：03/05/19 00:23

179-182様
丁重なお答え、ありがとうございました。

>179様、181様
Access単体では、この方法が良さそうですね。

また、ソフトウェア設計方針とBASP21.DLLという素晴らしいソフトの存在を示唆していただき
感謝の限りです。

ただ、私のスキルではVBAが理解できていない状態ですので、181様のアドバイスに従った
ソフトの開発を目標に学習していきたいと思います。

>180様
Beckyのリマインダー機能というのは盲点でした。
顧客DBに載せられない情報の管理を、このソフトで行いたいと思います。

>181様
Vector他、Webアプリケーション方面で作成されている方が居られますね。
グループウェアの導入も視野に入れて、検討してみます。

皆様のアドバイスを元に、上司と検討して今後の方針とさせてもらいます。
重ね重ねではありますが、本当にありがとうございました。

184 ：動画直リン：03/05/19 01:12

185 ：_：03/05/19 01:39

186 ：名無しさん＠そうだ選挙にいこう：03/05/19 10:13

Access2000での質問です。
ローカルネットワーク経由でテーブルをリンクしたんですが、そのテーブルを
開こうとすると「パスは正しくありません。」と表示されてしまいます。

元のAccessファイルの置いてあるのPCは
WinXP pro で、Access2002が入っていますが、
ファイル形式は2000に設定してあります。

覗きにいくPCはWin2K pro で、ネットワーク接続は
正しくできており、テーブルをリンクしたりインポートする
場合には問題なくできています。
どなたかわかる方がいましたら教えてください。

187 ：名無しさん＠そうだ選挙にいこう：03/05/19 10:19

Access2000です。
作成したアプリケーションの起動時にメニューバーやタイトルバーを
非表示にする事ってできますか？

188 ：正義の味方＠そうだ献血にいこう：03/05/19 12:20

>>187　起動時の設定！
この手の質問はどんなもんかな・・・。

189 ：187：03/05/19 13:42

>>188
マジｽﾏｿ
タイトルバーも消せるんでつか？

190 ：名無しさん＠そうだ選挙にいこう：03/05/19 13:58

本気ですまんと思うならなんで自分で調べないかな。

191 ：187：03/05/19 14:07

自分で調べて解決してたら書き込みなんかしてませんよ。
わからなくて残念だから聞いてみたんですけど
そんなのもだめですか。
総合相談所が相談に乗らないとは思いませんでしたさよなら

192 ：186：03/05/19 14:28

解決しました。
アクセスの問題ではなく、共有フォルダの設定の問題でした。
失礼しました。

ところで、自分でも調べつつ、質問はとりあえず振っておく
っていうスタンスがいいんじゃないでしょうか。
2chだという前提を理解していないと。

193 ：名無しさん＠そうだ選挙にいこう：03/05/19 14:59

(；´Д`)ﾊｧﾊｧ
http://homepage3.nifty.com/coco-nut/

194 ：bloom：03/05/19 15:12

195 ：正義の味方＠そうだ献血にいこう：03/05/19 15:55

>>189
>>タイトルバーも消せるんでつか？

折れの実力じゃ、ちと無理！
精々タイトル名変更かアイコン変更ぐらいしか・・・。

おーい誰か！

196 ：名無しさん＠そうだ選挙にいこう：03/05/19 16:14

んー？パス。
次の人どうぞ。

197 ：名無しさん＠そうだ選挙にいこう：03/05/19 16:58

>>187
ここを参考にして自分で試せ
http://www.twin.ne.jp/~sweep/lesson/011.htm

198 ：名無しさん＠そうだ選挙にいこう：03/05/19 17:02

>>195
インチキ技だが、タイトルバーの高さ分だけ欠ける位置とサイズに合せた
リージョンを作る、という手段も考えられなくはない。

199 ：名無しさん＠そうだ選挙にいこう：03/05/19 17:05

>>187
VB.NETやC#で作れ
すげぇ簡単

200 ：名無しさん＠そうだ選挙にいこう：03/05/19 17:21

>>197
こっちだな
http://www.twin.ne.jp/~sweep/lesson/003.htm

201 ：187：03/05/19 17:59

>>195-200
帰宅前にもう一度見てみたらたくさんのご返答！
ありがとうございます。
明日いろいろとやってみることにします、
親切に教えてくださいましてありがとうございました。感動しました。

202 ：名無しさん@そうだ選挙にいこう：03/05/20 14:01

データ用mdbと作業用mdbがあります。(Win2000とAccessXPを使用)

データ用mdbのテーブルに仕訳データを格納しているのですが
通番フィールドにオートナンバー型を使用してます。
現在インデックスは「はい(重複あり)」となってます。

※通番フィールドはレポート出力時に使用してます。
　他にサーチ用のナンバー(伝票番号+行)も振ってあるのですが、同日内で必ずしも若いサーチ用のナンバーが先
　ということでなく、入力順でソートしたいため通番フィールドを設けています。

作業用mdbにも同型のテーブルがあり、こちらにも通番フィールドを持っています。
ただ、こちらは入力したデータをリンクテーブル(データ用mdb)に追加クエリで追加後、データは
リセット(削除)しています。

作業用mdbからデータを修正する場合はリンクテーブル(データ用mdb)から一時格納テーブル(通番フィールドあり
但し、インデックスは「いいえ」)にデータを持ってきて修正後そのままリンクテーブル(データ用mdb)にかえしてます。
返すときに「サーチ用のナンバー」を利用してリンクテーブル(データ用mdb)のデータは先に削除してます。

Access97の時は特に問題なく行っていたのですがXPにしてからリンクテーブル(データ用mdb)の通番フィールドが
重複するようになってしまいました。
当然、インデックスは「はい(重複あり)」なのであり得ないことではないのですが、何故97時は起こらなくて、XPにして
から起こるようになったのか教えていただきたく思います。
また、インデックスを「はい(重複なし)」にすると修正処理ができなくなってしまいます。

PS:最適化/修復およびカラmdbにテーブルのインポートは行ってみましたが改善されませんでした。

203 ：名無しさん＠そうだ選挙にいこう：03/05/20 14:07

Access97を使用しております。

メニューにオリジナルのICONを表示したいのですが、
ボタンエディタで編集時にオリジナルのICONを取り込む方法
はないでしょうか？

204 ：正義の味方＠そうだ献血にいこう：03/05/20 14:57

>>203

コマンドボタンウイザードのピクチャのところにきたら
右上に参照のボタンがあるからそこからオリジナルアイコンを
使ってチョーダイ。

205 ：bloom：03/05/20 15:12

http://yahooo.s2.x-beat.com/linkvp/linkvp.html

206 ：名無しさん＠そうだ選挙にいこう：03/05/20 15:25

>>202
DAOからADOへの移行作業はしてる？

207 ：202：03/05/20 15:34

>>206
レスどうもです。
特にVBAで処理しているのではないのですが…
> DAOからADOへの移行作業はしてる？
とは？どのようなことを行うのでしょうか？

208 ：名無しさん＠そうだ選挙にいこう：03/05/20 15:53

209 ：名無しさん＠そうだ選挙にいこう：03/05/20 17:08

>>204
レスありがとうございます。

が、、ボタンのアイコンではなく、メニューのアイコンなのですが、、、
ほんとに使えないメニュー用のボタンしかデフォルトで用意されたな
いので。。。

210 ：動画直リン：03/05/20 17:12

211 ：名無しさん＠そうだ選挙にいこう：03/05/20 17:23

>>207
コードの書き換えなんだが、
手動とは思わなかったので、
このケースでは関係ないね。

忘れてくれ・・

212 ：名無しさん＠そうだ選挙にいこう：03/05/20 17:30

>>203
ユーザー設定のメニューバーでアイコン編集するときの話ですよね
だったら、アイコンを右クリックして「ボタンイメージの貼り付け」

213 ：名無しさん＠そうだ選挙にいこう：03/05/20 17:42

>>212
レスありがとうございます。
なにげに気がつきませんでした。

こんな方法しかないとは・・・・
ありがとうございました。

214 ：名無しさん＠そうだ選挙にいこう：03/05/20 20:16

Access97の質問です。

DoCmd.TransferTextでカンマ区切りのテキストファイルを
テーブルにインポートするのですが、フィールド名の設定をFALSEにしていても
ファイルの1行目をインポートしてくれないんですけど、
これはどういうことでしょうか？

215 ：名無しさん＠そうだ選挙にいこう：03/05/20 21:37

1つのテーブル（約30フィールド）をそのままデータビュー又はレポートで
表示したんですが、このときフォームにつけたコンボボックス乃至リストボックスにて
指定したフィールドで昇順にする。かつその指定したフィールドを一番左に表示させる。
こういう場合はやっぱり30通りのクエリを用意しとかないと駄目ですか？

216 ：215：03/05/20 21:42

スレルールでOSとACCESSのバージョンを明記しておかないといけないのですね。
一応作成段階ではOSはXP、ACCESSは2000を使っております。

217 ：名無しさん＠そうだ選挙にいこう：03/05/20 21:59

>>215,216
もう、ちょっと動作の状況を限定してもらわないと、
有効なレスはつかないと思います。

VBAでの操作を想定してるのか、
手動の作業なのかでも答えは違ってくるので・・・

別に30通りのクエリを用意するのも、
間違った答えではないのですが・・

218 ：215：03/05/20 22:35

>217
一応自分が考えているのはフォームから取得したフィールド名より
30通りのクエリから対応したものを開けばいいのかなと思っていたのですが、
ほかにもっとシンプルな方法があるのかなと思いまして。
excelのVBAなら頻繁に使っていますがAccessのVBAは使ったことがなく自信がないので、
VBAでの操作は今のところ想定していないです。
言葉足らずの質問にレスいただきどうもでした。

219 ：名無しさん＠そうだ選挙にいこう：03/05/20 22:42

>>218
VBAコードで操作するなら
実行のたびにクエリを生成するのが
常道かと・・・・・

手動でということであれば、
30通りのクエリも正解、
その都度クエリのデザインを変更するのも正解
クエリはひとつでフィルタを使うのも正解・・・・・

理解しやすいのを使えば問題ないです

220 ：名無しさん＠そうだ選挙にいこう：03/05/21 00:26

>>219
そんなものより、フォームフィルタ・フォーム並び替えだろ。
余計な手間かけて、糞コード吐き出すﾔｼ大杉。

221 ：215：03/05/21 00:34

そもそもこの質問に回答レスがつくと思っていなかったです。
レスがつくにしてもなんでそんな処理が必要なのかとツッコミや
煽りがつくだろうなと思ってました。

222 ：名無しさん＠そうだ選挙にいこう：03/05/21 00:36

>>221
>そもそもこの質問に回答レスがつくと思っていなかったです。

勘弁してくれ・・・・・
雑談スレ池・・・

223 ：◇◇：03/05/21 11:25

Win98SEでAccess97を使用しています。
急に全てのレポートが、真っ白に印刷されるようになりました。
（罫線は出力されます）
アンインスト、インストをしても直りません。
レジストリを削除すればいいとの情報を得ましたが、具体的にどこを削除すればいいかわかりません。
アドバイスを宜しくお願いします。

224 ：正義の味方＠そうだ献血にいこう：03/05/21 13:26

>>214
そんなことはない！

例.テーブル名；test　データ名：test.txt　ｲﾝﾎﾟｰﾄ定義：なし
　DoCmd.TransferText acImportDelim, , "test", "c:\windows\ﾃﾞｽｸﾄｯﾌﾟ\test.txt"

ためしてみてね！！

225 ：かおりん祭り：03/05/21 13:35

226 ：名無しさん＠そうだ選挙にいこう：03/05/22 00:30

現在使用中のアクセスが
ランタイム版かどうかVBAで調べるにはどうしたらいいですか？
(ランタイム版かどうかで処理を分岐したいんです。)

227 ：名無しさん＠そうだ選挙にいこう：03/05/22 00:46

>>226
なんでそんな処理が必要なんだろう？

228 ：山崎渉：03/05/22 01:44

━―━―━―━―━―━―━―━―━[JR山崎駅（＾＾）]━―━―━―━―━―━―━―━―━―

229 ：名無しさん＠そうだ選挙にいこう：03/05/22 02:38

>>227
フォームやレポートをデザインモードで開いて設定を行いたいからです。

230 ：名無しさん＠そうだ選挙にいこう：03/05/22 02:48

特定の文字を含む場合のフィルタを全体のデータに対して
かけたいのですが、何かいい方法ありませんか？

例えば、

　名前　　　住所.　　　　学校
1:長野　　　松本市　　　いんもう高校
2:松本　　　大阪市　　　でんねん中学
3:大阪　　　名古屋　　　おでん小学校
4:山崎　　　( ^^ ).　　　　あぼん幼稚園
5:おでん　　いんもう　　あぼん

で「松本」なら1,2が表示、「大阪」だったら2,3
「おでん」なら3,5、「あぼん」なら4,5

のようにしたいのですが上手くできません。
複数のフィールドにor条件でフィルタすればいいんでしょうか・・・

231 ：名無しさん＠そうだ選挙にいこう：03/05/22 02:58

>>230
説明が面倒なので、下のSQL文をクエリのSQLビューに貼り付けてくれ
その後デザインビューで見ればわかるから

SELECT table1.名前, table1.住所, table1.学校
FROM table1
WHERE (((table1.名前) Like "*松本*")) OR (((table1.住所) Like "*松本*")) OR (((table1.学校) Like "*松本*"));

232 ：bloom：03/05/22 03:12

http://homepage.mac.com/hiroyuki43/index.html

233 ：名無しさん＠そうだ選挙にいこう：03/05/22 03:22

AccessのVBAエディターで
Date() と書くと、Date に直されますよね
でも、Now() は直されない。
単純な実験で、たとえばMsgBoxで実行してみると、NowでもNow()でも
ちゃんと答えてくれる。

この違いって、何なんでしょう。
コード中に、()の有るものと無いものが混在している状態って、
もしかして何かまずかったりしますか?

234 ：名無しさん＠そうだ選挙にいこう：03/05/22 03:23

>>231
何となくですが分かりました。
これをヒントにまたちょっと頑張ってみます。

どうもありがとうございました。

235 ：あわび：03/05/22 04:35

☆オススメ！　カワイイ女の子満載のＨサイト☆　～二日間だけ無料です～
http://jbbs.shitaraba.com/music/2460/ranran77777.html

236 ：230：03/05/22 04:37

>>231
完璧にできました。
すごいありがとー！

237 ：名無しさん＠そうだ選挙にいこう：03/05/22 19:02

大学にあるPCにアクセス97がインストールされているんですが、
ヤフオクなどで探したところ、97の入手が困難のようです。
そこで2002買おうと思ってるんですが、
自宅のPCで2002で作業し、97に変換して学校に持って行って続きの作業、
自宅に持ち帰って2002に変換して作業・・・、
こう考えてるんですけど、データの互換性のことで何か問題起きますか？

238 ：名無しさん＠そうだ選挙にいこう：03/05/22 20:09

97形式のまま使えばとりあえずデータの互換性は問題ない

ただコードの互換性まではチェックされない

239 ：237：03/05/22 20:26

>>238
2002固有の機能を意識的に使わないようにすれば大丈夫でしょうか？

240 ：名無しさん＠そうだ選挙にいこう：03/05/22 20:44

ネット上で自分の分身キャラ「アバター」を作って楽しくコミュニケーション
無料登録すると、もれなく商品券とメールアドレスが貰えます！！
http://f15.aaacafe.ne.jp/~suikas/cafe.html

241 ：名無しさん＠そうだ選挙にいこう：03/05/22 22:59

エクスポート機能とインポート機能をVBAで実装したいのですが、
機能自体はなんなく実装できたのですが、
エクスポートされてからインポートされるまでに
出力されたエクセルファイルがユーザーの
手によってなんらかの変更を加えられ、
インポート時にエラーがでるのを防げる方法が思いつきません。
地道にインポート前にフィールドごとにチェックするしかないのでしょうか？
フィールド数、レコード数が多いので、
出来る限り簡単にしたいのですが、
定石やいい案あれば教えてもらえませんか？

242 ：名無しさん＠そうだ選挙にいこう：03/05/23 00:22

>>241
Excelを使わないで、mdbファイルで配布する。
これなら入力チェックできるでしょ。
ユーザーのPCにAccessが無いならRuntime使え。

> 地道にインポート前にフィールドごとにチェックするしかないのでしょうか？
Excelにこだわるなら、それしかないのでは

243 ：名無しさん＠そうだ選挙にいこう：03/05/23 00:33

インポートエラーを防ぐという発想がそもそも違う気がするな。

インポート前にフィールドごとにチェックするという処理をした結果がインポート
エラーなわけだから。

まあ防ぐだけならデータ型を全部テキストで重複ありにすればエラーが出る
事はほとんど無いだろうけど、そんなデータを望んでいるはずもないだろうし。

244 ：名無しさん＠そうだ選挙にいこう：03/05/23 00:47

旧バージョンのアクセスファイルを変換せずに読み込んだ場合、
データベースオブジェクトのデザインの変更はできないと本に書いてあったんですけど、
レコードの追加だけならできるんでしょうか？

245 ：241：03/05/23 01:11

>242-243>244
わかりました。
はやり地道にエラーチェックするしかないんですね。
納期が近く、お金もこれ以上でない状態なので
甘ったれてました。
休日は涙を飲んで諦めます。
ありがとうございました～

246 ：名無しさん＠そうだ選挙にいこう：03/05/23 03:31

244を読んで思い出した。

>>237
97形式のままじゃやっぱ駄目だ。理由は244の通り。

>>244
エンドユーザーレベルの運用は問題なく出来る。出来ないのはオブジェクトの
新規作成や、テーブル、クエリ以外のオブジェクトの更新など。

247 ：_：03/05/23 04:52

248 ：名無しさん＠そうだ選挙にいこう：03/05/23 06:34

●～精子
http://homepage3.nifty.com/coco-nut/

249 ：名無しさん＠そうだ選挙にいこう：03/05/23 09:15

>>244
変換すりゃいいだけのことだろ？

漏れは、未だAccess97をメインで使用しているが、
ﾃｰﾌﾞﾙと本体分離して、ﾃｰﾌﾞﾙは97形式のまま。

2000/XP使用時は、本体だけ2000形式に変換し使用
しているが、データの互換性に全く問題はない。

250 ：_：03/05/23 10:06

http://homepage.mac.com/hiroyuki43/jaz_b.html

251 ：名無しさん＠そうだ選挙にいこう：03/05/23 11:48

Access2002を使用しています。
強制終了してしまったとき、ファイル名がデフォルトのdb1.mdbに
なってしまうことがあるのですが、どうしてなんでしょうか？
ファイル名を変更するような処理は行っていないので、
Access自体の機能（？）だと思うのですが・・・。
どなたかご存知のかたいらっしゃいますか？

252 ：名無しさん＠そうだ選挙にいこう：03/05/23 12:19

>>251
オプションで「閉じる時に最適化」がONになっているのでは？
で、強制終了時最適化処理が途中で終わってしまったとか…
（最適化っていったんdb1.mdbにリネームが行われてますよね？）

253 ：名無しさん＠そうだ選挙にいこう：03/05/23 12:29

はい、最適化しています！
じゃあ最適化しないようにするか、出来るだけ強制終了に
ならないようにするしかないんでしょうか・・・

254 ：名無しさん＠そうだ選挙にいこう：03/05/23 12:55

>>253
このスレの>>100-118を読んだ？

255 ：名無しさん＠そうだ選挙にいこう：03/05/23 13:21

>>254

ありがとうございます。
いろいろやってみます。

256 ：_：03/05/23 13:55

http://homepage.mac.com/hiroyuki43/index.html

257 ：214：03/05/23 15:17

>>224
返事が遅れて申し訳ありません。

一応、そのとおりというかインポート定義等付け加えて実行してみたのですが
やはり上手く行きませんでした。とりあえず、対処療法として読み込むファイル全てに
1行目にダミーデータを差し込むことにしました。
いろいろありがとうございました。

258 ：名無しさん＠そうだ選挙にいこう：03/05/24 12:34

2002で、97を変換しないまま読み込んだときにクエリーやフォームの新規作成はできますか？
それと2002⇔97形式の変換は何度もやっても大丈夫でしょうか？

259 ：名無しさん＠そうだ選挙にいこう：03/05/24 16:56

>>258
＞2002で、97を変換しないまま読み込んだときにクエリーやフォームの新規作成はできますか？

できない

＞それと2002⇔97形式の変換は何度もやっても大丈夫でしょうか？

基本的には大丈夫。

260 ：名無しさん＠そうだ選挙にいこう：03/05/24 19:08

最近Access2000を使ってる小さな会社の初心者OLです。
フォームでデータを入力していると、50名か60名くらいになると
突然最後に登録したデータ-がトップに出てくるのです。
オートナンバーはそれなりのナンバーになっているはずなのに。

ところが同じデータ-を「テーブル」でみると、オートナンバーのところは
61, 62, 63, 1, 2, 3, ・・・のようになっているのです。
一体どうしてなんでしょう～？？　
なにか原因に心当たりはございませんでしょうか…OSはWin98です。

261 ：名無しさん＠そうだ選挙にいこう：03/05/24 21:11

>>260
単に並び方の問題では？OrderByはどうなっている？

262 ：名無しさん＠そうだ選挙にいこう：03/05/24 21:48

>260

私のところでも、同じ症状はでています。
でも、フォームのレコードソースを並べ替えをしたクエリにすればフォームとしては問題ないので
とりあえず無視しています。

原因を知りたいんでしたら役立たずで申し訳ないですけどね。

263 ：名無しさん＠そうだ選挙にいこう：03/05/24 22:41

XPで2000を使用しています。
あて名データでカスタマーバーコードフィールドを追加したのですが
いちいち住所データをワンクリックしてからスペースを打ち込まないと
生成できません。
マクロだかアクションクエリだかで一発生成する手立てはないでしょうか。
あるいはexcelで生成してからインポートするとか。
よろしくお願いいたします。

264 ：名無しさん＠そうだ選挙にいこう：03/05/24 22:54

>>260-262
データベースはそういうものだよ。
Excel と違って入力の順番にレコードが並ぶわけじゃない。
基本的にデータベース中の順番は無茶苦茶になってるので、データを取り出す時に Order By とかで自分の欲しい順番に並ぶようにする。
>>260 の人なら、オートナンバーのフィールドでソートすればいいだけ。

265 ：261です。：03/05/25 03:36

>>261,262,264
お返事ありがとうごさいました。

0rder By…今まで考えたこともなかったです。
ちょっと単語の意味も知らなかったので
（とりあえずヘルプで確認しました）
月曜日に会社で、本とヘルプを片手にやってみます。

自分で色々やって、またわからなくなったらきます。

>>264 わかりやすく教えて下さってありがとうございました。
　　　なんか私でもできそうな気がします。

266 ：名無しさん＠そうだ選挙にいこう：03/05/25 04:40

>>265
ｶﾞﾝｶﾞﾚ

267 ：名無しさん＠そうだ選挙にいこう：03/05/25 22:54

教えて君ですいません･･･
Access2000のクエリーで抽出したデータを、Word2000で
差込印刷したいんですが、テキストデータは問題なく表示されるんですけど
画像データが取得できません。
どうにかする方法をご教授くださいませ

268 ：名無しさん＠そうだ選挙にいこう：03/05/25 22:57

win98とwin2000でAccess2000を使っている初心者です。

Switch([種類]="A",1,[種類]="B",2)

だと正しい結果が返ってくるのですが、

Switch([種類]="A",1,[種類]=Not "A",2)
Switch([種類]="A",1,[種類]="B" Or "C",2)

だと上はA以外の値が返ってこず（空白）、下はB・C以外の条件でも「2」と返ってきます。
解説書では「Not」も「Or」も使われているのですが、上の記述に何か間違いがあるのでしょうか？

269 ：名無しさん＠そうだ選挙にいこう：03/05/25 23:16

>>268
Switch([種類]="A",1,Switch([種類]=Not "A",2))
Switch([種類]="A",1,Switch(Or([種類]="B" , [種類]="C"),2))

でどう？
まぁ、この式自体は
あんましスマートな解決法では無いんだが・・

270 ：名無しさん＠そうだ選挙にいこう：03/05/25 23:21

http://elife.fam.cx/

271 ：名無しさん＠そうだ選挙にいこう：03/05/26 00:12

>>268
条件式の文法が違うような気がする。
1番目のほうは Switch([種類]="A",1,Not([種類]= "A"),2)
2番目は，
　Switch([種類]="A",1,([種類]="B") Or ([種類]="C"),2)
だとどうでしょうか。

272 ：268：03/05/26 00:55

>>269,271
お二方とも、素早い回答をありがとうございます。

>>269の書き方では「指定した式の構文が不正です」とのエラーが出ました。
>>271では問題なく要求した値が返ってきました。こちらを使わせていただきます。

273 ：名無しさん＠そうだ選挙にいこう：03/05/26 22:20

「１２３」「４５６」とフィールドサイズ３文字の二個のテキストボック
スに入力しようとするとき、１２３４５６とリターンキーを押さず一気に
キーを叩いても、「１２３」「４５６」と二個のテキストボックスに分か
れて入力されるようにしたいのですが、どのようにすれば可能でしょうか。
どなたかご教示ください。

274 ：名無しさん＠そうだ選挙にいこう：03/05/26 22:27

検索フォームの条件指定にコンボボックスまたはリストボックスを使用したいのですが、
これに表示させる値集合タイプにテーブル/クエリと値リストを共存させることは可能でしょうか？
メインの値はクエリからなのですが、これプラス"条件指定なし"という値も入れたいのですが。

275 ：名無しさん＠そうだ選挙にいこう：03/05/26 23:04

>>273
自動タブを使えば3文字入力後、次のテキストボックスに飛ぶと思うけど

>>274
「条件指定なし」というのがよくわからないけど、
単に入力チェック=いいえではだめなのかな？

そうじゃなければ、値リストにしたコンボに、

dim myRS as new adodb.recordset
dim tmp as string
myrs.open talbe1,application.currentporject.connection
tmp=myrs.getstring(, , ",", ";")
tmp=tmp&"aaa,bbb;ccc,ddd;"
me.combobox1.rowsource=tmp

で入れるとか、どう？

276 ：名無しさん＠そうだ選挙にいこう：03/05/26 23:08

>>275
うわっ。スペルミスが2カ所も！
tblbe1→table1
currentporject→currentproject

やっぱりブラウザーに直うちすると、ミスするな

277 ：274：03/05/26 23:12

>275
レスありがとうございます。
間違えました。ただしくは検索ではなくこのコンボボックスより取得した値をキーに
パラメータクエリを開きたいです。
コンボボックスにテーブル/クエリで値を表示させそれとは別に全レコード取得用に
"条件指定なし"（文面は何でもよいのですが）を一緒に表示させておきたいのですが。

278 ：名無しさん＠そうだ選挙にいこう：03/05/26 23:18

>>277
ユニオンクエリ

279 ：名無しさん＠そうだ選挙にいこう：03/05/26 23:28

>>277
"条件指定なし"って表示させるのは簡単だけど、
パラメータクエリで全レコード表示させる方が難しいと思うけど。
俺が知らないだけか？

280 ：274：03/05/27 00:13

>>277
初めて聞く言葉です。調べてみます。
>>279
実はそこも迷っているんですよね（汗。
一応今はパラメータクエリと全レコード表示の選択クエリの2つを用意して
"条件指定なし"の場合は全レコード表示の選択クエリを開いて、
それ以外の条件が指定された場合はそれをもとにパラメータクエリを開く、
という感じで対応しています。
ところで簡単だけどってどうやればいいんですか？
もしよろしければ教えてください。

281 ：名無しさん＠そうだ選挙にいこう：03/05/27 00:22

>>280

>>275のようにVBA+ADO(orDAO)でもいいし、
>>278のように、Unionクエリでも良い。
テーブル構造が一緒ならUnionクエリは簡単だし。
Select * From table1 Union Select * From table2

282 ：名無しさん＠そうだ選挙にいこう：03/05/27 00:25

で、table1に"条件指定なし"って1行だけ入れてあればいいわけ。
（table1,table2は任意のtable/query名にしてね）

283 ：名無しさん＠そうだ選挙にいこう：03/05/27 00:30

>>282
いろいろ書いたけど、
コンボなら、Nullの場合に"条件指定なし"ってするのがふつうだと思うけど・・・。
書式に「@;"条件指定なし"」とするだけだし。

284 ：名無しさん＠そうだ選挙にいこう：03/05/27 02:59

Access2000　Win98ｓｐ　　の使用です。
春からAccessを始めたのですが、
マクロのとこで分からない部分があるのでお願いします。

フォーム内の「コマンドボタンA」を「使用可能・いいえ」に設定していて、
「チェックボックスA」にチェックを入れた場合のみ「コマンドボタンA」を使用できる
ようにしているのですが、
　　　IsNull([チェックA])　　[コマンドA].[Enabled]
「チェックボックスA」のチェックをハズした場合は「コマンドボタンA」を使用出来ない
ようにするには、IsNullやEnabledに変わる英語表記ってなんですか？

分かりずらい説明で申し訳ありませんが、指導お願いします。m(ﾏｸﾛ)m

285 ：名無しさん＠そうだ選挙にいこう：03/05/27 03:12

>>284
よく分からんが、True/Flaseってことで良いか？
なんか、外してそうだが

286 ：bloom：03/05/27 03:14

http://homepage.mac.com/hiroyuki43/moe/jaz02.html

287 ：284：03/05/27 03:36

>>285
えっと、それは式のトコにいれるやつですよね。
それではなく、使用を不可にするマクロの、
条件と値･･･と式（Flase・Trueではダメ？）が知りたいのです。

288 ：_：03/05/27 04:34

289 ：名無しさん@そうだ選挙にいこう：03/05/27 08:20

>>284
条件:コマンドボタンAのプロパティ→書式→可視→いいえ
　　　チェックボックスAのプロパティ→データ→既定値→No

Private Sub チェックボックスA_AfterUpdate()
Select Case Me.チェックボックスA
Case -1
Me.コマンドボタンA.Visible = True
Case 0
Me.コマンドボタンA.Visible = False
End Select
End Sub

または

Private Sub チェックボックスA_AfterUpdate()
If Me.チェックボックスA = -1 Then
Me.コマンドボタンA.Visible = True
Else
Me.コマンドボタンA.Visible = False
End If
End Sub

290 ：名無しさん＠そうだ選挙にいこう：03/05/27 08:42

>>289
それはマクロではないわけだが

>>284
つかあなたの条件も誤っているよ。チェックボックスに入る値はTrueかfalseだけ
だから、IsNullでは判断出来ない。

正しくはこうだ。

[チェックA]=True　[コマンドA].[Enabled]　True
[チェックA]=false　[コマンドA].[Enabled]　false

値が真か偽だけという事は、馬鹿正直に2回判断する必要は無いのだが、
例という事で一応書いてみた。

291 ：290：03/05/27 08:53

ちなみにコードを使ったインチキ臭い例としては、こんなのもある。

Private Sub チェックA_AfterUpdate()
　　Me.コマンドA.Enabled = チェックA
End Sub

292 ：動画直リン：03/05/27 09:14

http://homepage.mac.com/hiroyuki43/jaz07.html

293 ：_：03/05/27 10:58

294 ：bloom：03/05/27 11:14

http://homepage.mac.com/hiroyuki43/moe/hankaku07.html

295 ：名無しさん＠そうだ選挙にいこう：03/05/27 21:40

ACCESS2000で、データの変更履歴をとりたいのですが、参考になるページは
ありませんでしょうか？
業務中に不正終了が入った場合など、顧客情報を開いている最中の場合、
どこのお客さんかわからなくなってしまう時が良くあります。

http://www.nmt.ne.jp/~network/skyway/
ここのフリーの顧客名簿に搭載されているログ機能が理想です

よろしくお願いします。

296 ：名無しさん＠そうだ選挙にいこう：03/05/27 22:04

>>295
> 業務中に不正終了が入った場合など、顧客情報を開いている最中の場合、
> どこのお客さんかわからなくなってしまう時が良くあります。

おいおい、まず不正終了しないようにするのが先決じゃないのか ?

297 ：284：03/05/28 00:37

>>289 >>290
丁寧にありがとうございます。
さっそくためしてみます。m(__)m

あと、心配なのでファイルを複製してからいじってるのですが、
mdbファイルのCopyではなく、全てのデータをインポートして作った場合、
なぜかファイルサイズが(かなり)小さくなるのですが･･･どして？
なにかしらデータ欠けちゃってるのでしょうか？

298 ：名無しさん＠そうだ選挙にいこう：03/05/28 00:50

テーブル定義を元に見積もりを取ればわかるだろうが、1レコード1024バイト
（単純に考えれば日本語512文字）のレコードが1000件あっても、実データは1MB
でしかない。

299 ：名無しさん@そうだ選挙にいこう：03/05/28 08:15

>>297
データを削除したりした情報が裏に残っているからだと思います。
気になさらないでいいと思いますよ。
※既存のmdbも"最適化"すれば容量は小さくなる

300 ：名無しさん＠そうだ選挙にいこう：03/05/28 14:44

>>295
サイトは知らないが、BeforeUpdateイベントとして
ログ吐くコード書いておけば？
なんか、重くなりそうな予感はするが・・

まぁ、なんにせよ不正終了時には、何の保証も無いわけだが。

301 ：山崎渉：03/05/28 16:33

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

302 ：名無しさん＠そうだ選挙にいこう：03/05/28 17:01

保守

303 ：名無しさん＠混乱中：03/05/28 17:55

フォーム内の複数のレコードの中から特定のレコードの内容をそのままレポートにするにはどうすればよいのでしょうか.
あらかじめ作った雛型のレポートに個々のフォームのデータをそのまま選択して出力したいのですが。

304 ：名無しさん＠そうだ選挙にいこう：03/05/28 18:07

>>303
話が抽象的すぎです。
質問は他人が読んで判るように書きましょう。

305 ：あぼーん：03/05/28 18:28

306 ：284：03/05/28 19:47

>>290
出来ました-ありがとうございました。

あと、このフォームを開いたときと前後のレコードにいったときに、
「コマンドA」の使用可能/不可　がすぐに反映されるようなマクロが出来るなら、
なにか方法ありますでしょうか？

307 ：274：03/05/28 20:23

無事ユニオンクエリで解決できました。
これ結構便利ですね。どうもでした。

308 ：名無しさん＠そうだ選挙にいこう：03/05/28 20:41

>>306
そのまんまだな

「開く時」と「レコード移動時」にマクロを呼び出す

309 ：名無しさん＠そうだ選挙にいこう：03/05/28 20:56

ここのせいでオナニーしすぎだよまったく・・・
　　　　　　　　　↓

　http://www.dvd-yuis.com/index2.html

310 ：名無しさん＠そうだ選挙にいこう：03/05/29 21:36

文字数１０文字のテキストボックスに入力するとき
、４文字目までを赤で、残りの６文字を青で表示
させたいのですが、いかにすればよろしいのでしょ
うか。教えをいただきたく思います。

311 ：名無しさん＠そうだ選挙にいこう：03/05/29 22:14

ｅｘｃｅｌでも使え

312 ：名無しさん＠そうだ選挙にいこう：03/05/30 09:06

非連結なテキストボックス10コ作っとけ。

313 ：名無しさん＠そうだ選挙にいこう：03/05/30 10:37

>>312
二個でいいじゃん。。。

314 ：名無しさん＠そうだ選挙にいこう：03/05/30 11:14

>313
アマイな。そのうちバリエーション増えるよ。

315 ：直リン：03/05/30 11:14

http://homepage.mac.com/hiroyuki43/moe/jaz01.html

316 ：名無しさん＠そうだ選挙にいこう：03/05/30 13:26

「これメンテして」と他人が作ったAccess2000のmdbを渡されたのですが、
VBAの画面からは見える（実行するとちゃんとVBA経由で表示される）フォームや
モジュールが「データベース」のウィンンドウの中に（ごく一部しか）表示されなません。
Accessいじるのは久しぶりなのですが、こんな設定ってありましたっけ？

このままではデザインを確認するのも一苦労なので、とにかく全部「データベース」
ウィンドウに表示させたいのですが、設定その他について何かお心当たりがある方は
いらっしゃいますか？

317 ：名無しさん＠そうだ選挙にいこう：03/05/30 13:40

>>316
ツール→オプション　表示タブで隠しオブジェクトをチェックする。
標準モジュールが隠しオブジェクトに設定されているなら、
これで見えるようになる。

これで見えないものがあれば、フォームかレコードのコードでしょ

318 ：316：03/05/30 13:49

>>317
表示できました。ありがとうございました（拝）

319 ：278：03/05/30 21:11

>>282
table1は不要だな
Select "条件指定なし" From table2 Union Select field1 From table2
"条件指定なし"を先頭や最後尾に持ってくるためにはOrder Byをうまく使ってくれ

>>283
リストに出ないのは判りづらいのでダメでしょ

320 ：名無しさん＠そうだ選挙にいこう：03/06/02 14:51

Accessで検索を実行するさいに従業員リスト(勤務可能時間が入力してある)
テーブルで何時～何時勤務可能な人を検索したい場合、どのように勤務可能時間を入力し、また検索フォームではどのように検索すればよいでしょうか？

321 ：名無しさん＠そうだ選挙にいこう：03/06/02 14:56

マルチｷﾀ━━━━━(ﾟ∀ﾟ)━━━━━━!!

322 ：_：03/06/02 15:04

323 ：直リン：03/06/02 15:14

324 ：名無しさん＠そうだ選挙にいこう：03/06/02 15:24

★クリックで救えるオマ○コがあるらしい★
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

325 ：320：03/06/02 16:11

マルチすいません。
どうしても知りたかったので焦ってしまいました。
教えてもらえないでしょうか？

326 ：名無しさん＠そうだ選挙にいこう：03/06/02 16:43

between でヘルプ検索

327 ：名無しさん＠そうだ選挙にいこう：03/06/02 17:13

between でヘルプ検索っていうのを
もう少し詳しく教えてくれませんか？

328 ：動画直リン：03/06/02 17:14

http://homepage.mac.com/hiroyuki43/hankaku/hankaku07.html

329 ：名無しさん＠そうだ選挙にいこう：03/06/02 17:30

ACCESS2000を使っています。

EXCELだと簡単にできるのですが
参照設定をせずにｺﾓﾝﾀﾞｲｱﾛｸﾞ（ﾌｧｲﾙの選択）を使いたいのですが
方法が解りません、どなたかご存知の方がいましたら教えてください。

※．
　EXCELのVBAだと「Application.GetOpenFilename」

330 ：名無しさん＠そうだ選挙にいこう：03/06/02 17:43

>>329
なんか定期的にこの質問が出るな。

ACCESS2002以降か、GetOpenFileNameのAPIを使え。

331 ：名無しさん＠そうだ選挙にいこう：03/06/02 18:13

>>330
自分で調べるより人に聞いたほうが早いって風潮ですからねぇ・・・

332 ：名無しさん＠そうだ選挙にいこう：03/06/02 18:15

>>327
ヘルプの使い方も分からんの？

333 ：_：03/06/02 19:16

334 ：名無しさん＠そうだ選挙にいこう：03/06/06 15:46

初歩的な質問かもしれませんがお願いします。
ある条件から検索するクエリを元に、常に同じフォームで検索結果を返したいんですけど、これは無理なんでしょうか？
具体的には、1レコードの全情報を一気に表示するフォームを作って、
それを表示するまでの検索条件を色々にしたいんですが、どうもうまくいきません。
1つのクエリからならできるんですが、他のクエリからだと表示されないんです。

335 ：334：03/06/06 15:49

例を挙げると、音楽データベースを作っているとして、アーティスト名から検索してもアルバム名から検索しても、常に同じフォームで結果を返したいときには、
アーティストから検索した場合のフォーム、アルバム名から検索した場合のフォーム、
このようにフォームを作り続けなければならないんでしょうか？

336 ：名無しさん＠そうだ選挙にいこう：03/06/06 15:57

>334-335
フォームのレコードソースをその都度設定すればよいのでは？

337 ：名無しさん＠そうだ選挙にいこう：03/06/06 16:23

WinXP、Access2000を使用しています。
テーブルから、同じIDの回数の合計を出すような
クエリを作る事は可能ですか？
可能な場合、どうすればよいでしょうか？

テーブル：
年,月,ID,回数
2000,1,A0001,5
2000,2,A0001,8
2000,3,A0001,2
2000,1,A0002,1
2000,2,A0002,2
2000,3,A0002,6

クエリ
ID,回数合計
A0001,15
A0002,9

皆様方,よろしくおながいします。

338 ：名無しさん＠そうだ選挙にいこう：03/06/06 16:44

＞３３７
ヘルプをよく読む

最近ヘルプをちょっと読めばわかるような質問とか
ぐぐれば答えが山のように見つかる質問が多いんだね。

339 ：名無しさん@そうだ選挙にいこう：03/06/06 16:45

>>335
ワイルドカード(*)を使えばいいでしょ
クエリの抽出条件で
アーティスト名
Like Form![フォーム1]1[txtアーティスト名]
アルバム名
Like Form![フォーム1]1[txtアルバム名]

アーティスト検索[txtアルバム名]にアスタリスク入れて[txtアーティスト名]を指定する
アルバム検索[txtアーティスト名]にアスタリスク入れて[txtアルバム名]を指定する
全リスト[txtアルバム名]、[txtアーティスト名]ともにアスタリスク

340 ：名無しさん＠そうだ選挙にいこう：03/06/06 16:47

>>337
SELECT ID,Count(ID) AS 回数合計 FROM テーブル1 GROUP BY ID

341 ：名無しさん＠そうだ選挙にいこう：03/06/06 16:49

>>337
SQLなら Group By句を使います。
クエリデザイナーで作成する場合は、ID,回数フィールドを出力に選んで
マウス右クリックで表示されるポップアップメニューから「集計」を選択。
IDフィールドにはグループ化、回数フィールドには合計を指定すれば
結果を得られるはずです。

342 ：名無しさん＠そうだ選挙にいこう：03/06/06 17:06

デザインビューでクエリを作るときに、同じ○○IDが2つあるときはどっちをドラッグ＆ドロップすればいいんでしょうか？

343 ：無料動画直リン：03/06/06 17:14

http://homepage.mac.com/norika27/

344 ：名無しさん＠そうだ選挙にいこう：03/06/06 17:26

Access2002で、単票フォームの中にデータシート型のサブフォームを作りたいだけど、
サブフォームまで単票型になってしまいます。
職場にある2000では自動的にデータシート型になってたんだけど・・・

345 ：名無しさん＠そうだ選挙にいこう：03/06/06 17:30

>>342
＞同じ○○IDが2つあるときはどっちを

これが何を指しているのか意味不明です。
状況説明が不足していると思われます。
こういう時はテーブル構造の参考例を上げるべきでは？

346 ：342：03/06/06 17:36

>>345
商品テーブル　　　　　見積もりテーブル
商品ID　　　　　　　　見積もりID
商品名　　　　　　　　商品ID
商品区分　　　　　　　数量

こんな感じのテーブルからクエリを作るときに、どっちのテーブルの商品IDをクエリに追加すればいいんでしょうか？
これがよくわからなくて、クエリ作りがちんぷんかんぷんです。

347 ：名無しさん＠そうだ選挙にいこう：03/06/06 17:41

>>344
データシート型のサブフォームは
・メインフォームのデザイン時は単票で表示
・メインフォームの実行時はデータシートで表示
のような振る舞いをしていますけど？

異なるバージョン間での動作の違いは割り切ったほうが良いと思います。
むしろ、「前のバージョンではこうだった」という思いが、時には問題
解決を遅らせる場合もあります。

348 ：名無しさん＠そうだ選挙にいこう：03/06/06 18:02

>>346
テーブル間の従属関係を元に判断すれば良いのはないでしょうか。
おそらく、見積もりテーブルが主(あるじ)で商品テーブルがそれに
対して補う形で、つき従う関係が成り立っているはずですよね？

見積もりテーブルの各レコード <- 商品テーブルから商品名、商品区分を補完

この場合は主となる見積もりテーブルから"見積もり.商品ID"を選んで
くれば良いでしょう。

あと、色々なクエリを数多く組んでみれば（場数を踏む）無意識のうちに
どのフィールドを選ぶべきか判断がつくようになります。

349 ：名無しさん＠そうだ選挙にいこう：03/06/06 18:05

訂正>>348
＞判断すれば良いのはないでしょうか。
判断すれば良いのではないでしょうか。

350 ：困ったさん：03/06/06 20:54

皆様こんばんは。
Access2000で、難題を抱えて悩んでいます。

【難題】
①　フォームに、テキストボックスと、ボタンを配置する。
②　テキストボックスに、ファイルへのパス（「c:\db\sample.xls」等)を入力して、ボタンをクリックすると、
　　ExcelやWordやAcrobat等のアプリケーションが立ち上がって、パスにあるファイルが開く。

こういうことはAccess2000で可能でしょうか？
方法があるなら是非教えてください。どうか、よろしくお願いします！ｍ（＿）ｍ

351 ：_：03/06/06 20:57

http://homepage.mac.com/hiroyuki43/jaz07.html

352 ：無料動画直リン：03/06/06 21:14

http://homepage.mac.com/norika27/

353 ：名無しさん＠そうだ選挙にいこう：03/06/06 21:16

>>350
板超えてマルチするなんざ、とんでもない奴だな。

Access使い集合！　Ver2.0
http://pc2.2ch.net/test/read.cgi/tech/1032402846/671

354 ：名無しさん＠そうだ選挙にいこう：03/06/06 21:38

>>350
できる。
では、終了！

355 ：名無しさん＠そうだ選挙にいこう：03/06/06 22:51

>>350に便乗質問だけど、同じような方法で任意のウィンドウを開けますか？
俺、初級です。

356 ：名無しさん＠そうだ選挙にいこう：03/06/06 22:56

>>355
任意のウィンドウって何だろう

357 ：困ったさん：03/06/06 23:10

＞353
ごめんなさい。　この相談所スレッドの存在を私は後で知ったので・・・・

358 ：_：03/06/06 23:12

http://homepage.mac.com/hiroyuki43/hankaku07.html

359 ：直リン：03/06/06 23:14

360 ：名無しさん＠そうだ選挙にいこう：03/06/06 23:56

>>356
フォルダのことだろう

361 ：名無しさん＠そうだ選挙にいこう：03/06/07 05:58

ちがうだろう

362 ：名無しさん＠そうだ選挙にいこう：03/06/07 10:42

Access2000をつかっています。

Accessのフォームで、可変高さのレコードというのは実現できるでしょうか？
Excelの書式設定で言うところの「（文字列を）折り返してすべて表示」ということをしたいのです。
データシートビューでもフォームビューでもかまいませんが、
文字列型のフィールドに入るテキストの長さにばらつきがあって（20～255文字)
それらを画面の無駄なく表示させつつ編集したいと考えています。

商品番号｜商品名｜コメント
---------------------------------------------------------------
00000000 | ほげ　　| かっちょいいんでかってください。
---------------------------------------------------------------
00000001 | ふー　｜じゅげむじゅげむごこうのすりきれかいじゃりすぎょふう
　　　　　　｜　　　　｜らいまつうんぎょうまつやぶらこうじぶらこうじくうねると
　　　　　　｜　　　　｜ころにすむところぱいぽぱいぽの（以下略）
---------------------------------------------------------------
00000002｜ばー　｜禁断の蓮コラ写真集。
---------------------------------------------------------------
00000002｜パズー｜「おやかたー」とさけぶシーンって藤波竜之介が
　　　　　　｜　　　　｜「おやじィ！」と絶叫しているシーンとダブりませんか？
---------------------------------------------------------------

363 ：名無しさん＠そうだ選挙にいこう：03/06/07 11:51

むり
Access2002買え

364 ：362：03/06/07 14:33

2002ならできるの？

365 ：名無しさん＠そうだ選挙にいこう：03/06/07 17:39

>>357
> ごめんなさい。　この相談所スレッドの存在を私は後で知ったので・・・・

それは、あんたの都合だろ。
むこうに仁義は切ったのか ?

366 ：名無しさん＠そうだ選挙にいこう：03/06/07 20:30

質問なのですが
毎日の営業の記録を蓄積してます、このテーブルには、日時、訪問者、
訪問先、A商品販売個数、B商品販売個数などがあります。

このテーブルから、指定した１ヶ月間の、訪問者ごとの
訪問先数、A商品販売個数、B商品販売個数の合計が知りたいのですが
よい方法はありませんかね？
よろしくお願いします。

367 ：名無しさん＠そうだ選挙にいこう：03/06/07 20:38

質問です
ＯＳはWindows XPでAccess2000
うちの大学、証明書発行（成績証明書など）に
Microsoft accessを使ってるんだけど
科目数が今後増えてテーブルのフィールド追加が
できなくなりそう。（科目名、評価、取得年度を
ひとつのクエリでまとめてレポートで印刷している為）
accessにくわしい人や大学に勤めている人で
成績証明書を発行するいい方法あったら教えてください。
また、大学職員の人に聞きたいのですが、
もしaccessが限界で、将来業務用システム入れる
としたら、とこのどんなシステムがいいか
教えてください

368 ：名無しさん＠そうだ選挙にいこう：03/06/07 20:51

>>367
学生テーブル：学生番号、氏名、住所、～
成績テーブル：　学生番号、科目コード、取得年度、成績、～
科目テーブル：　科目コード、科目名～

これでテーブルを作り直せ。
あっちの、>>8 >>12 >>14 は多分ﾈﾀ。

369 ：名無しさん＠そうだ選挙にいこう：03/06/07 20:51

よろしくお願いします。
DateSerial関数を使用して1ヶ月分の年月日を作成すると、例えば6月など３０日間の月は、
DateSerial（2003,6,31)が翌月の7月1日となってしまいますよね。
この7月1日のような翌月分のデータを空白で返したいのです。
6月は1ヶ月分30レコードではダメなのです。
常にレコード数は31で不要なデータは空白です。

可能なのであれば、ヒントだけでもお願い致します。

370 ：ぅらら ◆MvRbZL6NeQ ：03/06/07 21:10

>>362-364
知らなかった・・・今度使ってみよう。

>>369
今手元に環境がないのですがこんな感じでできると思います。

IIf(Month(DateSerial(2003,6,31))=(6+1),Null,DateSerial(2003,6,31))

371 ：ぅらら ◆MvRbZL6NeQ ：03/06/07 21:24

>>369
ｼﾏｯﾀ・・・
年の変わり目(12月)考慮してなかった（鬱
その辺自分で考慮してね。

でもおそらく非常に複雑な式になるので、一度固定で372レコードの「月日」テーブルを作って
不一致クエリで突き当てたほうが高速動作すると思いますよ。多分。

372 ：名無しさん＠そうだ選挙にいこう：03/06/07 22:18

>>370
IIf(Month(DateSerial(2003,6,31))<>6,Null,DateSerial(2003,6,31))
はどうですか。

373 ：369：03/06/07 22:49

>370
>372

回答ありがとうございます。
参考にして関数作成したところうまく行きました。

Function test(hizuke As Date, kongetu As Single) As Variant

　If Month(hizuke) <> kongetu Then
test = Null
　Else
　 test = hizuke
End If

End Function

　　※　hizuke（DateSerialで作成した日付）　kongetu（日付を作成する際の月データ）

DateSerialで作成した日付からMonthで月を抽出すればよかったんですね。
ありがとうございます！

374 ：名無しさん＠そうだ選挙にいこう：03/06/07 22:59

>>370
騙されるなよ

VBA使う必要があるかな

VBA使ってもレイアウトつうか
なんつうかが変になるかもしれないので
かなり難しいかも

375 ：名無しさん＠そうだ選挙にいこう：03/06/07 23:03

MS ACCESS2000 / Windows 2000 - ODBC - DB2
という環境で、下記URLにある、文字コードの違いの吸収の仕方が判りません。

http://www.developer.ibm.com/ja/tech/faq/individual/0,,2:78728,00.html

どこを設定変更したら、全角の「！」等の文字を「?」に変更させずに済むでしょうか？

376 ：直リン：03/06/07 23:14

http://kame.kakiko.com/hiroyuki/jaz_b01.html

377 ：名無しさん＠そうだ選挙にいこう：03/06/07 23:32

おい！おまいらもすごろく作りに参加汁！
http://life2.2ch.net/test/read.cgi/offreg/1054655407/l50
ちなみにこれはコピペしてひろめてくれ。

378 ：_：03/06/07 23:33

379 ：名無しさん＠そうだ選挙にいこう：03/06/08 14:56

質問です
レポートから印刷をするのに
元になるクエリを指定しますが
そのクエリのフィールド数が多すぎて
クエリを２つに分けなければならないんです
それでレポートからその分けた２つのクエリを
同時に使用したい場合どうすればいいのですか？
教えてください

380 ：名無しさん＠そうだ選挙にいこう：03/06/08 16:05

多分クエリの作り方がまずい。

いくらフィールドが多いと言っても、必須となる抽出条件は限られてる筈だし、
1つにまとめることは十分可能な筈。

381 ：名無しさん＠そうだ選挙にいこう：03/06/08 18:40

フォームの元になってるクエリの抽出条件と、フォームのリストボックスの値集合ソースのクエリの抽出条件は、
どっちを設定するのかがいまいちよくわかりません。
普通はどちらか片方だけに設定したりするものなんですか？

382 ：名無しさん＠そうだ選挙にいこう：03/06/08 18:49

ご質問です。
WinXP、Office2000を使用しています。
書籍といろいろなサイトを参考にしながらアクセスの勉強をしています。
メンバー管理として以下のようなものを作っています。
http://cgi.members.interq.or.jp/hokkaido/asato/upload/jam3ddr/OB000004.gif
このメンバー表を仕事用やお友達などとカテゴリ分けをしようと考えているのですが、
今のところは分類テーブルを作成（分類コードと分類名）、メンバーテーブルに分類コード
の項目を追加と、いうところまでは出来ました。ここからどういう風にすれば良いのでしょう？

希望は下のドロップリストで分類を選択すると該当するメンバーだけ上に表示される。
またそこで追加したメンバーはその分類に追加されるという感じにしたいです。

お手数ですがよろしくお願いいたします。

383 ：名無しさん＠そうだ選挙にいこう：03/06/08 19:34

↓の>>8に正規化の意味を教えてやってください。
かなり楽しい大学のようです。

http://pc2.2ch.net/test/read.cgi/bsoft/1054963223/l50

384 ：383：03/06/08 20:00

どうやら大まじめに正規化を語っているのは教授のようです。

385 ：名無しさん＠そうだ選挙にいこう：03/06/09 11:52

windows2000/access2002を使用しております。
CD-ROM等の媒体から「DISCID、ボリュームラベル、ディレクトリ名、ファイル名、ファイルサイズ」を取得してテーブルに取り込みたいのですが、どのようにしたらよいかご教授ください。

386 ：おやぶんのこぶん：03/06/09 12:04

>>385
DIR関数を使ってみては？

387 ：名無しさん＠そうだ選挙にいこう：03/06/09 12:20

質問します
エクセルデータをアクセスの
レポートで印刷するには
どうしたらいいでしょうか？
エクセルデータをアクセスの
テーブルやクエリに保存して
レポートから印刷するのなら
わかるのですが、
テーブルやクエリを経由せず
レポート印刷する方法は
ありませんか？
教えて下さい

388 ：385：03/06/09 12:26

>>386
早速の回答ありがとうございます。
ところでDIR関数ではDISC-IDが取得できないようなので、DISC-IDを取得する方法をご教授ください

389 ：名無しさん＠そうだ選挙にいこう：03/06/09 12:39

質問します
エクセルデータをアクセスの
レポートで印刷するには
どうしたらいいでしょうか？
エクセルデータをアクセスの
テーブルやクエリに保存して
レポートから印刷するのなら
わかるのですが、
テーブルやクエリを経由せず
レポートで直接印刷する方法は
ありませんか？
教えて下さい

390 ：名無しさん＠そうだ選挙にいこう：03/06/09 12:58

>>389
テーブルのリンクでxlsファイルを指定する。

391 ：名無しさん＠そうだ選挙にいこう：03/06/09 15:23

OS：WindowsXP Pro.
ACCESS：OfficeXP（作成中のものは2000形式）

フォーム上に、テーブルから値を読み込んで表示するリストボックスを作りました
が、数値表示がうまくいきません。

テーブルの定義では、通貨型で小数点以下は0にしてあるのですが、リストボックス上では
「1.00」というように小数点以下2桁まで0が表示されてしまいます。

どのようにしたら小数点以下を表示させずに整数で表示できるのでしょうか？
アドバイスよろしくお願い致します。

392 ：名無しさん＠そうだ選挙にいこう：03/06/09 15:39

そのリストボックスのプロパティの書式を設定する。

393 ：391：03/06/09 16:19

>>392
リストボックスのプロパティの書式で、どのようにすればそのような設定ができるかが
分かりません･･･。
すみませんが、具体的にお願いしますm(_ _)m

394 ：名無しさん＠そうだ選挙にいこう：03/06/09 16:45

あー悪い、素でボケとった。リストボックスには書式ないよなぁ。
プロパティの値集合ソースのクエリビルダ使った時に
フィールド上で右クリック→プロパティ→書式って出来たような気がする。
それで表示が変わるかはわからんが。

395 ：名無しさん＠そうだ選挙にいこう：03/06/09 17:01

わびついでに。検索してみたらこんなの見つけた。
参考になるかどうかわからんが。
http://www2.mougb.net/cgi-bin/mdboard.cgi?acopr+ML2003030319

396 ：名無しさん@そうだ選挙にいこう：03/06/09 17:01

>>391
テーブルのその数値データのフィールドの書式は何になってる？
「数値」か未設定だったら「標準」か「固定」にしてみて

397 ：391：03/06/09 18:21

>>395
ごていねいにありがとうございます。
『Format([T-集計].[集計コード], '##,##0')』
これでうまくいきました。
私も検索でいろいろ探してみたんですけど･･･、さすがですね。
本当にありがとうございました。

>>396
レスありがとうございます。
書式は標準になっていました。

398 ：名無しさん＠そうだ選挙にいこう：03/06/10 09:16

成績証明書をクエリを元に
レポートから印刷するのに
例えばある選択科目をとってないと
レポートの科目の表示
（ラベルであらかじめ全科目
表示してある）を消すという
ことはできないでしょうか？
つまり選択していない科目は
表示されないようにしたいのです。
VBAのコードを利用するのでしょうか
詳しい人教えて下さい

399 ：名無しさん＠そうだ選挙にいこう：03/06/10 09:54

なんか、最近マルチ流行だな・・

400 ：385：03/06/10 12:37

>>388をお願いします

401 ：名無しさん＠そうだ選挙にいこう：03/06/10 13:20

催促禁止

402 ：名無しさん＠そうだ選挙にいこう：03/06/10 13:28

また成績証明書か
お前マルチだろーが

403 ：名無しさん＠そうだ選挙にいこう：03/06/10 13:42

>>385
Win32 APIのGetVolumeInformation()関数を使ってlngVolumeSerialNumberを取得
または、Scripting.FileSystemObjectのGetDriveでSerialNumberを取得

404 ：名無しさん＠そうだ選挙にいこう：03/06/10 14:13

>>330
遅くなってｽｲﾏｾﾝ
ACCESS2002以降、又はAPIで了解。

405 ：_：03/06/10 14:14

http://homepage.mac.com/hiroyuki44/hankaku06.html

406 ：名無しさん＠そうだ選挙にいこう：03/06/10 17:31

access2000についてご質問します。

VBAを使って、他のデータベースのテーブルを丸ごとインポートしたいときは
『DoCmd.TransferDatabase acImport・・・』でできますが、

その、他のデータベースのテーブルのデータのうち、条件指定したレコードだけをインポートするには
（SQLの「INSERT INTO…FROM…WHERE…」のFROM句に、他のデータベースを使いたいというような意味です）
どのような方法があるでしょうか？

407 ：名無しさん＠そうだ選挙にいこう：03/06/10 17:49

みてね～♪
http://www1.free-city.net/home/s-rf9/page002.html

408 ：名無しさん＠そうだ選挙にいこう：03/06/10 18:41

フォームでデータ入力するときに、フォームではチェックボックスで入力して、
テーブルにはYes/No型ではなく普通のテキスト型で納まるようにしたいんですけど、
そういう自動的にデータ型を変換するようなことはできるんでしょうか？

409 ：名無しさん＠そうだ選挙にいこう：03/06/10 18:45

>>406
SQL。
試しにアクションクエリを作ってみたら？
で、それをSQLビューで見れば記述方法が分かるよ。

410 ：名無しさん＠そうだ選挙にいこう：03/06/11 01:47

>406
ﾘﾝｸﾃｰﾌﾞﾙにすりゃいいんじゃねーの？

411 ：名無しさん＠そうだ選挙にいこう：03/06/11 01:48

>408
yes/noの列とは別にﾃｷｽﾄの列用意してyes/noのafterupdateで書き換えりゃ
いいんじゃねーの？

412 ：406：03/06/11 11:21

>409
ありがとうございます。とても助かりました。
SQLで「IN」を使うことで他のデータベースのテーブルも参照できるんですね。

>410
クライアント・サーバ（クライアント多数がサーバのテーブルを参照する）のため
リンクをかけてしまうのは怖い気がしまして。
必要時にサーバから読み込み、「登録」ボタンなどでサーバのデータを更新するようにしてます。

413 ：100人に1人：03/06/11 18:42

　◎人の嫌がることをズケッと言うのはこんな奴！
＜アスペルガー症候群（自閉症スペクトラム）←脳の機能的疾患（遺伝が要因）＞
●変化を嫌う
http://web.kyoto-inet.or.jp/org/atoz3/kado/book1/Williams-Asp.htm

●接し方のルールがわからず無邪気に周囲の人に対して迷惑なことをしてしまうことがある。人を傷つけるということには鈍感（相手の立場に立って考えられない）。
●パターン的行動、生真面目すぎて融通が利かない
　毎朝の通学電車では同じホームの同じ場所から、同じ時間の同じ号車に乗ることに決めていたりする。パターンを好むということは反復を厭わないことでもある。
●アスペルガー症候群の子どもは（大人も）感覚刺激に対して敏感。敏感さは聴覚、視覚、味覚、嗅覚、温痛覚などのいずれの感覚の敏感さもありえる（特に視覚が敏感）。
●アスペルガー症候群の子ども（大人も）は予測できないことや変化に対して苦痛を感じることが多い。
http://www.autism.jp/l-02-03-aspe3.htm

●独り言を言うことが多い（考えていることを口に出す）
●物事をいつまでも同じにしておこうとする欲求が強く、そうでないと非常に不安。いわゆる「こだわり」。
●自発的に行動することが少なく、興味の幅が狭い
●物まねをしているような不自然な言語表現
●自閉症スペクトラム全体としては一万人に91人（およそ100人に1人）。
http://www.ypdc.net/asuperugar.htm

★自閉症スペクトラムの考え方(アスペルガーに至らない気質の偏りもある（遺伝性））
http://www.imaizumi-web.com/030413.html　　
　　　
★アスペルガー症候群（自閉症スペクトラム）かどうかのテスト
http://twitwi.s10.xrea.com/psy/add.htm　
http://www.geocities.co.jp/Beautycare/5917/as/marksheetmake.html

414 ：名無しさん＠そうだ選挙にいこう：03/06/13 17:11

テーブルにおいて"館"という文字を含むデータのみを赤字として
レポートで印刷したい場合、どのような細工をすればよろしいの
でしょうか？条件付書式ではできなかったのですが・・・・
どなたか御教示ください。

415 ：名無しさん＠そうだ選挙にいこう：03/06/13 17:27

>>414
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)
　　If InStr(1, Me.TextBox1.Value, "館") > 0 Then
　　　　Me.TextBox1.ForeColor = RGB(255, 0, 0) '赤
　　Else
　　　　Me.TextBox1.ForeColor = RGB(0, 0, 0) '黒
　　End If
End Sub

416 ：名無しさん＠そうだ選挙にいこう：03/06/13 19:00

>>415
様、うまく行きました。ご丁寧な回答ありがとう御座います。

417 ：名無しさん＠そうだ選挙にいこう：03/06/13 19:26

つまづくたんびに人に答え教えてもらう人生

418 ：名無しさん＠そうだ選挙にいこう：03/06/14 11:34

フォームウィザードで設定できる背景は、最初からウィザードで作らないと使えないんでしょうか？
デザインビューで作ったフォームに背景使いたいんですけど。

419 ：名無しさん＠そうだ選挙にいこう：03/06/14 12:54

>>418
フォームのプロパティで書式タグの各項目を調べればわかるのだが・・・
ウィザードで作成したフォームの(プロパティ)ピクチャ項目を見て
この設定値はなんだろうって思わないのだろうか？

420 ：おしえてクン：03/06/14 14:52

dbMAGICのデータをACCESS2000にインポートする方法はありますか？
CSVからでないとダメなら、dbMAGICのデータをCSVに変換するソフト（できればフリー）
を教えてください。
ここで質問する内容でなかったら申し訳ありません。

421 ：名無しさん＠そうだ選挙にいこう：03/06/14 16:04

オートNoのID等を使わずにレコードの番号を取得するにはどうすればよいでしょうか？

422 ：名無しさん＠そうだ選挙にいこう：03/06/14 16:18

もう一つ質問です。
日付データなどを使わずに数千件あるレコードから最近入力したレコード30件のみを抽出する方法ありませんでしょうか？

423 ：名無しさん＠そうだ選挙にいこう：03/06/14 16:47

レコードの"番号"って何?

424 ：あぼーん：03/06/14 16:52

http://www.book-i.net/ad05

425 ：421-422：03/06/14 16:55

>>423
SQLで抽出したレコードの行番号のようなものの事です。

426 ：名無しさん＠そうだ選挙にいこう：03/06/14 17:01

>>420
dbMAGICのファイルシステムは何がバンドルされてる？
それを調べることで解決の糸口を見つけられるかもしれないよ。
たしか Btrieveか最近の製品なら PervasiveSQLのはず。
それに ODBCドライバが添付されていたら、テーブルリンクして
直接、データの読み出しができる*かも*しれない。

427 ：おしえてクン：03/06/14 17:35

>>426さんへ
BtrieveかPervasiveSQLか解からないですが、DATファイルとLCKファイルがセットになっています。

428 ：名無しさん＠そうだ選挙にいこう：03/06/14 18:10

フォームを作るときに、基になるテーブルやクエリの設定をしないで作った場合、
あとからフォームの設定をいじっても遅いんでしょうか？
フォームを作るときにクエリも作らないといけないときと、そうでないときの区別が付かなくて困ってます。

429 ：418：03/06/14 18:36

>>419
ビットマップとかを指定できるのはわかったんですが、ウィザードみたいにコントロールの枠の色とかを一気にまとめて統一的にしたいんです。

430 ：名無しさん＠そうだ選挙にいこう：03/06/14 19:19

ネットありがとう！これで生活できます。
本当に良かった・・・・・
http://www.h2.dion.ne.jp/~m_oka/moemoe/afelli.html

431 ：名無しさん＠そうだ選挙にいこう：03/06/14 22:05

>>427
そういうのは情報の価値としてはゴミに等しい。
問題解決の手掛かりにはならないでしょ。
どうせならdbMAGICのバージョンを明記したほうが情報を入手するうえで
有効だと思うのだけど、それ(dbMAGICのバージョン)すらわからないの？

432 ：名無しさん＠そうだ選挙にいこう：03/06/14 22:33

>>429
・アドイン、ウィザード、ビルダを自分で作る
　デベロッパーエディションには作成の為の情報が公開されている
・フリーウェア&シェアウェア等でアドインを探す
　中身は知らんけど、そういう機能を謳ったシェアウェアがある

433 ：名無しさん＠そうだ選挙にいこう：03/06/14 23:06

メインメニューを作るときは、メニュー用フォームビルダを使ったほうがいいんですか？
普通にデザインビューからコマンドボタン作りまくる方法ではだめですか？

434 ：名無しさん＠そうだ選挙にいこう：03/06/14 23:16

>>433
とくに「こうであるべき」という暗黙の了解と言うか決まりはないでしょう。
自分の注いだ労力に対して、それに見合った成果物が得られるかどうかで
手法を選択すればよろしいのでは？

435 ：名無しさん＠そうだ選挙にいこう：03/06/15 00:23

オレはコマンドボタン＋ハイパーリンクで作ってる

436 ：名無しさん＠そうだ選挙にいこう：03/06/15 01:19

フォームウィザードでサブフォーム付きのフォーム作りたい（というかデザインビューから作るとわけわからなくなる）んだけど、
項目選んで次へ進むときに、「サブフォームのあるフォーム」を選べるときと、
いきなり単票形式とか選ぶところまで飛ぶときがあるんだけど、どういうこと？

437 ：おしえてクン：03/06/15 09:48

>>431
dbMAGICのバージョンは、V8.2K2です。
ACCESS2000へのインポート方法はありますか？

438 ：名無しさん＠そうだ選挙にいこう：03/06/15 11:23

>>437
そこまで、わかっているなら自分で調べがつくだろうが？
ttp://www.wacom-net.co.jp/magic/0011272.htm この Webページによると
MAGIC V8.2K3以前：Btrieve6.15 Workstation（ワークステーションエンジン）
MAGIC V8.2K4以降：Pervasive.SQL 2000 Workgroup（ワークグループエンジン）
ということだ。ここまでわかったらdbMAGICのことなんか忘れてしまっていい。

次に考えることは Btrieve6.15 Workstationのファイルを読む手段だ。
ttp://www.pervasive.co.jp/SUPPORT/FAQ/faq_common.html#80 このWebページに
その方法が記載されている。
Btrieve6.15が出荷された時期には、INTERSOLV社の Btrieve用ODBCドライバが
同梱されていた可能性があるので、自分の PCに ODBCドライバが組み込まれて
いないか確認してみな？無かったら他の方法を探すしかないがね。

439 ：おしえてクン：03/06/15 11:47

>>438
大変丁寧な説明、ありがとうございます。
さっそく、トライしてみます。
結果報告は、また後日。

440 ：名無しさん＠そうだ選挙にいこう：03/06/15 14:33

フォーム上で、Excelのオートフィルタみたいにコンボボックスで選んでしぼり込み検索みたいなことはできませんか？

社員：鈴木　佐藤
担当取引先：A社　B社　C社

社員で鈴木を選ぶと、その下の取引先は鈴木の担当のA社とB社だけが表示されるみたいな感じにしたいんです。

441 ：名無しさん＠そうだ選挙にいこう：03/06/15 17:00

取引先はコンボボックスの値から引っ張る

コンボボックスのソースは社員テーブルから引っ張る

コンボボックス＜取引先
　｜
社員

442 ：440：03/06/15 18:06

>>441
それだと社員を選んでからでないとだめですよね。
それに項目は、社員と取引先の2つだけじゃないんです。
取引先を選べば担当コンボボックスの中は、その取引先の担当社員だけが表示されて・・・・、という感じにしたいんです。

443 ：名無しさん＠そうだ選挙にいこう：03/06/15 20:16

>>442
おまいさん、その物言いは441氏に対して、ちと失礼ですよん。

＞取引先を選べば担当コンボボックスの中は、その取引先の担当社員だけが表示されて・・・・、
＞という感じにしたいんです。
この要件は>>440では述べていないじゃないですか？
441氏は先に出た要件を受けてアドバイスしているわけだから
それに対してケチつけるのはいかがなものかと。

444 ：名無しさん＠そうだ選挙にいこう：03/06/15 20:45

フォームに２つのオプショングループを用意しました。
この２つのオプショングループで選択したものをAnd、またはOrで結合して絞り込みをしたいのですが、
どのようにすれば良いのでしょうか。
現在の状況は下記の通りです。

オプショングループ１/トグルボタン型（フレーム名：フレーム_製品名）
商品ごとの数を数える（各トグルボタンを押すことでクエリを実行するようにしています←どこかのサイトの見よう見まね・・・）

オプショングループ２/トグルボタン型（フレーム名：フレーム_年代）
購入者の年代を数える（オプショングループ１同様、各トグルボタンを押すことでクエリを実行するように指定）

オプショングループ３/ラジオボタン型（フレーム名：種類選択）
オプショングループ１とオプショングループ２を繋げる（AndとOrの項目を用意）

用は、
「商品」（オプショングループ１）をどの「年代」（オプショングループ２）の人がどのくらい買ったのか、を調べたいのです。
ボタン操作のみでこれを行えれば、と思ってこのような形をとることを考えているのですが、
そのほかにも良い方法はありますか？

445 ：444：03/06/15 20:46

追記。
ド素人な質問かつ、教えてちゃんで申し訳ないです・・・
いろいろと本を読んだりしているのですが、まだまだVBAが分かってないのです。

446 ：名無しさん＠そうだ選挙にいこう：03/06/15 23:32

フォームを開くとすでに、フォームフィルタを押した状態（レコードからフォームフィルタを選んだ状態）にしておくことはできますか？

447 ：はるぅらら ◆MvRbZL6NeQ ：03/06/16 01:34

>>444
データ件数が増えてくると、１回のクエリの実行時間がバカにならないと思うのですが、ｲｲﾉ？

>>446
フォームを開くイベントにDoCmdでフォームフィルタコマンドを指定すればよいのでわ？

448 ：名無しさん＠そうだ選挙にいこう：03/06/16 05:19

コンボボックスの更新前処理について教えてください。
Access２０００です。

Private Sub コンボ1_BeforeUpdate(Cancel As Integer)

If MsgBox("このデータを変更してよろしいですか?", vbOKCancel + vbExclamation) = vbCancel Then

Cancel = True
DoCmd.RunCommand acCmdUndo

End If

End Sub

IFステートメントのキャンセルで更新前のデータを表示させたいのです。
このように書いてみたのですが、「DoCmd.RunCommand acCmdUndoが無効です。」のエラーが出てだめです。
どのように書けばよいのでしょうか？

449 ：名無しさん＠そうだ選挙にいこう：03/06/16 08:51

Windows2000上でAccess97を使うと不安定なんでしょうか？
実際不安定なんですが、Windows2000上ではAccess2000を使ったほうが
よいでしょうか？

450 ：名無しさん＠そうだ選挙にいこう：03/06/16 13:47

>>449
OSとACCESSの食い合わせについては、
色んな意見があるようだが、実はよく知らない。

ただ、ACCESSは97と2000で大きい仕様の変更があるので、
うかつに乗り換えると、今までうまく動いていたものが
動かなくなる可能性が大きい。特にVBA使ってるようなら
乗り換えは慎重にｗ

451 ：名無しさん＠そうだ選挙にいこう：03/06/16 13:54

>>448
メニューバーの編集-元に戻すコマンドには
　1.元に戻す-入力
　2.元に戻す-カレントフィールド/レコード
の２種類がある
それぞれの動作と等価な (VBAの)メソッドは
　1.の場合 -> Me!フォームコントロール.Undo
　2.の場合 -> Me.Undo または DoCmd.RunCommand acCmdUndo

上記を踏まえたうえで、当該の更新前処理で実際に使えるメソッドは
　1.Me!フォームコントロール.Undo - コントロールに対する変更のキャンセル
　2.Me.Undo フォームの全体とカレントレコードに対する変更のキャンセル
であり、Me.Undoと等しいであろうDoCmd.RunCommand acCmdUndoはエラーになる。
理由は知らん。マニュアルにも書いておらん。
イベントとメソッドの組み合わせパターンをテストしてわかること。
DoCmd.RunCommand acCmdUndoが使えるイベントは変更時、更新後処理など。

要約すると
"各イベントにおけるメソッドの振る舞いを把握してから使えやｺﾞﾙｧ!"
ってことだな

452 ：名無しさん＠そうだ選挙にいこう：03/06/16 14:23

>>449
不安定という表現は漠然としていてどんな状況かはわかりかねますが
WindowsNT4.0, Windows2000にてAccess97を使用して知り得たことは
・Access97を起動した時点からCPU使用率が常に100%になる
・メモリ使用量がAccess97を終了してもなかなか下がらない
こんなところですかね。
ここらへんはAccess2000以降、解消されています。

453 ：448：03/06/16 15:34

>>451
>"各イベントにおけるメソッドの振る舞いを把握してから使えやｺﾞﾙｧ!"
>ってことだな
なるほど！
非常に分かり易いレスありがとうございます！
参考になりました。
そして、無事解決です。

454 ：名無しさん＠そうだ選挙にいこう：03/06/16 17:24

社内で使う顧客管理データーベースを外注する予定です。

現在、サーバは、NT3.5+Oracle、クライアントはAccess97という状況ですが、
(1)　OracleよりAccess97で作成してもらう方が安いのでしょうか？

(2)　Access2000+VBで作成した場合、Access2000がなくてもコンポーネントなどで動作可能でしょうか？

(3)　クライアントをAccess2000にアップデートした場合、既存のAccess97で作成したデータベースはそのまま動くのでしょうか？

よろしくお願いします。

455 ：名無しさん＠そうだ選挙にいこう：03/06/16 19:35

>>442　440さん、解決したのかな？
そう言うのをフレキシブルにしようと思ったら、コンボボックスの｢フォーカス所得時(Enter)｣で
使用クエリーを切り換えて表示させるようにすれば良いのでは？

条件1.取引先が選択されている時→
　　　　担当コンボボックスをクリックすると該当取引先担当が表示される
条件2.取引先が選択されていない時→担当コンボボックスには担当名全員が表示される
条件3.担当が選択されている時→
　　　　取引先コンボボックスには該当担当の取引先が表示される
条件4.担当が選択されていない時→取引先名が総て表示される

条件1.の場合用に取引先選択担当表示クエリー(クエリーA)
条件2.の場合用に全担当表示クエリー(クエリーB)
条件3.の場合用に担当選択取引先表示クエリー(クエリーC)
条件4.の場合用に全取引先表示クエリー(クエリーD)

担当コンボボックスのフォーカス所得時(Enter)に
if isnull(取引先コンボボックス)=false　then
　forms!form!担当コンボボックス.rowsource="クエリーA"
else
　forms!form!担当コンボボックス.rowsource="クエリーB"
end　if
docmd.requery　"担当コンボボックス"
取引先コンボボックスにも同じような切り替えを記述しておく。
これで希望に近いものができると思うけど…どうかな？

456 ：名無しさん＠そうだ選挙にいこう：03/06/16 19:56

>>454
(1)について
Oracle+Accessの場合とAccess単体では設計そのものが異なるでしょうし
その設計次第で製作時間も変わってくるでしょう。
それぞれの打ち合わせ～出荷までの総作業量の差が価格の差になります。
ですから、双方のケースで見積りを取るまではわからないはずです。

(2)について
Access2000本体無しでMDBファイルに対する読み書きが可能か？という
意味においては可能です。MDBは単なるファイルです。
Access2000からMDBファイルに対して読み書きを行う場合
　Access2000 - JetDataBaseEngine4.0 - MDB
とJetデータベースエンジン(DLL)を仲介します。
Access2000の代わりにVBでプログラムを作成する場合は
　VBプログラム - JetDataBaseEngine4.0 - MDB
という構成になり、Access2000そのものは必要ないのです。

(3)について
そのままでは動きません。
ファイル形式をAccess97からAccess2000の形式に変換する必要があります。
それとVBAで書かれたプログラムの修正も必要になります。

457 ：名無しさん＠そうだ選挙にいこう：03/06/16 20:53

　　　　　　　　今週の売上個数
　　

　　　 6/1 6/2 6/3 6/4
社員名 3 2 2 1
社員名 2 5 1 2
社員名 12 3 5 8

質問なんですが
こんな表を作りたいのですができますかね？

458 ：名無しさん＠そうだ選挙にいこう：03/06/16 20:57

＿, ,_　
（；ﾟＡﾟ）

459 ：名無しさん＠そうだ選挙にいこう：03/06/16 20:59

>>457
できるんじゃないの？ピポットテーブルとか使えば

460 ：名無しさん＠そうだ選挙にいこう：03/06/16 21:03

>457
1.クエリーで抽出したものをExcel表に入れ込めばその表は出来上がると思う。
2.レポート内でDlookupを使用してレポートを作成する(ただしその場合、1日に
　おける最大社員数が分からないと洩れが発生する可能性あり)
私はその手の業務処理(提出表)の要望があると
最終的にはループをバシバシ使ってExcelの雛型に代入して印刷させてる

他にアイデアある人いない？

461 ：454：03/06/16 22:34

>>456
レスありがとうございました。
参考になりました。
わからないことだらけですが、勉強して最良の方法を模索したいと思います。

462 ：名無しさん＠そうだ選挙にいこう：03/06/16 23:00

>457
クロス集計クエリがよいと思う。

463 ：名無しさん＠そうだ選挙にいこう：03/06/18 10:51

MID関数は左から数えての文字の抜き取りですが、
この逆で左からのはありませんでしょうか？
例えば"ABCDEFG"の文字列があったとします。
この文字列の右から4番目以降2文字"DE"を抜き取る
関数はありませんでしょうか？

464 ：名無しさん＠そうだ選挙にいこう：03/06/18 11:06

>>463
RightとLeft組み合わせて使えば出来る。

465 ：名無しさん＠そうだ選挙にいこう：03/06/18 11:54

>>464
やりたい事は、123456789の数を
1億2,345万6,789の様に桁の漢字を
入れたいんです。
何かいい方法ありませんでしょうか？

466 ：名無しさん＠そうだ選挙にいこう：03/06/18 12:47

iifやselectとかいくらでも方法は在りそうだが

467 ：名無しさん＠そうだ選挙にいこう：03/06/18 13:28

464>>465
それなら最初からそう質問すればいいのに。
いろいろ方法は思いつくけど自分はもう答える気にならん。
>>466の手でやってみれば。

468 ：名無しさん＠そうだ選挙にいこう：03/06/18 13:43

こういう時ってC言語みたいにポインタで文字列操作できたら・・・
とか思ってしまう私はダメ？

469 ：名無しさん＠そうだ選挙にいこう：03/06/18 14:28

>465
そんなに難しいかな？
数字扱いしないで、億/万が入ったものを文字列扱いすればいいんじゃない？
rightで右4桁を取得して文字列変数Xに代入、
次にmidで中央4桁を取得して文字列変数Yに代入、
右9桁より左を文字列Zに代入して
文字列変数A=文字列変数Z&"億"&文字列変数Y&"万"&文字列変数X
ただし、数字の桁数が可変式の場合はさらに考えないといけないけどね。
その辺は、自分の頭をひねってアイデアを出すところでしょう。
インターネットのAccessTipsとかにヒントはいっぱいあるけど。

ちなみに、私なら数字の文字数をチェックしながらループで処理する。

470 ：469：03/06/18 14:40

あ、桁の,を忘れてたね。
初めに数字の文字数をチェックすれば、
left/mid/right/len/modの組み合わせで
億/万/,は入れられると思う。

いろいろ頑張ってみてくれ

471 ：名無しさん＠そうだ選挙にいこう：03/06/18 21:43

>>465
Function User_Format(ByVal SourceVar As Variant) As String
Dim i, StrLeng As Integer
Dim TempVar As String
Dim ReturnVar As String

TempVar = SourceVar
StrLeng = Len(TempVar)

472 ：471から続き：03/06/18 21:44

If StrLeng <= 4 Then
　User_Format = Format(TempVar, "#,##0")
Else
　TempVar = StrReverse(TempVar)
　For i = 1 To StrLeng
　　Select Case i
　　Case 1
　　　ReturnVar = Left(TempVar, 1)
　　Case 4
　　　ReturnVar = ReturnVar + ","
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　Case 5
　　　ReturnVar = ReturnVar + "万"
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　Case 8, 12, 16
　　　ReturnVar = ReturnVar + ","
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　Case 9
　　　ReturnVar = ReturnVar + "億"
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　Case 13
　　　ReturnVar = ReturnVar + "兆"
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　Case Else
　　　ReturnVar = ReturnVar + Mid(TempVar, i, 1)
　　End Select
　Next i
　User_Format = StrReverse(ReturnVar)
End If
End Function

473 ：名無しさん＠そうだ選挙にいこう：03/06/18 21:52

50点

474 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:03

100点のプロシージャｷﾎﾞｰﾝ

475 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:28

Access上から指定したファイルをサーバにアップロード・ダウンロード
とかできますか？Accessをはじめたばかりでさっぱり検討つかないので
教えてくだちゃい。

476 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:29

プログラミングのお供に・・・
http://mypage.odn.ne.jp/home/dongrico

477 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:39

Function NIPPON(ByVal s As String) As String
　Const JPN As String = "万億兆"
　Dim L As Long, i As Long, j As Long
　L = Len(s)
　i = L \ 4
　j = L Mod 4
　If j = 0 Then
　　NIPPON = Left(s, 1) & "," & Mid(s, 2, 3)
　　j = 5
　Else
　　NIPPON = Left(s, j)
　　j = j + 1
　End If
　While (j < L)
　　If i > 0 Then NIPPON = NIPPON & Mid(JPN, i, 1)
　　i = i - 1
　　NIPPON = NIPPON & Mid(s, j, 1) & "," & Mid(s, j + 1, 3)
　　j = j + 4
　Wend
End Function

478 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:54

>475
FileSystemObject

479 ：名無しさん＠そうだ選挙にいこう：03/06/18 22:55

>>477
入力が 12345678 の時、出力が 1,234億5,678
入力が 123456789012 の時、出力が 1,234兆5,678億9,012
入力が 1234567890123456 の時、出力が 1,2345,678兆9,012億3,456
になりますよ？

480 ：480-1：03/06/18 22:59

>471
数字の字数を例えばMODで4で割った時3余りなら","
余り無しの1ループ目なら"万"、2ループ目なら"億"
3ループ目なら"兆"と言う風にもできると思うが…？

1.数字はstrY=Cstr(Format(数字A, "#,##0")、始めにstrYの字数αを求める
2.ループ回数をintCountとし、ループをα回数行う
　出来上がる文字列をstrZとし、varZ=""
　ループ5の場合"万"、10なら"億"、15なら"兆"とし、これらをstrXとする
　ループ内はintCountがMOD(intCount,5)=0の場合、varZ=strX&MID(strY,α-intCount,5)&varZ

481 ：480-2：03/06/18 22:59

strY=Cstr(Format(数字A, "#,##0"))
α=len(strY)
If α <= 4 Then
varZ = strY
Else
varZ=""
intCount=0
for intCount=α
if mod(intCount,5)=0 then
select case intCount
case 5
strX="万"
case 10
strX="億"
case 15
strX="兆"
end select
varZ=strX&MID(strY,α-intCount,5)&varZ
β=intCount
elseif intCount=α then
varZ=strX&left(strY,α-β)&varZ
end if
next intCount

細かいところがいろいろ違ってるかもしれないけど、こんなんでどう？

482 ：480：03/06/18 23:01

↑ごめん、なんかスペース入れたのに表示されてなくて見辛いね

483 ：名無しさん＠そうだ選挙にいこう：03/06/18 23:12

>>478
ありがとうございます。調べてみます。

484 ：名無しさん＠そうだ選挙にいこう：03/06/18 23:29

>>479
2行目を
Const JPN As String = "万億兆京垓穰溝澗正載極"

5行目を
i = (L - 1) \ 4

にしてくださいｺﾞﾒﾝ

485 ：名無しさん＠そうだ選挙にいこう：03/06/18 23:33

Const JPN As String = "万億兆京垓し穰溝澗正載極"
だった

486 ：名無しさん＠そうだ選挙にいこう：03/06/19 00:31

>>480-481
先にFormat関数で Format(StringsVar, "#,##0") のように整形すると
結果が 1,2億34,56万7,890 のようになりますよね。
463=465は、この出力でも良かったのかなぁ？・・・
>>481を動くように勝手に手を加えさせていただきましたん。
strY = CStr(Format(数字A, "#,##0"))
a = Len(strY)
If a <= 5 Then
　varZ = strY
Else
　varZ = ""
　For intCount = 1 To a
　　If (intCount Mod 5) = 0 And intCount <> a Then
　　　Select Case intCount
　　　　Case 5
　　　　　strX = "万"
　　　　Case 10
　　　　　strX = "億"
　　　　Case 15
　　　　　strX = "兆"
　　　End Select
　　　varZ = strX & Mid(strY, (a - intCount) + 1, 5) & varZ
　　　b = intCount
　　ElseIf intCount = a Then
　　　varZ = Left(strY, a - b) & varZ
　　End If
　Next intCount
End If

487 ：名無しさん＠そうだ選挙にいこう：03/06/19 03:52

Windows XPでAccess 2002を使用しています。

1.「顧客情報」と「登録情報」のテーブルからデータを参照するクエリ（「検索項目クエリ」）から、
フォームを作成しました。（「検索フォーム」）
2.この「検索フォーム」から、「フォームフィルタ」を使って必要なデータを抽出しました。
3.この抽出したデータから、「コード」「氏名」「メールアドレス」「メール受信項目」の項目だけを、
同じく「検索フォーム」に配置した「出力ボタン」をクリックすることで
別に用意した空のテーブル（「送信用」）に書き出したいと思っています。

以上が現在の状況です。2.まではうまく行ったのですが、3.がどう組み立てていいのかわかりません・・・
追加クエリを使うのかな、と思っているのですが、どのように書けばいいのかがさっぱり・・・（＞＜）
VBAもまだまだ未熟でほとんど分かっていないので、マクロだけで何とかしようとしているのがそもそもの間違いでしょうか・・・
どなたか教えてください。お願い致します。

488 ：名無しさん＠そうだ選挙にいこう：03/06/19 03:58

まったく場違いかもしれませんが、教えてください。
第三正規形であって、Boyce-codd正規形でないものとはどのような
ものなのでしょうか？

489 ：480：03/06/19 09:50

>>486 チョ～亀レスで申し訳ない。修正してくれてありがとう。
で、1,2億34,56万7,890→12億3,456万7,890 に修正してみました。

Dim strY As String
Dim 数字A As Long
Dim a As Integer
Dim b As Integer

strY = CStr(Format(数字A))
a = Len(strY)

490 ：480：03/06/19 09:52

If a <= 4 Then
varZ = CStr(Format(数字A, "##,##0"))
Else
varZ = ""
b = 0
For intCount = 1 To a
If (intCount Mod 4) = 0 And intCount <> a Then
Select Case intCount
Case 4
strX = "万"
Case 8
strX = "億"
Case 12
strX = "兆"
End Select
varZ = strX & Mid(strY, (a - intCount) + 1, 1) & varZ
b = intCount
ElseIf (intCount Mod 4) = 3 And intCount <> a Then
varZ = "," & Mid(strY, (a - intCount) + 1, 3) & varZ
b = intCount
ElseIf intCount = a Then
varZ = Left(strY, a - b) & varZ
End If
Next intCount
End If

End Sub

491 ：480：03/06/19 09:53

何で、私だとスペースが認識されんのだろう…ﾄﾎﾎ

492 ：名無しさん＠そうだ選挙にいこう：03/06/19 10:04

>>487
検索フォームのフォームフィルタがどのような抽出条件か分からないけれど
1.フォームフィルタの抽出条件をクエリー化する。
2.そのクエリーはテーブル作成クエリーとして、抽出データを一時テーブルに
吐き出す。
3.それを基に検索フォームの検索条件で抽出→空のテーブル(｢送信用｣)に
書き出し(書き出さなくてもテーブル作成してしまうこともできる)
…と言う方法もあると思うけれど？
例えば検索フォームにサブフォームを組み込み、フォームを開いた時は
現在のフォームフィルタ抽出条件のデータを表示し、検索実行したら
検索結果の表示に切り替えると言うこともできるよ。

493 ：名無しさん＠そうだ選挙にいこう：03/06/19 10:51

>>489-491
ご苦労様です。(477氏も)
2chの板にインデントして整形したソースを貼り付ける時は半角スペースを
全角スペースに置き換えるとよろしいようです。

ところで、このプロシージャ。463殿が見てくれないと勿体無いような・・・

494 ：480：03/06/19 10:59

>>493
あ～なるほど、全角スペースだったんですか。ありがとうございます。

463さんに見て戴けなくても、ここを見ている誰かのためになれば…
って言うより、自分が気になってやりたかっただけなんですけどね　はっはっは
それでいいんじゃないでしょうか？気にしない気にしない

495 ：名無しさん@そうだ選挙にいこう：03/06/19 12:04

>>494(480)かっこいい！

496 ：名無しさん＠そうだ選挙にいこう：03/06/19 23:07

早く>>494さんみたいになりたし

497 ：名無しさん＠そうだ選挙にいこう：03/06/19 23:36

ようかいにーんーげんっ

498 ：名無しさん＠そうだ選挙にいこう：03/06/20 15:57

ACCESS2002でMSDEを使う予定です。
ADPではクライアント上にローカルテーブルを作ることができないので
MDBからADO経由でMSDEに接続しようと思っています。

いまさらながらの質問ですが、ADO接続でMSDE上のレコードを返すビューを呼び出した場合
検索結果のみがトラフィックを流れてくるのでしょうか?

Jet接続の時は相手がSQLserverだろうがOracleだろうが、レコード全部がクライアント側に
一度流れてきていたので、ちょっと心配になってます。

499 ：名無しさん＠そうだ選挙にいこう：03/06/20 17:09

>>498
わざわざ苦労してmdbで作る理由がわからない。
ADPで開発するほうが効率がよいでしょ。
(mdbで作るメリットって何ですか？ VBやC#で作ったほうがよくないか?)

作業用テーブルは一時テーブルを作ればいいと思うのだけど。
CREATE TABLE #TempTable.....

作業用のテーブル作って、コンピュータ名などをフィールドに入れて
ユーザー別にレコードを切り分ける方法あるね。

500 ：名無しさん＠そうだ選挙にいこう：03/06/20 17:30

>>499
毎日大量のデータをインポートして、加工の上その一部をサーバに登録、
みたいな処理だとどうなんだろ。
一時テーブルとのやり取りで結構トラフィック食いそうな気もするんですが。
件数によるのかな。

いや、現在プログラム兼ワーク用とデータ用、マスタ用などの分割MDBを運用してるんですが、
SQL Serverなりに移行しようかと考えていたところで。

501 ：名無しさん＠そうだ選挙にいこう：03/06/20 18:03

ACCESSを使用して仕事をしています。
ACCESSのﾊﾞｸﾞが原因で莫大なＳＥ工数を費やしました。
費用請求を行う方法はありませんか？

世界中で発生しているﾊﾞｸﾞによるＳＥ工数を合算したら
いくらになぬろだろう。

502 ：名無しさん＠そうだ選挙にいこう：03/06/20 18:24

>>500
そんな処理ならインポートも一時テーブルも不要では？
元のファイルから1件ずつ読み込んでテーブルに書き込めば良い。
mdbにインポートしてから書き込むのとLANのトラフィックは大差ないと思う。

503 ：498：03/06/20 21:44

>>499

やりたいことをざっと整理すると・・・
　１：日付などの条件を入力し検索する
　２：検索結果一覧を別フォームで確認する
　３：検索結果一覧をレポートで印刷する

と、いたって簡単な処理。
MDB(Jet)時代であれば検索結果を一時テーブルとして保存し、
それをレポートのレコードソースにすることができました。
※１度の検索処理で済む

しかし、ADPではクライアント側にローカルテーブルを作ることができませんよね。

そこで、ストアドプロシージャで一時テーブルを作り（例えば ##TEMPTABLE）、
それをレコードソースにすることにしました。

２番の別フォームから参照することはできますが、レポートとして印刷することができません。
（##TEMPTABLE は存在しません。　などと言われる）

じゃぁ、ストアドで一時テーブルなんて作らずにレポートのレコードソースを
ストアドにすればいいじゃん！と思うかもしれませんが、それだと２回検索を
かけることになるので（フォームとレポート分）、負荷が気になります。

ということで、MDBからADO接続ならば一度の問い合わせで済むから良いかな？
と思っている次第です。

一番の問題点はストアドで作った一時テーブルをレポートのレコードソースにできない（やり方を知らない）ことにあります。
どなたか良い解決方法知りませんでしょうか？よろしくご教授ください。

504 ：：03/06/20 22:46

505 ：499：03/06/21 00:23

> 一時テーブルをレポートのレコードソースにできない
これは確かに糞な仕様ですよね。レコードセットも指定できないし。

解決案)
一時テーブルを使わず、検索結果を保存する通常のテーブルを使用します。
(検索時にテーブルを作成するのではなく、恒久的なテーブルです。)
検索結果を書き込むときに、コンピュータ名、ユーザー名も書き込めば、
どの端末の検索結果なのか判断できるので、フォームに表示するなり、
レポートで印字するなりすればよいでしょう。

ただ、>>503の機能だけならmdbでも難しくないですね。

506 ：421-422：03/06/21 09:30

主キーを設定しないで入力したレコードが以前入力したレコードに
存在する場合、入力値をキャンセルするには、どのようなコードを
書けばよいのでしょうか？

507 ：_：03/06/21 09:38

508 ：直リン：03/06/21 10:14

http://homepage.mac.com/hiroyuki44/hankaku06.html

509 ：名無しさん＠そうだ選挙にいこう：03/06/21 11:47

>>506
一意のキーフィールドがあるならそれを検査すればよろしい。
でも、それがあるなら主キーを設定しない理由がわからない。

そもそも、ユニークなキーがないなら、
>入力したレコードが以前入力したレコードに存在する場合
の判定はできないと思うけど。

510 ：506：03/06/21 12:45

>>509
対象の列にNullのレコードがあるため主キーが設定できません。
考えとしては、
１．VBを使ったSQLでNullのレコードを排除してVBで主キーを設定してやる。
２．Findメソッドを使って検索する事は出来ないかな？
の２件が思いつきますが、どのようなコードを書けばいいでしょうか？

511 ：509：03/06/21 12:56

>>510
後々のことを考えれば1.の対処のほうがいいとは思う。
漏れが書くなら、
レコードセットでテーブル取得
↓
主キーにしたいフィールドを検査
↓
if isnull(fields(キーフィールド)) then
fields(キーフィールド) = 名付けルールに従った新規コード
としてEOFまでぐるぐる回すかな･････
で、その後重複クエリで重複検査して、
不要分削除して主キー設定。

でも件数少なくてリレーションが複雑で
なければ、エクセルで処理してコピペだな。

512 ：498：03/06/21 12:59

>499
そうですか、ストアドで作った一時テーブルはレポートのレコードソースになれないのですね・・・
解決案にあるように一時テーブル的なテーブルを作って対処したほうがよさそうですね。
ありがとうございました～

513 ：名無しさん＠そうだ選挙にいこう：03/06/23 09:52

メモ型フィールドを、googleの検索のように、スペースで
区切って複数の検索を行いたいのですが、方法をご存知の方は
おられますか？

514 ：名無しさん＠そうだ選挙にいこう：03/06/23 10:38

>>513
検索文字列をSplit関数分割して、配列からSQLを作ればできるかな

515 ：名無しさん＠そうだ選挙にいこう：03/06/23 10:53

>>514
分割して、SQL･･･を組み立てるところ迄は逝ったのですが･･･
30万件有り、さらに増える予定なので、like等では使い物にな
らないのです。。。で頭を抱えているのですが。。。

516 ：名無しさん＠そうだ選挙にいこう：03/06/23 10:55

☆貴方好みの美女をクリックしてみて☆（特典いっぱい）
http://endou.kir.jp/yuminet/link.html

517 ：名無しさん＠そうだ選挙にいこう：03/06/23 11:21

>>515
SQL ServerかMSDEにすれば

518 ：名無しさん＠そうだ選挙にいこう：03/06/23 11:31

>>517
既存のモノを改造しているため、早々簡単には。。。
それに、エンジンを代えたところで、根本的な
解決にはならないのですが。。。

519 ：名無しさん＠そうだ選挙にいこう：03/06/23 13:08

だったら30万件なんて書かなきゃいいのに

520 ：名無しさん＠そうだ選挙にいこう：03/06/23 13:20

>>519
よくわかりませんが。。
インデックス付きのデータなら、30万件程度ローカルで扱う
程度でしたら、Access(jet-mdb)で日常的に普通に管理しておりすし、
今までも何の問題もなかったのです。
ただ、メモ型フィールドの複合検索の作成の追加で頭を抱え
ているのです。

521 ：名無しさん＠そうだ選挙にいこう：03/06/23 13:41

>>518
何で解決しないってわかるの？
MSDEでテストしたのか

仕様、自分が試したこと、どのようにうまくいかないのかを記述しろよ。

522 ：名無しさん＠そうだ選挙にいこう：03/06/23 14:07

今まで何の問題も無いからと言って現状を押し進める、阿呆か

523 ：名無しさん＠そうだ選挙にいこう：03/06/23 14:16

>何で解決しないってわかるの？
>MSDEでテストしたのか
MSDEでのテストは行っておりませんが、likeを多用した
SQLで速度の向上が劇的になるとは思いませんで。。。
また、メモ型フィールドだけのために大幅な書き換えの
必要になってくることもあり、できれば避けたいのです。

＞仕様、自分が試したこと、どのようにうまくいかないのかを記述しろよ。
where以下のandで、likeをつなげているのですが？
WHERE
F1 Like '*' & 'a' & '*'
And F1 Like '*' & 'b' & '*'
And F1 Like '*' & 'c' & '*'
And F1 Like '*' & 'd' & '*'
等のように。

524 ：名無しさん＠そうだ選挙にいこう：03/06/23 14:36

>>523
メモ型はインデックスが作成できないなど、DBのエンジンの問題だろ。

525 ：名無しさん＠そうだ選挙にいこう：03/06/23 18:35

>>524
DBエンジンの問題云々といわれても。。。
現状で実用的速度を得られる方法を探して
いるのですが？

526 ：名無しさん＠そうだ選挙にいこう：03/06/23 19:07

>>525
まぁ、そういらつくな。
スレが荒れる。

527 ：名無しさん＠そうだ選挙にいこう：03/06/23 19:48

解決案1) MSDEで作り直す。
解決案2) メモ型フィールドをテキストファイルに変換してインデックスサービスで検索する。
解決案3) 自分でインデックス処理を作る。

528 ：名無しさん＠そうだ選挙にいこう：03/06/23 21:54

解決案1) MSDEで作り直す。
解決案2) MSDEで作り直す。
解決案3) MSDEで作り直す。

529 ：名無しさん＠そうだ選挙にいこう：03/06/23 22:08

いきなりADP+MSDEって無謀？

530 ：名無しさん＠そうだ選挙にいこう：03/06/23 22:52

どうやら、妙案はなさそうですね。

この処理だけでMSDEを導入するつもりはありませんので、
>>527さんのインデックスサービスかNamazの使用を検討します。

ありがとうございました。

531 ：名無しさん＠そうだ選挙にいこう：03/06/24 13:49

ACCESSを使用して仕事をしています。
ACCESSのﾊﾞｸﾞが原因で莫大なＳＥ工数を費やしました。
費用請求を行う方法はありませんか？

532 ：名無しさん＠そうだ選挙にいこう：03/06/24 13:57

>>531
>>501

533 ：名無しさん＠そうだ選挙にいこう：03/06/25 00:59

PC初心者版から流れてまいりました。
OSはXP、Access2002です。
レポートを印刷時に複数列表示させているものに、
グループヘッダーをつけたのですが、
グループヘッダーの横幅も、1列の幅になってしまいます。
デザインビューで設定したとおりの大きさにすることはできませんでしょうか？
やりたいことは、
「ページの途中にグループの区切りのラインを表示させる」
（ラインの幅は、１ページの横幅いっぱい）
というような事なのですが、
グループヘッダー以外でもできるのでしょうか？
アドバイスお願いいたします！

534 ：533：03/06/25 02:56

533で質問したものです。
複数列分、グループヘッダを追加すれば、
何とか実現できました。
あまりスマートなやりかたではないかもしれませんが、
今はよしとしておきます。
考えてくださったかたどうもありがとうございました。
おじゃましました。

535 ：名無しさん＠そうだ選挙にいこう：03/06/25 17:51

ACCESS2000の質問です。
フォームで、印刷項目を指定したもののみをレポートに表示させる
ようなものを作ろうとしています。具体的には、

項目指定用のテーブル[T_項目]を用意し、フィールドを
[項目][チェック]　とします。

フォームに「レポート印刷ボタン」を配置し、サブフォームから[T_項目]を操作できるようにします。
このサブフォームで印刷したい項目をチェックをした後、レポート印刷ボタンを押すとプレビューが表示される、
といった感じです。

レポートには、非連結のテキストボックスを印刷項目の最大数分配置しておき、開いた時にチェックのついているものがその
テキストボックスのソースになるようなイメージです。

レポートのオープンイベントの時に、

DoCmd.OpenTable "T_項目"
DoCmd.GoToRecord acDataTable, "T_項目",acFirst

For i=0 to 項目数
If [T_項目].[チェック]=True Then
k(i)=1
End If
DoCmd.GoToRecord acDataTable, "T_項目",acNext
Next i
この後にレポートのテキストボックスのソースに、k(i)=1の項目のみ、指定しようとしています。
が、その前に「オブジェクトが必要です」とエラーがでます。
どのようにしたらいいでしょうか・・・

536 ：名無しさん＠そうだ選挙にいこう：03/06/25 19:50

>>535
ソース貼るなら、むしろ

>この後にレポートのテキストボックスのソース

の方が重要。
エラーが出るのはこっちの方でしょ。
ところで、ステップインして確認してる？

まず、それをやるとコードのどの部分で
エラーが出てるかも分かるはずだよ。

537 ：名無しさん＠そうだ選挙にいこう：03/06/25 20:24

ADPでプログラムを組んでいます。
SQLを使って抽出したデータをexcelにエクスポートって出来ますか？
Outputto以外で。お願いします。

また、Access2000からMSDEにアップサイジングしたら
rs.Indexのrs.seekが上手く使えなくなりました。インデックスの
設定が出来ないでいます。（インデックス/キーの設定はした。）
rs.seekを使う際の記述法が変わったのでしょうか？こちらも
併せて質問させてください。お願いします。

538 ：名無しさん＠そうだ選挙にいこう：03/06/25 22:21

>>537
質問が漠然としすぎてて答えられないよ
あなたはどこまで調べてるの？
コードくらい貼ってみたら

539 ：名無しさん＠そうだ選挙にいこう：03/06/26 11:10

①
もし
　A かつ B
ならば
　not B にして、C する

②
もし
　Ａかつ not B
ならば
　B にして、C する

これを書けばこんな感じなのでしょうか？
if A and B then not B C
if A and not B then B C

①②両方を行いたいのですが、永遠にループしてしまいます。
そうではなく
　①の場合は②を一度行って終わり。
　②の場合は①を一度行って終わり。
このようにしたいのですがどうすればよいでしょうか？

どうぞよろしくお願いします。

540 ：名無しさん＠そうだ選挙にいこう：03/06/26 17:50

VBA？
elseifを使うか、この場合だと
もし
　A
ならば
　B を not B にして、 Cする
でいいと思う

541 ：名無しさん＠そうだ選挙にいこう：03/06/27 11:36

>>539
当たり前だが、永久ループはループ条件が成立しているから。
ループ条件も書いとかないと分かんないよ。

542 ：名無しさん＠そうだ選挙にいこう：03/06/27 12:26

>>539
｢永遠にループしてしまいます。｣と言うことは、
単純にループ終結の条件が満たっていないだけでしょう？
と言うことは、｢条件を満たせて｣やればいいだけ。
①か②に一度入ったらとにかくループを出ると言うなら
①か②の中に｢exit　(ループ)｣を入れればいいだけ。
A/B/Cが何なのか良く分からないから何とも言えない。
グループ？変数？何かの値？条件？

543 ：名無しさん＠そうだ選挙にいこう：03/06/27 23:42

ツールバーにあるフォームフィルタボタンやフィルタの実行ボタンをフォーム上に置くことはできないんでしょうか？
ウィザードを使ってコマンドボタンを置くと、フォームフィルタの実行や編集を設定できるんですが、
ツールバーにあるものとは別物みたいなんですけど。

544 ：543：03/06/27 23:43

書き忘れました。
Access2002です

545 ：名無しさん＠そうだ選挙にいこう：03/06/28 00:26

>544
韓国人が全てそうではない。
変な偏見を持たずに一度旅行に行けばいいでしょう。

546 ：名無しさん＠そうだ選挙にいこう：03/06/28 11:56

ACCESS2000を使ってる者です。
イベントプロシージャの記述に関する質問です。

例：
「コマンド１」というコマンドボタンがあったとします。
このボタンを押すとそのボタン自身の色が徐々に変化するというプログラムを組む場合。

通常
private sub コマンド１_Click

　　me.コマンド１.Backcolor = ???????? + 1

End Sub

という感じに記述したとします。
この場合、イベントコントロールである「Me.コマンド１」を記述しなければならないのですが
この名前を記述せずに、イベントコントロール名を参照できるような方法が無いかと思ってます。

もし方法があればよろしくお願いします。

547 ：名無しさん＠そうだ選挙にいこう：03/06/28 12:19

>>546
>前を記述せずに、イベントコントロール名を参照

他のコントロールでも使えるコードにしたいということかな？

　　Set ctlCurrentControl = Screen.ActiveControl
　　myCName = ctlCurrentControl.Name
　　Me.Controls(myCName).BackColor = ??????? + 1

てな感じでどう。

548 ：546：03/06/28 12:30

>>547
>他のコントロールでも使えるコードにしたいということかな？
そのとおりです。

ctlCurrentControl.Nameですか。

VBAのHELPで探したけどなかなか見つからなくて苦労してました。
どうもありがとうございます。

549 ：名無しさん＠そうだ選挙にいこう：03/06/28 12:47

>>548
ctlCurrentControlはオブジェクトの変数だよ。
この部分に意味は無いぞ。
あくまで、set ～　と組み合わせて使う時の
任意の変数なので間違えないように

550 ：543：03/06/28 14:16

>>543
どなたかこの質問よろしくですm(__)m

551 ：名無しさん＠そうだ選挙にいこう：03/06/28 15:11

>>550
>フォームフィルタの実行や編集を設定できるんですが、
>ツールバーにあるものとは別物みたいなんですけど

これで、何が不満なのか良く分からないんだけど。

闇雲にやりたいことを書くより、何を実現したくて、
現状どんな不具合があるのかを具体的に書いた
ほうがいいんじゃないの。

552 ：543：03/06/28 17:17

>>551
ツールバーと同じものをフォーム上に置きたい、それだけです。

553 ：543：03/06/28 17:20

それかフォームを開いたときに、自動的にツールバーからフォームフィルタを押した状態になってる、でもいいです。

554 ：名無しさん＠そうだ選挙にいこう：03/06/28 18:06

よろしくお願いします。苦戦中です＞＜
メインフォームの操作で、サブフォームにあるコンボボックスのRowSourceプロパテイを設定したいのです。
いろいろ試していますが、どうもうまくいきません。
どのように書いたらよいか教えて下さい。
access2000です。

555 ：名無しさん＠そうだ選挙にいこう：03/06/28 18:25

ズバリ！お金に困ってる人・・『フルーツメール』というサイトなんですが、
なんとこのサイトでは紹介すると1人につき『300円』貰えるんです。
掲示板などに書き込んで置けば色々な人が登録してくれてどんどん儲かります。
このサイトのメールを受信しておくだけでもなかなかお金になると思いますよ(*^_^*)
※1メール受信するごとに約5円貰えます。　メールはほぼ毎日着ます。
■□フルーツメール□■
http://banana.fruitmail.net/cgi/introduce_jump1.cgi?1032900
↑登録だけでもしておいても損はないですよ。
年会費等は一切かかりませんし入会するだけで
『100円』貰えるんです（*⌒▽⌒*）
　紹介者IDのとこ『1032900』でお願いしますm(_　_)m
これ続けてたら絶対儲かるはずです！
貯めたお金は私は銀行の口座に振り込んで貰ったり
商品券として送って貰ったりしています。
日によって違いますが儲かる日はスゴく儲かります！
いろんな掲示板に張り付けすれば寝てるだけでお金になります。
頑張って下さいね(^O^)

556 ：名無しさん＠そうだ選挙にいこう：03/06/28 22:32

>>553
フォームのOPENイベントにApplyFilterのコードを書く。
VBAが分からなければ、フォームのプロパティで
「開くとき」にフィルタの適用だかのアクションを登録。

でも普通なら、クエリーの条件を変えるコードを
書くほうがいい気がするが。

557 ：554：03/06/28 23:46

Private Sub M_cmb_AfterUpdate()

Me!ob_sbfrm.SourceObject = ""
DoCmd.OpenForm "SbFrm", acDesign, , , , acHidden

If Me!M_cmb.ListIndex = 0 Then

Forms!SbFrm!Sb_cmb.RowSource = "Test1"

ElseIf Me!M_cmb.ListIndex = 1 Then

Forms!SbFrm!Sb_cmb.RowSource = "Test2"

End If

DoCmd.Close acForm, "SbFrm", acSaveYes
Me!ob_sbfrm.SourceObject = "SbFrm"

End Sub

試行錯誤の末こんなコードになってしまいました・・・
メインフォームにあるコンボボックスM_cmbの更新後処理でサブフォームのコンボボックスSb_cmbのRowSourceをクエリTest1又はTest2に切り替える処理です。

サブフォームを一度デザインビューで開いて設定しています。
これぐらいしか思いつきませんでした。
もっとスマートな方法があれば教えて下さい。

558 ：名無しさん＠そうだ選挙にいこう：03/06/29 00:16

>>557
親フォーム.子フォーム.Form.コンボボックス.RowSource=test1

559 ：554：03/06/30 11:21

>>558
レスありがとうございます。
が、どうもうまく出来ませんです。
とりあえずは、上のコードでよしとする事にします。

560 ：名無しさん＠そうだ選挙にいこう：03/06/30 11:54

>>559
亀レスですが、
>>557の記述はメインフォーム!M_cmbのAfterUpdateなので
1.メインフォーム!M_cmbのChange(変更時)に記述する
2.サブフォームのSbFrm!Sb_cmbのクリック時に
if　forms!メインフォーム!M_cmb.ListIndex = 0　Then
　Forms!SbFrm!Sb_cmb.RowSource = "Test1"
if　forms!メインフォーム!M_cmb.ListIndex = 1　Then
　Forms!SbFrm!Sb_cmb.RowSource = "Test2"
end　if
ではどうだろうか？
どのように上手く行かないのか良く分からないけれど…

561 ：560：03/06/30 12:00

>560の内容は1.あるいは2.の記述のどちらかで上手く行かないか？
と言うことです。
ちなみに、AfterUpdateを使った場合例えばコントロールに
フォーカスをTabで移動した場合などは感知しないようです。
例えばマウスクリックでもTabキーでも前のコントロールから
Enterキーでエンターしての移動でも感知させたい場合は、
AfterUpdateよりもChangeやEnterを使った方が良い場合があります。

>560の2.は｢クリック時｣よりも｢フォーカス取得時｣の方が良いですね。
訂正します。

562 ：名無しさん＠そうだ選挙にいこう：03/06/30 17:50

環境：Windows・Office XP

いろいろ検索しても、いい情報が見つからず困っています･･･。

DBEngine.CompactDatabase "C:\A999\仕入管理ＤＢ.MDB", "E:仕入管理ＤＢ.MDB"

で、HD内のデータベースをMOにバックアップする処理を行っています。
MOへの書き込みに時間がかかるため、処理を行っている間プログレスバーを表示させたいのですが、
どのようにすればよろしいでしょうか。

よろしくお願い致します。

563 ：554：03/06/30 18:14

>560
レスありがとうございます。
出来ました。
正解は「フォーカス取得時」だったのですね。
イベントによってサポートしている処理が違うと言う事ですか。
勉強になりました。ありがとうございます。

564 ：560：03/06/30 19:22

>563　554さん、解決してよかったですね。

>イベントによってサポートしている処理
そうですね。サポートしている処理と言うよりは、
イベントの発生タイミングと発生順序が違うのです。
例えば、あるコントロールでクリック時のイベントを発生させた場合、
a)マウスクリックによるイベント発生
b)フォーカス(そのコントロールがアクティブなる時)によるイベント発生
などのイベントが同時にそれぞれのイベントタイミングと順序で発生するのです。

565 ：名無しさん＠そうだ選挙にいこう：03/06/30 21:07

>>562
プログレスバー表示はここで説明するのは大変です。
ググると結構いろいろ出てくるはずですけれど…
｢V○A道具箱｣のAccess便利ツールの進行ゲージや
T'sWareD○wnl○adにも汎用プログレスバーがあります。
それを参考にするのでどうでしょうか？

プログレスバーではなくステータスバーに表示させることも出来ます。
Access2000でならば
Dim strMsg As String 'ステータスバー表示文字
Dim varReturn As Variant 'ステータスバー表示用変数
strMsg = "進行状況の表示テスト"
varReturn = SysCmd(acSysCmdSetStatus, strMsg)
でAccess画面左下に表示できると思います。

566 ：名無しさん＠そうだ選挙にいこう：03/07/01 00:07

>>565
そもそも最適化がどのくらい進んでいるのか、
というのを取得できないのでは？

567 ：565：03/07/01 00:46

>>566
う～ん、そうかも、そこまでは考えてない。
私の返答は"｢プログレスバー｣の表示の仕方"についてであって
"最適化の進行状態を取得できないので教えてください"と言う
質問の返答ではないと思っているのでつが…

568 ：562：03/07/01 10:12

>>565
レスありがとうございます。
565さんのおっしゃるとおり、プログレスバーの表示の仕方を教えていただきたいと
思っています。

参考にできそうなものはいくつか見つかったのですが、どれもループで処理する間
プログレスバーを表示させるもので、実際には使えそうにないんです。
表示できれば、ステータスバーでもなんでもいいんですけど･･･。

そもそも全体の処理がどれくらいかかるかはっきりしないものは、難しいのでしょうか。

569 ：565：03/07/01 11:32

>565
以前使ったのは、SysCmdでステータスバーに文字をメッセージを
表示させるだけだったが。初めはプログレスバーや点滅するメッ
セージフォームを表示させていたが、Access自体で重い処理をさ
せてる時に表示をさせるのは表示自体が苦しくてやめた経験がある。
(ハード性能が高ければ問題ないだろうが)
せいぜい、｢バックアップ中｣と言う表示をさせとくだけで良いのでは？

余談だが、仕入管理ＤＢ.MDBはデータテーブルのみなのかな？
データと処理部分が分かれていなければ、データのみバックアップす
るようにすれば早くなるような気もするが…

570 ：名無しさん＠そうだ選挙にいこう：03/07/01 12:45

すいませんアクセス初心者ですが、
win98にてアクセスver7for95（うろ覚え）で作成したデータベースを
XPにてアクセス２０００またはアクセス９７で開こうとしても
ダメで変換せよとでたのですが、変換も「オートメーションエラーです」
となってしまします。解決方法ありますでしょうか。
もともと無理なものなのでしょうか。なんでも情報があれば
よろしくお願い致します。

571 ：名無しさん＠そうだ選挙にいこう：03/07/01 14:27

>570
空のデータベースを作りファイルから外部データの取り込シル

572 ：562：03/07/01 18:42

>>565
レスありがとうございます。

>せいぜい、｢バックアップ中｣と言う表示をさせとくだけで良いのでは？

私もそう思ったのですが、バックアップに時間がかかるため動いているのか
どうか分からないと言われたんです･･･。
バックアップするものはDBのみです。処理部分とDBは分けてあります。

本屋さんに行って来てAPIの本を手に入れたので、挑戦してみます。

最終的にどうしてもできなければ、ステータスバーかプログレスバーで数秒間
毎に■を増やしていくような、一応動いていることが分かるようなものにしよう
かと思っています。
処理がデータの保存なので、ループ処理のようなものではないため、うまくいく
かどうかは分かりませんが･･･。

573 ：565：03/07/01 19:02

>562
それならプログレスバーよりメッセージフォームの点滅の方が良いと思う。
進行状態の％が掴み難いならば、1秒ずつメッセージフォーム内の
メッセージの表示や背景色を変更して描画するだけになる。
ただし、この弱点はハード的に性能が低かったりAccess自体の処理が
他で忙しい場合、描画が思うように上手くされない点。

メッセージフォームのタイマー間隔に点滅の間隔を入力
メッセージフォームのタイマー時にイベントを
If Forms!メッセージフォーム名!背景.BackColor = 16711808 Then
Forms!メッセージフォーム名!背景.BackColor = 16711680
DoEvents
Else
Forms!メッセージフォーム名!背景.BackColor = 16711808
DoEvents
End If
DoEvents
のように書き込む。(これはメッセージフォームの背景そのものを変更する場合)
最悪、こんな方法もある。

574 ：名無しさん＠そうだ選挙にいこう：03/07/01 20:18

素人板の方で尋ねるべきかずいぶん迷ったのですが
「コレってマクロとか使わないとできないのでは？」
と思ったのでこちらで質問します。

Aテーブル
　　商品ID、商品名、価格
Bテーブル（日々蓄積される）
　　消費者名、商品ID、個数

と作って
クエリで商品IDを結合して販売記録を作るとしますね

販売記録
　　消費者名、商品ID、商品名、価格、個数
でもこれだとAテーブルの価格を変えると過去の販売記録の
価格も変わります。

当然のことで、本当はBテーブルに価格欄を作って
入力した時点の価格を取得して記入されるように
すれば良いと思うのです
が、しかし、その方法がらわからないのです。

もうひとつ、Aテーブルの価格が変わるごとに
更新した日付を取得して履歴も残したい。

この二つを解決したいので
よろしくお願いします

575 ：名無しさん＠そうだ選挙にいこう：03/07/01 20:29

>>574
あくまで一例。他にもっと良い方法があると思う。

まずBテーブルに価格列と日付列を追加する

価格を参照するにはいろいろ方法があるけど、規定値とかどう？
Dlookupあたりが楽かな？

更新した日付は、Bテーブルを日付と商品名と価格でグループ化したクエリで分かるよね？

576 ：574：03/07/01 21:15

↑待って！！
いや、待たなくてイイのですが…

履歴を残すには『グループ化』（？）をするのですね？
（分かってないですね）
Bテーブルに価格と日付の列の追加は分かります
その価格列にAテーブルの一致する商品IDの価格を取得する方法がわからないのです

577 ：名無しさん＠そうだ選挙にいこう：03/07/01 21:57

品名　価格
カレーライス　450円
チャーハン　350円
チャーシューメン　550円
ギョウザ　250円

こんな感じの食堂メニューテーブルがあったとして、
フォームで、例えば700円と入力したときに、700円以内で買える全商品の組み合わせ（重複はなし）が
順番に出てくるというようなクエリはどうやって書けばいいんでしょうか？
具体的にはこんな感じにしたいです。

[700円]
カレーライス
ギョウザ　700円（合計金額）

次のレコード
[700円]

チャーハン
ギョウザ　600円

578 ：名無しさん＠そうだ選挙にいこう：03/07/01 23:05

DB板が見るからに荒れているので、こちらでOFFICE2000についてくる
MSDEについて質問させてください。

常時接続が5人までで、それ以上になるとパフォーマンスが低下すると言うのを
見るのですが、その接続とはADODB.Connectionのcn.Open時と言う事でしょうか？

また、試しでMDBからMSDEにアップサイジングしたところ、日付/日時型のデータに
#2003/07/01#でアクセス出来なくなりました。これの対処法は'2003/07/01'で
良いのでしょうか？何故かアクセス出来たのですが、合点いかないもので。
すみませんが、よろしくお願いします。

579 ：名無しさん＠そうだ選挙にいこう：03/07/02 00:20

>>576
更新後処理とDlookupを使う。とりあえずヘルプ見てみて。

580 ：名無しさん＠そうだ選挙にいこう：03/07/02 00:25

>>577
商品のすべての組み合わせをクエリではじき出して
さらに合計金額が700円以内のものをクエリではじき出せや

581 ：577：03/07/02 01:12

>>580
＞商品のすべての組み合わせをクエリではじき出して

具体的にどんなクエリを書けばいいのでしょうか？
>>577の4品目の例でいいので教えてください。

582 ：名無しさん＠そうだ選挙にいこう：03/07/02 01:23

>>562
そもそも最適化↓
DBEngine.CompactDatabase "C:\A999\仕入管理ＤＢ.MDB", "E:仕入管理ＤＢ.MDB"
の処理が終わるまでカーソルが次の行へ移動しないのでは？
つまり最適化中にDoEventsすること自体できないのでは？
と思います。
マルチスレッドにすればできるかもしれないけど
ＶＢでは無理でしたよね？
最適化してる時はビジー状態なのでおとなしく待つしかないんじゃないですかねぇ。
だいぶ前の話しなので私の勘違いかもしれませんが。

583 ：名無しさん＠そうだ選挙にいこう：03/07/02 01:37

>>581
順列・組み合わせの解法(アルゴリズム)わかる？わかんなきゃ調べてみ。
そうすりゃクエリ(というよりSQL)だけで解を求められる問題なのか
見極めがつくと思うがね。

584 ：名無しさん＠そうだ選挙にいこう：03/07/02 04:17

>>578
自分はAccessやSQL Serverあまり詳しくないですが書いてみます。（きっとウソもある）

＞常時接続が5人までで、それ以上になるとパフォーマンスが低下すると言うのを
どこでそのような情報を？
自分の顧客はMSDEで約20台のクライアントを繋いで運用しています。
10台程度の同時アクセスは頻繁にあると思いますが、苦情を言われるほどのパフォーマンスの低下はありません。

＞その接続とはADODB.Connectionのcn.Open時
以前この処理スピードを実験しましたが、クライアント一台でも遅いと思います。
理由無ければリアルタイム処理ではcn.OpenしないでCurrentProject.Connectionを使った方が速いと思います。
しかし、大量のレコードを更新するような処理ではcn.Openで別の接続をした方が速い場合もあります。

＞また、試しでMDBからMSDEにアップサイジングしたところ、日付/日時型のデータに
アップサイジングはそれほど親切なツールではないと思った方がいいと思います。
何事もなく動けば良しとして、問題あったら仕様を調べるべきです。

585 ：名無しさん＠そうだ選挙にいこう：03/07/02 05:06

>>581
たとえば、\150のものが20種、\250のものが50種、\300のものが30種ある、とする。

\150のものだけを抽出したクエリ、\250のものだけを抽出したクエリ、\300のもの
だけを抽出したクエリ、これらを、別の新たなクエリのデザインビューに並べる。
ただ並べる。
結合線はいっさい結ばない。
ただそれぞれのフィールドのみを選択する。
たぶん重複なしで20X50X30種の組み合わせが出る

さて
いくらといくらの組み合わせだったら\700以内におさまるかを、クエリのみで
出すのは難しそう。
まずは価格だけでグループ化し、それを昇順に並べてみる("Q_Kakaku")
さらにテーブル"T_KakakuKumiawase"を用意、フィールドは"番号"、"価格"の2つ

586 ：名無しさん＠そうだ選挙にいこう：03/07/02 05:07

(つづき)
Dim MyDb As New ADODB.Connection
Set MyDb = CurrentProject.Connection
Dim MyTbl As New ADODB.Recordset, MyQry As New ADODB.Recordset
Set MyTbl = New ADODB.Recordset
Set MyQry = New ADODB.Recordset
Dim Goukei As Integer, Bangou As Integer, i As Integer
MyTbl.Open "T_KakakuKumiawase", MyDb, adOpenKeyset, adLockOptimistic
MyQry.Open "Q_Kakaku", CurrentProject.Connection
MyQry.MoveFirst
Do Until MyQry.EOF
Bangou = Bangou + 1
Goukei = 0
Do Until Goukei + MyQry![価格] > 700
Goukei = Goukei + MyQry![価格]
MyTbl.AddNew
MyTbl![番号] = Bangou
MyTbl![価格] = MyQry![価格]
MyTbl.Update
MyQry.MoveNext
Loop
MyQry.MoveFirst
For i = 1 To Bangou
MyQry.MoveNext
Next i
Loop

いじょ
レコードセットおぼえたての、トーシロの意見でした。
(ただこのやり方、単品で\700こえるものが、ひとつぐらい入ってないとエラーが出るみたい)
間違ってたらごめんなさい

587 ：562：03/07/02 08:14

みなさん、ご親切にレスありがとうございます。
いろいろ試したり再度検索してみた結果、Win32APIを使った方法が最適だと
判断しました。
お世話になった582,565さん本当にありがとうございました。

参考までに･･･長くなりますけど、参考にしたコード載せておきます。
****************************************************************
Option Explicit

'(SHFileOperation)
Public Const FO_COPY = &H2 'ファイルのコピー
Public Const FO_DELETE = &H3 'ファイルの削除
Public Const FO_MOVE = &H1 'ファイルの移動
Public Const FO_RENAME = &H4 'ファイル名の変更

Public Const FOF_ALLOWUNDO = &H40 'ゴミ箱へ
Public Const FOF_CONFIRMMOUSE = &H2 '使えない
Public Const FOF_FILESONLY = &H80 'ディレクトリを含まない
Public Const FOF_MULTIDESTFILES = &H1 '
Public Const FOF_NOCONFIRMATION = &H10 '確認なし
Public Const FOF_NOCONFIRMMKDIR = &H200 'ディレクトリ作成時に確認なし
Public Const FOF_RENAMEONCOLLISION = &H8 '
Public Const FOF_SILENT = &H4 '確認なし。プログレスバーあり
Public Const FOF_SIMPLEPROGRESS = &H100 'ファイル名なし
Public Const FOF_WANTMAPPINGHANDLE = &H20 '

<<つづく>>

588 ：562：03/07/02 08:15

Type SHFILEOPSTRUCT
hWnd As Long 'ウィンドウのハンドル
wFunc As Long '操作方法(FO_xxx)
pFrom As String '操作元のファイル名・ディレクトリ名
'複数の場合は Chr(0)で区切る
'最後は二つのChr(0)で終わる
pTo As String '操作先のファイル名・ディレクトリ名
fFlags As Integer '操作フラグ(FOF_xxx)
fAnyOperationsAborted As Long '処理完了前にｷｬﾝｾﾙしたとき 1
hNameMappings As Long 'ファイルネームマッピングオブジェクトのハンドル(0 でもよい)
lpszProgressTitle As String 'ダイアログボックスのキャプション(ブランク可)
End Type
<<つづく>>

589 ：562：03/07/02 08:16

Declare Function SHFileOperation Lib "SHELL32" (lpFileOp As SHFILEOPSTRUCT) As Long

Function LsFileCopy(source As String, destination As String, Optional fFlags As Integer = FOF_NOCONFIRMATION) As Long
'ファイルまたはフォルダをコピー
'(FileCopy ステートメントの拡張版)
' source : コピー元ファイルまたはフォルダ（サブフォルダごとコピーできます）
' destination : コピー先ファイルまたはフォルダ（フォルダがなければ作ってくれます）
' fFlags : FOF_xxxを指定(+で複数指定できます)
' 成功=0
Dim rc As Long
Dim lpFileOp As SHFILEOPSTRUCT

With lpFileOp
.hWnd = 0
.wFunc = FO_COPY
.pFrom = source
.pTo = destination
.fFlags = fFlags
.fAnyOperationsAborted = 0
.hNameMappings = 0
.lpszProgressTitle = vbNullString
End With

rc = SHFileOperation(lpFileOp)
LsFileCopy = rc
End Function

<<つづく>>

590 ：562：03/07/02 08:16

Function LsKill(source As String, Optional fFlags As Integer = FOF_NOCONFIRMATION) As Long
'ファイルまたはフォルダを削除(ゴミ箱へ移すこともできます)
'(Kill ステートメントの拡張版)
' source : コピー元ファイルまたはフォルダ（サブフォルダごと削除できます）
' fFlags : FOF_xxxを指定(+で複数指定できます)
' 成功=0
Dim rc As Long
Dim lpFileOp As SHFILEOPSTRUCT

With lpFileOp
.hWnd = 0
.wFunc = FO_DELETE
.pFrom = source
.pTo = vbNullString
.fFlags = fFlags
.fAnyOperationsAborted = 0
.hNameMappings = 0
.lpszProgressTitle = vbNullString
End With

rc = SHFileOperation(lpFileOp)
LsKill = rc
End Function

<<つづく>>

591 ：562：03/07/02 08:17

Function LsName(source As String, destination As String, Optional fFlags As Integer = FOF_NOCONFIRMATION) As Long
'ファイルまたはフォルダの名前変更
'(Name ステートメント相当)
' source : 名前変更前ファイルまたはフォルダ
' destination : 名前変更前ファイルまたはフォルダ
' fFlags : FOF_xxxを指定(+で複数指定できます)
' 成功=0
Dim rc As Long
Dim lpFileOp As SHFILEOPSTRUCT

With lpFileOp
.hWnd = 0
.wFunc = FO_RENAME
.pFrom = source
.pTo = destination
.fFlags = fFlags
.fAnyOperationsAborted = 0
.hNameMappings = 0
.lpszProgressTitle = vbNullString
End With

rc = SHFileOperation(lpFileOp)
LsName = rc
End Function

<<つづく>>

592 ：562：03/07/02 08:18

Function LsMove(source As String, destination As String, Optional fFlags As Integer = FOF_NOCONFIRMATION) As Long
'ファイルまたはフォルダを移動
'(FileCopy ステートメントの拡張版)
' source : 移動元ファイルまたはフォルダ（サブフォルダごと移動できます）
' destination : 移動先ファイルまたはフォルダ（フォルダがなければ作ってくれます）
' 異なるドライブへの移動はできません。
' fFlags : FOF_xxxを指定(+で複数指定できます)
' 成功=0
Dim rc As Long
Dim lpFileOp As SHFILEOPSTRUCT

With lpFileOp
.hWnd = 0
.wFunc = FO_MOVE
.pFrom = source
.pTo = destination
.fFlags = fFlags
.fAnyOperationsAborted = 0
.hNameMappings = 0
.lpszProgressTitle = vbNullString
End With

rc = SHFileOperation(lpFileOp)
LsMove = rc
End Function
****************************************************************

終わりです。
長々と大変失礼しました。

593 ：名無しさん＠そうだ選挙にいこう：03/07/02 08:41

>>562
ご苦労様。
このスレはログを保存しよう・・・・

594 ：565：03/07/02 09:16

>562さん、おめでとう！凄いね…
実は私、リンクのデータmdbの最適化で詰まっていたので
プログレスバーと共に参考にさせていただきます。
(562さんのAPIの場合はファイルコピーみたいだけど)
562さんのデータ部は処理部とリンクされてるのかな？
私も諦めずにもうちっと頑張ってみるか…

595 ：名無しさん＠そうだ選挙にいこう：03/07/02 22:20

>>565
ソースが長い。。
流し読みしたとことによると
最適化中の途中経過表示は不可という結論ですよね？

今日最適化中の途中経過の表示を実装しないAccessVBAを納品してきましたので
ちょっと気になってますｗ
（私は不可と判断した）

596 ：565：03/07/02 22:56

>595
個人的には"最適化"中はAccess自体、テーブル等の表示をさせない(隠す)
ので"最適化"の途中経過は出来ないと思っています。
>>588-592をまだ試していないけれど、ソースをさっと見てみる限りコピーを
している時にコピーの進行状況を表示していると思われます。つまり、"最適
化"中の進行表示ではないと言うことですね。>>562でDBEngine.CompactDatabase
を使用したのは単にmdbのコピーのためで、最適化のためではないと思いますので…
てか、Access製品を納品するプロにトーシロの私が言うことはないと思いますが…

私は個人的にリンクテーブルの最適化に煮詰まってるので、何らか参考に
なればと思って時間が空いたらソースを実行してみたいと思っています。
私の場合、初回一度再リンクをしないと上手く最適化実行できないので…
再リンク動作を入れるか、最適化mdb選択ダイアログ出すか（；´Д｀）ﾊｧｰ

597 ：名無しさん＠そうだ選挙にいこう：03/07/03 00:09

>>577
#めんどくさいからSQLはUPしないけど
クエリだけでするなら・・・
たとえばtblOnOffというテーブルを作って、値は0と1のみにしておく。
tblOnOffを4つ、デザインビューで並べて（リレーションはなしね）・・・
そしたら2の4乗(=16)個のレコードができあがるから・・・

で、それを元に、IIF(Filed1=1,"カレーライス","")みたいな列があるクエリを作れば・・・

598 ：578：03/07/03 00:22

>>584
回答、ありがとうございます。
5人までって言うのは、どこかで何かと見間違えたのかも知れません。

ついでに別件を質問させてください。＞ALL
ADPでSQLを使って抽出したデータをtxtファイルにエクスポートしたいのですが、
良い方法はありませんでしょうか？MDB時はSELECT * INTO [Text]～で行って
いたのですが、ADPでは出来ないようです。エクスポートの処理時間を重視した
方法は無いでしょうか？

更に、ストアドプロシージャについてですが、
( @検索内容 char
）
AS
********* (←何が書いてあるか忘れた)
select * from DB where @検索内容
return

のように、WHERE句のWHERE以降を文字列でパラメータ設定したいのですが
出来ませんでした。これも何か良い方法はありませんでしょうか？
よろしくお願いします。
長文失礼しました。

599 ：名無しさん＠そうだ選挙にいこう：03/07/03 09:22

>>598
exec ('select * from DB where ' + @検索内容)
みたいに記述すればおけー

600 ：名無しさん＠そうだ選挙にいこう：03/07/03 13:51

ACCESS2000で詰まっています。よろしくご教授ください。

連結オブジェクトフレームのあるフォームで、
コマンドボタンをクリックすると「ファイルを開く」ダイアログが開き、
そのダイアログで選択した画像を、そのフレームに挿入する、
（メニューの『オブジェクトの挿入』→『ファイルから』と同じようなことです。）

ということをVBAで実行したいと思っているのですが・・・

以前こちらで教えていただき、「ファイルを開く」ダイアログを開くことと、
そして、選択した画像ファイルのフルパスを取得するところまでできました。

　Private Sub 画像を開く_Click()
　Dim OBJ As New Excel.Application
　Dim PHOTO As String
　PHOTO = OBJ.GetOpenFileName("jpeg ファイル (*.jpeg;*.jpg), *.jpeg;*.jpg")
　　（ここまでで、ファイルを選択してＯＫをクリックすると変数「PHOTO」にそのファイルのフルパスが格納されます。）

ところが、その選択した画像をフレームに表示させるための記述が分かりません。
ご存知の方がみえましたら、教えていただけないでしょうか。

601 ：578：03/07/03 21:36

>>599
ありがとうございます！
それでやってみます。

602 ：_：03/07/03 21:48

603 ：名無しさん＠そうだ選挙にいこう：03/07/04 00:04

いまさらながらですが、
開発環境がやっと 97 から 2000 になったのだが、
97 のプロシジャにあった右クリック→ビルドって
2000 にはないのだがどこにいった？

604 ：名無しさん＠そうだ選挙にいこう：03/07/04 02:02

私が作りました！見てね♪
http://nuts.free-city.net/index.html

605 ：574：03/07/04 04:52

>579さん、ありがとうございました。
「更新後処理とDlookup」で値を取得することができました♪

が、まだAテーブル（商品マスター）の価格変更の履歴の残し方が分かりません。
価格が変更された時点で、自動的に日付を取得して古い方の値を残したいのです

価格更新履歴テーブル
　　商品ID、更新日、価格
とかやって見たものの、そこから先に進めません。

606 ：名無しさん＠そうだ選挙にいこう：03/07/04 05:55

>>603
97で作業をすることが無いので、いまいち何を言ってるのか分からんが、
例えば、フォームをデザインモードで開いてコントロール上で右クリックすれば
イベントのビルドってメニューは普通に出るぞ。

607 ：名無しさん＠そうだ選挙にいこう：03/07/04 09:32

>>603
ってか、イベントのところで該当イベントを左クリックすると
空欄の右側に｢…｣と言う四角が表示されるので、それをクリッ
クすれば｢式ビルダの選択｣が出るけど…それじゃないの？
そのまま該当イベントの空欄で｢イベントプロシージャ｣を
選択すればVBAの画面が開くんだけれど…？

608 ：603：03/07/04 10:19

わかりずらくてスマソ
>>607
そのVBAの画面で、
フォームなどののコントロールを簡単に指定出来るヤツ
（式ビルダ？）が2000には無いのでしょうか？

フォーム
　→F_Main
　　→Code
　　　→Caption　みたいなヤツ

609 ：607：03/07/04 11:07

>>608
自分もかつて97使ってたけれど、その辺2000に転向した当初迷ったよう
な気がするなー(でも遠い記憶だ)
クエリーとかにも使う2000での｢式ビルダ｣のことかな？
ちなみにVBAウィンドウ(コードを自分で記述する)画面そのものの中では
Access97でもそんな機能はなかったように思うんだけど？私が使わなかっ
ただけなのかな？97には2000の｢式ビルダ｣がVBAウィンドウの中にあったの？
2000では.とか入力した時に、候補コードが自動的に出てくることがあるけど。
よく分からないから、これ以上は力になれんなー

ないようだったら、諦めてくれ…

610 ：名無しさん＠そうだ選挙にいこう：03/07/04 12:35

>>603
これのことかな？

コードウィンドウの上にある、オブジェクトボックスとプロシージャボックスで、
コントロールとイベントが自動で作成されるけど。

以下ヘルプコピー

****************************************************************************
[オブジェクト] ボックス

選択されたオブジェクトの名前を表示します。リストボックスの右端の矢印をクリックすると、
フォームに関連付けられているすべてのオブジェクトの一覧が表示されます。

[プロシージャ] ボックス

[オブジェクト] ボックス内のフォームまたはコントロールに関連付けられた、Visual Basic
で認識可能なイベントがすべて表示されます。イベントを選択すると、そのイベントに対応
したイベントプロシージャがコードウィンドウに表示されます。

611 ：607：03/07/04 13:21

>603　>>610から察するに
VBAウィンドウの表示(V)→オブジェクトブラウザ(O)
多分これのことでは？
自分は使い勝手が悪いので使ったことがないが…

612 ：名無しさん@そうだ選挙にいこう：03/07/04 17:52

>>603
こちらへどうぞ(泣かないでね…)
ttp://support.microsoft.com/default.aspx?scid=kb;ja;245181

613 ：603：03/07/05 09:42

>>612
ｶﾞ━━(ﾟДﾟ;)━━ｿ!
まさにこのことをいってたんでつ・・・
みなさんありがとうございますた

フォームのテキストボックスなどの
コントロールはひたすら入力するしかない
ってことかな(´･ω･`)ｼｮﾎﾞｰﾝ

614 ：574：03/07/05 12:28

あたた、603のインパクト（？）に負けて
605の質問がスルーされてる気配…
とは言え、解決できたんですよ♪
もーうれしくてね。
結局「価格」が更新されたら「更新後処理」で
価格更新履歴テーブルに追加クエリで追加すれば良かったんですね。

615 ：612：03/07/05 22:25

>>613
でもね、"Me."と入力すればテキストボックスなどの
名前はペロッて出るから選択すればいいんじゃないの？

616 ：名無しさん＠そうだ選挙にいこう：03/07/05 22:38

>>615
なんか、説明のしかたがつぼにはまった
ｗ

617 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:06

クエリの日付のグループ化で
01/09/11
01/09/16
01/09/11

01/10/11
の場合
01/09
01/10
みたいにしたいのですが･･･
みたいに年月でグループ化したいのですが
教えてください

普通にグループ化すると日付でグループ化してしまい
01/09/11
01/09/16
01/10/11
みたいに年月日でグループ化してしまいます

618 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:16

>>617
クエリで年月のフィールドを作ってグループ化しれ

619 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:21

>>618
>クエリで年月のフィールドを作って
テーブルにある日付の年月日を
年月だけで作るのでしょうか？
それがよくわからん。というか思いだせん

620 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:27

>>619
色々方法はあるけど全部１日にする方法

　年月: DateSerial(Year([フィールド1]),Month([フィールド1]),1)

621 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:33

>>620
どうもです

622 ：名無しさん@そうだ選挙にいこう：03/07/06 00:36

>>617
日付フィールド名:Format([テーブル名]![日付フィールド名],"yy/mm")
でグループ化してみたらどう？

623 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:37

もしVBAにお詳しい方がいらっしゃいましたら
>>600へのご回答もお願いします。

質問の意味が分からなければ、言っていただければ説明しますので。

624 ：名無しさん＠そうだ選挙にいこう：03/07/06 00:38

AccessでExcelみたいに関数を使うのって可能でしょうか？
[死亡年]-[誕生年]みたいに計算したいのですが･･･

625 ：名無しさん＠そうだ選挙にいこう：03/07/06 01:32

>>600 >>623
画像って全くやったことないので良く分かりませんが、

フレームに表示させる方法は分からないけどイメージコントロールに表示するなら、

　イメージ1.Picture = PHOTO

　（ファイル選択をキャンセルした時などの細かい処理は後で書くとして）

で表示するね
フォームに表示するだけならこれでも・・・

626 ：名無しさん＠そうだ選挙にいこう：03/07/06 07:34

>625
ありがとうございます。

ただ、取得した写真をフォームに置くだけでなく、レポートに使用したい
（目的は写真入に名札作りなんですが）ので、
どうしても、連結フレームに入れる必要があるのです。

Pictureプロパティの設定は、やってみたんですができませんでした。

627 ：名無しさん＠そうだ選挙にいこう：03/07/06 08:22

>>626
フォームのレコードソースとなるテーブルに，イメージを入れる
フィールドは作ってありますか。

628 ：名無しさん＠そうだ選挙にいこう：03/07/06 09:22

>627
はい、作ってあります。

ただ、実際に画像を入れたレコードをテーブルで見てみると、
すべてのレコードで「MicrosoftPhotoEditor3.0　イメージ」と表示されています。

629 ：名無しさん＠そうだ選挙にいこう：03/07/06 09:34

）624
Accessにも関数はありますよ。ただ、Excelとは微妙に違いますのでご注意。
（例えばExcelの「If」がAccessだと「IIｆ」になっていたり）
クエリのフィールドやフォームのテキストボックスで式ビルダを開けば関数の一覧が見られます。

ただ、ご例示されている年数計算だけなら、関数を使わなくとも四則演算で済みそうですけどね。

630 ：名無しさん＠そうだ選挙にいこう：03/07/06 14:24

>>600
OLEオブジェクト型ってjpgをbmpで保存してる感じで容量を食うので、
自分は好きじゃないな
試しに約100KBytのjpgを保存すると約7MBytになる
（名札の写真はそんなに大きくないだろうけど）

イメージコントロールでもレポートに使用できるよ
（テーブルにはパスを保存）

631 ：名無しさん＠そうだ選挙にいこう：03/07/06 15:42

★★★　完全無修正のエロエロサイト　★★★
http://upbbs.s2.x-beat.com/linkvp/linkvp.html

　↑　
このサイトマジやば！　早く見ないと消されちゃうかも・・・

632 ：名無しさん＠そうだ選挙にいこう：03/07/06 18:50

アクセスでグループの中央値を求めるにはどうすればいいんでしょうか。

平均値や最大値だったら一発ですけど、中央値の場合は？
エクセルだったらMEDIAN関数を使えばいいんでしょうけど……。

633 ：名無しさん＠そうだ選挙にいこう：03/07/07 17:18

>>632

http://www.experts-exchange.com/Manager/Databases/MS_Access/Q_20581440.html

634 ：名無しさん＠そうだ選挙にいこう：03/07/07 20:08

フォームの背景をローカルディスクにある画像に指定したら、ファイルサイズが一気に大きくなりました。
Accessって、背景を設定するとAccessファイルの中に画像を取り込むんですか？
元のサイズいじっても、もう一度フォームのプロパティから設定しなおさないと更新されないし・・・

635 ：名無しさん＠そうだ選挙にいこう：03/07/07 20:18

>>637
プロパティの書式タブでピクチャタイプが
「埋め込み」になってると思うので、「リンク」に変更。

636 ：名無しさん＠そうだ選挙にいこう：03/07/07 20:50

>>633
あれ、なぜか急にアクセスできなくなった……。
俺だけ？

637 ：578：03/07/07 22:57

>>584
MSDEが接続5人で最適化って言うのは、ここで見つけました。
http://www.zdnet.co.jp/help/howto/win/win2000/0007special/complus_vb/chap3/13.html

で、接続ってOpen時なのかUpdate,Delete等の瞬間なのか、どっちなんですか？

638 ：名無しさん＠そうだ選挙にいこう：03/07/07 23:33

Access2000, Windows2000 です。
クエリ（というよりはSQLでしょうか）の作成で質問があります。

-------------------------------
商品名, 　購入時期(YYYY/MM/DD)，
-------------------------------
Ａ　　　　2003/01/01
Ｂ　　　　2003/01/11
Ｃ　　　　2003/01/21
Ｄ　　　　2003/01/31
Ｅ　　　　2003/02/01
Ａ　　　　2003/02/11
Ｂ　　　　2003/02/21
Ｃ　　　　2003/03/01
Ｄ　　　　2003/03/11
Ｅ　　　　2003/03/21
Ａ　　　　2003/03/31
Ｂ　　　　2003/04/01
-------------------------------
このテーブルレイアウトを元に色々な検索条件を指定した画面を作って
動作確認をしているのですが、今、
「購入時期From」、「購入時期To」、「購入時期Range」を画面上で指定して
その結果を出す方法がわからず詰まっています。

639 ：名無しさん＠そうだ選挙にいこう：03/07/07 23:33

>>638続き
イメージとしては、例えば
「購入時期From」 = "2003/1/21"
「購入時期To」　 = "2003/3/05"
「購入時期Range」= "10"日を指定したとき
-------------------------------
購入時期(YYYY/MM/DD)，購入商品数
-------------------------------
2003/01/21～2003/01/30　　1
2003/01/31～2003/02/09　　2
2003/02/10～2003/02/19　　1
2003/02/20～2003/03/01　　2
2003/03/02～2003/03/05　　0
-------------------------------
のような表をつくることを考えています。

例えば、Ａ,Ｂ,Ｃそれぞれの商品をどれだけ購入したかを検索するには
SELECT 商品名, COUNT(商品名) FROM テーブル名
GROUP BY 商品名

いつ、どれだけ購入したかを検索するには、2003/02/01～2003/03/01なら
SELECT COUNT(商品名), 購入時期(YYYY/MM/DD) FROM テーブル名
GROUP BY 商品名
HAVING 購入時期(YYYY/MM/DD) Between #2/1/2003# And #3/1/2003#

画面で指定したパラメータを渡す必要もありますし、
こういう基本的なSQLとは全然違ってくる気もしてるのですが、
どなたかご教授願えないでしょうか。
どうぞよろしくお願いします。

640 ：名無しさん＠そうだ選挙にいこう：03/07/07 23:42

クエリで
フィールド１に生年月日
フィールド２に死亡年月日
を入力した時に
クエリ３にその人物の年齢を出し、
またフィールド２に何も入力されていない時は
現在の年齢を出したいのですが
どうすればいいのでしょうか？

単純に[フィールド２]－[フィールド1]だとその期間の日数が出てしまいます

お願いします

641 ：638,639：03/07/07 23:59

>>640
ACCESS　年齢計算でググってみたらどうでしょう？

642 ：584：03/07/08 00:04

>>637
cn.Open時です。（ADODB.Connection）

>MSDEが接続5人で最適化って言うのは、ここで見つけました。
かなり前のことでページは忘れましたが、実際に実験したデータがあり、5人というのはあまり
根拠のないものとかいうのを読んだことがあります。
私も10台くらいで実験しました。
しかし保障されたものではありませんので、お客様には提案時、
「パフォーマンスが悪化した場合はSQL Serverを買ってください」
とお願いしています。

Access2.0の頃から、メーカーが言ってることや雑誌で読んだことなどがあてにならなくて
苦労したので、使用前によくテストするようにしています。

643 ：名無しさん＠そうだ選挙にいこう：03/07/08 09:48

>>640
ググると年齢算出のユーザー関数が出てくるので、
そのユーザー関数の｢実行日｣を条件分岐で
1.フィールド2に値がある場合は｢実行日｣をフィールド2に
2.フィールド2に値がない場合は｢実行日｣を本日にすれば
出来ると思う。
クエリーにもユーザー関数(ファンクション)を使用する
ことが出来ます。モジュールにファンクションを書いて
クエリーのフィールドや条件抽出に使用することが出来ます。

あるいは日数が出ていれば365日で割ればとりあえず
年数が出ると思うのですが…(正確かどうかはわかりませんが)

644 ：名無しさん＠そうだ選挙にいこう：03/07/08 11:48

>>642
以下のページでMSDEの同時5台以上接続時のパフォーマンスを検証しています。
http://www.akizuki.co.jp/msde/
問題なさそうですね。

645 ：名無しさん＠そうだ選挙にいこう：03/07/08 11:50

追加
http://www.akizuki.co.jp/book/default.htm

646 ：名無しさん：03/07/08 14:27

>>638
それはかなり難しいクエリになりそう。素人には恐らく出来ないと思われ。

647 ：名無しさん＠そうだ選挙にいこう：03/07/08 14:27

>>640
DateDiff関数を使えば一発なり。

648 ：名無しさん＠そうだ選挙にいこう：03/07/08 14:31

(；´Д｀)感動した
http://homepage3.nifty.com/coco-nut/

649 ：名無しさん＠そうだ選挙にいこう：03/07/08 15:15

>>638
集計用の一時テーブルを作っておいて、購入時期Range毎にSQLを発行して追加する。

こんなVBAでまわす。
Dim dteFrom As Date
Dim dteTo As Date
dteFrom = #1/21/2003#
Do Until dteFrom >= #3/5/2003#
dteTo = DateAdd("d", 10, dteFrom)
Debug.Print dteFrom & " " & dteTo
'ここでSQL発行
dteFrom = DateAdd("d", 1, dteTo)
Loop

650 ：名無しさん＠そうだ選挙にいこう：03/07/08 15:35

修正
Dim dteFrom As Date
Dim dteTo As Date
dteFrom = #1/21/2003#
Do Until dteFrom >= #3/5/2003#
　　dteTo = DateAdd("d", 10, dteFrom)
　　If dteTo > #3/5/2003# Then
　　　　dteTo = #3/5/2003#
　　End If
　　Debug.Print dteFrom & " " & dteTo
　　'ここでSQL発行
　　dteFrom = DateAdd("d", 1, dteTo)
Loop

651 ：名無しさん＠そうだ選挙にいこう：03/07/08 20:21

>>638
(From-To+1)\Rangeでグループ化する

652 ：638,639：03/07/08 23:49

>>649-650
回答有難うございます。やはり簡単にはいかないみたいですね。
ある範囲を持ったブループ単位で、その範囲をパラメータとして
外から（呼ぶプログラムから）指定できるようなクエリーが作れないかと
頑張ってたのですが、回答を見るとロジック勝負みたいですね。
ロジックは自分で考えないとダメですが、
回答の方法がスマートなのでそのまま利用させていただきます。

DateAdd関数は日だけでなく、月、年単位の幅設定もできるようなので
試したいと思います。

>'ここでSQL発行
色々ググって参考ページをみましたが、SQLをプログラム内で書くと
Dim db As Connection
Set db Application.CurrentProject.Connection
などと、この一行を実現するのにお決まりの約束事？など
かなり面倒な作業が必要になりそうですね。

これ（INSERT）を実行する前提として、テーブルをプログラム中で
検索する度に毎回CREATE&DROPする必要があるでしょうか。
一時テープルだとしても事前に作成しておいたほうが楽そうですね。
でも検索する度に毎回DELETE&INSERTならどちらも変わらないかも
しれませんが・・・

時間がかかりそうですが、こちらも色々試してみたいと思います。

>>651
回答有難うございます。つまるところ私のやりたいことの
究極の一手にも見えますが、簡潔すぎて取っ掛かりがつかめません・・・
「\」って一体・・・

653 ：651：03/07/09 03:52

>>652
\は演算子。
10\3というのは10÷3をしたときの「商」で、「3」になる（はず）

654 ：名無しさん＠そうだ選挙にいこう：03/07/09 09:07

>>652
>SQLをプログラム内で書くと
これはVBA(プロシージャ)内でって言うことでしょうか？
どんなSQL文か良くわからないけれど、テーブル作ったり
と言うものならば、いつも私はDoCmd.RunSQL (strSQL)とか
使っていますが…
これだとstrSQLに値するSQL文をフォームのコントロールの
値によって条件付けて変化させることが出来るので重宝してます。

例えば、開始日付を変数で持ちループで、DateAddで終了日付を
10日後に設定し期間内のデータを一時テーブルに吐き出せ(追加)ば、
希望に近いテーブルが作成されるのではないかと…ループの次の
開始日付は変数で持った開始日付+11日で終了はその+10日。
ループの終了条件をどう判定するかは分かりません(自分のことで
はないので考えていない)…想像だけなので何とも言えませんが。

655 ：649：03/07/09 09:41

>>652
SQL Server(MSDE)で処理されるのですね。
私なら以下のようにします。
1. フォームを表示するときに一時テーブルをCREATE(テーブル名の頭に#を付ける)
2. 検索毎にDELETE&INSERT
3. フォームを閉じるときにDROP
クライアントにトラブルが発生しても、接続が切れれば一時テーブルが
サーバーから削除されるので扱いやすいです。

>>653
購入日とRangeで計算して商や余を使う方法も考えたのですが、レコードが存在しない
2003/03/02～2003/03/05の購入商品数 0はどのように処理するのですか？

656 ：654：03/07/09 09:42

649,650さんがやってることだね…重複してしまった…ｽﾏｿ

例)strSQL=…(InsertやSelectなどのSQL文の冒頭)
strSQL = strSQL & "<=#" & DateAdd("d", -1, DateSerial(Forms!フォーム名!コントロール名, Forms!フォーム名!コントロール名 + 1, 1)) & "#<=(テーブル名.フィールド名)) AND …
と言うようにSQL文に組み込むことが可能です。
購入時期Rangeをフォームの値によって変化させることが
可能かまでは不明ですが。(DateSerial()はフォーム上の値で
年月日を別コントロールに入れた場合で638,639さんには不要)

657 ：名無しさん＠そうだ選挙にいこう：03/07/09 11:03

>>638,639
651氏がいうてるように、

select datediff(dd,'2003/1/21',購入時期)/10 ,count(*)
from T1
where 購入時期 between '2003/1/21' and '2003/3/1'
group by datediff(dd,'2003/1/21',購入時期)/10

結果

----------- -----------
0 1
1 2
2 1
3 2

(4 件処理されました)

まずここからいろいろ肉付けしていってみ。

658 ：名無しさん＠そうだ選挙にいこう：03/07/09 11:03

☆頑張ってまーす！！☆女の子が作ったサイトです☆
　　　　　　　☆見て見て！！
http://yahooo.s2.x-beat.com/linkvp2/linkvp2.html

659 ：649：03/07/09 11:50

>>657
651,657さん案のグループして集計したものと購入時期だけのテーブルをリンクするなり、
足りない行を付加したレコードセットを作ればできますね。
SQLの発行はできるだけ減らすほうがよいので、こちらをベースに検討すべきです。

660 ：名無しさん＠そうだ選挙にいこう：03/07/09 12:01

すげーなー…人事だけど勉強になる…

661 ：1：03/07/09 12:57

１です
続けてスレ立てだけしています
この板の回答者さん達は非常に親切かつスキルが高くてすごいなと思っております
最近、仕事が忙しいのとaccessから離れていたため、殆ど参加しておりませんでした。時々、簡単な質問のみ答えていました
近々、「名無しさん」で私の分かる範囲でしたらお答えいたします
では

662 ：名無しさん＠そうだ選挙にいこう：03/07/09 13:08

>>654
細かいことだけど、DoCmd.RunSql (SQLString)は非同期動作だし、確認メッセージ消す手間もあるんで
CurrentDB.Execute (SQLString), dbFailOnError
をおすすめするです。

663 ：名無しさん＠そうだ選挙にいこう：03/07/09 13:43

なるほろ、MSDEで外部と接続ありならその方が楽～
確認メッセージ消す手間…DoCmd.SetWarnings Falseで
通常、ほとんどのメッセージを殺してしまうと言う手もある

でもスタンドアローン状態の自mdb内処理ではないなら
CurrentDB.Execute (SQLString), dbFailOnErrorの方が良いよね

664 ：名無しさん＠そうだ選挙にいこう：03/07/09 13:57

あ、1さん、ご苦労様です。
いつもこのスレ、お世話になっています。
(質問したことはないけど)
これからもよろしく～

665 ：名無しさん＠そうだ選挙にいこう：03/07/09 18:08

MSDEで開発している人に朗報
SQL Server 2000 Developer Editionが8月1日から8,800円に価格改定。
開発者用なので実際の業務には使えませんが、MSDEでの開発、テストが楽になりますね。
http://www.microsoft.com/japan/presspass/detail.aspx?newsid=1632

666 ：名無しさん＠そうだ選挙にいこう：03/07/09 21:34

ストアドプロシージャの使い方がよく分かりません。。。
どこか分かりやすいサイトないですかね？

667 ：名無しさん＠そうだ選挙にいこう：03/07/09 22:08

>>666
MSのWebサイトから Microsoft SQL Server 2000 Books Online(SP3)を
ダウンロードできるので、それに目を通そう
他の人の Webサイトは*基本がわかっている人*を前提に書かれているよう
なので、初めて学習する人には辛いのではないかと思う（いや、そういう
サイトしか見ていないだけかもしれないけど）

668 ：名無しさん＠そうだ選挙にいこう：03/07/09 22:24

>>661
テンプレート周りの見直し&修正宜しく。

by スレ立てから降りた人

669 ：名無しさん＠そうだ選挙にいこう：03/07/09 22:38

>>668
アプリの基本操作に関する質問は、初心者スレ誘導がいいんじゃねえかと・・・・・・
せっかく分けたんだし。

670 ：名無しさん＠そうだ選挙にいこう：03/07/09 22:57

>>669
スレのカバーする範囲を"どこからどこまで"と明確に切り分けできれば
いいんでしょうけど、難しくないですか？線引きが。

ム板にも Accessスレがありますし、DB板にも新たにできてしまったし
これからスレの住み分けをどうするんだろう？と、かなり疑問が。

671 ：638,639：03/07/10 03:46

回答下さった皆様、本当に有難うございます。
SQL Server(MSDE)・・・これが何だかまだ調べてませんが、
今やってるのはVBAでのイベント内の処理です。
何か仕事で開発してる訳ではなく個人的に色々と検索処理を
試している状況ですので本格的な回答にはちょっと恐縮してます。

個別にレス出来ませんが、せっかく手をつけたので
まずは>>649-650 >>655を出来るようにしたいと思います。
その後、ｷﾀ━(ﾟ∀ﾟ)━!!!!と思われる>>657をベースに
改善してみたいと思います。
where句とgroup by句が併用できるとは気づきませんでした。
group byでまとめたら後はもうhavingで絞り込むだけのものと
思い込んでました。

SQLを記述するならdbFailOnErrorでエラー時対策も必要ですか。
ちょっと凝り出すとAccessは奥が深いですね。地道に頑張ります。

672 ：1：03/07/10 08:44

>>668-669
私も少し思っていました
このスレが終わるまでに、テンプレ周りの見直しを考えてみます
また、殆どの質問及び回答がVBA、SQL発行関係になっていますので棲み分けが必要ですね
あとは簡単な誘導ですね

673 ：1：03/07/10 08:49

>>670
私が思っているのは、VBA周りが主の板でいいのかな？という感じです
少し前の板を見直すと大体がVBAﾒｲﾝの話（処理方法）が多いように思います
初期の頃は、本当に幅広く何でもアリでしたけど

674 ：名無しさん＠そうだ選挙にいこう：03/07/10 09:40

　Postgresを運用し、ODBCを経由しフロントエンドにAccessを使おうと
思っています。
　ここで質問ですが。。このようにフロントエンドにAccessを使う場合、
Accessのみを使う場合と比べて制約があるでしょうか？
（実はDBデータはAccessで作って、pgAdminIIでpostgresにデータを移し
ました。リレーションなどの情報がなくなっていました。）
　DBのデータ（テーブル？）だけを別のRDBMに移して、普通にAccessで
できていたこと（クエリやフォームなどを使う）をできるようにしたい
んですが。。

　ご面倒ですが、なにかアドバイスがありましたらお願いいたします。

675 ：名無しさん＠そうだ選挙にいこう：03/07/10 09:45

>>674
http://www.interwiz.koganei.tokyo.jp/software/PsqlODBC/

676 ：名無しさん＠そうだ選挙にいこう：03/07/10 10:01

>>674
Postgresとは Postgres95 - PostgreSQLの母体となったDBMSです。
多少でもソフトウェアに係わる身なれば呼称はキチンと使いわけて
頂きたいものです。

# 用語の乱用は誤解を招く元なり

677 ：名無しさん＠そうだ選挙にいこう：03/07/10 10:24

　WinNTSP6a+IE5.5SP2 の環境に、Office2000ProSP3 の
Access2000(9.0.6926)を導入しています。
テーブル間に参照整合性制約+連鎖更新を設定するクエリを、ヘルプを
頼りに以下のように記述しました。

ALTER TABLE tbl_hoge
ADD CONSTRAINT fkey_hoge_fkID
FOREIGN KEY (fkID) REFERENCES tbl_foo(ID)
ON DELETE CASCADE;

上記クエリを実行(保存)しようとすると、
「CONSTRAINT 句の構文エラーです。」
という警告が表示され、実行できないのです。

　"ON DELETE CASCADE" を削ったり、
"REFERENCES tbl_foo(ID) ONDELETECASCADE"
と第二引数(?)に意味のない文字列を与えた場合は、
参照整合性制約だけは作成されることを確認しています。

　クエリで参照整合性制約+連鎖更新(削除)を設定する
方法についてご存知の方いらっしゃいましたら、お知恵を
お分けください。よろしくお願いします。

678 ：677：03/07/10 10:26

すみません、>677 の
>テーブル間に参照整合性制約+連鎖更新を設定するクエリを
は、連鎖削除を設定するクエリの間違いでした。

679 ：名無しさん＠そうだ選挙にいこう：03/07/10 10:37

>>674
http://koano-net.ddo.jp/a/pgsql/access/access.html

680 ：名無しさん＠そうだ選挙にいこう：03/07/10 10:39

>675,676
MS-Accessをフロントエンドにして、PostgreSQL ODBCドライバを使って
PostgreSQLにアクセスしています。

　例えばODBC経由ではリレーションの「参照整合性」をチェックできませ
ん。これって、仕様ですか？

681 ：名無しさん＠そうだ選挙にいこう：03/07/10 11:39

>>680
http://www.techscore.com/tech/sql/14_01.html

682 ：名無しさん＠そうだ選挙にいこう：03/07/10 12:43

>>677-678
当方、Windows2000Pro.(SP4) + Access2002 SP-2にて確認を取りました。
テーブル/クエリを ANSI SQL89準拠モード及びANSI SQL92準拠モードで
試行しております。
クエリ
　MDBファイルANSI SQL89準拠:　CONSTRAINT句の構文エラー　つまりNG
　MDBファイルANSI SQL92準拠:　正常終了

VBA
　ADO & MDBファイルANSI SQL89準拠:　正常終了
　ADO & MDBファイルANSI SQL92準拠:　正常終了
　DAO & MDBファイルANSI SQL89準拠:　CONSTRAINT句の構文エラー
　DAO & MDBファイルANSI SQL92準拠:　CONSTRAINT句の構文エラー

以上の結果です。
さしあたって、Access2000において ON ～ CASCADEを正常に処理するには
VBAかつADOにて実行しなければならないのではと推測しますがいかがでしょう？

683 ：名無しさん＠そうだ選挙にいこう：03/07/12 15:29

大至急ヘルプです！！

テーブルで主キーにオートナンバー型を指定していて
例えば順番に 1、2、3、4 と順番に並んだ主キーがあるとして
主キーが 4のレコードを削除して次にレコードを作成すると
主キーは5になりますよね。

これなんらかの方法で 4 でレコードが作れたと思うんですが
どうすればよかったですか？
一度だけその削除されたレコードの主キーの情報を
消すことができればいいだけなんです。

運用中のデータベースでこれを行うのではなくて
作ってる途中で誤ってレコード削除してしまって
数自我ならば無くなってしまったんです。

まぁ、細かいことなので気にしなければいいんですが
なんか方法無いですか＞

684 ：名無しさん＠そうだ選挙にいこう：03/07/12 15:34

主キーフィールドを一度削除して
作り直したらいけました。

それ以外の方法もあれば教えてください

685 ：名無しさん＠そうだ選挙にいこう：03/07/12 15:36

http://members.tripod.co.jp/poponss/itiran.html
おすすめ懸賞・お小遣いサイトを紹介しています。

686 ：名無しさん＠そうだ選挙にいこう：03/07/12 18:24

あんまり関係ないけど、
CurrentDb.Execute "追加クエリ" で
原則1から始まるオートナンバー型フィールドに、0を突っ込むこともできるんだね。

どうでもいい話なのでSAGE

687 ：名無しさん＠そうだ選挙にいこう：03/07/12 18:31

A列｜
-----
-21 ｜
-25 ｜
-30 ｜

という感じで、マイナスのデータしかない列を-を外した数値にして
別の列にコピーしたいんですけど、できますか？

A列｜ B列
----------
-21 ｜ 21
-25 ｜ 25
-30 ｜ 30

って感じにしたいのです。

688 ：名無しさん＠そうだ選挙にいこう：03/07/12 19:05

更新クエリーでできる。[Ａ列]*-1 で更新せよ。

689 ：名無しさん＠そうだ選挙にいこう：03/07/12 20:15

>>688
できました！ありがとうございます。

690 ：687：03/07/12 21:01

度々すいません。
これをテキストでエクスポートすると、A列は -21 でエクスポートされるんですけど、
B列が 21.00 ってなってしまいます。

テーブルだったら、データ型をテキストにすればいいと思うんですけど、クエリの場合
データ型を設定する所がわかりません。

691 ：名無しさん＠そうだ選挙にいこう：03/07/12 22:10

　　　　　　冫─'　 ~　￣´^-、
　　　　　／　　　　　　　　　　丶
　　　　/　　　　　　　　　　　　　ノ、
　　　/　　／ヽ丿彡彡彡彡彡ヽヽ
　　　|　　丿　　　　　　　　　　　ミ
　　　|　彡　＿＿__　　＿＿__ 　ミ/
　　　ゝ_/／|　　　 |⌒|　　　 |ヽゞ
　　　|tゝ　　＼__／_　＼__／　| |
　　　ヽノ　　　　／＼_／＼　　 |ノ　　＿＿＿＿＿＿＿＿
　　　　ゝ　　　/ヽ───‐ヽ　/　　／
　　　　 /|ヽ　　　ヽ──'　　 /　＜この新機能どうよ?
　　　　/ | 　＼　　　￣　,／|　　　＼　　
　　／　ヽ　　　‐――‐　　　　　　　＼___＿＿＿＿＿
ttp://f7.aaacafe.ne.jp/~bobsap/phpup/img/285.bmp

692 ：687：03/07/12 22:22

自己レス
エクスポートの定義でデータ型を設定したらいけました。

693 ：名無しさん＠そうだ選挙にいこう：03/07/12 23:45

ここは、かろうじて、まだ夏休みじゃないみたいだね・・・・

694 ：名無しさん＠そうだ選挙にいこう：03/07/14 23:42

ACCESS97のVBAで作成したﾃｷｽﾄﾃﾞｰﾀをﾒｰﾙで送信するｱﾌﾟﾘを作ってます。
ｱｳﾄﾙｯｸｴｷｽﾌﾟﾚｽでデータ添付済みの送信メールを作りたいのですが、添付まで出来るいい方法がみつかりません。

現段階のコードはこんな感じです。
Dim lngReturn As Long
Dim strCommand As String
Dim strSubject As String
Dim strBody As String

strCommand = メールアドレス
strSubject = 件名
strBody = 本文

If LCase(Left(strCommand, 7)) <> "mailto:" Then
strCommand = "mailto:" & strCommand & "?subject=" & strSubject & _
"&body=" & strBody
End If

lngReturn = ShellExecute(Me.hWnd, _
"open", _
strCommand, _
vbNullChar, _
vbNullChar, _
SW_SHOWNORMAL)

何とか良いOEでの添付メール作成の方法ないでしょうか。。

695 ：山崎渉：03/07/15 11:15

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

696 ：677：03/07/16 00:24

>682
ありがとうございます。出来ました!!
まず以下のような関数を作成しました。脳ダンプなので間違っているかもしれませんが…

Function execSQL(strSQL as String)
Dim objCn as ADODB.connection
Set objCn = CurrentProject.Connection
objCn.Execute(strSQL)
objCn.Close
Set objCn = Nothing
End Function

これをマクロで呼び出し、引数に >677 のクエリを渡すと、思ったとおりの制約が
作成されました。

697 ：677：03/07/16 00:25

　ただ、もう一つ些細な疑問が出来てしまいました。
　始め >696 の Connection.Execute の結果を
execSQL=objCn.Execute(strSQL)
と戻り値として返していたのですが、こうすると制約はきちんと出来上がるのですが
「型が違います」という旨のエラーが出て、実行を停止してしまったのです。
　ためしにこれを呼び出すだけのサブルーチンを作成し、VBAEditorでサブルーチンを
実行させると正常に動作したのですが、これはマクロ実行のときにレコードセットを
返させたのが原因だったのでしょうか。
　時間が無かったのでこれ以上追求はしませんでしたが、気になるのでご存知の方、
宜しければ教えてください。

698 ：名無しさん＠そうだ選挙にいこう：03/07/16 15:20

ACCESSのOLEオブジェクト型を利用してjpgを保存し、
それを他のアプリケーションで利用しよう思っています。

しかし、OLEオブジェクト型にJPGファイルを挿入するときに
INSERT文を利用したいのですがそのやり方がわかりません。

どなたか教えてください。

699 ：ぷりん：03/07/16 16:03

すみません、教えて下さい。

WinMe ACCESS2000 です。

aaa.csvをインポートしてbbb.csvにするには、
どうしたらよいのでしょうか？

↓aaa.csv
HD,000001,20030716,20030717
BD,1,11111,商品１,10
BD,2,22222,商品２,20
TL,30
HD,000002,20030716,20030717
BD,1,11111,商品１,30
BD,2,22222,商品２,40
TL,70

↓bbb.csv
HD,000001,20030716,20030717,BD,1,11111,商品１,10
HD,000001,20030716,20030717,BD,2,22222,商品２,20
HD,000002,20030716,20030717,BD,1,11111,商品１,30
HD,000002,20030716,20030717,BD,2,22222,商品２,40

データ(aaa.csv)の説明
・ヘッダ、ボディ、テイルに分かれている。
・ＨＤ（ヘッダ）、伝票番号、出荷日、納品日
・ＢＤ（ボディ）、行番号、商品コード、商品名、数量
・ＴＬ（テイル）、合計数量
各ボディにヘッダを付けて、テイルを無視してbbb.csvに出力

700 ：_：03/07/16 16:17

701 ：_：03/07/16 19:37

702 ：名無しさん＠そうだ選挙にいこう：03/07/16 20:54

>>699
おいらなら、aaa.csvをperlかawkかsedで整形する。整形してインポートしたら選択クエリでテイルとやらを無視してエクスポート

703 ：名無しさん＠そうだ選挙にいこう：03/07/16 22:03

>>699
Access 向けのお題じゃないよ。
ほんとに Access しかないなら、VBA で処理すりゃいいだけ。

Option Explicit

Sub Main()
　Dim InFile As Integer, OutFile As Integer
　Dim Item() As String, SlipNo As String, ShippingDate As String, DeliveryDate As String
　Dim Line As String

　InFile = FreeFile
　Open "aa.csv" For Input As #InFile
　OutFile = FreeFile
　Open "bb.csv" For Output As #OutFile
　While Not EOF(InFile)
　　Line Input #InFile, Line
　　Item = Split(Line, ",")
　　Select Case Item(0)
　　Case "HD"
　　　SlipNo = Item(1): ShippingDate = Item(2): DeliveryDate = Trim(Item(3))
　　Case "BD"
　　　Print #OutFile, "HD," + SlipNo + "," + ShippingDate + "," + DeliveryDate + ",BD" + Item(1) + "," + Item(2) + "," + Item(3) + "," + Item(4)
　　Case "TL"
　　Case Else
　　　MsgBox "識別子が変だよ: " + Line
　　End Select
　Wend
　Close #OutFile
　Close #InFile
End Sub

704 ：名無しさん＠そうだ選挙にいこう：03/07/16 23:25

素人板にもカキコしたが・・・・

Access で Excel の関数を使う方法

http://www.asia.microsoft.com/japan/enable/training/kblight/T005/2/13.htm

見てみそ！

705 ：名無しさん＠そうだ選挙にいこう：03/07/17 00:21

なぜAccessを使わなければならないか、理由をまず教えてくれ。

706 ：名無しさん＠そうだ選挙にいこう：03/07/17 08:00

便利だから

707 ：６９９：03/07/17 08:31

>>703
ありがとうございます。

＞Access 向けのお題じゃないよ。
別の板で質問してきます。すみませんでした。

708 ：名無しさん＠そうだ選挙にいこう：03/07/17 15:32

お伺いします。

WIN2000でACCESS2002を使っています。

データをCSVでエクスポートすると日付の元ファイルの「2003/7/17」がCSV上で「2003/7/17 0:00:00」となってしまっています。
書式は　日付 (S)、定型入力0000/00/00;0;_　　です。

お力をお貸しください。

709 ：名無しさん@そうだ選挙にいこう：03/07/17 15:46

>>708
メモ帳でCSVを開いてもなる？
ならなければExcel側の問題では？

710 ：名無しさん@そうだ選挙にいこう：03/07/17 15:55

>>708
Format(日付フィールド,"yyyy/mm/dd")をつかえ

711 ：名無しさん＠そうだ選挙にいこう：03/07/17 16:00

>>709
エクセルは使用していません。
エクスポートのプレビュー時にすでに変わってしまっています。

712 ：名無しさん＠そうだ選挙にいこう：03/07/17 16:05

>>710

亀レスすみません。
ありがとうございました。解決しました。

713 ：名無しさん＠そうだ選挙にいこう：03/07/19 00:51

ストアドプロシージャでSQLを丸っと発行できる記述式を教えてください。

(
@パラ
)

as

exec(@パラ)
return

パラをフォーム上のテキストボックスにして、コマンドボタンを押すと
SQL文を発行します。
↑じゃダメだよね。

714 ：名無しさん＠そうだ選挙にいこう：03/07/19 01:04

Access97でバーコードコントロールを使いバーコードを印字してます。
コントロールソースに印字したいバーコードのデータを入れるようにしてるのですが、
いつの間にか、そのコントロールソースに書いたものが消えてしまいます。
きちんとコントロールソースに式を書いて保存するのですが、他の
作業をした後にまた見ると消えていたりします。

なにかいい解決方法は無いでしょうか？

715 ：名無しさん＠そうだ選挙にいこう：03/07/19 01:26

めちゃくちゃ可愛い子が脱いでしまった、、、無修正で☆
http://www3.free-city.net/home/espresso/princess/peach.html

きれいな人妻がまってるよ！コギャルやOLも！
http://www3.free-city.net/home/espresso/au/sweety.html

716 ：名無しさん＠そうだ選挙にいこう：03/07/19 01:36

http://www.geocities.co.jp/HiTeens-Penguin/4966/
向上よいとこ

717 ：名無しさん＠そうだ選挙にいこう：03/07/19 07:15

>>714
テーブル作ってそっちに保存したら
どうかね？

718 ：名無しさん＠そうだ選挙にいこう：03/07/19 10:48

バクのあったバーコードコントロール使ってないか？
こっそりＭＳが対応したやつ。

719 ：初心者：03/07/19 18:37

初心者質問ゴメソ！

win98、アクセス2000使ってます。
質問なのですが、フィールドに入っているデータを1つに
まとめる事はできますか？

今、Ａ列には苗字、Ｂ列には名前が入力されているんですが
（例：田中太郎）
A列｜ B列
----------
田中｜太郎　を、

　　A列
----------
田中　太郎

にしたいんです。
何か方法があったら伝授お願いします！！！

720 ：名無しさん＠そうだ選挙にいこう：03/07/20 02:39

>>719
更新クエリ。（A列&B列）

721 ：名無しさん＠そうだ選挙にいこう：03/07/20 04:02

>>719,720
つか、ただの選択クエリでもいいような気が。。。

どうしてもテーブルそのものを変えたいのかな。
個人的な経験、なんてものをここで書いても意味ないのかもしれないけど
俺はそれをやって、「ああ、やっぱ分けときゃよかった」てな経験がある。
さいわい、姓と名の間にスペース" "入れてたんで、それを目印にあらためて
分解することが出来たわけだが。InStr関数のことを知るまでに数時間を費やした。

722 ：名無しさん＠そうだ選挙にいこう：03/07/20 09:27

メモ型のデータを行間を開けてレポート印刷
しようとしたのですが、

テキストボックスのプロパティで、
「印刷時拡張…はい」の状態で、
「行間…0.2cm」などと設定したあと、

印刷プレビューを見ると、
テキストデータの内容が途中までしか表示
されませんでした。（実際に印刷しても同様。）

「行間0cm」の状態で表示される領域を超えた部分は、
テキストが途切れて、表示されていないようです。

「印刷時拡張…はい」の状態で行間を設定し、
テキストの内容が途切れず印刷できる方法を
ご存知の方、ご教授おねがいします。

723 ：名無しさん＠そうだ選挙にいこう：03/07/20 09:34

★★★★★★★★★★★★★★★★★★★★
★　　激安アダルトＤＶＤショップ　　★
★　　　　お買い得セール1枚500円！急げ！ ★
★★★★★★★★★★★★★★★★★★★★
　　　　　　　　激安でDVDをGET！
　　　　　　http://www.get-dvd.com
　　　何と！　1枚　500円均一　セール中！

　　　インターネット初！「きたぐに割引」
　　北海道・東北の皆様は送料も激安！！
　　　　　　http://www.get-dvd.com
　　　　　　　ゲットDVDドットコム！
　　　
　　　　今すぐアクセス　　Let's go　!!!!!!!

724 ：_：03/07/20 09:35

725 ：722：03/07/20 11:55

MSのHPによると、行間の問題は、私が使っているAccess2000のバグらしいのですが
ttp://support.microsoft.com/default.aspx?scid=kb;ja;414323

Access2002買う以外になにか方法（マクロ処理等）ありましたら、
お願いします。

726 ：初心者：03/07/20 13:28

>720
>721
ありがとうございました！ｍ（_ _）ｍ

727 ：名無しさん＠そうだ選挙にいこう：03/07/20 21:38

ACCESS初心者です。
教えて頂きたいことがあるのですが宜しくお願いします。

フォーム上でボタンを押してサブフォームを出して入力するという
作業をしています。
フォームに入力されているデータの一部をサブフォームにも
入力しているのですが、ボタンを押してサブフォームが開くと
同時にこの作業を行うようにするにはどのようにしたら宜しいのでしょうか？

728 ：名無しさん＠そうだ選挙にいこう：03/07/20 22:28

>>727
ボタンのクリックイベントで入力されたデータを取得
取得したデータをサブフォームのデータ元テーブルに挿入
サブフォーム表示
という流れをVBAで書く

729 ：名無しさん＠そうだ選挙にいこう：03/07/21 00:11

>>717
書き足りなかったかもしれませんが、バーコードというのは郵便局の
カスタマバーコードじゃなくて、普通のバーコードです。

>>718
そうですか。バグがあるんですか・・・
その線で調べてみます

730 ：名無しさん＠そうだ選挙にいこう：03/07/21 14:07

2つのテーブル（①及び②）で各々A、B、Cと3つのフィールドがある時、
A、B、Cの組合わせが全てイコールのデータと、片方のテーブルには
存在して、片方のテーブルには存在しない、といった条件をまとめて
抽出する方法があれば教えてもらえませんでしょうか。
①＝②
①にはあるもの
②にはあるもの
という3つをまとめて表示したいです。

731 ：名無しさん＠そうだ選挙にいこう：03/07/21 14:48

初心者で申し訳ありませんが助けてください。
自宅のＰＣ　OS windows xp pro ＋access2002で作ったデータベースで
タブをつくりその中で顧客一人一人に関連する写真を貼り付けるようにして
自宅では上手く表示されているのですが、会社のパソコンOS windows xp home＋access2000
ではその写真のパス名（dcf 0001.jpg)としか表示されません。
これはどうすれば解決できるのでしょうか？教えてください。お願いします。

732 ：名無しさん＠そうだ選挙にいこう：03/07/21 19:53

>>730
VBAでレコードセット取得してLOOPで回すくらいしか思いつかないね。
多分、処理に時間がかかりそうだけど。

733 ：名無しさん＠そうだ選挙にいこう：03/07/21 21:13

>>730
例えば
クエリー1：フィールドA/B/Cが①＝②
クエリー2：①にあって②にないデータ
クエリー3：②にあって①にないデータ
この3つのクエリーをユニオンする。
その際、フィールドを1つ追加しクエリー1は"同一"、クエリー2は"①"
クエリー3は"②"とすると分かり易いかもしれない。
これで出来ないかな？

…でも、この条件って結局、①②テーブルの全データを表示することに
なるんじゃないのかなぁ？

734 ：732：03/07/21 21:23

>>733
そうか、テーブルが3つあるのかと勘違いしてた・・・・・
別クエリ作ってA＆B＆Cの演算フィールド作れば
重複クエリで処理できる予感・・・・・・

組み合わせ数次第では、こちらの方が早いか？

735 ：733：03/07/21 21:29

>734　733さん、自分はトーシロで初心者に毛が生えた程度なので…
いつもこの手のものはクエリー作ってユニオンしちゃうんだ
その方が結果が正しいかどうかテストしやすいからね

でも、A＆B＆Cの演算フィールド+重複除去処理か
テーブル①+②全データからの重複除去処理の
どちらかの方が処理的には早いような気がするなー

736 ：733：03/07/21 21:32

↑733さんじゃなくって　732さんでした
自分宛にしてどうするよ…全く、ｽﾝﾏｾﾝ

737 ：名無しさん＠そうだ選挙にいこう：03/07/21 22:01

>>730
SQLに関する質問はム板のSQLスレで聞いたほうがまともなレスがつくよ。

738 ：名無しさん＠そうだ選挙にいこう：03/07/22 18:46

帳票フォームで一つの項目を固定したいのですが
方法はないのでしょうか？
２段で１レコードにする必要があるためデータシ
ートでは使えないのです。

739 ：名無しさん＠そうだ選挙にいこう：03/07/22 20:42

>>738
>帳票フォームで一つの項目を固定したいのですが

意味不明

740 ：738：03/07/22 21:34

>>739
データシートでゆうところの列固定です。
って意味がわかったところであなたはわかるのですか？

741 ：名無しさん＠そうだ選挙にいこう：03/07/22 21:38

>>740
気分を害したようなので謝っておく。

ごめんなさい。

質問については
分かる気はするが回答する気はない。では。

742 ：_：03/07/22 21:41

743 ：名無しさん＠そうだ選挙にいこう：03/07/22 22:03

>>740
こんな書き込みを見ると分かっていても回答したくない。

744 ：名無しさん＠そうだ選挙にいこう：03/07/22 23:03

>>740
ちゅうか、そんな簡単なことくらいわからない奴この板にいるのか？

745 ：名無しさん＠そうだ選挙にいこう：03/07/22 23:06

>>738
>２段で１レコードにする必要があるためデータシートでは使えないのです。

お前のほうが使えねーよ。
さっさとイカ食って氏ねよ。

746 ：名無しさん＠そうだ選挙にいこう：03/07/22 23:07

>>744
この板ｱﾌｫばっかじゃん。

それ遺骸は胴囲

747 ：名無しさん＠そうだ選挙にいこう：03/07/23 06:56

>>740
この板でそんなことわかるヤツはいねーよ。
もっとレベルの高いとコで聞いた方がいいよ（ｗ

748 ：740：03/07/23 11:11

ここでは私の質問は高度過ぎて、答えられるよ
うな人は誰もいないようですね。
もうちょっと勉強してください。

749 ：名無しさん＠そうだ選挙にいこう：03/07/23 13:25

>>740
了解。勉強しとくよ。
さいならｗ

750 ：名無しさん＠そうだ選挙にいこう：03/07/23 13:46

>>748
帳票フォームで列固定は、できないんじゃないのか？
成功したという話も聞かないしな

751 ：名無しさん＠そうだ選挙にいこう：03/07/23 14:14

２つのサブフォームを使って、横に並べて、
スクロールバーではなく、ボタンを作ってレコードの移動をさせるというのはどうでしょう？
下向きのボタンをクリックしたら、１レコードずつ移動していって... とか。
いっぺんに移動させる場合は、SendKeys などを使って、
PageUp等を押したことにしてしまうとか。

752 ：　：03/07/23 16:56

１つのレポートにおいて

　　=[年度] & "年"
　　－－－－－－－
で定義したテキストが、
まず、「印刷プレビュー形式」で開いた場合には
　2003年
と表示されるので問題ないんですが、それを「印刷」すると、
#Name$
と出力されてしまうことがよくあるのです。（特に一回目）

どうすればいいんでしょうか？

753 ：740：03/07/23 17:46

>>751 >>750
レスありがとうございます
できれば、帳票フォームだけで行いたいのです。
現に、帳票フォームだけで固定（？）されている方も
いるようなので

754 ：名無しさん＠そうだ選挙にいこう：03/07/23 18:51

諸先輩方に質問します
OS：XP でAccess2002を使っております
郵便番号を全角で入っている列を
一括で半角に変換する方法を御教え下さい宜しくお願いいたします。
15000件ほどある郵便番号を半角に変えたいのですが調べても良く判らず
困っております

755 ：名無しさん＠そうだ選挙にいこう：03/07/23 19:05

>>740
できるよ、結構簡単に。
喪前が最初に質問してから経ってる時間を考えると、十分調べられたはずだが。

756 ：名無しさん＠そうだ選挙にいこう：03/07/23 19:13

>>754
VBAが使えるなら

StrConv(変換したい文字列, vbNarrow)だけど、
わかんないなら、

１→1,２→2,・・・・・・・の検索置換を10回やればいんでね。
でなきゃエクセルで処理して再インポートとか。

757 ：名無しさん＠そうだ選挙にいこう：03/07/23 19:31

せっかくデータベース使ってるんだから、Updateしようよ。

758 ：754：03/07/23 19:54

>756
有難う御座います
10回置換でやってみます

759 ：740：03/07/23 20:01

>>755
あなたには、聞いてません。
web等で調べましたができるとはついぞ見あたりませんでしたし。
知ってるフリだけならサルでもできますよ。

760 ：名無しさん＠そうだ選挙にいこう：03/07/23 20:13

>>759
どうもあなたの質問は高度すぎて、
このスレでは、とても対応できないと思いますよ。

こちらの方がいいのでは？
Microsoft Access
http://pc2.2ch.net/test/read.cgi/db/1056952414/

こちらなら、スキルの高い人が多いと聞きますし。

761 ：754：03/07/23 20:56

>756
有難う御座います、上手く行きました。

762 ：名無しさん＠そうだ選挙にいこう：03/07/24 00:10

ある文字 = Chr(何番か?)
これを知る方法ってありますか。

ついでに
Web上でひろってきたコードで
Chr(&HA)
みたいな書き方を見かけたんですけど、長整数型でもない
この&HAってのは、いったいどこから出てきたんでしょう。
↑
ちょっと実験してみたんですけど、
MsgBox Chr(&HA)
というコードを書いても、エラーにならないんですね。
実行しても何にも表示されませんけど

763 ：名無しさん＠そうだ選挙にいこう：03/07/24 00:27

>>762
文字を引数として、その文字のコードを知りたいわけ？なら ASC関数があるけどね。

それから、&HAって、この表記の意味が知りたいのかな？
（多くの）BASICの場合、&Hは16進数を表すんだな。
この場合、&HAは10進数では 10 ってことはわかる？

764 ：名無しさん＠そうだ選挙にいこう：03/07/24 00:34

>>740
素人用スレだと親切に教えてくれるかもよ。
レベル的にも素人以下だし。

765 ：_：03/07/24 00:49

http://homepage.mac.com/hiroyuki44/jaz05.html

766 ：_：03/07/24 00:56

767 ：名無しさん＠そうだ選挙にいこう：03/07/24 01:06

>>763
>>Asc関数
感謝します。

>>&H
これはちょっと見かけて、おや、と思ったモノで、
現在差し迫ってどうのこうのという問題ではないんですけど
(つまり単純に好奇心)

>>&HAは10進数では 10
というのが今ひとつ理解できません。
使う桁数が少なくて済む表記の仕方なんだろうな、ぐらいのことは
何となく想像がつきますけど(もしかしてこれも違うかな)
出来たら、他にも5つ6つ例を挙げていただけないでしょうか

768 ：767：03/07/24 01:52

自己解決です
「basic 16進数」でググったら出てきました

769 ：名無しさん：03/07/24 08:35

770 ：名無しさん：03/07/24 12:49

>>769
どうしようもない

771 ：名無しさん＠そうだ選挙にいこう：03/07/25 15:00

サブフォームがあるフォームを開いたとき、
フォーカスを自動的にそのサブフォームの新規レコードに移動させたいのですが、
どうすればよろしいのでしょうか？

772 ：名無しさん＠そうだ選挙にいこう：03/07/25 15:32

>>771
解釈その１
　メインフォーム/サブフォームの入れ子構造のフォームを開いた時

解釈その２
　サブフォームから別のフォームを開いた時

どっち？

> サブフォームがあるフォームを開いたとき
「サブフォームが、とある別のフォームを」と意味解釈できてしまうんで。

773 ：771：03/07/25 19:39

>772
解釈その１のつもりでしたけど、その２でも構わないです。

フォームを開いた時っていうのも、本当はどうでも良くて、
とにかく、サブフォームの新規レコードへ移動するプログラムが分かれば。

『Docmd.GotoRecord , , acNewRec』はメインフォームにしか使えませんよねぇ・・・

774 ：名無しさん＠そうだ選挙にいこう：03/07/25 20:32

>>773
メインフォームのOpenイベントでSetfocusを使ってサブフォームにFocusを移す。
　＋
サブフォームのOpenイベントなりで新規レコードに飛ばす。

で、多少あがいてみて、なお分からなければ再度また。

775 ：771：03/07/25 23:21

>774
ありがとうございます。
試せるのが月曜日になってしまうので、
もしそのときにもこちらを見てみえましたら、またご指導をお願いします。

776 ：名無しさん＠そうだ選挙にいこう：03/07/26 11:32

ACCESSってデータベースなの？

777 ：名無しさん＠そうだ選挙にいこう：03/07/26 12:54

データベースソフト
もしくは
フロントエンド

778 ：名無しさん＠そうだ選挙にいこう：03/07/26 17:55

ACCESS2000ですが、ページ設定（印刷）を設定しても、たまにプリンターの基本設定に戻ってしまいます。
他のどこかに設定を保存する場所があるのですか？
または、VBAとかで用紙サイズや余白を指定できますか？
できるかどうかだけでも教えてください。

779 ：名無しさん＠そうだ選挙にいこう：03/07/26 23:20

>>778
ttp://www.accessclub.jp/samplefile/samplefile_58.htm

レコード件数が不定の場合でも
ページごとに決められた枠を描くにはどうすればいいでしょうか？
今は足りないレコードの数を計算して
ソーとフィールドのみのカラのレコードを挿入しています。
何かいい方法ありませんか？

780 ：突然ですが質問です：03/07/27 00:37

現在ワードver2002を使用しています
ワードでデータの差込などをする際アクセス2000でも大丈夫でしょうか？

781 ：778：03/07/27 13:35

>>779
ありがとうございました。

782 ：名無しさん＠そうだ選挙にいこう：03/07/27 22:19

>>779
OpenイベントでLine

783 ：779：03/07/28 00:10

>>782
Lineってどういうことでしょうか？
もうちょっと詳しく教えて下さい。
Lineオブジェクトを先に配置しておいて
Visibleプロパティで切り替えるって意味でしょうか？
だとしたらデザイン時、詳細セクションには
1レコード分の領域しかないのでそう考えても行き詰まってしまいました。
お手数ですがよろしくお願いします。

784 ：名無しさん＠そうだ選挙にいこう：03/07/28 01:06

>>783
LineってVBAのLineメソッドって事。

あとこれ以外にもこんなのとか。
http://support.microsoft.com/default.aspx?scid=kb;ja;JP404909

785 ：名無しさん＠そうだ選挙にいこう：03/07/28 01:47

Access2000でADOを使っています。
フォームでデータを入力→コマンドボタンで閉じる時に保存をかけようとしてます。
フォームのレコードソースとしてテーブルAを指定してあります。

画面で入力→ボタンをクリック→（プロシージャで）Me.Requery→レコードセット
でテーブルAとBを開く→データを保存
という流れで処理してるのですが、
画面で最後に入力したデータが保存されません。
Me.Requeryの後にメッセージボックスを置いてみることによって
どうもMe.Requeryで実際にデータが保存されるのにタイムラグが
あるようだということがわかりました。

普段はAccess97で開発してまして、こういうタイムラグのようなもの
を経験したことがないのですが、この様な場合、どうやって画面の
データを即更新できますか？

786 ：名無しさん＠そうだ選挙にいこう：03/07/28 02:15

何としても浜崎のベストジーニスト殿堂入りを阻止しようよ！！
今ならまだ間に合う、「aiko」に投票を！！！！！
もし、あなたがアンチ「aiko」なら、現在３位の松嶋菜々子でもかまいません！！
（あまり幅を広げると票が割れすぎて浜崎に喰われます！！）
田村亮子ことＹ（Ｔ）ＡＷＡＲＡちゃんとの声もありますが、
選考委員会に握りつぶされる危険が高すぎます！！
ここは無難に圧倒的大差で「aiko」を勝たせましょう！！

◎投票結果
http://www.best-jeans.com/count/index.html#top
◎投票フォーム（一人一回制限）
http://www.best-jeans.com/present/bj2003.html

原則、本名で投票。

*他のスレにコピペをよろしくお願いします

7月31日までです！!!

787 ：名無しさん＠そうだ選挙にいこう：03/07/28 11:30

アクセス２０００ですが、
帳票フォームでレコードを移動するときに下記のコードを
キー入力イベント時に書いて矢印キーで、上下（レコード移動）
させております。

If vbKeyUp = KeyCode Then
　DoCmd.GoToRecord , , acPrevious
ElseIf vbKeyDown = KeyCode Then
　DoCmd.GoToRecord , , acNext
endif

ところがコンボボックスの時にうまくいきません
方法をご存じの方はおられませんか？

788 ：名無しさん＠そうだ選挙にいこう：03/07/28 17:03

http://www.shitamachi.net/ranking/cgi23/ranklink/ranklink.cgi?id=23top

789 ：779：03/07/29 01:16

>>784
非常に参考になりそうです。
時間のある時にゆっくり見てみたいと思います。
ありがとうございました。

790 ：名無しさん＠そうだ選挙にいこう：03/07/29 03:48

文字列のフィールドに入ってるデータ　たとえば、101　021　057　みたいなのを
数値として　101　21　57　として扱いたいのですが、どうしたらいいでしょう。
Excelのワークシート関数 value　みたいな関数。

どうしても思いつかないので、

Function accessdevalue(mozi)
Set obj = CreateObject("excel.sheet")
obj.ActiveSheet.range("A1").Value = mozi
obj.ActiveSheet.range("B1").Value = "=value(A1)"
accessdevalue = obj.ActiveSheet.range("A1").Value
End Function

自分でも基地外だと思います。誰か、助けてください。

791 ：名無しさん＠そうだ選挙にいこう：03/07/29 07:17

cast とか？

792 ：名無しさん@そうだ選挙にいこう：03/07/29 07:47

>>790
データ型変換関数を使えばいいんでないの？

CInt　整数型
CDbl　倍精度浮動小数点数型
CLng　長整数型
CSng　単精度浮動小数点数型

など…

793 ：名無しさん＠そうだ選挙にいこう：03/07/29 11:05

val関数使えばいいじゃん。

794 ：名無しさん＠そうだ選挙にいこう：03/07/29 13:11

Accessのレポートで出力されたものを、そのままワードなりなんなりで
出力したいのですが、できるもんなのでしょうか？

あの出力結果をそのままメール送信するとレイアウトなどがすべてはず
れた状態になってしまい、なんともださい状態になってしまいます。

795 ：名無しさん@そうだ選挙にいこう：03/07/29 13:56

>>794
閲覧だけならスナップショット形式がいいのでは？
Viewer は以下からダウンロードできます。(既にインストされているかも)
ttp://office.microsoft.com/japan/Assistance/9798/snapshot.aspx

796 ：名無しさん＠そうだ選挙にいこう：03/07/29 15:19

「このコントロールの名前」ってのは何て書けばいいんでしょう

たとえば、あるコマンドボタンをクリックしたとき、その「コマンドボタンの名前」
をメッセージボックスで表示させたい、とか(いや、本当はそんなことがやりたい
わけじゃないんですが)
MsgBox 何ちゃら　　みたいな

ためしに
MsgBox ControlName
なんて書いてみたら、エラーも出ず、何にも表示してくれませんでした。
ためしついでに
MsgBox Name
なんてこともやってみましたが、これだとフォーム名が表示されてしまいました

797 ：名無しさん＠そうだ選挙にいこう：03/07/29 15:36

>>796
ActiveControlプロパティってのを調べてみれ。
ヒントくらい見つかるぞぃ。

それとバージョンぐらい書け。うちはAccess2002だがなぁ

798 ：名無しさん＠そうだ選挙にいこう：03/07/29 17:44

access2000を使ってます。
帳票フォームで、日付を表示させております。
これを
現在→こうしたい
1/2　1/2
1/2
1/2
1/3　1/3
1/3
1/4　1/4
1/5　1/5
このようにする方法はありますでしょうか？

799 ：名無しさん＠そうだ選挙にいこう：03/07/29 17:54

>>798
ヒント：重複データ非表示
もしくは　Private Sub 詳細_Format　にゴリゴリ書く。

800 ：_：03/07/29 18:12

http://homepage.mac.com/hiroyuki44/hankaku04.html

801 ：名無しさん＠そうだ選挙にいこう：03/07/29 18:45

>>799
レポートでしたらご指摘の方法ですでにできるのですが、
帳票フォームの表示がみずらいので困っているのです。

802 ：_：03/07/29 18:46

http://homepage.mac.com/hiroyuki44/jaz09.html

803 ：名無しさん＠そうだ選挙にいこう：03/07/29 18:47

☆エッチな美女たちに癒されてください☆
http://endou.kir.jp/yuminet/link.html
http://endou.kir.jp/marimo/link.html

804 ：796：03/07/29 19:52

>>797
ありがとさんです
ヒントっていうよりほぼそのまんま答でした。
実際にはメッセージボックス表示なんてことがやりたかったわけじゃなく
コントロールの名前によって処理を書き分けたかったんで。
Cmd01、Cmd02・・・で、処理も大体同じような内容なので、ボタン一個
一個についてプロシージャ書かなきゃならないなんて絶対変だ、きっと
Function一発ですむはずだと思って。

遅ればせながら(手遅れだっつうの)Ac2000です

805 ：マクロ：03/07/29 22:16

すいません。
テーブルに画像をいれてレポートで印刷できるようになりますか？
教えて下さい。

806 ：名無しさん＠そうだ選挙にいこう：03/07/29 22:20

あげ

807 ：799：03/07/30 12:15

>>801
読み間違いスマソ。

帳票フォームでやるなら、日付表示用ダミーテーブル作って、
ダミーテーブルと元テーブルを連結してダミーテーブルに日付を
書くコードを書けばできるかな。

更新時などの処理がめんどうそうだが、なんとかなるとは思う。

808 ：名無しさん＠そうだ選挙にいこう：03/07/30 12:19

>>805
出来るよ。で　画像はなにから取っていますか。
まず画像からだな。

809 ：名無しさん＠そうだ選挙にいこう：03/07/30 12:51

なんか作ったアクセスを使って、
ボタンを押されたときに、CD-R若しくはCD-RWに
データを焼くようなことって出来る。
FDだったら出来る知識は持っている。

810 ：名無しさん＠そうだ選挙にいこう：03/07/30 13:02

現在運用中のAccessデータベース（ちょっとした会計帳簿ソフト）

これをボタン一発でデータを月次毎にバックアップをしたいです。
そのさいに、元のデータベースの一部のテーブル内容（勘定科目や
定数的な金額情報主に商品単価など）をクリアせず、たの仕入れ
情報などをクリアするようにしたいのですが、

バックアップ（完全レプリカで結構です）をとり、主データベースのほう
をクリアするにはどうしたらよいでしょうか？

この時、主データベースは初期状態に持っていきたいのですが、主キ
ーにあたる部分などは続きからにしたくないのですが、なにか良い案は
ありますでしょうか？

811 ：名無しさん＠そうだ選挙にいこう：03/07/30 17:50

>>810
SQLでInsert→Delete

主キーを最初からとりたいなら、最適化(DAOかJRO)

812 ：マクロ：03/07/30 22:21

＞８０８
返信ありがとうございます。
画像はデジカメから取ってデスクトップに保存したＪＰＥＧイメージ
です。テーブルに入れれるでしょうか教えて下さい。

813 ：名無しさん＠そうだ選挙にいこう：03/07/31 00:17

>>811
なるほど。ありがとうございまいた。

814 ：名無しさん＠そうだ選挙にいこう：03/07/31 01:10

>812
画像ファイルへのパスをテーブルに文字列として格納。
画像自体を入れる必要は無い。
レポートにピクチャボックスでも配置して
パスを設定してファイルパスを元にロードする。

といけると思う。

レポートで表を作成しているのですが
枠だけ太くしたいのですがうまくいきません。
詳細部分（でいいのかな？）にテキストボックスをおき
テーブルに連結しています。
ページが変る瞬間に呼ばれるイベントハンドラに
太線に設定したLineをVisible=Trueにしたいのですが、
具体的にどこに処理を書けばいいのかわかりません。
明日朝完成させなければなりません。。
なんとか知恵を貸してくれませんか？
よろしくお願いします。

815 ：814：03/07/31 01:12

>814
上記の処理で行う対象のLineは
枠の一番下にあたるLineのことです。
説明不足失礼しました。

816 ：　：03/07/31 09:40

Access2000について

テーブルからデータを検索をするときに

strSQL = "SELECT 値 FROM テーブル名 WHERE キー"
Rs.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic, adCmdText

と

Rs.Find "通貨コードA = '" + wkRs("通貨コードA") + "'"

と

クエリー

の３つだとどれが一番検索速度が速いか教えてください。
現在、SQLを発行しているのですが遅いような？？

大量データをループするのでインデックスなど利用してようと
思っていいます。

よろしくお願いします。

817 ：名無しさん＠そうだ選挙にいこう：03/07/31 11:25

809の質問者です。
その回答をどなたかお願いします。

818 ：名無しさん＠そうだ選挙にいこう：03/07/31 11:50

>>809
パケットライトソフトを使う

819 ：名無しさん＠そうだ選挙にいこう：03/07/31 13:51

>>816
一般的な話の前に、まずは自分の環境で
それぞれの場合の経過時間を計測してみるのが良いのではないかと思うのだけど。
SQLなりクエリの構造で随分速度が変わることもあるし。

820 ：名無しさん＠そうだ選挙にいこう：03/07/31 21:37

>>816
インデックスがあるのなら、一般的にはFindよりSeekの方が早いから、
これを含めた4つで比較したら？

821 ：マクロ：03/07/31 23:14

＞８１４
ありがとうございます。早速試して見ます。

太枠はだれかわかる人お願いします。

822 ：名無しさん＠そうだ選挙にいこう：03/07/31 23:21

ACCESS2000で
プロパティでコントロールの高さとか幅とかを調整する時に
数字が大文字だと受け入れてくれないのがとてもむかつくんですが、

2002だと解消されてますか？

823 ：名無しさん＠そうだ選挙にいこう：03/08/01 01:19

>>822
改善されているみたい

824 ：Unicode圧縮：03/08/01 08:03

Unicode圧縮というのは、どういうものなのでしょうか？
圧縮あり→ UTF-8
圧縮なし→ UTF-16
ということですか？

825 ：_：03/08/01 08:11

826 ：名無しさん＠そうだ選挙にいこう：03/08/01 08:26

http://www.vesta.dti.ne.jp/~hi-lite/sample.html
簡単に見れたズラ

827 ：名無しさん＠そうだ選挙にいこう：03/08/01 10:17

☆★　新商品　ゾク・ゾク　入荷！！　急げ～！！　☆★☆
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
☆★　送料激安！　　スピード発送！　　商品豊富！　　　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　激安ＤＶＤショップ　「ＧＥＴＤＶＤドットコム」　
★☆　　　　　　http://www.get-dvd.com　　　　　　　　
☆★　今すぐアクセス　Ｌｅｔ’ｓ　Ｇｏ！　　　急げ！　
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★

828 ：名無しさん＠そうだ選挙にいこう：03/08/01 10:51

ACCESS2000の質問です。OSはW2Kです。
フォームのボタンで、削除クエリーを実行させた後に、
そのフォームを一旦閉じてから再度同じフォームを開くようなVBAを
書いたのですが、2回に1回しか削除がされません。
これはどのようにすれば必ず削除されるようになるのでしょうか。
コードは以下の通りです。

DoCmd.SetWarnings False
DoCmd.OpenQuery "削除クエリー",acViewNormal
DoCmd.SetWarnings True
Docmd.Close acForm,"フォーム1",acSaveYes
Docmd.OpenForm "フォーム1",acNormal

829 ：名無しさん＠そうだ選挙にいこう：03/08/01 12:21

>>828
それなんですが、フォームで入力したデータがテーブルに保存する前に、
削除が実行されてるんだと思います。
そのコードの前にメッセージボックスを配置して、メッセージボックスが
表示されたときに、ワンテンポおいてみてください。

解決方法は・・・・私も知りたいですｗ

830 ：名無しさん@そうだ選挙にいこう：03/08/01 13:08

>>828
Docmd.Close acForm,"フォーム1",acSaveYes
DoCmd.SetWarnings False
DoCmd.OpenQuery "削除クエリー",acViewNormal
DoCmd.SetWarnings True
Docmd.OpenForm "フォーム1",acNormal

これでどうでしょ？

831 ：_：03/08/01 13:15

http://homepage.mac.com/hiroyuki44/hankaku09.html

832 ：名無しさん＠そうだ選挙にいこう：03/08/01 13:20

>>828
結果を返さない insert, update, deleteなどのクエリの実行は
DoCmd.OpenQueryではなくDoCmd.RunSQLかExecuteメソッド
を使えというのを見かけます。
ただし、DoCmd.RunSQLは処理の終了を待たずに次のコード
に制御が移ってしまうので、最終的にはExecuteメソッドで
クエリを実行するというところに行き着くのではないかと。

833 ：名無しさん＠そうだ選挙にいこう：03/08/01 14:11

>828
フォーム上に削除するレコードを含むデータが表示されていないかな？
もしそうなら削除する前にフォームを閉じて、削除後開かないとデータは削除できないかも。
出来れば、ちゃんとしたコードになるまでDoCmd.SetWarnings Falseはコメントにした方が良い。
もし万が一データが削除できないと言うエラーがあがっていても、それを殺してる状態なので
エラーが表示されないで気が付かないから。
最終的に全部の動作がうまくいくまで、DoCmd.SetWarnings Falseはコメントに。

834 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 04:54

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

835 ：ぼるじょあ ◆ySd1dMH5Gk ：03/08/02 04:55

836 ：828：03/08/02 12:28

>829,830,832,833
ありがとうございます。
月曜日に試してみます。
830、833さんの言うように先にフォームを閉じてみます。

837 ：_：03/08/02 12:45