Access VBA 質問スレ Part1

**デフォルトの名無しさん** · 2012/02/06(月) 22:53:46.88

AccessのVBAに関する質問スレです

★1 質問テンプレ(雛形)は用意しませんが､OSとAccessのバージョンは必ず書きましょう。

★2 AccessのVBA以外の部分に関する質問はNGです。
　　　但し､VBA無しでも出来ることだが､あえてVBAでやりたいって物に関してはOK。

★3 AccessのVBE(Visual Basic Editor)を使うとしても､VBAの分野以外に関してはスレ違いです。

　VBAとは､『Visual Basic for Application』の略で
　　Application
　　├Workbooks
　　｜└Workbook
　　｜　 ├Worksheets
　　｜　｜└Worksheet
　というApplication以下のオブジェクトを､VB言語で操作するものを指します。
　例えExcel付属のVBE(Visual Basic Editor)を利用しようとも､このApplication以下のブックやシート､
　セルやオブジェクト等を操作するもの以外はVBA分野の話ではないので､ここでは聞かないでください。

★4 レベルはどうあれ､ここはプログラマ用の板スレです。プログラマとは､自分でプログラムを組み、
　　　コードを書く人の事なので､自分でやるきは全く無く､丸投げしようって人はお断りです。
　　　ヒントを貰えばあとは自力でなんとかしますって人のみどうぞ。

★5 わからなければとりあえず「マクロの記録」（Alt, T, M, R）

関連スレ
Excel VBA 質問スレ Part23
http://toro.2ch.net/test/read.cgi/tech/1327763113/l50

**デフォルトの名無しさん** · 2015/04/13(月) 18:03:17.07

>>276
自己解決しました。
関数名を英数字のみにしたら動きました。
ただ、動かなくなったきっかけがわからない。

**デフォルトの名無しさん** · 2015/04/14(火) 07:53:37.48

>>277
そもそも関数名に日本語使うそのセンスを疑う

**デフォルトの名無しさん** · 2015/04/14(火) 15:41:26.89

だってイベントプロシージャは日本語名で動くじゃん

**デフォルトの名無しさん** · 2015/04/14(火) 19:08:51.74

漢字カタカナを関数名にグイグイ使ってました。まあ今日も明日も使っちゃうんですが。

**デフォルトの名無しさん** · 2015/04/15(水) 22:25:26.57

