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

**デフォルトの名無しさん** · 2016/01/15(金) 00:07:44.49

レコード長とかPCのスペックとかもわからんが
コードでもっと早くできる余地がいっぱいある気がするぞ

というか、純粋な追加で時間かかってるのか？
エラーチェックに時間かかってるんじゃないのか

**デフォルトの名無しさん** · 2016/01/17(日) 14:16:21.53

access2013の質問がしたいのですがここでは不可でしょうか？探してもスレが見つからなかったので誘導していただけないでしょうか？

**デフォルトの名無しさん** · 2016/01/17(日) 18:47:14.28

聞くがよい

**デフォルトの名無しさん** · 2016/01/18(月) 17:00:22.89

Access総合相談所 27
http://peace.2ch.net/test/read.cgi/bsoft/1424828244/

**デフォルトの名無しさん** · 2016/01/20(水) 21:12:14.20

access 2013での質問です。
テーブルAの構成要素は【id(オートナンバー）、写真（添付ファイルで複数値を持つフィールド）】となっております。

この状態で、テーブルAの任意のIDに写真が入っているか否かを確認したいと考えております。
今のところ
dim RS As DAO.Recordset2
set RS = CurrentDb.OpenRecordset(

**デフォルトの名無しさん** · 2016/01/20(水) 21:13:28.67

すみません、途切れました

set RS = CurrentDb.OpenRecordset("テーブルA")

With RS
.FindFirst "id = ○"
End With

で任意のIDに移動できるのですが、そこから写真フィールドにデータが入っているか否かをどのように確認したら良いかが分かりません。

一応複数値を持つフィールドということから
Dim RS_写真 As DAO.Recordset2
Set RS_写真 = RS.Fields("写真").Value
と代入し、
If RS_写真.Fields("FileName") = "" Then
　MsgBox "hoge"
End If

というように、if分を使ってみたのですが、上手く行きません。

お忙しいところ恐縮ですが、アドバイスを戴けると幸いです。

**デフォルトの名無しさん** · 2016/01/21(木) 00:33:33.20

添付ファイルで複数値を持つフィールドってのがよくわからん
そのフィールドのデータ型と
実際に内容をセットしてるコード出してみ

**デフォルトの名無しさん** · 2016/01/21(木) 07:45:42.44

>>554
お返事ありがとうございます。

TABLEAのフィールド"写真"にデータをセットするのはフォーム上で行っております。

MsgBox TypeName(.Fields("写真"))　で確認をしてみたところ、
Field2 オブジェクト (DAO)
ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx
と返ってきました。

これで伝わりますでしょうか？

**デフォルトの名無しさん** · 2016/01/21(木) 12:58:17.49

伝わったが答える気にはならなかった

**デフォルトの名無しさん** · 2016/01/21(木) 13:50:34.34

テーブルAのあるレコードでは【写真】に外部からデータが入っていて，違うレコードでは入っていないから，それを確認したいということ？
RS_写真のeofとbofを調べれば良いだけだと思う．

ttps://msdn.microsoft.com/ja-jp/library/office/ff194326.aspx
ここにサンプルが有るから頑張って

**デフォルトの名無しさん** · 2016/01/21(木) 15:33:43.41

これはひどい

**デフォルトの名無しさん** · 2016/01/21(木) 18:39:11.58

>>555
そのテーブルをデザインビューで開いたときに、そのフィールのデータ型は何になってる？
フォームでセットとは具体的にどうやってるんだ？

**デフォルトの名無しさん** · 2016/01/21(木) 19:53:25.15

添付ファイル型っていうのがあってだな云々・・・

**デフォルトの名無しさん** · 2016/01/21(木) 20:32:40.23

> If RS_写真.Fields("FileName") = "" Then
FileData?
データが入ってたらFileNameとは何を指すのだ

**デフォルトの名無しさん** · 2016/01/21(木) 20:50:12.31

フィールドに複数データが入るんだけど、ファイル名とファイル本体がセットになって入るイメージなんじゃないかな。
>>553 は配列のような捉え方で書いてるんだと思う。
フィールドがnullなのかを見ればいいんだろうけど、ファイル名を指定してそのファイル本体の有無を見たいのかな。
でもそれだとファイル名のみがあってファイル本体がないってことがあり得ることが前提になると思うんだけど。

**デフォルトの名無しさん** · 2016/01/21(木) 21:21:29.71

添付ファイル型なら
RS_写真のEOFと(MoveLastしてから)RecordCountみれば、添付されてるファイルの件数はわかる

**553** · 2016/01/22(金) 16:35:45.14

皆様、お返事ありがとうございます。
当該フィールドは「添付ファイル」型です。
「添付ファイル」型の写真フィールドは、下位フィールド？として写真.FileData / 写真.FileName /　写真.FileTypeを持っているため、写真.FileNameの有無でNULLか否かを確認しようとしていました。

>>557 さんと >>563 さんのお陰でNULLか否かはRS_写真のEOFを見れば良いだけと気づき、
何とかやりたい操作ができそうです。

この度はご指摘戴き、誠にありがとうございました。

**デフォルトの名無しさん** · 2016/01/28(木) 08:27:25.34

Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,

**デフォルトの名無しさん** · 2016/01/28(木) 09:02:23.84

途中で切れてしまったので再度質問させていただきます。
Access2010のVBAの動作にて質問です。
現在クエリのデータをCSV形式にて出力をするために
DoCmd.TransferText acExportDelim, ,"クエリ名","出力先\ファイル名.csv"
と言う文を使っているのですが、クエリの行が複数の場合は1行ごとに出力をしたいのですがどうすればよろしいのでしょうか。

**デフォルトの名無しさん** · 2016/01/28(木) 09:25:27.95

>>566
連続出力するなら
レコードセット開いてレコード毎に書き出しループ

連続出力しないなら
フォーム上の値を参照するパラメータクエリ作って
DoCmd.TransferTextで書き出し

**デフォルトの名無しさん** · 2016/02/01(月) 21:40:46.53

ACCESS VBAでoracleのデータを読み書きする場合は
リンクテーブルを作ってやるのが普通でしょうか?
それともリンクせずに直接ORACLEにアクセスするのがよいでしょうか?

**デフォルトの名無しさん** · 2016/02/01(月) 22:12:10.32

べつにSQL ServerでもORACLEでも同じだとおもうけど
ケースバイケースとしか言えん

**デフォルトの名無しさん** · 2016/02/02(火) 09:04:52.93

リンク使わないなら別にAccessじゃなくても良いよね、って回答はダメ？

**デフォルトの名無しさん** · 2016/02/02(火) 10:25:44.88

ハマってしまいました、cell とoffsetとloopの関係が解明できません。
エクセルデータから一行ずつhtmlファイルを作成するということをしたいです。
minitemplatorを使っています。
試しに３行でつくってみるとファイル名は変わるのですが、
set変数の箇所が一行目のままかわりません。
↓こんなVBAにしてあります

Private Const START_CELL =

**デフォルトの名無しさん** · 2016/02/02(火) 10:28:02.77

すみません

Private Const START_CELL = "T3"
Public Sub PushButton()
'
Dim Cell As Range
Dim Temp As MiniTemplator
Set Temp = New MiniTemplator
'テンプレートファイルを読み込みます。
Temp.ReadTemplateFromFile ThisWorkbook.Path & "\h00_0.html"
'セルのスタート位置を設定します。
Set Cell = Range(START_CELL)
'現在アクティブになっているシートの最終行まで以下を繰り返します。
Do While Cell.Row <= ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row

Temp.SetVariable "TITLE", Cell.Offset(0, 1).Value
Temp.SetVariable "CHAPTER", Cell.Offset(0, 2).Value
Temp.SetVariable "PREVCHAPTER", Cell.Offset(0, 3).Value
Temp.SetVariable "PREVPAGE", Cell.Offset(0, 4).Value
Temp.SetVariable "INDEX", Cell.Offset(0, 5).Value
Temp.SetVariable "NEXTPAGE", Cell.Offset(0, 6).Value
Temp.SetVariable "NEXTCHAPTER", Cell.Offset(0, 7).Value
Temp.AddBlock "htmls"

Temp.GenerateOutputToFile ThisWorkbook.Path & "\" & Cell & ".html"
Set Cell = Cell.Offset(1, 0)
Loop
End Sub

**571** · 2016/02/02(火) 10:30:04.88

申し訳ない！accessの方に書き込んでしまいました、excelの方へ移動いたしますorz

**デフォルトの名無しさん** · 2016/02/02(火) 15:13:01.55

>>570
メインのDBはSQLServerやACCDBだけど、特定のデータだけ
別DBのORACLEからとって来たいなんて要件だったりしたら
ORACLEにリンクテーブル作るほどでは無かったりするかもしれんだろ

**デフォルトの名無しさん** · 2016/02/02(火) 15:27:20.80

これはひどい

**デフォルトの名無しさん** · 2016/02/02(火) 17:32:28.26

>>574
質問者の質問内容は>>568ですよ～

**デフォルトの名無しさん** · 2016/02/02(火) 19:38:08.47

>>576
何が言いたいのかわからん

リンクテーブルかそれ以外でのアクセスかって質問に対して
ACCCESSならリンクテーブル一択だろ、見たいな事を言うから
そうじゃない状況もあるだろって言ってるんだが

**デフォルトの名無しさん** · 2016/02/02(火) 22:01:22.04

>>577
質問者はOracleをAccessから操作する場合はどちらかを聞いている訳で
その状況ならリンクで良いんじゃね、と答えただけ
そこにお宅が勘違いして質問にないSQL Server絡めて否定してきたから
ちゃんと質問内容見ろよ、と返しただけ

**デフォルトの名無しさん** · 2016/02/03(水) 16:11:02.04

両成敗

**デフォルトの名無しさん** · 2016/02/04(木) 08:30:21.82

>>579
うるせぇよ、顔面男性器

**デフォルトの名無しさん** · 2016/02/04(木) 15:29:20.74

>>580
うん

**デフォルトの名無しさん** · 2016/02/07(日) 19:26:30.89

Accessでエクセルファイル読もうと思ってExcelオブジェクトを作成した時、
既にエクセルを立ち上げているとマクロの挙動がおかしくなったり、
あるいは後からエクセルを立ち上げようとするとマクロが終了するまで画面が白いままなのですが、
これを避けてAccess側のみで扱えるエクセルオブジェクトを作ったり、あるいはエクセルと併用したりという事は出来ないでしょうか？

スプレッドシートのインポートは暗号化の影響で上手くいかないので、エクセルオブジェクトを通す必要があります。

**デフォルトの名無しさん** · 2016/02/08(月) 15:38:17.85

>>582
できるよ

**デフォルトの名無しさん** · 2016/02/08(月) 18:15:52.92

つか普通にやればそうなってたと思ったけど
CreateObjectって、インスタンスあったらそれ掴んで返すのか？

**デフォルトの名無しさん** · 2016/02/10(水) 00:18:50.90

vbaでも知りたいのですが、accessで列見出しを行見出しにするには、どんなコードを書けばいいでしょうか？クロス集計ではできませんでした。

**デフォルトの名無しさん** · 2016/02/10(水) 09:07:48.34

>>585
行列入替えがしたいっての？それ、データベースのルールに反してる
わけだが。

クロス集計クエリの場合にはデータ元がきちんとクロス集計できる形に
なっていれば、できないということはない。

**デフォルトの名無しさん** · 2016/02/22(月) 10:46:47.09

金はあるけど時間がない
経験値100倍くらいになる課金ないんか

**デフォルトの名無しさん** · 2016/02/22(月) 10:47:20.99

すまん
誤爆った

**デフォルトの名無しさん** · 2016/02/22(月) 12:20:31.39

>>587
それな

**デフォルトの名無しさん** · 2016/02/22(月) 12:21:37.50

>>587
あえて、経験値にした辺りに謙虚さがあるな

俺だったら、最初からスキルボックス（中身はランダム）みたいな課金する。

**デフォルトの名無しさん** · 2016/02/22(月) 18:37:53.19

うざ

**デフォルトの名無しさん** · 2016/02/24(水) 23:35:39.37

日常的にAccessのピボットテーブルをCtrl+A　Ctrl+Cして
Excelに貼り付けてるんですが
これをVBAできませんでしょうか

**デフォルトの名無しさん** · 2016/02/25(木) 10:52:35.16

できますん

**デフォルトの名無しさん** · 2016/02/25(木) 13:16:09.91

>>592
Googleスプレッドシートは簡単に関数でソレが実現できます。

ちなみに、Accessでは「貼り付ける」行為は出来なくはないです。ただ、オートメーションでやる
ならそういうことになりますが、普通はExcel上でピボットを作成スべきでしょう。

**デフォルトの名無しさん** · 2016/02/25(木) 22:25:15.86

>>593
もうすこしヒントを
どのオブジェクトプロパティをいじればいいとか

**デフォルトの名無しさん** · 2016/02/26(金) 15:13:34.90

VBAで

**デフォルトの名無しさん** · 2016/02/26(金) 18:31:07.27

全選択なら単にエクセルにエクスポートすればいいんじゃないの？

**デフォルトの名無しさん** · 2016/03/04(金) 22:35:15.49

質問　Access2010
突然、フォームのデータシートビューで列を入れ替えてもその状態が保存されないようになってしまいました。
いろいろと原因を調べてみるとOpenやLoadイベントでフィルター設定を行うとそんなトラブルが起こってしまうようなのです。

Private Sub Form_Open(Cancel As Integer)
　Me.Filter = "ID>3" '例
　Me.FilterOn = True
End Sub

皆さんの所でも再現出来ますでしょうか
ちなみに自宅のAccess2002ではこういった異常な動作は起こりませんでした
またこれって有名なバグとかなんでしょうか

**デフォルトの名無しさん** · 2016/03/24(木) 22:15:00.25

access 2010
windows7

DoCmd.OutputTo acReport,

**デフォルトの名無しさん** · 2016/03/24(木) 22:16:25.19

access 2010
windows7

DoCmd.OutputTo acReport, "hoge_table", acFormatXLS, "C:\hoge.xls"

レポートファイルをxlsへ出力するときに
「実行時エラー 2587 出力が完了できません」が
出てきてしまいます。

実行時エラー2587を検索しても情報が出てこない為、
困っています。

どなたか何が原因かわかりますでしょうか？
先月までは機能していたんですが、
今月から急に上記エラーが出てくるようになりました。

**デフォルトの名無しさん** · 2016/03/25(金) 13:31:48.84

プリンタが変わったレポートの書式が変わった(文字コード系)
再インストールで復帰した　　というようなresが　英語のフォーラムだけど

手動でエクスポートした場合も同じエラーかどうか
ん？レポートファイルをxlsへ？　"hoge_table" テーブルをxlsへの間違い？
テーブルをｃｓｖ出力してｘｌｓなら？　　　とかいろいろ

**デフォルトの名無しさん** · 2016/03/25(金) 16:30:30.08

データが増えてリソース不足、ってのが一番考えられる理由だけど
何のリソースかはわからんが

もうちょっと詳細なエラー内容ないのかね

**デフォルトの名無しさん** · 2016/03/25(金) 21:03:03.83

今、先月のhoge_tableをoutoputしたらどうなの

**デフォルトの名無しさん** · 2016/04/27(水) 21:09:35.11

フォーム上でリストボックスを選択すると、その他のテキストボックスに値が入る仕組みってどうやったらできますか？

**デフォルトの名無しさん** · 2016/04/27(水) 23:03:47.34

Me.[その他のテキストボックス] = Me.[リストボックス].Value　とか
Me.[その他のテキストボックス] = Me.[リストボックス].Column(n)　とかを
リストボックスクリック時イベントに仕込む　うろ覚え

**デフォルトの名無しさん** · 2016/04/28(木) 01:08:29.45

>>605
後者の場合で、表示させたデータを別のテーブルに保存させるにはどうすればいいですか？

**デフォルトの名無しさん** · 2016/04/28(木) 09:47:32.29

ワークテーブルに入れるなりしてSQLとか追加クエリとか

**デフォルトの名無しさん** · 2016/04/28(木) 17:15:09.15

>>604
リストボックスのコントロールソースをテキストボックスのコントロールソースにも指定
もしくは
テキストボックスのコントロールソースにリストボックス自身を指定
リストボックスのみ編集可設定

**デフォルトの名無しさん** · 2016/07/12(火) 06:40:44.26

ExcelのシートからADOでデータ取り込みをやろうとしてます
ルックアップで別のテーブルを参照しているフィールドを持つテーブルにレコードを追加したいのですが
具体的にはExcelシートには都道府県名が文字列で入っていて
Accessのテーブルは都道府県名は別テーブルを参照して数値で持っています

色々試してみたのですが　追加先テーブルの数値型のフィールドには数値しか入力できず
参照している先のテーブルの"東京都"などの文字列データはUpdateでエラーが出ます
（あたりまえでしょうけど）

こういった参照先データで入力したい場合　なにか良い方法があるのでしょうか？

**デフォルトの名無しさん** · 2016/07/12(火) 16:15:23.94

別テーブルを参照して数値を入れる

**デフォルトの名無しさん** · 2016/07/12(火) 19:00:20.62

>>610
やっぱり　それしか無いですかね
何万行もあったから　データ入力する度に別テーブルのFindFirstとかやってID見つけるの
コスト凄いかと思ってたんですが
やってみたら　それほど時間かからなかったです

**デフォルトの名無しさん** · 2016/07/12(火) 21:49:03.75

都道府県名が入ってるシートって郵便番号のあれですかね
まぁ質問の意味がよくわかんないから無視して結構です

**デフォルトの名無しさん** · 2016/08/24(水) 19:34:34.65

SQLでテキストデータを取り込む時、ヘッダー行を任意の位置で指定する事は出来ますか？
読み込もうとしているcsvファイルのヘッダー行が3行目なので、この位置から読み込ませたいのです。

色々調べたんですが、外部データベースを取り込む際のキーワードがなかなか出てこず苦戦しています。

**デフォルトの名無しさん** · 2016/08/24(水) 21:33:54.83

開始行を含めるか含めないかしかなかった様に思う。
取り込んでしまってからヘッダー行を消すSQL実行したらはやいかも。

**デフォルトの名無しさん** · 2016/08/24(水) 22:13:48.17

>>614
ありがとうございます。
HDR=Noか、もしくはVBAで処理する様にします。

**デフォルトの名無しさん** · 2016/09/29(木) 17:49:20.39

SQLで質問ですが、
select * from DATATBL group by NAME
こんな感じで集計させても結果が０になってしまうのですが、書式間違ってますか？
ちなみにC++BuilderからMicrosoft.Jet.OLEDB.4.0でmdbファイル操作してます。

**デフォルトの名無しさん** · 2016/09/29(木) 18:41:58.74

select NAME, COUNT(*) from DATATBL group by NAME

**デフォルトの名無しさん** · 2016/09/29(木) 18:55:56.52

>>617
返答ありがとうございます。
しかしながら selectでNAMEのみを指定すると項目が足らんみたいなエラーが出てしまいます。
select *, COUNT(*) from DATATBL group by NAME
こうするとエラーは出ませんが、結果はやはり０になってしまいます

**デフォルトの名無しさん** · 2016/09/29(木) 19:18:38.30

>>617
すみません、他の箇所でエラーが出ていました。
正常にselectする事ができました。ありがとうございました。

**デフォルトの名無しさん** · 2016/09/30(金) 11:38:14.95

またSQLで質問ですが、
DATEでソートしてからNAMEをグループ化したいので
select NAME from (select * from TESTTABLE order by DATE) as group by NAME
上記のようにしたのですが結果が０になってしまいます。
何処が間違ってますか？

**デフォルトの名無しさん** · 2016/09/30(金) 11:43:24.10

あ、as取ったらいけました

**デフォルトの名無しさん** · 2016/09/30(金) 13:45:49.20

GROUP BY 後の順序は保証されてなかったと思う
確実にやるならグループ化してからソート

**デフォルトの名無しさん** · 2016/09/30(金) 13:59:26.62

いいかげんスレチ

**デフォルトの名無しさん** · 2016/10/01(土) 18:16:06.96

すみませんが教えて下さい。

Access2010でフォームにWebブラウザコントロールを張り、
Me![ScrollInfo].Navigate

**デフォルトの名無しさん** · 2016/10/01(土) 18:24:50.88

すみませんが教えて下さい。

Access2010でフォームにWebブラウザコントロールを張り、
Me![ScrollInfo].Navigate で正常にページが表示されています。

そのフォームを右クリックでデザインビューに切り替えると以下のエラーが出来ます。

StatusTextChange でエラーが発生しました（以下略）

ちなみに×ボタンで普通に閉じるとこのエラーは発生しません。
Access2016でも同様でした。

ご存知の方がいらっしゃいましたらお願い致します。　

**デフォルトの名無しさん** · 2016/11/10(木) 12:17:09.05

sendobjectでレポートをPDFで添付して送ろうとすると
添付されたファイル名が・.pdfになるのは仕様ですかね？

ACCESSとOutlookは2013です
ただAccessのファイルはmdb形式

**デフォルトの名無しさん** · 2016/11/10(木) 12:51:09.43

どうしたいの？

**デフォルトの名無しさん** · 2016/11/10(木) 13:28:54.05

添付ファイルが"元となったレポート名".pdfになるのかと思っていたのだけど、違うのかなという疑問

**デフォルトの名無しさん** · 2016/11/10(木) 13:29:38.75

それで通じるとかマジで思ってる？

**デフォルトの名無しさん** · 2016/11/10(木) 14:01:21.25

通じないか…すまん

Docmd.Sendobjectを使ってレポートをPDFに変換してメール送信したい

実行はできているが、変換されてメールに添付されたファイル名が・.pdfになってしまう。
これがなぜ・になるか知りたい。
レポートのオブジェクト名は・ではない。
日本語名がNGなのか？

**デフォルトの名無しさん** · 2016/11/10(木) 14:37:03.21

そう思うなら ASCII のファイル名とか UTF-8 のファイル名試してみれば？

**デフォルトの名無しさん** · 2016/11/10(木) 14:38:13.94

>>630
MIMEでiso-2022-jpとかにしてみ

**デフォルトの名無しさん** · 2016/11/10(木) 20:01:07.80

レポートの表題がファイル名になることがわかった。
レスくれた方ありがとう。

**デフォルトの名無しさん** · 2016/12/28(水) 11:38:08.54

?Eval("'山ー田' Like '*山田*'")
-1

何で？

Win7x64+Acs2010

**デフォルトの名無しさん** · 2016/12/28(水) 12:22:36.72

>>634
そりゃ真ん中に入ってるからだと思うが。

**デフォルトの名無しさん** · 2017/01/01(日) 18:08:01.09

-1はTrueだから一致することについて疑問に思ってるのでは

**デフォルトの名無しさん** · 2017/01/01(日) 20:32:48.66

>>634
Evalの引数が単なる文字列として認識されてるからかも

?Eval("山ー田" Like "*山田*")

だと期待する結果になる

**デフォルトの名無しさん** · 2017/01/01(日) 20:35:20.03

すまん環境書き忘れた
Win10 x64, Access2016 32bit

**デフォルトの名無しさん** · 2017/01/01(日) 22:05:32.13

文字判定だから、アクセント無視で長音記号が無視されてるだけだと思ったけど
?Eval("'山xー田' Like '*山田*'")
も-1だな
?Eval("'山ーx田' Like '*山田*'")
は0だった
長音記号無視するルールになんかあるのかもしれん

**デフォルトの名無しさん** · 2017/01/02(月) 21:00:22.06

クエリでもヒットしちゃうな。

**デフォルトの名無しさん** · 2017/01/04(水) 15:01:47.06

利用環境
access2010
Windows7

上記環境で同時接続400人程度のファイルを作成しようとしています
管理者2～3人が100～1000件程度のレコードを編集しながら
400人程度が編集したレコードを参照。参照後に自動で既読フラグを
access内のテーブルに入力する仕組みです

上記イメージで利用する場合、400人が同時に既読情報を
DBに対して入力することになります。
(実際は入力するタイミングがずれるので同時編集は
多くて100人程度になりそうです)
Accessは負荷に耐えきれるのでしょうか？
400人の既読情報を40個のテーブルに分割して
リンクテーブルで負荷を分散させれば実用範囲になるのでしょうか？

社内セキュリティの制約でAccessしか利用が出来ない状態なので
他のツールを使用することは出来ないです

お手数をおかけしますが、お分かりの方がいらっしゃれば
ご教授をお願い致します

**デフォルトの名無しさん** · 2017/01/04(水) 15:08:19.02

全員が同じaccess開くならやめとけ

>400人の既読情報を40個のテーブルに分割して
>リンクテーブルで負荷を分散させれば実用範囲になるのでしょうか？

そこまで分けなくても
テーブル専用mdbと参照専用mdbに分けて
参照専用mdbを400人全員ローカルに置く
参照専用mdbからテーブル専用mdbにリンクするだけでいいんじゃね

**デフォルトの名無しさん** · 2017/01/04(水) 15:25:42.45

>>641
そこまで社内セキュリティにうるさい会社で勝手にやっていい範囲のシステムだとも思えんけど

>Windows7
この時点で、ライセンス違反の可能性が非常に高い
おそらく同時接続制限もかかる

フロントエンドはアクセスでもいいけど、どう考えてもバックエンドにまともなDB入れるべき
てか利用者４００人のシステムで「同時」書き込み１００とかなかなか行かないけどな
たぶんライセンス無視すれば>>642のやり方で行けるだろ
ほんとに同時書き込みが１００あるならACCDBみたいなファイル共有型のDBじゃ無謀

**デフォルトの名無しさん** · 2017/01/04(水) 15:58:00.68

>>642
返信ありがとうございます
「400人全員のローカルに参照専用ファイルを保存する」
ということが社内環境上、難しいです
また、参照専用ファイルを修正して差し替える場合に
大変な労力がかかる可能性があるので、可能であれば
参照専用mdbを、共有サーバに配置して
400人で開いてもらい、テーブル専用mdbに対して
入出力する方法が取りたいです

400人で参照専用mdbを開くということは無謀でしょうか？

>>643
返信ありがとうございます
ライセンス違反の可能性は考慮していませんでした
調べて見ます
未読状態のものは赤表示にしようと考えている為、
テーブルから未読/既読状態のデータを読み取ることもあります
開いた瞬間に既読フラグを付けるだけのシンプルな入力なので
確かにおっしゃる通り100人で同時に書き込みがあることは
ないですね。恐らく多くて20～30だと推測します

参照専用mdbからテーブル専用mdbに入出力する場合は
「テーブルリンク機能を使う」ということでしょうか？

仕事中なので返信が遅くなってしまいます
申し訳ありません

**デフォルトの名無しさん** · 2017/01/04(水) 16:06:47.19

未読とか既読フラグは400人全員が個別に持つんだろ？
だったら400人分mdb持った方が多い日も安心

**デフォルトの名無しさん** · 2017/01/04(水) 16:53:55.47

>>645
利用者各々が自分の既読が分かれば良いだけならそれで良いけど
管理者が誰が未読か知りたいとか既読者の一覧出せとかいう要件があると
結局既読フラグは集中管理する方が楽

まあどっちにしてもプログラム用のMDBは各ユーザに配るべきだが

**デフォルトの名無しさん** · 2017/01/04(水) 16:58:07.53

accessでやる案件じゃないな

**デフォルトの名無しさん** · 2017/01/04(水) 17:01:26.69

>400人で参照専用mdbを開くということは無謀でしょうか？
アクセスのDBは基本的にはファイル共有で動作してる
共有サーバどうする気か知らんが、その共有サーバで実際に４００人でファイル同時オープンしてみ
それで問題なさそうなら真剣にmdb共有検討してみても良いかもしれん