IF文についてなのですが、
IIf(A = 0 Or B = 0 Or C = 0 And D = 0 ...
という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
という条件判定になるという考え方で良いでしょうか？

**デフォルトの名無しさん** · 2015/04/16(木) 08:12:50.91

>>281
一緒といえば一緒ですがIF？IIF？どちらでしょう？
> という書き方の場合、「Aが0」もしくは「Bが0」もしくは「Cが0、かつDも0」のいずれかの場合、
> という条件判定になるという考え方で良いでしょうか？
そうですね

ハッキリさせたい時には()でくくると分かり易くなりますよ
こんな風に
IIf((A = 0 Or B = 0) Or (C = 0 And D = 0), "true", "false")

IFならモジュールにテスト用の関数作って確認できますし
IIFならもっと簡単にクエリー等でテスト出来ますよ
まずは試してみる事をオススメします

**デフォルトの名無しさん** · 2015/04/16(木) 13:45:46.84

>>282
ありがとうございます、安心しました

**デフォルトの名無しさん** · 2015/04/18(土) 01:50:57.01

ExcelVBAをほんの少しいじった程度ですが、同じことがAccessVBAでもできますか？
たぶんできたとして、データアクセスが目的ならExcelよりAccessのほうが早いのかな。

**デフォルトの名無しさん** · 2015/04/18(土) 03:55:58.31

WSH(VBScript, JScript), PowerShell からでも、
呼び出せるよ

Accessはデータベースだから、
Excelよりもデータの整合性は、より安全で、
何々明細とかを扱う、本格的な業務に適している

**デフォルトの名無しさん** · 2015/04/18(土) 07:06:32.83

>>284
Excel にデータエクスポートして開いてピボット集計して保管してzipにしてメール添付して送信、とかExcelの外から出来る。

**デフォルトの名無しさん** · 2015/04/18(土) 09:55:54.98

エクセルの65535行制限って解けたんだっけ？

**デフォルトの名無しさん** · 2015/04/18(土) 18:09:00.24

xlsxファイルからDAO.RecordSetでデータを取り込んでいます

dim A

Do Until Rs.EOF=True
For i=1 to 10
A=Rs.Fields(i).Value
InsertRS.Addnew
InsertRS.Fields(i).Value=Rs.Filds(i).Value
Next
Rs.MoveNext
Loop

のようにしてエクセルデータからデータベースに保存してます。

で、
A=Rs.Filds(i).Value
は無意味なコードなのですが、
これがないと保存がされません。
ワンクッション？が必要なようなんです。
これ、原因や同じような症状でた人いますか？

**デフォルトの名無しさん** · 2015/04/18(土) 19:59:14.52

それ以前にAddnewしてる位置がおかしい気がするんだが

**デフォルトの名無しさん** · 2015/04/18(土) 21:20:04.66

書き間違えました。
実際は、Forのまえにaddnewしてnextのあとにupdateしてます。

**デフォルトの名無しさん** · 2015/04/19(日) 02:01:53.14

書き間違いとか実際のコードじゃないもの出されてもなぁ
お前の勘違いの可能性が圧倒的に高いと思うぞ

**デフォルトの名無しさん** · 2015/04/19(日) 07:19:00.86

事実、
ワンクッションのある無しで発生するんです。

**デフォルトの名無しさん** · 2015/04/19(日) 09:54:27.68

フィールドが100個くらいあるエクセルデータを同じように取り込んだときに経験したことある
ケド、、、、原因調べないでおわっちゃたなｗそーいえばｗｗ
原因を探るためにDebug.Print入れたら登録がされるようになって、原因解明より先に仕事・・・・となって、そーいえばそのままｗｗ

**デフォルトの名無しさん** · 2015/04/20(月) 08:09:04.77

>>287
ここ、Accessスレですよ。

それとGoogleで調べれば分かるような内容の質問はどこのスレでも
禁止です。頭に叩き込んでおくといいですよ。

**デフォルトの名無しさん** · 2015/05/02(土) 06:47:20.55

中文(簡体)文字のファイル名をダイアログで取得して、コピーしたり開いたりしたいんですが、"見つかりません"と言うメッセージに。
中文文字の入ったファイル名やフォルダー名を取り扱う方法かヒント頂けないですか。

**デフォルトの名無しさん** · 2015/05/14(木) 12:50:18.83

二つ教えてください。

1コンボボックスコントロールの▼が反応しない時がある

2リストボックスコントロールAからデータを取得するとき
A.BoundColumn=1
変数=A.ItemData(A.ListIndex)
A.BoundColumn=2
変数=A.ItemData(A.ListIndex)
A.BoundColumn=3
変数=A.ItemData(A.ListIndex)
A.BoundColumn=4
と一つの関数内で取得する列を変更してデータを取得しようとしても、データが取得できる場合と取得できない場合が発生するのはなぜでしょうか？

**デフォルトの名無しさん** · 2015/05/16(土) 10:31:05.05

Accessって新しくなればなるほど、不安定化してない？
なんとなくだけど

**デフォルトの名無しさん** · 2015/05/16(土) 12:20:26.27

>>297
激しく同意
Accessも立ち位置が怪しくなりつつあるのかなって。。。。
今の時代ならForguncyみたいなのがオフィスファミリーのラインナップに
ほしいとこだね。

**デフォルトの名無しさん** · 2015/05/16(土) 14:09:51.76

>>297
ど安定だと思ってた。難しい事しないからかもだけど。

**デフォルトの名無しさん** · 2015/05/16(土) 17:59:47.30

/decompileオプションをつけてファイルを開くなんて、昔はなかったのになぁ・・・。

**デフォルトの名無しさん** · 2015/05/16(土) 22:55:57.30

>>297
俺の体感ではすくなくとも2007までは順調に安定化してるけど
それ以降は使ってないから知らん

>>300
/decompileっていつからあるんだろうな
昔は全オブジェクトを別mdbにエクスポートとか結構頻繁にやってた記憶が

**デフォルトの名無しさん** · 2015/05/17(日) 10:45:41.40

>>301
97くらいからはあったはず。
でも/decompileを使うようになったのは2003以降かなぁ？
むかしはmdbファイル丸ごと見事に壊れたから/decompileすら登場の出番が無く
今はVBAを入れるとスグ壊れるから/decompileが効力を発する機会が増えた

うーん・・・改善してるのかもなｗ
ただ開発をやっている人から見るとVBAをいじってる最中の異常終了が増えた
感じがするから不安定化しているように見えるのかも

**デフォルトの名無しさん** · 2015/05/22(金) 21:24:51.38

[Forms]![コントロール名]......

のように使う
　!
と
　フォーム．プロパティ
の
「！」と「．」
の違いってなんなんでしょうか？

**デフォルトの名無しさん** · 2015/05/22(金) 21:51:36.82

/decompile 知らなかった。

**デフォルトの名無しさん** · 2015/05/23(土) 12:42:53.54

俺もだよ

>>303
それも知らないねぇ。
ただ、外部モジュールから参照するときは ! でないとダメなんじゃなかったかな。違ったかもしれん。

**デフォルトの名無しさん** · 2015/05/23(土) 12:45:03.86

モジュールって何やねん
オブジェクトやオブジェクト

**デフォルトの名無しさん** · 2015/05/23(土) 12:50:24.50

外部オブジェクト用なんだ、、、
知らなんだ

**デフォルトの名無しさん** · 2015/05/23(土) 13:54:06.28

!はコレクションの要素を指定するときに使う
.はオブジェクトのプロパティ(メンバ)を指定するときに使う

**デフォルトの名無しさん** · 2015/05/27(水) 08:05:22.83

>>308
コレクションの要素の意味が分からん。

**デフォルトの名無しさん** · 2015/05/27(水) 14:12:01.89

>>309
コレクションの意味がわからんのか？
要素の意味がわからんのか？

簡単に言えば、複数のうちのどれかってことだが
何が複数なのかは!の前のやつによって違う

Formsはまさにフォームのコレクション
個別のフォームならControlsが既定コレクション
レコードセットだとフィールドが既定のコレクション

**デフォルトの名無しさん** · 2015/05/27(水) 21:13:26.76

これっくしょんのっ♪　おべんっとばっこにっ♪

**デフォルトの名無しさん** · 2015/05/27(水) 22:22:21.63

書く人の好みもありますかね
私はなるべく「!」ではなく「.」を使ってます

**デフォルトの名無しさん** · 2015/05/27(水) 22:54:50.76

「!」を「.」では動かないでしょ？

**デフォルトの名無しさん** · 2015/05/27(水) 22:59:28.17

対応したプロパティに書き換えて使ってます

**デフォルトの名無しさん** · 2015/05/27(水) 23:07:04.59

ふ～ん、そうなの
(どゆことかわかってないが)

**デフォルトの名無しさん** · 2015/05/28(木) 10:07:42.72

クラスのメソッドと
オブジェクトのメンバの違いっしょ

**デフォルトの名無しさん** · 2015/05/28(木) 11:27:33.59

>>316
同じ事を言ってるようにしか見えんが
クラスとオブジェクトはどういう意味で使い分けてるんだ？
メソッドとメンバはどういう意味で使い分けてるんだ？

**デフォルトの名無しさん** · 2015/05/28(木) 13:25:09.01

馬鹿には無理

**デフォルトの名無しさん** · 2015/05/28(木) 18:22:57.95

>>315
a = [Forms]![f2]![combobox1].Value
a = Forms("f2").Controls("combobox1").Value

他フォームの値を利用する場合等は、こんな感じで書いてます
個人的にコレクション名が入った方が分かり易いのでこうしています
どちらの書き方が良いとか悪い、というのは無いので書く人次第ですね

**デフォルトの名無しさん** · 2015/05/28(木) 21:06:14.54

ほほう、勉強になります。

**デフォルトの名無しさん** · 2015/05/29(金) 05:39:51.54

後者の方がメタプログラミングへの可能性が感じられて良いね

【豚】 · 2015/06/01(月) 08:08:03.93

びっくりおみくじ

**デフォルトの名無しさん** · 2015/06/08(月) 08:55:28.30

>>319
つまりどちらの書き方でも
同じ値が取得出来る

**デフォルトの名無しさん** · 2015/06/11(木) 14:05:13.01

フォーム内のテキストボックスで教えてください。

テキストボックスに値を入れるために選択すると、0が表示されます。
空白の状態から値を入力できるようにするには、どこの設定を変えれば良いのでしょう？

**デフォルトの名無しさん** · 2015/06/11(木) 14:06:45.16

>>324は非連結のテキストボックスの場合です。

**デフォルトの名無しさん** · 2015/06/11(木) 14:16:53.77

>>324は解決しました。
フォームオープン時にVBAで0を設定していました。
他人のソースだったので気がつきませんでした。

スレ汚し失礼いたしました。

**!omikuji** · 2015/06/24(水) 19:15:19.74

>>319
クエリの抽出条件に書いてみた。
コレクション(index)の書き方ではダメだった。

**デフォルトの名無しさん** · 2015/06/25(木) 03:15:52.99

>>327
そりゃVBAの構文をクエリに書いても無理でしょうに

**デフォルトの名無しさん** · 2015/06/25(木) 05:46:02.39

>>328
そうなのですか、ビルダーで作成される以外の記述を試したかったのです。

**デフォルトの名無しさん** · 2015/06/25(木) 07:48:35.30

お試しで書いたプログラムを納品されたクライアントがかわいそう

**デフォルトの名無しさん** · 2015/07/01(水) 22:29:02.00

>>330←納品だの客だの何言ってんのこのバカ？

**デフォルトの名無しさん** · 2015/07/02(木) 09:39:28.85

>>331
Accessでしょっぱい商売やってる、自営業のプログラマなんだろｗｗ
ハッキリ言って取るに足らない存在。

**デフォルトの名無しさん** · 2015/07/02(木) 15:10:49.63

ツボったω

**デフォルトの名無しさん** · 2015/07/02(木) 21:31:36.86

俺もしょっぱい2号

**デフォルトの名無しさん** · 2015/07/17(金) 07:28:53.29

プロジェクトのテーブルに
プロジェクト番号、
作業内容Aの担当者、
作業内容Bの担当者、
作業内容Cの担当者と入力するテーブルがあり、
それとは別に工数入力テーブルで、
各担当者毎にプロジェクトに対しての作業工数を付けたいのですが
どのようなリレーションシップの関係を持たせれば良いでしょうか？

**デフォルトの名無しさん** · 2015/07/17(金) 12:20:42.38

>>335
リレーションって、工数入力テーブルのテーブルレイアウト決まってるのか？
まあ、プロジェクト番号と担当者で参照するだけなんだけど

そのプロジェクトのテーブル含めて、ＤＢ設計もうちょっとちゃんと勉強した方が良いんじゃね

**デフォルトの名無しさん** · 2015/07/27(月) 17:54:56.83

VBAのソースが開けなくなる現象ってどうしたらいいの？

decompileつけても治らない

新しいファイル作ってインポートもダメ

**デフォルトの名無しさん** · 2015/07/27(月) 20:40:40.78

押してもダメなら・・・

**デフォルトの名無しさん** · 2015/07/27(月) 20:59:07.74

>>337
数年に一回、私もそんな目にあいます。
だいたい復旧出来ないので、バックアップ欠かさずとってます。
どうにかなるなら私も知りたいですが。

**デフォルトの名無しさん** · 2015/07/27(月) 21:30:17.92

やっぱみんな同じ現象に悩まされてるんだね

ネットワーク共有フォルダ上だと起きやすい

ネットワーク共有フォルダ使わなきゃいいんだけど、うちの情シスが変な縛りかけるからコレしか手がないし

**デフォルトの名無しさん** · 2015/07/27(月) 23:01:15.51

ソースコードは、単なるテキストデータだろ？

それが開けないのは、
そのデバイスがバックアップ・メンテナンス中などで、
ロックされているのかも

**デフォルトの名無しさん** · 2015/07/28(火) 01:08:06.50

壊している方は
ネットワーク上で直接開いたり
mdbをフロントとDBに別けなかったり
ほとんど同じパターンですよね

>>341
Accessを使われていない方とお見かけしました
mdbが破損するとソースも壊れる事があります

**デフォルトの名無しさん** · 2015/08/01(土) 02:11:12.48

Access2010利用

Access起動時の「コンテンツを有効化にする」を押下した直後に、関数を実行する方法はあるのでしょうか？

現在は「AutoExec」マクロから「プロシージャの実行」を行い、対象の関数を実行させていますが、Access起動時の「コンテンツを有効化にする」を押下する前にマクロが実行され、プロシージャが実行出来ない旨のエラーメッセージが表示されてしまいます。

ExcelのAuto_Open関数は「コンテンツを有効化にする」押下後に、処理が始まっていたので、それをAccessでそれを実現したいと思っています。

処理内容は「Accessウィンドウの不可視化
」「メニューバーの不可視化」「対象のフォームを開く」です。

どうかご教授をお願いいたします。

**デフォルトの名無しさん** · 2015/08/01(土) 05:30:07.04

>>343
>処理内容は「Accessウィンドウの不可視化
>」「メニューバーの不可視化」「対象のフォームを開く」です。
それ全部マクロなしで設定でできる気がするけど

スタートアップ用のフォーム作って起動時指定して、そのフォームのプロシジャで設定してやれば良いんじゃね

**デフォルトの名無しさん** · 2015/08/01(土) 23:31:54.27

>>344
ありがとうございます
確かにマクロを使用せずに設定出来ました
更にFormLoadを利用したところ「コンテンツを有効化にする」押下後に動作しました

今まで業務ではExcelばかり利用していましたので、Accessのオプションの多さ、分かりづらさ(自身の無知に起因する事が多いですが…)に戸惑っています
Accessを使いこなせる人は本当にすごいと思いました

**デフォルトの名無しさん** · 2015/08/02(日) 05:14:22.27

ExcelのVBAはExcelというアプリケーションを操作するためのものだけど
AccessのVBAはAccessを使ってアプリケーションを作成するためのものだからな

**デフォルトの名無しさん** · 2015/08/02(日) 08:10:22.71

2行目”～Accessというデータベースを操作する～”のほうが名言ぽくなりませんか
(添削ではありません。提案です)

**デフォルトの名無しさん** · 2015/08/02(日) 08:29:50.19

>>347
そうは全く思わない
VBAはデータベース操作のためのものではない
あくまでアプリ作成のためのもの

**デフォルトの名無しさん** · 2015/08/02(日) 11:40:56.13

>>348
確かにExcelとは違って、アプリケーションを作っている感覚が非常に強いですね
Access感を感じさせないUIにする事も簡単でしたら
そのせいで、フォームのUIを美しくする為に時間がかかってしまいますw

**デフォルトの名無しさん** · 2015/08/02(日) 11:42:54.62

×:Access感を感じさせないUIにする事も簡単でしたら

○:Access感を感じさせないUIにする事も簡単でした

**デフォルトの名無しさん** · 2015/08/02(日) 11:55:46.07

データベースの操作もお手軽に出来て便利。
アプリ開発環境としてはどうなの？
私は零細企業の社内システム開発用として便利に使わせて頂いてます。

**デフォルトの名無しさん** · 2015/08/02(日) 12:37:07.35

両者のVBAはデフォルトの参照設定が違うだけですよ
VBA以外は言われている通りAccessの方がはるかに強力ですね
Excelはユーザーフォームくらいです

特殊なレポート印刷なんかは無理してAccessでゴリゴリ書くより
Excelで書式作ってAccessから流した込んだ方が楽だし
データ操作ならAccessじゃないとキツイし
それぞれ得意分野はありますよね

**デフォルトの名無しさん** · 2015/08/02(日) 21:08:18.97

今更だが >>343 はセキュリティの設定だけで回避できるんじゃ？
そもそもその｢コンテンツを・・」が出ないようにすることのほうが重要なんでは？

**デフォルトの名無しさん** · 2015/08/02(日) 22:38:28.30

>>353
それはアプリケーション側ではなんとも出来ないので

**デフォルトの名無しさん** · 2015/08/02(日) 23:04:31.90

は？　　Access2010利用って書いてあるだろ？　たとえそれがRuntimeだとしても
ロケーションを信頼するとかで可能だろ？　不特定多数に配布するケースでも
インストーラを調整することで「なんとも出来ない」は回避するものだろ？
毎回「コンテンツを・・」を表示させるほうがどうかしてるぞ？　　そんなの誰が信用してくれるんだ？

**デフォルトの名無しさん** · 2015/08/03(月) 11:17:43.06

あれ？コンテンツ～の話って
「プライベートネットワーク上にある信頼できる場所を許可する] チェックボックスをオンにして回避するって話ですか？
2010だと↑をオンにしてないと変な場所では最適化も出来なかったような

**デフォルトの名無しさん** · 2015/08/03(月) 13:29:01.86

>>355
アプリケーションが自分自身の信頼性を操作するのか
そんなアプリこそ信用できんわ

>>356
べつにネットワーク上に限った話ではないと思うが

**デフォルトの名無しさん** · 2015/08/03(月) 16:54:08.69

を？　MSが推奨してんのに信用できねえ　てか　　Accessは使ってやるけどMSの言うことは聞く耳持たねてか　偏ってるな

**デフォルトの名無しさん** · 2015/08/03(月) 19:02:41.55

>>358
MSが何を推奨してるのかしらんが
アプリケーションの意味が通じてないのかね
アプリケーションを.ACCDB(.MDBでも.ACCDEでも良いけど)に置き換えて考えてみ

**デフォルトの名無しさん** · 2015/08/03(月) 20:41:54.56

その域じゃ無いことが判ったからいいよｗ　その域じゃない奴に諭される謂れわ無いわｗ
いくつかのキー・ワードで「あぁ、あのことか」って気付けないならこれ以上は時間の無駄　　おまえの言うとおりでいいよｗ
そもそもここはAccessの板だし、おれはAccessの話をしてるんだ　アプリケーションのアの字も使って無ぇｗ

よしんばAccessで作られた業務パッケージをアプリと呼びたいなら呼べばいいが、その業務アプリを動作させるうえで
発生するセキュアに関するメッセージはAccessの基本機能で回避できる　って云ってるんだ
それを「信用できねえ」っつーんなら使わなくていいんじゃね？　世の中にはごまんと同様の機能を備えたアプリケーションが存在するだろ
Accessに拘る理由なんざこれっぱかしも無ぇだろ　俺の文章のどれがおまえの琴線に触れたか知ったこっちゃ無いが　「ごめんな」

**デフォルトの名無しさん** · 2015/08/03(月) 21:08:56.51

逆鱗(ぎゃくりん)

**デフォルトの名無しさん** · 2015/08/03(月) 22:23:38.07

runtime 2010(2013も同じ)の起動時のセキュリティ警告を出ないようにする
http://www.mkkobo.com/runtime/runtime04.htm

**デフォルトの名無しさん** · 2015/08/04(火) 03:50:55.73

>>343で質問した者です
細かい利用環境等を書いてなかった事で迷惑をかけました
ごめんなさい

会社独自で開発したと思われる共有サーバシステム上に、accdbを置いて利用者は「読み取り専用」で利用します。(accdeは共有サーバ上では起動できません。)

なので、Access内で設定出来るオプション以外は全く自由がきかず、共有サーバ上でaccdbを開くと必ず「コンテンツを有効化にする」ボタンが表示されてしまうのです

今回の問題自体は、FormLoad関数をExcelで言うAutoOpen代わりに使う事で解決出来たと思っています

しかしAccessって、Web上で資料を探すにしても、資料が豊富なExeclVBAに比べてAccessVBAは資料が少なく、更にバージョンによって仕様が大きく変わるので大変ですね

このスレのやり取りを見ているだけで非常に勉強になります
ありがとうございます

**デフォルトの名無しさん** · 2015/08/04(火) 04:09:40.86

>>363
ファイル共有のプロトコルとかによって制約あるかもしれんが
共有フォルダを信頼できる場所に追加する事は可能だぞ

ただ信頼されてないaccdb(のVBA)から、信頼できる場所を設定とか出来ないし
そんなことができたら信頼できる場所の意味がないからな

**デフォルトの名無しさん** · 2015/08/05(水) 15:51:27.89

利用環境:Access2010、Win7
現在、国内の物件情報をテーブルに入力して、出力フォームで参照出来るようにしています
テーブルのフィールドは「物件No(主キー)」「物件名」「県」「市」「区」「町」「番地」「物件情報」です

新しいレコードが増えた場合は、入力フォームから、データを入力出来るようにしようと思っています

ここでお聞きしたいのは、入力フォームで新しいレコードを登録しようとした際の「重複チェックの方法」です
物件名は、入手先の情報や、入力者の考えによって
様々な表記ゆれが生じます(例:2棟二棟 ②棟 Ⅱ棟)
入力規則を設ける事によってある程度は回避できると思いますが、
回避が難しいケース(例:ライオンズマンション Lionsマンション Lion'sMansion)の場合は
みなさんはどうやって重複チェックを行っているのでしょうか？

自身で考えた所では、入力フォームで新たなレコードを登録する際に、
似ている物件名があった場合は、お互いのレコードで「県」「市」「区」「町」の重複チェックを行い、最終的にユーザーに「似ている物件がありますが、これとは別の物件ですか？」と警告を出そうと思っています
そうする場合は、「フリガナ」フィールドを追加する必要があると思っています

しかし、もっとスマートな方法があるのではないかと思い、ここで質問させていただきました
よろしくお願いします

**デフォルトの名無しさん** · 2015/08/05(水) 16:57:05.93

>>365
挙げられてますが、半角数字のみなど番地の入力制限は必須でしょうね
物件名のフリガナで番地違いもチェックされるみたいですし
十分スマートだと思いますよ

自分だったら番地まで一致した時にアラート出しますね
残りは住所or物件名でソートした物件リストに丸投げしちゃいます

**デフォルトの名無しさん** · 2015/08/05(水) 17:07:34.90

>>365
月1くらいで住所は同じ、物件名が違うの重複チェックを動かしてリストに出すような運用にするとか。
難しいことをら考えずに済む。

**デフォルトの名無しさん** · 2015/08/05(水) 17:23:47.23

なんで郵便番号のフィールドがないのか不思議

**デフォルトの名無しさん** · 2015/08/05(水) 22:00:34.14

時代はすでに二十一世紀なんだよ　いまさらフリガナでもあるまい
フィールドひとつ追加　lat,lng　緯度・経度　43.386338,144.008751 下六桁あたりで固定すれば
間違いようも無いだろ　不動産業界に身を置きながらなんでそんなことにも気付かない
マップアプリに上の数字コピペしてみりゃ、世界中の誰だって間違いようも無い

なに？　じゃあ緯度・経度どうやって調べるだと？　そのぐらいじぶんで調べろ　長押しするだけだ
まぁ、ゆえに危険が危ないがな　　便利って物はとてつもなく不便なものにも等しいんだ　覚悟して使え

雌阿寒岳山頂が出るはずなんですけど、違う位置を示すマップアプリ有ったら教えてください　使用禁止にしますので

**デフォルトの名無しさん** · 2015/08/05(水) 22:40:26.46

まあ、ACCESSもVBAも全く関係ない話なんだが
最終的には人間が検査しないとどうしようもないんだろうなと思う
市区町村番地あたりまではルール決めて、そこまで一致なら警告でいいんじゃね

**デフォルトの名無しさん** · 2015/08/06(木) 01:30:34.87

すみません、郵便番号のフィールドもあります。入力し忘れていました

・1.レコード入力時に、住所関連のフィールドを利用して重複チェックを行い、ヒットした場合は警告を出す
・2.定期的にテーブル内のレコードの重複チェックをする
・3.物件の座標を利用して重複チェックをする

上記3つの案をいただいたと思いますので
1と2を組み合わせて運用したいと考えます

3の案>>369は、完全に自身の頭に無かったアイデアなので驚きました
入力者の稼働を考えて、負担にならなければ導入してみようと思います

たくさんのレスをいただき、心から感謝致します
受けた恩を忘れず、このスレに来た別の質問者の力になれるよう精進します

**デフォルトの名無しさん** · 2015/08/06(木) 09:14:11.16

警告出すとかVB脳的にダサいから
郵便番号入力してヒットしたらリストボックスに表示させて
番地を半角か全角縛りにしてヒットしたらリストボックスに表示させる
リストボックスが件数ゼロなら新規入力ボタンをイナーブル
あぁ俺それ作りたい

**デフォルトの名無しさん** · 2015/08/07(金) 12:16:55.68

人名・地名、固有名詞系はなあ　特殊と考えたほうが無難だからな　　例えば・・
吾妻　という人名のふりがなを　ある人は「あづま」と入れ別の人は「あずま」と入れてしまったり
じつは「あがつま」と読みます　だったり
3-11-22　という地番を三丁目11番22号　三丁目11-22だの、　宛名印刷に合わせて三丁目十一番二十二号としていたり・・
それが結構な確率で頻出するのだからやっかい

それらを一律の規律で縛るのはあまりクレバーとは言えない時代になってるような
鱸　が読めないゆとりのためには「ふりがな」が必要　ってのなら意義あるだろうけど　　まあ、おれだけど

**デフォルトの名無しさん** · 2015/08/11(火) 19:16:37.92

フォームでFilter関数使おうと思ったら
IntelliSenseが効かなくて
無理に使おうとしてもエラーで使えず
？？？と思ったら
Filterプロパティとバッティングしてた。
VBA.Filterで解決したんだけど
プロパティの値ってオブジェクト変数無しでもアクセスできるのな。

**デフォルトの名無しさん** · 2015/08/11(火) 23:34:57.56

>>374
フォームモジュールでそのフォームのプロパティならな

**デフォルトの名無しさん** · 2015/08/12(水) 14:59:32.42

皆様、すみません

フォームAに入力されているテキストボックスAの値(数値)を、
フォームB（データ登録用）を開いた際に自動的にテキストボックスBに入力させないのですが、どうしてもわかりません

openform ～ , , , , acformadd で記述しています

教えていただけないでしょうか