Access VBA 質問スレ Part1 YouTube動画>1本 ->画像>3枚

このスレへの固定リンク： http://5chb.net/r/tech/1328536426/
ヒント：5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。

1デフォルトの名無しさん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

2デフォルトの名無しさん2012/02/09(木) 00:43:50.48

くその山

3デフォルトの名無しさん2012/02/10(金) 08:46:53.06

まさかの３

4デフォルトの名無しさん2012/02/13(月) 03:22:20.27

期待あげ

5デフォルトの名無しさん2012/02/24(金) 00:33:06.69

問題なく使えてるけど

6デフォルトの名無しさん2012/02/24(金) 07:50:36.35

とりあえず使ってみたいんだけど、解説してるwebページ教えて

7デフォルトの名無しさん2012/02/24(金) 10:58:16.76

うぜえ

8デフォルトの名無しさん2012/02/24(金) 13:25:33.52

>>6
http://www.geocities.jp/cbc_vbnet/
http://accessvba.pc-users.net/
http://vba.officehp.com/

ググればいくらでも出てくる罠。

9デフォルトの名無しさん2012/02/24(金) 20:57:22.20

>>6
とりあえず程度なら解説見ないで作れよ。

10デフォルトの名無しさん2012/03/06(火) 16:43:20.41

すいませんが質問です。
ＸＰから7へ移行したいのですがaccessのvba上で
excelのマクロを操作してセルの中身を変えて上書き保存してたのですが、
今まで前面にexcelのメッセージで上書きしますか？的なメッセージが出てたのですが
7だとaccessが出っ放しでexcelがタスクに隠れてメッセージが前面に出てこないのです。
何かやり方ありませんか？ググり方すら分からない…アドバイス下さい；

11デフォルトの名無しさん2012/03/06(火) 16:49:39.47

>>10
http://oshiete.goo.ne.jp/qa/4876776.html

12デフォルトの名無しさん2012/03/06(火) 17:05:38.78

>>11
早々とありがとうございます。本当に嬉しい！！
しかし、自分で作ったメッセじゃなくてデフォルトの置き換えますかってメッセなんです。
XPから7に変わると設定変えるんじゃなくてvbaに追加せんと駄目なんですかね…無知でスイマセン

13デフォルトの名無しさん2012/03/06(火) 17:46:46.30

>>12
Excelのマクロ実行中にExcelをアクティブウィンドウに出来ればおK。

試してないが、この辺が参考にならないかな？
http://www.officepro.jp/excelvba/window/index2.html

14デフォルトの名無しさん2012/03/07(水) 00:32:47.13

すみません、フォームが開く順序は
Open→Load→…が規定だと思いますが、
Loadが飛ばされる条件はどのような条件か
ご存じの方いらっしゃいませんか？

15デフォルトの名無しさん2012/03/07(水) 11:20:11.27

HideしてShowするとLoadに飛ぶ

16デフォルトの名無しさん2012/03/08(木) 16:02:20.11

>>13
ありがとうございます。一度試してみます

17デフォルトの名無しさん2012/03/12(月) 09:45:47.59

すみません
ADOで新規にブール型のフィールドをテーブルに作成する場合、
VBAではどうかくのでしょうか
（テーブル）.Columns.Append "XXXX", adBoolean
だとエラーになってしまうんですが

18172012/03/12(月) 10:52:54.08

すみません環境を書きます
OS：Vista
Ver：Access2010（accdbファイルを使用。実際のコードはExcel2007ファイルに記述）

19デフォルトの名無しさん2012/03/12(月) 14:16:24.17

DoCmd.RunSQL "ALTER TABLE (テーブル) ADD COLUMN XXXX BOOLEAN;"

20172012/03/13(火) 01:56:43.81

回答ありがとうございます
ただ他のフィールド（adGUID・ adInteger・adVarWChar）は問題なく
Appendできるので、SQL文ではなく、これらに合わせたADOXによる
コードにしたいと思ってます
んん、というかadBooleanのフィールドを追加するとtablesへのAppend時に
エラーとなる原因がどうしても知りたいです
散々ググったのですが、結局実際にadBooleanのフィールドを追加している
サンプルコードにはお目にかかれませんでした
何が原因なんだろう…
adBooleanの時はAppendの他に何か処理が必要なんだろうか…

21デフォルトの名無しさん2012/03/13(火) 15:50:44.64

Office2010 64bit版を使ってるのだとしたら32bit版に入れ替えてみると良いかも。
そうじゃないとしたら、参照設定でバージョンの違うADOモジュールを試すとか。

22172012/03/14(水) 01:05:25.66

原因が分かりました
普段ACCESS使ってる人からは、当たり前やんけ！って怒られそうな話ですが
アドバイス下さった方もいらっしゃるので報告しますと
(テーブル).Columns.Append "XXXX",adBoolean
が原因ではなく、その次に入れておいた次の文
(テーブル).Columns("XXXX").Attributes = adColNullable
が原因でした
ブール型フィールドには初期値（True）があり、Nullを設定できないのにNull許容を設定したせいで
エラーになっていたようです
本やネットで情報漁って、ADOでEXCElからACCESSファイル作れてテーブルも作れるなら、ACCESS買わなくてもいいんじゃね？
なんて思ってましたが、ソフト買って普段からいじって慣れておいた方かいいのかも

23デフォルトの名無しさん2012/03/15(木) 23:06:37.82

ADOのDynamicPropertyについて
かなり詳細な解説が知りたいのですが、
なにか参考となるURLや書籍はありませんか？

24デフォルトの名無しさん2012/03/17(土) 19:33:03.28

Access初心者です。質問があります。
前任者のAccessで作られた業務ソフトを担当することになりました。

まずは全体を見通したいので、Basicのコードやコントロールのプロパティ、
イベントなど、すべての情報をテキストファイルに書き出したいです。

どうやったら良いのでしょうか？
Access2003 です。

教えてください。

25デフォルトの名無しさん2012/03/19(月) 00:50:30.92

コードはともかくとして、プロパティなんかは
自分でそれをリストするプログラムを書けばいい。

26デフォルトの名無しさん2012/03/22(木) 05:39:40.85

VBAでそんなこと出来るんですね。
どこかのHPにソースが公開されていないかな〜
参考になるページなど、探して見ます。

27デフォルトの名無しさん2012/03/22(木) 21:28:12.01

>>26
ツールならこのへんか
http://www.vector.co.jp/soft/win95/business/se397540.html
http://www.vector.co.jp/soft/win95/business/se130222.html
どっちもDAOとかCOMのAccess.Applicationオブジェクトで抜いてるだけだと思う

マクロ多用なら一回VBA変換すると見やすいぞ

28262012/03/25(日) 17:47:30.63

>>27
情報サン・クスコ☆

29デフォルトの名無しさん2012/04/16(月) 23:53:45.24

hosyu

30デフォルトの名無しさん2012/04/18(水) 00:22:57.54

Accessで同時利用の限界ってどれくらい？
プログラム工夫すれば50人くらいは兵器？

31デフォルトの名無しさん2012/04/18(水) 13:07:20.08

５０人がそれぞれ日一回違う時間帯に読み書きするとかならぜんぜん平気かもしれないよ

32デフォルトの名無しさん2012/04/26(木) 11:59:42.32

WindowsXP
Access2003

DoCmd.RunCommand acCmdSaveRecord
の使いようがよくわかりません。

例えば
テーブルA　フィールド1〜3

についてフォームで値を入力できるようにしたとします。
フォームに入力して閉じるとテーブルのレコードは更新されています。

DoCmd.RunCommand acCmdSaveRecord
を使うとフォームを閉じる前の時点でレコードが更新されるんでしょうか？
しかしこの命令文を通過した後でテーブルを開いてみても更新されていませんでした。

33デフォルトの名無しさん2012/04/26(木) 13:16:55.86

馬鹿には無理

34デフォルトの名無しさん2012/04/26(木) 15:30:07.48

>>32
テーブルAを表示させたメインフォームの中に同じテーブルAを表示させたサブフォームを置いて

Private Sub 1_AfterUpdate()
End Sub

Private Sub 2_AfterUpdate()
　DoCmd.RunCommand acCmdSaveRecord
End Sub

と書け
メインに表示されたフィールド1を変更して、フォーカスをフィールド2に移すとサブに表示された内容も変わるメインに表示されたフィールド2を変更して、フォーカスをフィールド3に移してもサブの内容は変わらない
ただしどちらもメインフォームからサブフォームにフォーカスを移せば内容は変わる
これでレコードがどういうタイミングでセーブされるか判るべ

35デフォルトの名無しさん2012/05/17(木) 20:45:31.33

人の手でデータ加工する過程はすべてＶBAに置き換えられるのでしょうか？

36デフォルトの名無しさん2012/05/18(金) 03:27:32.55

>>35
Access内でやっている限りは

37デフォルトの名無しさん2012/05/19(土) 00:18:15.14

import os
import win32com.client
MDBFILE = "test.mdb"
if os.path.exists(MDBFILE): os.remove(MDBFILE)
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s" % MDBFILE
adox = win32com.client.Dispatch("ADOX.Catalog")
adox.Create(dsn)
adodb = win32com.client.Dispatch("ADODB.Connection")
adodb.Open(dsn)
adodb.Execute("create table hoge (id counter primary key, c1 varchar(10));")
adodb.Execute("insert into hoge (c1) values ('fuga');")
adodb.Execute("insert into hoge (c1) values ('hage');")
adodb.Close()

38デフォルトの名無しさん2012/05/24(木) 11:34:52.22

VBAじゃないんだけどmdbファイルからSQLで指定テーブルのフィールド名を列挙するSQLを教えてくださ

39デフォルトの名無しさん2012/05/24(木) 11:40:53.57

>>30
バックエンドにMySQLを使うといったようなクラサバにすれば50人だろうが
100人だろうが行ける。

40デフォルトの名無しさん2012/05/25(金) 03:16:51.66

>>38
了解

41デフォルトの名無しさん2012/05/25(金) 23:17:09.33

>>38
import win32com.client
adox = win32com.client.Dispatch("ADOX.Catalog")
adox.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
for t in adox.Tables:
  if t.Type != u"TABLE": continue
  print t.Name, t.DateCreated, t.DateModified
  for c in adox.Tables(t.Name).Columns:
    print c.Name, c.DefinedSize, c.Type

42デフォルトの名無しさん2012/07/04(水) 17:05:23.99

Access2010(x86)　Windows7(x64) PostgreSQL9

パススルークエリ＋PostgreSQLの関数でナンバリング実装したんだが、

PostgreSQLの関数直接叩く　→ 　1づつ進む
クエリをデータシートビューで開いてリロード　→　1づつ進む
DLookup(結果フィールド, パススルークエリ名)　→　2〜3づつ進む
ADOのExecuteでレコードセット取り出し　→　2〜3づつ進む

になってしまう。（直接叩く＆データシートビューで問題なしなので、VBAからの呼び出しの問題だと思う。）

試しにVBAの方にテスト用の関数(デバッグメッセージ出してダミーの値を返す)を作って
それを呼び出すパススルーじゃないクエリを作ってDLookUp実行してみたが、デバッグメッセージは1回しか出ない。
(Accessのパススルーじゃないクエリは1回の実行毎に1回しか開かれない？)

VBAからパススルークエリ実行する時は、1回の実行でも複数回(2〜3回)開かれるのか？
何とかして1回に1づつ進むように出来ないんだろうか・・・。

43422012/07/04(水) 17:12:27.30

age忘れたorz

44デフォルトの名無しさん2012/07/04(水) 19:17:26.30

馬鹿には無理

45422012/07/05(木) 10:34:27.66

>>44
�d。
おまいのおかげで目が覚めた。

パススルークエリやめて、直接ADOからPostgreSQL開いてクエリ送ったら1づつカウントするわ。
助かったよ。

46デフォルトの名無しさん2012/07/05(木) 11:25:53.31

やれば出来る子

47デフォルトの名無しさん2012/07/06(金) 19:18:40.79

おまえみたいなやつが伸びる。






かもしんない。

48デフォルトの名無しさん2012/08/12(日) 10:55:28.80

Access2003 　WinXP　SP3　Firefox14.0.1です。

質問ですが、hyperlinkaddressプロパティというのがありますよね。
url文字列を代入すると、そのページをデフォルトのブラウザで
開いてくれるというやつ。
で、このｕｒｌのCGI何とかっていう文字列が入っていますので、
CGIで何らかのプログラムを起動しているんでしょうが、その時に、
ページが表示されないんです。
正確に言うと、デフォルトのブラウザがIE(自分の機械には６しか
入ってないんですが)だと、表示されるんですが、Firefoxだと表示できません。
でも、FFのURLボックスには灰色でうｕｒｌが表示されていて、
再読み込みボタンを押すと、表示します。
試しに、コマンドラインからurlをパラメータにして起動すると、表示します。
症状から見て、VBAの問題なのか、FFの問題なのか、判断しかねたので、
こちらでお聞きする次第です。
どなたか、詳しい方、アドバイをおねがいします。

49デフォルトの名無しさん2012/08/12(日) 14:26:35.97

「""」で囲んでみた？

50デフォルトの名無しさん2012/08/12(日) 15:32:13.48

”で囲むと、「”ｕｒｌ”を開くことができません。指定したファイルを開くことができません」というエラーダイアログが出ます。

51デフォルトの名無しさん2012/08/23(木) 22:10:14.57

他の方法でFFにそのuriを送ってみる
ショートカットやコマンドライン、メールやワープロ、表計算ソフトから
同じ現象になると思うのでFFの仕様かバグ、設定のせいだとわかるのではないかと

52デフォルトの名無しさん2012/08/27(月) 21:38:06.30

500件ぐらいのDATAをどんどん追加していくと、3、4回で重くなってしまうんですけど、
どっから手を付けていいのやら分かりません。
ヒントください。

53デフォルトの名無しさん2012/08/27(月) 21:43:01.77

ソース貼れ

54デフォルトの名無しさん2012/08/28(火) 07:43:56.82

>>52
書き込みが遅くなるって事ですか？

55デフォルトの名無しさん2012/09/12(水) 21:30:27.45

VBAで既存のAccessデータベースを開いて、その中にあるクエリを実行して得られる「テーブル構造とデータ」をVBAの呼出し元にテーブルとしてインポートする方法教えてください。
[外部データ] タブの [インポート]からはうまくいくのですが、それをVBAで実行したいです。

56デフォルトの名無しさん2012/09/13(木) 00:20:33.72

import win32com.client
adox = win32com.client.Dispatch("ADOX.Catalog")
adox.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb"
for t in adox.Tables:
  if t.Type != u"TABLE": continue
  print t.Name, t.DateCreated, t.DateModified
  for c in adox.Tables(t.Name).Columns:
    print c.Name, c.DefinedSize, c.Type

57デフォルトの名無しさん2012/09/13(木) 03:17:38.00

>>55
DoCmd.TransferDatabase でできるんじゃね

58デフォルトの名無しさん2012/09/13(木) 09:47:05.31

ExcelのVBAについて勉強中です。
まだ初心者なので、VBAについてお詳しい方、
ExcelのVBAでのテーブル作成方法を教えてください。
データーベース中心で、入力画面からデーターをmoveしてくるものを作りたいです。

59デフォルトの名無しさん2012/09/13(木) 10:07:40.73

import os
import win32com.client
MDBFILE = "test.mdb"
if os.path.exists(MDBFILE): os.remove(MDBFILE)
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s" % MDBFILE
adox = win32com.client.Dispatch("ADOX.Catalog")
adox.Create(dsn)
adodb = win32com.client.Dispatch("ADODB.Connection")
adodb.Open(dsn)
adodb.Execute("create table hoge (id counter primary key, c1 varchar(10));")
adodb.Execute("insert into hoge (c1) values ('fuga');")
adodb.Execute("insert into hoge (c1) values ('hage');")
adodb.Close()

60デフォルトの名無しさん2012/09/26(水) 09:10:07.57

Access初心者です .
現在、ある地区の人口増減表を作成しています。
そのデータを格納するためにAccessを使用しています。
1回のデータを入れるたびに〈男or女〉〈転入or転出〉で元々設定された数値から（男性人口数）（女性人口数）（総人口数）
が自動的ににカウントアップする（データシートビューに）ロジックを作成したいと思っています。
現在、「データシートビュー」「デザインシートビュー」まで作成したのですが、これからどのように手を加えていけばいいでしょうか？
クエリで演算フィールドなどを作成するのでしょうか。
Access自体が全くの初心者なので、できるだけ詳しく書いていただけると助かります。
是非よろしくお願いします。

61デフォルトの名無しさん2012/09/26(水) 11:25:57.96

馬鹿には無理

62デフォルトの名無しさん2012/09/26(水) 11:36:38.59

Microsoft　Office Chart１０　あるいは、OWC10というグラフを描くコンポーネントで、
クリックやダブルクリックのイベントを使えないですか？
クリックしたグラフの要素を得たいのですが。

63デフォルトの名無しさん2012/09/26(水) 12:53:17.87

使えますよ。

64デフォルトの名無しさん2012/09/26(水) 12:59:35.45

>>63
どのようにするのですか？
何か参考になるページなど教えてもらえませんか？

65デフォルトの名無しさん2012/09/26(水) 17:04:56.08

>>64
使えますよ。

66デフォルトの名無しさん2012/09/26(水) 18:11:11.92

>65
使えますね。

67デフォルトの名無しさん2012/09/26(水) 18:20:01.38

>>66
さっさと使え。

68デフォルトの名無しさん2012/10/01(月) 21:06:32.64

>>57
サンキュー助かった!
スマホで規制で返信できずすスマソ。

69デフォルトの名無しさん2012/11/25(日) 21:58:23.52

Access 2007のフォームで、オプショングループ内でトグルボタンを作成し、各トグルボタンをクリックすると、フォームのMe.RecordSourceにトグルボタンに対応させたクエリを設定するプログラムを書いています。
今のところ、機能は追加できたのですが、トグルボタンの表示がうまく更新されず、最初に押したボタンが引っ込んだままもどりません。
トグルボタンの表示を更新する方法はあるのでしょうか?

70デフォルトの名無しさん2012/11/26(月) 00:10:07.28

引っ込んだら戻らなくなるのがトグルボタンなんだけど

71デフォルトの名無しさん2012/11/26(月) 21:19:17.24

お前らここまでやるならC#でEXCELデータいじった方が簡単だろ

72デフォルトの名無しさん2012/11/26(月) 21:20:11.62

>>70
すみません。言葉足らずでした。
トグルボタン1を押した後、トグルボタン2や3を押しても、トグルボタン1が押されたままの表示になってしまいます。トグルボタンに割り当てたRecordSourceの切替え機能はちゃんと動いています。
。

73デフォルトの名無しさん2012/11/26(月) 21:38:01.20

トグルボタン1を押したあと
トグルボタン2を押して
トグルボタン3を押したら
トグルボタン2はどうなってますか

74デフォルトの名無しさん2012/11/26(月) 22:19:50.73

>>73
トグルボタン2の表示は押されていない状態です。
トグルボタン1が押されたままの表示になっています。

75デフォルトの名無しさん2012/11/26(月) 22:27:05.15

1がグループに入ってないな

76デフォルトの名無しさん2012/11/27(火) 06:18:00.99

馬鹿には無理

77デフォルトの名無しさん2013/02/09(土) 15:50:52.56

ACCESS2013はどうですか？

78デフォルトの名無しさん2013/03/04(月) 07:41:06.45

>>77
adpがつかえん
クラサバの旗降ってきた漏れの立つ瀬がない囧rz

79デフォルトの名無しさん2013/03/04(月) 13:02:19.07

ACCESS2013の利点は無いのかね！

80デフォルトの名無しさん2013/03/05(火) 15:27:52.54

Office2013にメリットなんて無いよ。
見た目がヌルヌルしてキモいけど、価格分の性能&利便性向上はない
Office使ってなくてOpen系で駄目なら、仕方ないから買ってやるか程度

81デフォルトの名無しさん2013/03/24(日) 06:36:06.38

無料バージョンアップできると聞いて2010買ったのに、発売の2/6までにインスコしないといかんかった囧rz
血も涙もないよ

82デフォルトの名無しさん2013/03/24(日) 07:16:09.59

おめでとうw

83デフォルトの名無しさん2013/03/26(火) 11:24:23.03

Win8でACCESS2010です。

Form_test.Filter = "分類 Not Like ""*あああ*"" And Not Like ""*いいい*"""
Form_test.FilterOn = True

コンボボックスの更新後処理イベントで上記のコードを走らせると、
「構文エラー：演算子がありません」と返されます。
初歩過ぎる質問ですんまそん。文法何か間違ってますでしょうか。

84デフォルトの名無しさん2013/03/26(火) 12:05:53.53

Form_test.Filter = "分類 Not Like ""%あああ%"" And Not Like ""%いいい%"""

85デフォルトの名無しさん2013/03/26(火) 13:24:28.20

たぶん
 "分類 Not Like ""*あああ*"" And 分類 Not Like ""*いいい*"""

86デフォルトの名無しさん2013/03/26(火) 15:56:56.54

>>84->>85
返信ありがとうございます。どちらも「演算子がありません」エラーは解消されませんでした。

ちなみに、↓は問題ないので、And Notがまずいのかなと思ったんですが、書式は問題なさそうですか・・・。
Form_test.Filter = "分類 Not Like ""*あああ*"""
Form_test.FilterOn = True
他の方法も探してみます。

ヘルプ開くとBingとかいうのが出て何も表示されないお・・・。2010使いづらいお(；´Д｀)

87デフォルトの名無しさん2013/03/26(火) 17:04:55.32

Form_test.Filter = "Not (分類 Like ""*あああ*"" Or 分類 Like ""*いいい*"")"

88デフォルトの名無しさん2013/03/27(水) 08:35:25.18

>>87
これでいけました！ありがとうございます！

89デフォルトの名無しさん2013/03/27(水) 11:51:17.13

>>88
>>84は文法間違いあるけど、>>85はいけるはずだが、ほんとにダメだったのか？
先頭の のとこは無視しないとだめだぞ

90デフォルトの名無しさん2013/03/27(水) 17:54:38.17

"Not 分類 Like ""*あああ*"" And Not 分類 Like ""*いいい*"""

91デフォルトの名無しさん2013/04/04(木) 18:20:58.41

１．OS(64bit) + Office2010(64bit)
２．OS(64bit) + AccessRuntime2010(64bit)
３．OS(64bit) + Office2010(32bit)
４．OS(64bit) + AccessRuntime2010(32bit)
５．OS(32bit) + Office2010(32bit)
６．OS(32bit) + AccessRuntime2010(32bit)
※ OS：XP〜Windows8まで

上記のどの組み合わせでも動くようなAccessの実行ファイルは作成可能ですか？

92デフォルトの名無しさん2013/04/04(木) 19:39:15.05

>>91
http://tsware.seesaa.net/article/174598211.html

93デフォルトの名無しさん2013/04/12(金) 00:23:04.15

使用不可にいている3つのテキストボックスを、
チェックボックスをonにすると使用可能にするにはどうしたらいいでしょうか？

94デフォルトの名無しさん2013/04/12(金) 01:37:21.85

>>93
Private Sub チェックボックス_Click()
If Me.チェックボックス.Value = True Then
Me.テキストボックス１.Enabled = True
Me.テキストボックス２.Enabled = True
Me.テキストボックス３.Enabled = True
Else
Me.テキストボックス１.Enabled = False
Me.テキストボックス２.Enabled = False
Me.テキストボックス３.Enabled = False
End If
End Sub

95デフォルトの名無しさん2013/04/12(金) 11:57:39.57

>>92
参考にさせてもらいました。
ありがとうございます。

引き続き質問なのですが、
Windows8(32bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合に毎回ではないのですが、
レーダーチャートの目盛りが正常に表示されません。（-3E+259と表示される）
なお、表示しているデータは毎回同じものです。

ちなみに、Windows8(64bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合も同様でした。

この現象について何かご存知の方がいらっしゃいましたらお願いします。

96デフォルトの名無しさん2013/04/12(金) 17:36:38.89

>>94
もう少しシンプルなコードはないですか？
わがままですみません。

97デフォルトの名無しさん2013/04/12(金) 17:42:08.68

>>96
Private Sub チェックボックス_Click()
Me.テキストボックス１.Enabled = Me.チェックボックス.Value
Me.テキストボックス２.Enabled = Me.チェックボックス.Value
Me.テキストボックス３.Enabled = Me.チェックボックス.Value
End Sub

98デフォルトの名無しさん2013/04/12(金) 18:36:06.95

>>97
すばやいご回答ありがとうございました。
いろいろな書き方があるんですね。

99デフォルトの名無しさん2013/04/12(金) 22:29:10.45

Excelスレでも聞いたのですが、
以下のような時間の計算結果を出す関数として

0:00〜0:44　0:30
0:45〜1:14　1:00
1:15〜1:44　1:30

=IF(A1<"0:15"*1,"0:30"*1,MROUND(A1,"0:30"))

というアドバイスをしてくれた方がいましたが、
これに相当するコードが全くわかりません。
丸投げですがどなたか教えてくださいませ。

100桃白白2013/04/13(土) 02:40:34.80

>>99
Function marume(ByVal s As Double) As Double
　　Dim Q As Double
　　Dim H As Double

　　Q = TimeValue("0:15")
　　H = TimeValue("0:30")
　　
　　If s < Q Then
　　　　marume = H
　　Else
　　　　marume = Fix((s + Q) / H) * H
　　End If
End Function

101デフォルトの名無しさん2013/04/13(土) 17:33:29.73

>>100
フォームの[実時間]の時間によって[時間]に結果を出す場合で、

Function 時間(ByVal 実時間 As Double) As Double
Dim Q As Double
Dim H As Double

Q = TimeValue("0:15")
H = TimeValue("0:30")

If 実時間 < Q Then
時間 = H
Else
時間 = Fix(([実時間] + Q) / H) * H
End If
End Function

としましたがうまくいかず、どこをどうしたら良いのかまるでわかりません。
ご指摘お願いいたします。

102桃白白2013/04/13(土) 20:28:48.85

>>101
あら。結果がずれてた？　それともなんか変な動きした？
引数の形式が違うのかな。どういう入力でどう出力された？

103デフォルトの名無しさん2013/04/13(土) 21:29:31.16

>>102
[開始時間]に入力、[終了時間]に入力後、
時間の差を[実時間]に表示し、これを基に[時間]に結果を表示したい、という流れですが、
フォームを開くだけで以下の、

「イベント プロパティに指定した式 読み込み時でエラーが発生しました：
このメンバー識別子は既にオブジェクトモジュールの中に存在しています。」
※マクロ名、ユーザー定義関数、[イベント プロシージャ]以外の式が指定されています。
※関数、イベント、マクロの評価でエラーが発生しました。

というエラーメッセージがでますが、正直理解できていません。

104桃白白2013/04/14(日) 01:59:24.64

>>103
コントロールの名前と関数の名前が競合してるんでない？
コントロールと関数を別の名前にしてコントロールソースで紐付けて
やっちゃえばいいよ。こんな感じで。

Database1.zip download
http://kie.nu/Xug

105デフォルトの名無しさん2013/04/14(日) 14:28:32.69

>>104
うわー、ファイルのアップまでしていただき本当にありがとうございます。
テーブルに記録しておく必要があったため、

Private Sub 終了時間_AfterUpdate()
時間 = Marume(実サービス時間)
End Sub

ということで全てスッキリしました。
いただいたコード自体見てもほとんど理解しきれてませんが、
これから勉強しながら頑張ってみます。
再度、本当にありがとうございました。

106デフォルトの名無しさん2013/04/19(金) 11:54:05.25

フォームのプロパティにある「コード保持」って何でしょうか？
「はい／いいえ」はどのように使い分けるのでしょうか？

107デフォルトの名無しさん2013/04/19(金) 12:30:11.35

存在しないオブジェクトに関連したコードを不要になったときに自動で削除する機能がある
たとえば"ボタンA"をクリックしたときのコードを書いてある状態で
あとで"ボタンA"を"ボタンB"に名称変更したりしたときに
コード保持が「いいえ」だと"ボタンA"をクリックしたときのコードは捨てられる

108デフォルトの名無しさん2013/04/19(金) 16:04:50.27

どもです

つまりコード保持は、名称変更をした際に以前のコードが消えても良い
または名称変更は絶対にしないような状況であれば、「いいえ」を選択しておいても良い
と言うことで間違いないですか？

どこかで「いいえ」にした方が速度が速くなる的なことが書いてあった覚えがあるので･･･

109デフォルトの名無しさん2013/04/19(金) 16:43:59.98

>>107
名前の自動修正オプションとこんがらがってないか？

>>108
コード消えるのはフォームかレポート単位だぞ
名前変更とか関係なくて、そのフォームのコード全部消えるぞ

ヘルプにはコードが無いからいいえの方が処理が早いとは書いてあるな
その分制約もあるが
ヘルプみて意味がわからないなら、設定変えるのはやめとけ

110デフォルトの名無しさん2013/04/22(月) 10:00:33.47

>>109
遅くなりましたが、ありがとです

試しにフォームを作成時に、「いいえ」を選択しておいた状態で
イベントプロシージャを設定してみました。
その時点で自動的に「はい」に切り替わるんですね。

そしてコードを使うフォーム、レポートが１０００個を超えるものは作れないと言う事なんですね。
勉強になりました。

111デフォルトの名無しさん2013/04/25(木) 11:56:04.36

ﾀﾌﾞｺﾝﾄﾛｰﾙでﾍﾟｰｼﾞ5枚作る。
ﾁｪｯｸﾎﾞｯｸｽによって表示ﾍﾟｰｼﾞ数を切り替えたい。
・ﾁｪｯｸなし ： ﾍﾟｰｼﾞ1〜ﾍﾟｰｼﾞ5
・ﾁｪｯｸあり ： ﾍﾟｰｼﾞ2〜ﾍﾟｰｼﾞ4

そのため、ﾁｭｯｸﾎﾞｯｸｽのｲﾍﾞﾝﾄﾌﾟﾛｼｰｼﾞｬで、一旦全部のﾍﾟｰｼﾞを非表示にして
そのあと、必要なﾍﾟｰｼﾞを表示するようにしてみました。

For i=0 To 5
Me.Controls("ページ" & i).Visible = False
Next i

For i=Starrt To Start＋Cnt
Me.Controls("ページ" & i).Visible = False
Next i

それで、ﾍﾟｰｼﾞ5を選択している状態でﾁｪｯｸありにすると
消したはずのﾀﾌﾞの周りの枠が残ってしまいます。

これを綺麗に消す方法ってありませんか？

環境はAccess2010です。

1121112013/04/25(木) 12:00:42.84

忘れてましたがﾀﾌﾞの背景色を変更したいので
ﾀﾌﾞｺﾝﾄﾛｰﾙのﾌﾟﾛﾊﾟﾃｨで「ﾃｰﾏの使用」を「はい」に設定してあります。

113デフォルトの名無しさん2013/04/25(木) 14:29:36.88

消す前に違うページを選択すれば良いだけじゃないのか？

114デフォルトの名無しさん2013/05/21(火) 13:36:25.32

チェックボックスの　true　が　-1　から　1　に変わったようです
2007からでしょうか？

変更がめんどくさい

115デフォルトの名無しさん2013/05/22(水) 11:48:10.00

>>114
2003と2007で試したけど非連結で画面でチェックした場合はどちらも-1になる
ただし、コードで1をセットしたら1のままだった

まず1をセットするコード書くのが悪い
そして、1でも-1でもBooleanとして評価したらTrueなんだから
そんな事に影響されるコード書くのが悪い

116デフォルトの名無しさん2013/05/22(水) 14:18:44.22

>チェックボックスの　true　が　-1　から　1　に変わったようです
>2007からでしょうか？

キリっ

117デフォルトの名無しさん2013/05/22(水) 14:27:02.75

知らんがな
ってレスしようと思ったけど
かわいそうなので放っといた

118デフォルトの名無しさん2013/06/04(火) 02:35:18.23

月曜会社を休んで家で土曜から月曜までVBAをひたすら書き続けた結果
頭が超重くなって3日目は何やってるかよくわからないまま終わってしまった
VBAのコーディングをぶっ通しでやるのは2日が限界か？

119デフォルトの名無しさん2013/06/05(水) 22:11:38.14

>>118
限界は人それぞれだろうが、無理はすんなよ

120デフォルトの名無しさん2013/06/21(金) 00:57:48.54

access 2003　にて
SendObjectメソッドを利用して、メールを送信したいと思っています。

実際にメールを送れるようにはなっているのですが、
送信メール本文に「mdbファイルと同一ディレクトリにある単体の.msgファイルの本文」（.msgファイルの場所はフルパス指定でも構いません）
を表示させる事は可能でしょうか？

イメージ的には、テーブルから送信先アドレスを収集し、.msgファイルの本文の内容をテンプレートとして一括送信する
と言った感じです。

121デフォルトの名無しさん2013/06/21(金) 01:01:26.56

書き忘れました。
メール送信ソフトはoutlookです。

122デフォルトの名無しさん2013/06/21(金) 07:11:37.65

.msgファイルの形式ってたぶん公開されてないんだよなぁ
どうやってメールを.msgで保存してるかしらんが、そっちを変更した方が楽な気がする
outlookでもVBAは使えるぞ

123デフォルトの名無しさん2013/06/30(日) 18:38:52.19

>>120
OutLookのSession.OpenSharedItemで.msgファイルの読み込みできるが
他のアプリからOutLookいじるのはお勧めしない
OutLook側でmdbに書きだすとか、プレーンテキストで保存するとかした方が良いんじゃね

124デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

質問です
ODBCの接続する際に
IDとパスワードを入力するボックス(VBAで設定したものではない)がありますが、
初めから半角英数字になるように設定はできますか？

125デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

VBAで設定したものではないものを、VBAでどうこうするのは無理があります

126デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

>>125
ですよね。
IDやパスワードを入力するときに各々気を付けてもらうしかないですね。

127デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

>>126
プロパティにないの？

128デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

ODBCのミドル層で出てるダイアログだから、アクセス側からいじれるプロパティなんてないだろ
自分でIDとパスワード入力してもらうフォーム作ってそこに入力してもらえ

129デフォルトの名無しさん2013/08/31(土) NY:AN:NY.AN

DBの持ち物か。すまん。
ダイアログの出る直前にACCESSで入力を固定して終わったら解除ってできないのかね。
（調べてない、ただの理想を述べてみた。）

130デフォルトの名無しさん2013/09/01(日) 00:30:06.54

>>129
>>124が言ってるのは多分、ODBCで接続するときにユーザとパスワードを指定しなかったときに出るやつ
自分でちゃんと接続できるユーザとパスワード指定したら出ない
間違ったユーザやパスワード設定したらしらん

131デフォルトの名無しさん2013/09/01(日) 02:59:29.29

Access初心者です。
VBAでExcelからデータをコマンドボタンで自動インポートさせる物を
作っています。
インポート漏れがないかのチェック処理もさせたいのですが、
どのようにすればいいかわかりません、ご教授お願いします。

132デフォルトの名無しさん2013/09/01(日) 03:24:10.08

>>131
レコード数で比較すれば？

133デフォルトの名無しさん2013/09/01(日) 03:48:29.03

>>132
ありがとうございます。
仮に件数が合わなくてインポート漏れしたレコードを
特定するための処理をいれることはできますか？

134デフォルトの名無しさん2013/09/01(日) 03:59:24.56

ユニークキーで差分とれよ
少しは考えろよ

135デフォルトの名無しさん2013/09/01(日) 04:00:02.93

>>133
ユニークキーで差分とれよ
少しは考えろ

136デフォルトの名無しさん2013/09/01(日) 08:49:32.79

インポート漏れなんてあるの？

137デフォルトの名無しさん2013/09/01(日) 09:02:48.06

結構ある
あと勝手にデータ変換されてたりもする

138デフォルトの名無しさん2013/09/01(日) 09:25:38.41

そうか
ならインポートしてからチェックするより自前のコードでインポートした方がいいんじゃない？

139 【だん吉】 2013/09/01(日) 09:31:40.27

自分はそうしてる

140デフォルトの名無しさん2013/09/01(日) 10:05:17.59

ウィザードにまかせてるとひどい目にあう

141デフォルトの名無しさん2013/09/01(日) 10:35:21.42

Access初心者なので、そのVBAのコードの書き方がわかりません
教えていただけませんか

142デフォルトの名無しさん2013/09/01(日) 10:36:54.67

いいですよ

1431322013/09/01(日) 19:42:00.26

>>131
www.nurs.or.jp/~ppoy/access/access/acX014.html

144デフォルトの名無しさん2013/09/01(日) 20:23:21.63

インポート漏れするデータ欲しい
試してみたい

145デフォルトの名無しさん2013/09/01(日) 23:14:50.69

数字型のとこに文字入ってるデータとか用意したらいいんじゃね

146デフォルトの名無しさん2013/09/01(日) 23:38:03.38

>>145
うーん、そういうデータをインポートすると普通にエラーとして扱われて
「テーブル名_$インポート エラー」 ってテーブルが生成されるから
インポート漏れのレコードがわからなくて困る、なんて状況にはならないんだよね

147デフォルトの名無しさん2013/09/02(月) 10:35:57.67

インポート漏れのレコードがわからなくて困る、なんて状況になると言ってる人はいないが

148デフォルトの名無しさん2013/09/02(月) 10:57:43.03

おもろいな

149デフォルトの名無しさん2013/09/05(木) 23:50:52.09

DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
strac, strxls, True, strrange
上記でインポート エラーになるので引数のacImportのところに、
作成したインポート定義にしたいのですができるのでしょうか

150デフォルトの名無しさん2013/09/07(土) 03:42:11.28

よし

151デフォルトの名無しさん2013/09/07(土) 16:59:26.27

そもそもワークシート変換にインポート定義とかないだろ

152デフォルトの名無しさん2013/09/09(月) 01:46:05.73

Accessの初心者です。
レポート印刷でページヘッダーのコードが変わったタイミングで改ページしたい
かつ詳細の明細行は４レコードだけで改ページさせる、両方の条件を満たせるには、
どうやって作成したらよいかご教授お願いします。

153デフォルトの名無しさん2013/09/09(月) 02:08:51.60

ページヘッダーじゃなくて、その項目でグループ化してヘッダー作る
そのヘッダーかフッターで改ページを設定する

詳細の高さを４行分になるようにヘッダ、フッタや余白を調整する

つか、VBAまったく関係ない話

154デフォルトの名無しさん2013/09/09(月) 07:18:08.57

>>153
ここはVBAのスレですよね？VBAと関係ある話をしてください。
VBAとまったく関係ない話をしたのはあなたです。VBAでお願いします。

155デフォルトの名無しさん2013/09/09(月) 13:03:59.99

VBAを一言で表すと

156デフォルトの名無しさん2013/09/09(月) 13:20:44.56

>>154
マジレスしといてやるが、VBAでやるよりよっぽど>>153の方法の方が良いぞ
だがあえてVBAでやりたいなら
明細セクションの最初と最後に改ページコントロール(改ページ1,2)を配置して
Dim 行数 As Integer
Dim 前コード
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
&nbsp; &nbsp; Me.改ページ1.Visible = False
&nbsp; &nbsp; Me.改ページ2.Visible = False
&nbsp; &nbsp; 前コード = Me.フィールド5
End Sub
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
&nbsp; &nbsp; If Me.フィールド5 <> 前コード Then
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ1.Visible = False
&nbsp; &nbsp; End If
&nbsp; &nbsp; 前コード = Me.フィールド5
&nbsp; &nbsp; 行数 = 行数 + 1
&nbsp; &nbsp; If 行数 > 4 Then
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = True
&nbsp; &nbsp; &nbsp; &nbsp; 行数 = 0
&nbsp; &nbsp; Else
&nbsp; &nbsp; &nbsp; &nbsp; Me.改ページ2.Visible = False
&nbsp; &nbsp; End If
End Sub
こんな感じ。この例ではフィールド5が変わったら改ページな

157デフォルトの名無しさん2013/09/09(月) 13:22:34.74

う。&nbsp;は空白に置換してくれ
つか普通に貼り付けできなくなったのかよ

158デフォルトの名無しさん2013/09/10(火) 00:16:36.47

>>156
もう少し教えてください。。。
明細が５明細あった場合、

コードA
00001
00002
00003
00004
改ページ
コードA
00005
改ページ
コードB
00001
00002
00003
改ページ
コードC
00001

こんな感じで出したいのですが

159デフォルトの名無しさん2013/09/10(火) 02:26:08.63

>>158
>>156が理解できないなら、VBAでやるのやめとけ

160sage2013/09/17(火) 19:50:09.24

Accessのクエリで、「クエリの並び替え条件を動的に変更する」方法を
教えて頂けないでしょうか。

現状は、下記のクエリを作成しましたが、並び替え条件として判定されません。

SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value

よろしくお願いします。

161デフォルトの名無しさん2013/09/17(火) 20:22:56.49

>>160
SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value

これってどこに書いてるの？

162デフォルトの名無しさん2013/09/17(火) 21:44:28.61

>>160
どうしてもやりたいならQueryDefとか使えばできるかもしれんが
動的にSQLつくってDoCmd.RunSqlでやる方がいいんじゃね

1631602013/09/17(火) 22:09:44.82

>>161
Accessの「クエリ」で定義していました。

>>162
ご指摘を受けた点を参考にクエリを作成した所、うまく行きました。
ありがとうございます。

164デフォルトの名無しさん2013/10/20(日) 21:44:25.62

株価のデータベースを作りVBAで銘柄の抽出をしています
VBAを呼ぶ度にSQLで株価データを読み込んでるので日に何度もやると結構無駄です

そこでフォームをロードした時に纏めて銘柄毎のクラスオブジェクトを作り
フォームをアンロードするまで保持したいのですが可能でしょうか？

変数の保持はStaticで良いようですが、配列化してるオブジェクトの保持はどのようにするのでしょうか？

165デフォルトの名無しさん2013/10/20(日) 22:06:18.65

view

166デフォルトの名無しさん2013/10/20(日) 22:10:51.15

すごいVBA発見ｗ
http://esuafai.digi2.jp/

1671642013/10/20(日) 22:56:11.74

フォームと連動させるのではなく、最初に実行させる時にStaticで保持し
2度目からオブジェクトが空ではないならデータを取りに行かずに
値渡しするようにして解決しました

168デフォルトの名無しさん2013/10/21(月) 00:11:20.78

なんか色々つっこみどろこ満載だな
まあ、動いてるならいいか

169デフォルトの名無しさん2013/11/05(火) 18:56:30.39

VBAでリモートのデータベースにトランザクション処理を開始して、コミット/ロールバックするのはわかりました。
これをマクロのアクションだけではできないですよね。
Vbaを嫌がる仲間が同一プロジェクト内にいるので。

170デフォルトの名無しさん2013/11/16(土) 13:17:48.50

初心者ですみません。コンパイルってなんですか？

171デフォルトの名無しさん2013/11/16(土) 13:19:54.03

疲労困憊る

172デフォルトの名無しさん2013/11/16(土) 13:40:52.90

コンパイルダー・オン

173デフォルトの名無しさん2013/11/16(土) 15:59:42.46

昔広島にあったSTGや落ちゲーキャラゲー開発してた会社

174デフォルトの名無しさん2013/11/16(土) 17:51:44.57

あったなぁ

175デフォルトの名無しさん2013/11/16(土) 18:27:38.04

脳みそコネコネの会社？なくなったのか？

176デフォルトの名無しさん2013/11/16(土) 18:29:57.41

マジレスしとこう
>>170
ソースプログラムを実行可能形式に変換する事

簡単に言えば、お前が書いたプログラムを実行できるように準備する作業
ACCESSなら勝手にやってくれるから、意識する必要はない

177デフォルトの名無しさん2013/11/16(土) 19:25:11.96

>>175
1998年に無くなって、落ちゲー関係はセガが買い取った

178デフォルトの名無しさん2013/11/16(土) 21:35:05.65

>>176
なるほど。では、あえてコンパイルという作業をしなくてもＯＫ
ってことですね。
あるがとうございます！

179デフォルトの名無しさん2013/11/25(月) 21:45:32.92

Accessの場合、ソースを中間コードに変換する作業をコンパイルと呼んでる。
その過程でソースにエラーがあるかどうかをチェックするから
実行時エラーとかの対策にはコンパイル通しておいた方が良いと思う。

180デフォルトの名無しさん2013/11/26(火) 02:50:39.57

実行時エラーってのは普通、コンパイルは通った後に発生するエラーの事を言うんだが
まあ、実行時にコンパイルエラー出るのもなんだし、事前にコンパイルしとけってのは同意するが

181デフォルトの名無しさん2014/01/31(金) 12:48:48.93

Access独自の便利機能なのか分かりませんが
テキスト型のフィールドで日付が含まれる文を「日付順にソート」出来るのですが
これをVBAでやるにはどうしたら良いのでしょうか？

テキストに規則性が無いためにOrderByなどでは対応出来ません
テキストフィールドに入ってる文字列の例：

"第３四半期決算を1月10日に発表済み"
"第３四半期決算を2月10日"
"本決算を2月13日"
"---"

このようになってても、テーブルのフィールドを選択してソートが出来るとは初めて知ったのですが
VBAからやる方法が分かりません

182デフォルトの名無しさん2014/01/31(金) 13:00:11.86

>>181
>テキストに規則性が無いためにOrderByなどでは対応出来ません

最初に書いたSQLが悪かったみたいで
これで出来ました。サーセン

183デフォルトの名無しさん2014/01/31(金) 15:57:33.35

辞書順と偶然一致しただけなんじゃないの

184デフォルトの名無しさん2014/01/31(金) 18:24:40.76

そもそも
>テキスト型のフィールドで日付が含まれる文を「日付順にソート」出来るの
これが怪しいんだが
どこでこんな事教えられたんだ

185デフォルトの名無しさん2014/01/31(金) 19:17:48.82

そうだな、俺も出来るとは思ってなかった
しかし、実際その通りに動くのだから仕方がないｗ

だから最初に「Access独自なのか」と思ってるのだが
これが出来るのは2013だからかもしれない

186デフォルトの名無しさん2014/01/31(金) 19:30:53.46

テキスト型だから、文字数順に並び替えてるのかと思って試してみた

"本決算を2月13日"、これを"本決算を1月13日"に書き換えて試すと
日付順に並び替わる>>181の例で言うと真ん中に来る

更に"第３四半期決算を2月10日"、これを"第２四半期決算を2月10日"
とやっても日付順に並び替わるので間違いない、>>181の例で言うと一番最初に来る

しかし、2月3日と02月03日表記では並び方が変わる
具体的にはMD表記郡の中でソートされ、MMDD表記郡の中でソートされる

187デフォルトの名無しさん2014/01/31(金) 19:54:34.74

分かった。ググったら出てきた
2007から出来るらしいけど、勝手に日付を解釈してるのではなく
正確にはテキスト部分を無視して数値順に並び替えてる、らしい

188デフォルトの名無しさん2014/01/31(金) 21:40:18.27

ということはデータを統一しないといけませんね

189デフォルトの名無しさん2014/01/31(金) 22:33:10.45

ソートの問題じゃなくて暗黙の型変換の問題な気はするけど
>テキスト部分を無視して数値順に並び替えてる
普通にソートすればテキストでソートするんだが
どうやったらそんなソートするんだ？

190デフォルトの名無しさん2014/01/31(金) 22:39:33.21

どんな型変換すればそうなるのか、逆に聞いてみたい

191デフォルトの名無しさん2014/02/01(土) 13:42:22.69

あいまいな検索をしたい場合はLike *検索文字列* だけど
これだと、先頭文字列に外字が含まれてる場合は検索されない
のだけれど、回避方法はある？

192デフォルトの名無しさん2014/02/02(日) 23:15:37.86

>>191
ちゃんと検索できるっぽいけど
先頭文字に外字ってのは、検索対象のテーブルデータなのか、Likeに指定する文字列なのか？

193デフォルトの名無しさん2014/02/03(月) 09:59:08.52

>>192
先頭に含まれる外字は検索対象のテーブルデータです
文字列の中間に外字が含まれる場合は検索できるのに、
先頭だと検索されない減少が発生する…

194デフォルトの名無しさん2014/02/03(月) 16:26:19.10

>>193
かるく試したが再現しないな
OSかACCESSのバージョンによる問題か
単にお前の勘違いか
ACCESSでも限定された状況でのバグか
MDB(ACCDB)がぶっ壊れてるか

まあ、単に検索できないレコードに不正なデータが混じってるだけだと思うが

1951912014/02/03(月) 18:14:37.26

一応解決したっぽい

原因として、dbmagicにodbc経由でリンクテーブルに
したのがダメらしい
リンクテーブルをやめて、テーブルデータごとインポートしたら
通常通りに検索できた

みんなありがと

196デフォルトの名無しさん2014/02/03(月) 18:49:01.92

喰らえカスども、奥義「後出し特殊条件！」

197デフォルトの名無しさん2014/02/03(月) 18:58:14.00

生データインポ時に変換されただけとかは？
つまりODBC接続でもデータを相応しい変換しておけば解決できるのかも

198デフォルトの名無しさん2014/02/03(月) 22:22:24.80

そもそも外字サポートされてるのかどうかしらんが
たんにdbmagicで外字がバグってただけだろ

199デフォルトの名無しさん2014/02/08(土) 21:20:31.59

SQLのReplace Intoに相当する物って有るんですか？

200デフォルトの名無しさん2014/02/10(月) 01:08:00.70

フォームに伝票基本情報
サブフォームに詳細というか明細欄(だいたい30レコードくらい）配置して、
1売上1レコードになるようにしています。
サブフォームに、
内容　金額　委託　委託金
とフィールドがあり、委託したときに入力するですが、
(この委託の部分も、
1売上(外注)1レコードにできませんか？

201デフォルトの名無しさん2014/02/10(月) 01:42:27.90

誰か翻訳

202デフォルトの名無しさん2014/02/10(月) 11:01:12.98

>>199
そもそも標準的なSQLにそんな命令聞いた事ない
ACCESSでも聞いた事ない

203デフォルトの名無しさん2014/02/10(月) 11:05:35.28

>>200
なにがしたいか良くわからんが、サブデータシートとかサブフォームのネストとか
たぶんそれでできるんじゃね

204デフォルトの名無しさん2014/02/12(水) 15:25:40.29

>>199
MySQLの独自実装か？
SQL ServerにもPostgreSQLにもないが・・・。

どんな動きかググってまで答える気にならない。

205デフォルトの名無しさん2014/02/16(日) 11:19:02.87

>>202
>>204
ググレカス

206デフォルトの名無しさん2014/02/27(木) 09:57:10.80

練習がてらVBAでユーザー定義関数をつくろうかと思ったんですが思った通りのものが作れず困っています。
というか簡略化できないもんかと思っているわけですが。

OS XP
Access 2003

Function AAA(Parm01,Parm02,Parm03...) AS String ’parmは最終的にParm24までできますがここでは簡略化

If Parm01 = "S" or Parm01 = "A" then
　　　　　AAA = "1"
Exit Function
Else
　　　　　AAA = "0"
end if

End function

とすごく単純なものなのですが、Parm01〜Parm03（実際にはParmは24個）にはそれぞれS・A・B・Cのいずれかが入っているので
それを数値に変換する仕組みを作りたいのです。
SかAだったら1を。それ以外（B・C）だったら０を返す。
上には記載していませんが最終的にはParmの中身を全て合計した値を返すようにいじる予定です。

で、問題なんですが、IF文の中でParmの中身を判定しているわけですが、これをParmの数だけ作るのはなんか美しくない。
Parm01〜24をまとめて判定するにはどのようにするのが美しいでしょう。

ご教授頂ければ嬉しいです。

207デフォルトの名無しさん2014/02/27(木) 11:20:17.13

>>206
まず２４個も引数取るのを美しいか疑問に思えよ
その２４個をまとめたコレクションなり配列なり用意するとか
その２４個にあまり関連がないないならParamArrayつかえ
（その前提でまとめて同じ引数にするのおかしいけどな）

208デフォルトの名無しさん2014/02/27(木) 11:34:23.61

>>207
ParamArrayというのがあるんですね。ありがとうございます。調べてみます！

美しさに関しては超ごもっともなんですが、如何せん元のデータをいじる権限がなくてですね。
元データの開発者をぐーで殴りたいレベル。

識別コード（一意）｜24ヶ月前｜23ヶ月前｜22ヶ月前｜21ヶ月前｜・・・｜当月｜

ってな感じなんですよ。
んでこの○ヶ月前ってのがParmになるんですけどコレクションにせよ配列にせよ、結局は同じことなので
AAA（24ヶ月前,...当月）ってやっちまったほうが早いかなと。

大変助かりました。ありがとうございます。

209デフォルトの名無しさん2014/02/27(木) 14:06:57.28

VBAにそんなもんあんのか？構造体使うのが普通だろ
ただしVBAの構造体は遅いけどな

210デフォルトの名無しさん2014/02/27(木) 14:09:36.05

有りますね、サーセンｗ

211デフォルトの名無しさん2014/02/27(木) 15:11:10.30

ACCESSなら元データはテーブルじゃないのか
だったらレコードセットなり渡せば済む話だとおもうが

212デフォルトの名無しさん2014/03/12(水) 22:15:26.86ID:W4Gp9YVD

設計の悪いＤＢだとたまに見る形だな
一々縦横変換とかしなきゃならんやつ

213デフォルトの名無しさん2014/06/30(月) 22:53:54.92ID:VWrrXenH

スイマセン。エクセルからACCESSのテーブルにADO接続してエクセルの行(256文字以上のテキスト)をINSERTしようとしています。ACCESS側で受けるフィールドをメモ型にしましたがエクセルからINSERTしても255文字以内しか残りません。

214デフォルトの名無しさん2014/06/30(月) 22:54:27.08ID:VWrrXenH

続きです。
何かすっごく基本的な凡ミスな気がしてるのですが、何かここらあたりありますか？
エスパーな質問で申し訳ないです。。

215デフォルトの名無しさん2014/07/01(火) 00:30:57.04ID:0DCE/lPo

メモ型はSQL使うと切れたり頭の255しか判定してくれなかったりするからなあ
エクスポートインポートとかはバグで切れちゃうし
普通に文字列INSERTで入るか試してみて

216デフォルトの名無しさん2014/07/21(月) 20:33:39.99ID:ufWzAtLi

171 名前：デフォルトの名無しさん[] 投稿日：2014/07/17(木) 02:49:51.87 ID:TFQGtdi0
http://www.ynsk.co.jp/nsk/knowhow/sendmail/sendmail5.htm

こちらのサイトに公開されてるアクセスのコードなんですが
Windowsの標準DLLを利用して、メールを受信、送信するプログラムを
実行したいのですが、うまく動かせません。


他のスレッドで質問しましたが、こちらに誘導されてきました。
無償で公開されてるソースコードが動かないのですが、わかる有志の方、いらっしゃいましたら
使い方おしえてください。

元スレッド：Excel VBA 質問スレ Part34

217デフォルトの名無しさん2014/07/21(月) 20:44:10.09ID:KfqA2p34

どう動かないのかぐらい書けや

218デフォルトの名無しさん2014/07/21(月) 21:01:38.49ID:ufWzAtLi

●ＭＤＢファイルの内容
　・　メールユーザ（テーブル）……利用するメールアカウントの情報を保存します。
　※　以下のように設定して下さい。
　　　　　メールアドレス
　　　　　POP3サーバ
　　　　　ユーザ
　　　　　パスワード
　　　　　SMTPサーバ
　　　　　リターン　←　受信時にサーバなどから通知されるメッセージが設定されます。
　　　　　受信要求　←　0(受信しない)または-1(受信する)を設定して下さい。
　　　　　仮受信　←　-1(メールをサーバから消さない)または0(消す)を設定して下さい。

上記の説明通り、テーブルに必要事項を記入しましたが反応しません。
コンパイルはしました。UACを切ってファイルのアクセス権限をeveryoneに変更しました。。
動作確認済み環境が、Win2000とXPProのようで、office97、2000では動作の確認が取れてるみたいです。

自分の環境：Win7pro office2010pro

219デフォルトの名無しさん2014/07/21(月) 21:04:27.24ID:KfqA2p34

>>218
反応しないってどういうこと？
テーブルにセットしただけでは何も起こらなくて当然だぞ

220デフォルトの名無しさん2014/07/21(月) 21:44:14.81ID:ufWzAtLi

メール受信（更新クエリというのが有るようですが、そのクエリが見当たりません。初歩的なところで止まっているような気はするのですが、外部からのデータ受ける部分のdllがwin7で動作できない理由と読んでるのですが。ご教授願います。

221デフォルトの名無しさん2014/07/21(月) 22:38:52.22ID:DpfIQ25M

　・　B_POP3（モジュール）……メールの受信とデコードを行います。
　※　このモジュールを実行するためには、作業用のフォルダが必要です。
　　　　B_POP3（モジュール）の中のコーディング
　　　　「Private Const BWorkDir As String = "c:\maildata"」と
　　　　「Private Const BWorkTempDir As String = "c:\maildata\temp"」で
　　　　作業用のフォルダを指定しています。
　　　　ダウンロードしたままの設定で操作する場合、
　　　　Cドライブ直下にmaildataというフォルダとmaildataフォルダのなかに
　　　　tempというフォルダを作成して下さい。
　　　　別のフォルダを利用する場合、フォルダの指定を変更して下さい。
　　　　「Private Const c_WorkDir非消去 As Integer = -1」というコーディングがあります。
　　　　-1のままだと、1メールごとに上記作業用のフォルダの中身を削除しません。
　　　　1ユーザのメールが複数あって、それを受信した場合、作業用のフォルダには全件分のファイルを残しています。
　　　　デバック時に1ユーザごとに受信すれば、中間結果を追えるので、有効なことがあります。
　　　　ファイルには、「mail1.txt」,「mail2.txt」.....などの番号を付けています。
　　　　ファイルと受信したメールを照合させるため、テーブルに保存したメールの「件名」にも番号を付けています。
　　　　0にすると、作業用のフォルダには最後の1件分のファイルしか残りません。
　　　　安定した運用段階に入れば、0にした方がディスク負荷は小さくなります

222デフォルトの名無しさん2014/07/22(火) 00:54:13.17ID:aPcZAjL/

フォルダのアクセス権限の確認→念のため、everyoneに変更
ディスク負荷による動作停止の可能性→-1から0に変更したが変化なし
そもそも、動作環境は古いマシンで行われていたので
マシンスペックのリソース不足は考え難いと考えました。

もう少し、調べてみます。winsock.dllあたりが怪しいです。
ﾊﾟｹｯﾄｷｬｯﾌﾟとる以前に、ハードディスクの動作に変化が見られない。

223デフォルトの名無しさん2014/07/22(火) 02:35:29.84ID:aPcZAjL/

お騒がせしました。
原因は、accessの使い方がわからないまま
クエリが非表示であることに気付かず、試そうとしたためです。
同じ環境をVM作成し、対象のクエリのSQLクエリが見えたのでそれをぱくりました。

以上

224デフォルトの名無しさん2014/07/27(日) 15:01:49.68ID:1777RigF

基本的なことと思いますが、教えてください。

Public Function FuncSyohizei(ByVal kingaku As Double) As Double
FuncSyohizei = kingaku * 1.05
End Function

これを、イミディエイトウインドウから実行する場合
?FuncSyohizei(100.0)
・・・型が一致しません。ちなみに、?FuncSyohizei(100)でも、同じ。
?FuncSyohizei 100
→ 100 ?FuncSyohizeiは、文字列とみなされ、無視された？。

ただしく、100と引数を渡したら、105と返ってくるようにするには
イミディエイトウインドウに、どう入力すればいいんでしょうか。

225デフォルトの名無しさん2014/07/27(日) 16:34:57.58ID:fFsyojt4

? ＠FuncSyohizei(100.0)

2262242014/07/27(日) 18:14:36.50ID:02SmaVb3

いろいろやってみて、解決しました。

フォームモジュールに、これを作ったのがいけなかったようです。
標準モジュールにコピペして、?FuncSyohizei(100)したら
105が出ました。

227デフォルトの名無しさん2014/07/28(月) 00:30:37.26ID:ZjuZ26GB

Date, Now って
Functionじゃなく
Propertyなのな

228デフォルトの名無しさん2014/07/28(月) 02:29:49.00ID:4Zda3n2L

>>227
そんな事ないと思うが
もしかしたらそう言う名前のプロパティを持つものもあるのかもしれんが
ちなみに、何のプロパティだ？

229デフォルトの名無しさん2014/07/28(月) 03:01:52.49ID:ZjuZ26GB

>>228
オブジェクトブラウザ見てごらん

230デフォルトの名無しさん2014/07/28(月) 13:08:38.66ID:hu7LkKIJ

VBAの標準関数って、VBA組み込みオブジェクトのメンバして実装されてるのか
しかし、メソッドとプロパティの使い分けの基準は謎だな

231デフォルトの名無しさん2014/08/20(水) 13:35:49.89ID:qA3YOzZv

Access2003でwebスクレイピングしてます。
Dim objHTML As MSHTML.HTMLDocument
Dim objDoc As MSHTML.HTMLDocument
If (objHTML Is Nothing) Then Set objHTML = New MSHTML.HTMLDocument

Set objDoc = objHTML.createDocumentFromUrl(strURL, vbNullString)

ってな感じでタグでデータを拾いたいのと、速度を重視してMSHTMLを使ってやってます。

が、createDocumentFromUrlのところでクッキーのセキュリティ警告が出てしまいます。
http://imgur.com/41wmxYi
回避する方法はないでしょうか？
インターネットオプションをいろいろといじってみたけど、お手上げ状態です。

URLを変更して呼び出すたびに毎回出てくるので、処理を開始して放置しておくことができません。

232デフォルトの名無しさん2014/08/20(水) 18:22:09.72ID:aSpRdTpy

>>231
Windows再インストール後初めてプログラム実行したとき表示されたけど
許可して以降は出てないな。

233デフォルトの名無しさん2014/08/21(木) 00:46:10.94ID:Ue/CPgyd

>>232
本当ですか…

とりあえずプライバシーの設定を最低にして全てのクッキーを受け入れるにしたら、でなくなりました。

が、少し怖い…

234デフォルトの名無しさん2014/08/21(木) 02:13:22.51ID:nSwAzUL+

>>233
IEの設定を全リセットしても出ない。
Win7x64+IE10

235デフォルトの名無しさん2014/08/21(木) 02:28:53.95ID:Ue/CPgyd

>>233
win7(32bit),ie11です。

今度クッキーとか履歴とか全部クリアして試します。
メッセージでくぐってもie5がってMSのサイトしかでないんですよね。

ちなみにat Homeの不動産情報サイトです。

236デフォルトの名無しさん2014/08/21(木) 02:29:20.42ID:Ue/CPgyd

>>234
でした。
すんません。

237デフォルトの名無しさん2014/08/21(木) 02:32:53.11ID:SlcBJ8S5

>>231
ちょっと状況違うみたいだけど
http://www.f3.dion.ne.jp/~element/msaccess/AcTipsMSHTML.html
にある
objHTML.DesignMode = "on"
試してみた？

238デフォルトの名無しさん2014/08/21(木) 16:24:32.22ID:Ue/CPgyd

>>237
231です。
これも見ていたのですが、オンにするとスクリプトが実行されないとあるように、
ほしい情報がとれなくなってしまいました。

コメントありがとうございました。

239デフォルトの名無しさん2014/10/23(木) 15:05:01.01ID:RjBQcz8M

OLEオブジェクトにゼロデイ脆弱性、Microsoftが暫定対策プログラムを公開
http://www.forest.impress.co.jp/docs/news/20141022_672480.html

240デフォルトの名無しさん2014/12/23(火) 20:32:46.30ID:n+XpzPMA

質問です。WIN7、ACCESS2010
初歩的な質問なのですが、
文字列を扱う変数では何文字の格納が可能でしょうか？

241デフォルトの名無しさん2014/12/23(火) 21:36:03.42ID:M59ZuSy9

ｖｂａでgoogle driveにレポートをアップするやり方どこかに良いサンプルないかな。。。google driveのクライアントソフト入ってない場合でも使いたいんで。。。。

242デフォルトの名無しさん2014/12/23(火) 21:50:29.64ID:W51mY81m

>>240
2Gまでだったと思うけどヘルプ確認してくれ

243デフォルトの名無しさん2014/12/23(火) 22:33:08.77ID:n+XpzPMA

>>242
ありがとうございます。
では、500文字くらいはしょぼいレベルと捉えて良さそうですね。

244デフォルトの名無しさん2014/12/24(水) 03:21:35.84ID:Yxp0O6RL

>>240,242-243
2010や64ビットバージョンで変わってなければ
固定長なら約 63KB だけどな
まあ、固定長文字列なんてめったに使う事ないけど

>>241
レポートのアップってのが具体的に何を指してるのかしらんが
そもそもVBAではHTTP通信とか直接サポートされてないから

245デフォルトの名無しさん2014/12/24(水) 22:57:10.21ID:vBpiiQ3c

>>240で質問した者です。
変数に格納した、ただの文字列をテキストファイルに出力することは
可能でしょうか？

246デフォルトの名無しさん2014/12/25(木) 03:42:32.22ID:c/bUBZQc

>>245
可能か不可能かっていうならもちろん可能だけど
やり方は色々あるぞ
純粋にVBAだけならPrint#だけど、あんまりこれ使ってるの見た事ないなｗ
ACCES的に考えると、１回テーブルに格納してテキスト書き出しじゃないかな

247デフォルトの名無しさん2014/12/25(木) 19:12:54.77ID:wTh15/U7

大量のAccessファイル含め移動するのですが、リンクテーブルのリンク先の一括張り替え機能を実装したいのですが、ご教示いただけないでしょうか？

248デフォルトの名無しさん2014/12/25(木) 19:40:21.24ID:/AazF+Ck

ADOXDB

249デフォルトの名無しさん2014/12/25(木) 20:14:11.26ID:GnPnKi4m

>>246
ありがとうございます。
最終的に長めの一文をテキストファイルに出力するためだけに
ACCESSでテーブル作成したりクエリ組んだりしてるのです。
通常の使い方だとテーブルやクエリをエクスポートでいいんでしょうが
なんせ一文のみなので、printというのを試してみます。

250デフォルトの名無しさん2014/12/25(木) 22:18:03.24ID:c/bUBZQc

>>247
DAOで
CurrentDb().TableDefs("テーブル名").Connect 書き換えてから
CurrentDb().TableDefs("テーブル名").RefreshLink

251デフォルトの名無しさん2014/12/26(金) 09:32:55.94ID:4ShwS6Rf

マルチだよ

252デフォルトの名無しさん2014/12/27(土) 17:01:11.46ID:Mse9t11G

>>244
レポートというかAccessから出力された成果物をGoogleDriveのクライアントソフトが
入っていない場合でもGoogleDriveにアップロードしたいということだったのでした。

そんなことをやる人もあまりいないみたいですね。
Pythonあたりでフィルをアップするプログラムを作ってアクセスから
ファイルパスを引数に持たせて実行させるようなイメージで考えてみようかとお思います。

もっとかんたんにできるぉ。。っていう神がいれば教えてたも。。。

253デフォルトの名無しさん2014/12/27(土) 18:42:52.92ID:xcx8bYiC

>>252
VBAはHTTP通信サポートしてないから、どっちにしろVBAだけではできんが
俺ならC#（かVB.NET）でDLL作ってCOM公開だな
C#のライブラリあるっぽいから、ほぼそれそのままCOM公開する形で行ける気がする
探せば誰かすでに作ってるかもしれんが

254デフォルトの名無しさん2014/12/27(土) 18:46:25.06ID:MwQYLNUR

>>252
pypiで検索してみ

255デフォルトの名無しさん2014/12/27(土) 21:43:55.93ID:N3QWsaPU

情報ありがとうございました。

>>253
VisualStudioもPro同等品がフリーの時代ですからね。
勉強してみたいのですが、時間（＆気力）が乏しく、、、まずは探してみます。

>>254
Python自体ほぼほぼ初心者なんで、、、、
探してみます。お勧めとかありませんか？

256デフォルトの名無しさん2014/12/28(日) 01:48:08.62ID:hWEKpKUx

馬鹿には無理

257デフォルトの名無しさん2014/12/29(月) 18:29:45.70ID:EuG97dxJ

>>256
馬鹿なりにいろいろ考えますた。
GoogleCLで何とかできそうです。

258デフォルトの名無しさん2015/01/06(火) 15:02:29.70ID:L0NjGint

AC2000くらいぶりに2013で作るんだが、変わりすぎてて困るなこれ

259デフォルトの名無しさん2015/01/07(水) 12:14:43.42ID:HwRBQ0K9

お前の頭が老化してるんだよ

260デフォルトの名無しさん2015/01/08(木) 11:57:49.05ID:3EyWpOD1

１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？

１）
千葉　成田　空港
埼玉　秩父　蕎麦
埼玉　川越　イモ
栃木　日光　華厳
千葉　浦安　ネズミ
埼玉　秩父　三峯
栃木　日光　東照宮
栃木　宇都宮　餃子
千葉　館山　菜の花

　↓
２）
千葉　成田　空港　館山　菜の花
埼玉　秩父　蕎麦　川越　イモ　秩父　三峯
栃木　日光　華厳　日光　東照宮　宇都宮　餃子

261デフォルトの名無しさん2015/01/08(木) 12:16:44.21ID:qIfkunGX

浦安とネズミーランドはどこに入れば良い？

262デフォルトの名無しさん2015/01/08(木) 13:16:48.72ID:3EyWpOD1

すいません。書き直します。


１）のデータの県名を元に、２）のように並べたいのですが、アクセスでやる方法はありますか？

１）
千葉　成田　空港
埼玉　秩父　蕎麦
埼玉　川越　イモ
栃木　日光　華厳
千葉　浦安　ネズミ
埼玉　秩父　三峯
栃木　日光　東照宮
栃木　宇都宮　餃子
千葉　館山　菜の花

　↓
２）
千葉　成田　空港　館山　菜の花　浦安　ネズミ
埼玉　秩父　蕎麦　川越　イモ　秩父　三峯
栃木　日光　華厳　日光　東照宮　宇都宮　餃子

263デフォルトの名無しさん2015/01/08(木) 13:22:02.26ID:qIfkunGX

浦安とネズミーランドだけ順番入れ替える基準は？

264デフォルトの名無しさん2015/01/08(木) 16:12:11.95ID:qIfkunGX

出来たからおしまい
https://paiza.io/projects/kXqWvxUj1PG97Z7Vq1KNXA

265デフォルトの名無しさん2015/01/09(金) 08:12:06.75ID:rJhs2R4+

>>264
Runtime Errorがでました

266デフォルトの名無しさん2015/01/09(金) 12:46:37.92ID:Azg0g72t

>>262
横展開の数が固定なら
https://social.msdn.microsoft.com/Forums/ja-JP/cf79c817-f15e-4375-8d9b-95990b2d00de/accesssql?forum=vbajp

増減するならVBAでワークテーブルに入れていくしかないと思う

267デフォルトの名無しさん2015/02/19(木) 08:17:57.69ID:CSqQB465

質問です。
数万レコード程度のログファイルの集計（抽出）をしたいです。

抽出条件は、レコードに担当者と時刻が入っていて、
その時刻の＋１分以上かつ＋５分以下で、同じ担当者の物です。
最終的には、条件にあてはまるレコードの１つ目と２つ目以降という感じで並べたいです。

今はEXCELのCOUNTIFS関数で半分手作業でやってますが、
かなり手間なのでできればAccessVBAでやりたいです。

よろしくお願いします。

268デフォルトの名無しさん2015/02/19(木) 10:34:22.43ID:IO29hpKb

したいことは判りました。

次のかたどうぞ。

269デフォルトの名無しさん2015/02/19(木) 16:00:09.30ID:1peKWp+p

わからないなら黙ってろよアホか

で、vbaからcountifを呼び出せばいいんじゃねえの？
思いついただけで試してないが

270デフォルトの名無しさん2015/02/19(木) 16:34:11.57ID:4dFHTBvU

>>267
VBAは必要ないでしょ。なにかその後バッチ処理をしてるっていう
なら別だが。

普通に該当のテーブルを元にクエリつくって、パラメータクエリを
作る。フォームを用意して、入力させてその値をパラメータとして
クエリの条件式に入れる。

１分以上５分以下という条件をbetween andで書いて２つパラメータ
を時刻のカラムに入れる。これで抽出は完了。SQLでやってもいい
んだがそこまでは必要ないでしょ。手軽にできるし。

271デフォルトの名無しさん2015/02/25(水) 19:46:25.88ID:u8BX93H2

定時で帰ってるのがばれるじゃないか

272デフォルトの名無しさん2015/02/27(金) 10:17:16.72ID:ILfHzu6L

>>271
密度が違いますと言い張れば大丈夫。

273デフォルトの名無しさん2015/04/11(土) 08:59:32.35ID:5EmI+Hzg

Excelファイルで(表現上CSVで表現してますが、XLSXファイルの１つのシート上のデータだと思ってください。)

999,999,AAA,999・・・・・・
999,999,BBB,999・・・・・・
999,C　 ,999,999・・・・・・
999,999,DDD,999・・・・・・

という４件のデータがあるとします。
これを、SELECT * FROM のクエリをDao.Recordsetで読み込みたいのですが、
Fileds(1)のところのタイプは数値型。
ここで、３行目のデータを見に行くと、フィールドの型が数値型なのに「C」が入っているためRS.Fields(2).Valueを参照しようとすると異常終了してしまいます。
全部のフィールドを強制的に文字列型で見る方法はないのでしょうか？

274デフォルトの名無しさん2015/04/11(土) 09:00:28.88ID:5EmI+Hzg

RS.Fields(2).Value
を
RS.Fields(1).Value
に訂正。m(_　_)m

275デフォルトの名無しさん2015/04/11(土) 18:29:40.40ID:hFjl3X66

>>273
落ちる所のコードが無いから分からないけど
dim aaa as long
aaa=RS.Fields(1).Value
みたいな使い方しているなら
dim aaa as long
dim bbb as string
bbb=RS.Fields(1).Value
bbbを数値判定してから本来のaaaに取得
判定方法はIsNumericやCIntやCLngなど

276デフォルトの名無しさん2015/04/13(月) 17:40:35.62ID:gbfuHaFd

Access2013です。

いろいろと作っているうちに突然コントロールソースに持っているユーザー定義関数が働かなくなり、#NAMEのエラーが出る様になりました。

ファイルが壊れたのでしょうか？

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

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

278デフォルトの名無しさん2015/04/14(火) 07:53:37.48ID:0HPBZIqn

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

279デフォルトの名無しさん2015/04/14(火) 15:41:26.89ID:b8Z+Xie9

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

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

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

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

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

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

>>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ならもっと簡単にクエリー等でテスト出来ますよ
まずは試してみる事をオススメします

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

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

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

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

285デフォルトの名無しさん2015/04/18(土) 03:55:58.31ID:j/wjXDDU

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

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

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

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

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

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

288デフォルトの名無しさん2015/04/18(土) 18:09:00.24ID:05gN+8sT

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
は無意味なコードなのですが、
これがないと保存がされません。
ワンクッション？が必要なようなんです。
これ、原因や同じような症状でた人いますか？

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

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

290デフォルトの名無しさん2015/04/18(土) 21:20:04.66ID:05gN+8sT

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

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

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

292デフォルトの名無しさん2015/04/19(日) 07:19:00.86ID:8d6tresr

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

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

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

294デフォルトの名無しさん2015/04/20(月) 08:09:04.77ID:ZV6mzr+5

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

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

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

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

296デフォルトの名無しさん2015/05/14(木) 12:50:18.83ID:No/KpZZc

二つ教えてください。

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
と一つの関数内で取得する列を変更してデータを取得しようとしても、データが取得できる場合と取得できない場合が発生するのはなぜでしょうか？

297デフォルトの名無しさん2015/05/16(土) 10:31:05.05ID:s10/F9Sk

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

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

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

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

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

300デフォルトの名無しさん2015/05/16(土) 17:59:47.30ID:s10/F9Sk

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

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

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

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

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

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

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

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

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

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

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

/decompile 知らなかった。

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

俺もだよ

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

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

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

307デフォルトの名無しさん2015/05/23(土) 12:50:24.50ID:VCG+Khsg

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

308デフォルトの名無しさん2015/05/23(土) 13:54:06.28ID:8oQ8jNeY

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

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

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

310デフォルトの名無しさん2015/05/27(水) 14:12:01.89ID:5bPXfDHX

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

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

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

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

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

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

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

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

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

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

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

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

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

316デフォルトの名無しさん2015/05/28(木) 10:07:42.72ID:/8nOg4qQ

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

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

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

318デフォルトの名無しさん2015/05/28(木) 13:25:09.01ID:/8nOg4qQ

馬鹿には無理

319デフォルトの名無しさん2015/05/28(木) 18:22:57.95ID:C/2xaBAg

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

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

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

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

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

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

322 【豚】 2015/06/01(月) 08:08:03.93ID:SmEysG22

びっくりおみくじ

323デフォルトの名無しさん2015/06/08(月) 08:55:28.30ID:0Vy1Z1yY

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

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

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

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

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

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

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

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

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

327!omikuji2015/06/24(水) 19:15:19.74ID:QTgmX67K

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

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

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

329デフォルトの名無しさん2015/06/25(木) 05:46:02.39ID:0DqbKMKe

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

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

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

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

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

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

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

333デフォルトの名無しさん2015/07/02(木) 15:10:49.63ID:2kk3aD1Z

ツボったω

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

俺もしょっぱい2号

335デフォルトの名無しさん2015/07/17(金) 07:28:53.29ID:6H2NxaAj

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

336デフォルトの名無しさん2015/07/17(金) 12:20:42.38ID:7dLfVbOx

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

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

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

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

decompileつけても治らない

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

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

押してもダメなら・・・

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

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

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

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

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

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

341デフォルトの名無しさん2015/07/27(月) 23:01:15.51ID:vqEIRiU+

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

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

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

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

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

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

Access2010利用

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

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

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

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

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

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

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

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

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

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

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

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

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

347デフォルトの名無しさん2015/08/02(日) 08:10:22.71ID:u4JV0/NP

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

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

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

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

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

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

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

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

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

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

352デフォルトの名無しさん2015/08/02(日) 12:37:07.35ID:Uy/1MbzZ

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

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

353デフォルトの名無しさん2015/08/02(日) 21:08:18.97ID:AR+WC9yM

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

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

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

355デフォルトの名無しさん2015/08/02(日) 23:04:31.90ID:AR+WC9yM

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

356デフォルトの名無しさん2015/08/03(月) 11:17:43.06ID:2bNGPX4C

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

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

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

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

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

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

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

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

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

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

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

361デフォルトの名無しさん2015/08/03(月) 21:08:56.51ID:Mp/3eH1E

逆鱗(ぎゃくりん)

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

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

363デフォルトの名無しさん2015/08/04(火) 03:50:55.73ID:Kz/6+HRH

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

皆様、すみません

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

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

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

377デフォルトの名無しさん2015/08/12(水) 15:32:18.52ID:Q+lcejU0

>>376
自動入力「させない」になってますが「させたい」って事ですよね？

Form_Load もしくは Form_Open イベントに
Me.テキストボックスB.Value = [Forms]![フォームB]![テキストボックスA].Value
もしくは >>319 みたいに
Me.テキストボックスB.Value = Forms("フォームB").Controls("テキストボックスA").Value

Load、Openどちらでも動くと思いますが、適した方を使ってください
コレクションに関しても好きな方を使ってください

378デフォルトの名無しさん2015/08/12(水) 16:26:57.95ID:G2C7HV6B

>>377

あっさりとできました
ありがとうございました

たしかにformのイベントでやるべきでしたね、思い付かなかったです
勉強になりました

379デフォルトの名無しさん2015/08/12(水) 18:38:30.96ID:6lFy7xXj

>>376
単純に
DoCmd.OpenForm "フォームB", , , , acFormAdd
Forms!フォームB!テキストボックスB.Value = Forms!フォームA!テキストボックスA.Value
で出来ると思うけど？

380デフォルトの名無しさん2015/08/17(月) 21:45:03.07ID:7VERYxcQ

今使っているACCESSデータをPC3台で共有しようと思っています。

その場合、テーブルをサーバーPcに、フォームとクエリをクライアントPCに入れて使うと良いとのことでした。

ただいま、フォームを非連結にして、ADOでの追加や更新ができるように変更中です。

質問ですが、
すべてのフォームを非連結にするべきなのでしょうか？
データの追加更新のない、閲覧専用のフォームをネットワークトラフィックを考えて変更すべきでしょうか？

また、分割したテーブルのあるACCESSデータをNASに入れようかとも思っているのですが、PCの場合と動作に違いはでますか？（ここは単にスペックの問題でしょうか？）

どうかお時間のあるかた、教えていただけないでしょうか。

381デフォルトの名無しさん2015/08/18(火) 01:04:22.51ID:l45kMI9F

テーブルを外部からリンクすれば連結でいける

382デフォルトの名無しさん2015/08/18(火) 06:18:28.72ID:KaSAZPht

>>380
テーブルだけのファイルをネット上の共有フォルダに置いて、それのリンクテーブルとその他のオブジェクトが入ったファイルを配布して使うだけ。
フォームの作り直しはしなくて良いと思います。

383デフォルトの名無しさん2015/08/18(火) 19:55:28.61ID:LTr8/sln

>>381
>>382

ありがとうございます

今まで作ったフォームをすべて非連結にするのは難しそうなので追加更新するフォームだけにしようと思います。

384デフォルトの名無しさん2015/09/02(水) 22:58:44.74ID:U41rngxq

>>382
その他のオブジェクトの入ったファイルは複数人で開いても問題ないのでしょうか？

385デフォルトの名無しさん2015/09/03(木) 12:17:52.51ID:TMANfQ/W

>>384
オブジェクトだけのファイルは各パソコンにコピーして使うの。

386デフォルトの名無しさん2015/09/09(水) 20:14:57.09ID:k4ZkuMcU

二次元配列からレコードにデータを入れる方法は

With Rcd
.AddNew
For i = 0 to 99
　.Fields(i).Value = x(0,i)
Next
.Update
End With

という様な地道な方法しかないんでしょうか？
データを入れるのに時間が掛かるので、Excelの

Range(Cells(1,1),Cells(UBound(x,1),UBound(x,2)) = x

みたいな形で一気に代入出来て処理時間を短縮できる方法はないのでしょうか？

あとDoCmd.TransferSpreadSheetでエクセルシートをインポートする方法も試したんですが、
Access側からExcel.Applicationを取得してワークブック開く方法だとエラーが出て、手動で開いた状態にしておくと読み込むんですが、
これはインポートする際にいちいちエクセルで開いておく必要があるんでしょうか？

387デフォルトの名無しさん2015/09/10(木) 04:22:41.07ID:t/YL/t1I

>>386
>地道な方法しかないんでしょうか？
地道に見えるんですね・・・。

DoCmd.TransferSpreadSheet
で、ググると
https://msdn.microsoft.com/ja-jp/library/office/Ff844793.aspx
なるページが出てきまして、そこに・・・
「インポートする際にいちいちエクセルで開いておく必要」
なんて書いてありませんでしたよ？

388デフォルトの名無しさん2015/09/11(金) 00:19:59.73ID:8grThG6x

>>386
SQL は長くなるけどパフォーマンス気にしてるなら INSERT VALUES 試してみれば？
多少は早くなるかもよ

3893862015/09/11(金) 19:59:14.96ID:pqg3O3xw

>>388
SQLがなんとか分かってきたので、今度やってみたいと思います。
ありがとうございました。

390デフォルトの名無しさん2015/09/11(金) 21:45:17.29ID:HscreZA4

>>389
TransferSpreadSheetsもう少しがんばれ。
簡単で早いと思うよ。
387さんも言ってるけどEXCEL開く必要は無い。何ならEXCELがインストールされて無くてもインポートやリンクが可能なはず。

391デフォルトの名無しさん2015/09/27(日) 15:21:36.68ID:Az8/vHuw

質問させてください。
コマンドボタンをクリックしたら、フォーム上の任意の位置にコンボボックスを新規作成させたいんですが、こんな事出来ますか？

392デフォルトの名無しさん2015/09/27(日) 15:37:46.84ID:nsZcbsgt

似たようなことしたかったときはメニューで代用したな

393デフォルトの名無しさん2015/09/27(日) 15:41:04.97ID:Az8/vHuw

>>392
詳しく

394デフォルトの名無しさん2015/09/27(日) 15:41:50.47ID:nsZcbsgt

右クリックでコンテキストのpopupメニューだったかな

395デフォルトの名無しさん2015/09/27(日) 15:55:30.30ID:Az8/vHuw

>>394
ありがとう
けど、求めてる者と違う感じです…

396デフォルトの名無しさん2015/09/27(日) 15:59:22.69ID:uZJD7NWm

ACCESSでフォームに直接新規で追加するのは難しい
非表示にしといてボタンクリックで表示させればいいんじゃないか

397デフォルトの名無しさん2015/09/27(日) 18:24:32.94ID:sF3uHAKT

やぱ難しいですか…
必要に応じて、数に上限定めずコンボボックスを増やしたいので、表示/非表示の方法は望ましくないんです…

仮に無理なら…
質問を変えて、1フォーム中にコンボボックスはいくつまで設置出来ますか？
↑ググれば出そうですが、ついで質問ですいません。

398デフォルトの名無しさん2015/09/27(日) 19:09:24.48ID:nTKThYNU

好きなだけ作ったらええねん

399デフォルトの名無しさん2015/09/27(日) 19:18:33.43ID:sF3uHAKT

むむぅ…

違う方法を模索してみます。

400デフォルトの名無しさん2015/09/27(日) 19:30:00.48ID:uZJD7NWm

じゃあフォームかサブフォームで帳票フォームにして詳細セクションにコンボ配置すればいいんじゃね
それ以外で不定数のコンボ欲しいとか言うなら設計がおかしすぎる

401デフォルトの名無しさん2015/09/27(日) 21:13:46.60ID:sF3uHAKT

帳票フォームにコンボボックス設置したら、そこで変更した内容が全部のコンボボックスに反映されるじゃん？それは困る

402デフォルトの名無しさん2015/09/27(日) 22:14:17.55ID:uZJD7NWm

ちょっと言ってる意味が分からない
あるレコードのコンボボックスの値が、他のレコードの値に影響すると？

403デフォルトの名無しさん2015/09/27(日) 23:58:41.76ID:Wa2IEO89

最初の構想としては
データが存在するフィールドにコンボボックスを表示させて、それぞれに別々のデータを入れて、新しいテーブルを生成したかった。

説明下手ですいません。

404デフォルトの名無しさん2015/09/28(月) 10:36:51.52ID:0RjOK4Zp

設計がおかしい
もしくは
Accessを使うべきではない

4053912015/09/28(月) 10:50:56.86ID:08kJukTg

設計し直します

406デフォルトの名無しさん2015/09/28(月) 11:18:27.64ID:65OblfGI

>>405
最終的な目的というか、なにをするためにこういった機能が欲しいのか
わからない。

>データが存在するフィールドにコンボボックスを表示させて、
ここまでは何となくわかる。
フィールドのルックアップをコンボボックスにすることはできる。
ただ、あるフィールドをこのレコードはテキストボックス、
そのレコードではコンボボックスってのはできない。
どっちも似たようなものだけどねｗ

>それぞれに別々のデータを入れて、新しいテーブルを生成したかった。
これがわからない。それぞれにってなんぞ？
フィールドにデータが入力された、そのテーブルのコピーって。。。作れるよね？

4073912015/09/28(月) 20:06:23.90ID:cvdri0js

ホント説明下手で申し訳ない

写真を付けてみた

・作業用テーブルAで帳票フォーム作る
・(出来ない所その1)フィールド上にデータがあるレコードにだけコンボボックスを表示させたい。
・(出来ない所その2)コンボボックスにデータを入力すると、他レコードにも同内容が入力される。←違うデータを入れたい

408デフォルトの名無しさん2015/09/28(月) 21:48:54.09ID:hW3kfusx

両方無理だね。

409デフォルトの名無しさん2015/09/28(月) 21:53:23.92ID:65OblfGI

>>407
いろいろ試したけど、コンボボックスのvisibleのプロパティを
帳票フォームの詳細のpaintイベントで操作できないので無理かなと。
背景色は変えられるみたいだから、コンボボックス全部並べて
背景色で区別できるようにするくらいしかできないかも。

書かれている通りの物が欲しいのであれば、.Netで作るしかないかなぁと。

4103912015/09/28(月) 22:16:45.56ID:XnIORDmB

やぱ無理ですよね
諦めて違う方法を考えます

411デフォルトの名無しさん2015/09/29(火) 03:32:01.48ID:FcuCREbJ

コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが

412デフォルトの名無しさん2015/09/29(火) 03:32:38.44ID:FcuCREbJ

コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが

413デフォルトの名無しさん2015/09/29(火) 12:52:55.08ID:12O/9Fge

ひとつのフォームにひとつのコンボボックスのフォームをフィールド分作って
OpenしたりCloseしたりすればいいんじゃない？
フォームの表示位置は指定できるんだし、作り込めばカッコよくなりそう(俺はやらないけど)

414デフォルトの名無しさん2015/10/07(水) 12:00:19.12ID:qdqRCjiZ

受ける会社大丈夫？
下記の条件が全て当てはまる会社にご注意下さい。

・IT系 in tokyo
・「社名　労基」でググると過去の2chスレが出てくる
・転職会議で2.5点

4153912015/10/09(金) 20:00:26.30ID:7kbTW2jS

結構前に質問した者だけど
設計変更して、無事にアプリが完成しました
色々アドバイスくれた人サンキューでした

416デフォルトの名無しさん2015/10/10(土) 08:45:04.70ID:7MsZxkaP

>>415
わからんけど、良かったね

417デフォルトの名無しさん2015/10/10(土) 12:55:30.31ID:/egW/Cb1

事後報告なんて珍しい

418デフォルトの名無しさん2015/10/11(日) 15:34:31.54ID:hlB+t7r4

質問です

現在Accessでチェックシートを作成しています。
内容は以下の通りです。

・目的:接客の際の必須項目の聞き取り漏れ、説明漏れを防ぐ

・仕様の概要:必須項目の各チェックボックスにチェックが入っていなければ各チェックボックスの背景を赤塗り
チェックが入っていれば緑塗り
注意が必要な組み合わせにチェックをした際に警告メッセージを出す等の、相関チェックを導入
フォームで入力した値はテーブルに格納。
対応1件につき、1レコード。

・環境:win7 access2010


上記仕様のチェックシートをAccessのフォームで作成していますが、
別のレコードに移動するとチェックボックスの色が
画面遷移前のレコードの色のままになってしまいます。
レコードを移動する度に、移動先のフィールドの値に
適した色に変えたいと思っています。

自身の考えでは、レコード移動をする度に、移動後のレコードの
チェックボックスの値を取得。
値に適した色に変更と考えていますが
Access標準装備の機能等で、
もっとスマートな方法があるのではないかと思ったので、ここに質問に来ました

皆様のお知恵をお貸しください
どうかよろしくお願い致します

419デフォルトの名無しさん2015/10/11(日) 15:52:31.22ID:K+nxBSBI

条件付き書式って機能があるけど、2007で試したら、チェックボックスには適用できないっぽいな

>別のレコードに移動するとチェックボックスの色が
>画面遷移前のレコードの色のままになってしまいます
今どうやってやってるんだ？

420デフォルトの名無しさん2015/10/11(日) 18:00:58.67ID:hlB+t7r4

>>419
今は下記のようにコントロールの背景色を変えています

Checkboxの初期背景色はコントロールのプロパティで赤を選択しています

private sub Checkbox1_Click()
If Checkbox.Value = True then
Checkbox1.Backcolor = 緑
Else
Checkbox1.Backcolor = 赤
End If
End Sub

421デフォルトの名無しさん2015/10/11(日) 20:33:04.19ID:K+nxBSBI

>>420
基本的には同じ事をレコード移動時にやるだけだな

ところで2007のCheckboxにはBackcolorとか無いっぽいけど、2010じゃあるのか

422デフォルトの名無しさん2015/10/11(日) 20:57:15.41ID:0pbjHxf6

>>421
でもこれだとレコード移動時に、反映されないんですよね
1.リアルタイムで色を変えるコード
2.レコード移動時に色を変えるコード
2倍のコーディングが必要になる点がスマートじゃないと思ってます

今更ですが「全相関チェック(警告メッセージ含む) & 全チェックボックスの色変更」の
判定を行うサブルーチンを1つ作り、
「レコード移動時」「チェックボックスのチェック時」のイベントで
都度サブルーチンを呼び出しすれば
結構スマートになるのかな？と思いました

ただ、チェックをする度にサブルーチンが実行され、
関係の無い箇所まで判定されてしまうと
チェックボックスの数次第で重くなる可能性がありますね
また、相関チェック(メッセージ有)に引っかかる組み合わせになっていると、
関係のないチェックをした際にも
メッセージが出てしまうので、操作性が損なわれてしまいますね

423デフォルトの名無しさん2015/10/11(日) 21:10:04.23ID:h/UXEdKw

>>421
条件付き書式はダメなのかと思い、一応調べてみたら下記サイトにあるように利用出来るかもしれません
条件付き書式で実装した方が
メンテナンス性も上がるので、一旦条件付き書式でやってみようと思います
http://hamachan.info/win8/access/and.html
http://m.chiebukuro.yahoo.co.jp/detail/q11134637911

Excelでは、条件付き書式を多用していたんですが、
今回は何故かその考えが完全に抜けてました
お教えくださり本当にありがとうございます

424デフォルトの名無しさん2015/10/11(日) 21:20:09.79ID:K+nxBSBI

入力不可能なテキストボックスをチェックボックスの下に配置して条件付き書式設定とか
まあ、やりようはあるんだが
条件付き書式は、コード見てもプロパティ見てもその設定が分からんからなぁ
個人的には好きではない

425デフォルトの名無しさん2015/10/11(日) 22:42:29.78ID:h/UXEdKw

>>424
仰る通り確かに、他者の事を考えると
条件付き書式だらけになってしまうってのも考える物ですね…
悩ましいです

426デフォルトの名無しさん2015/10/11(日) 23:16:40.32ID:OogdFVxU

男のくせに「悩ましい」とか使う奴の言動は一切信用しないことにしている
これっぱかしもだ　微塵もだ　毛一厘もだ　　うじゃじゃけてるヒマあったら答え出せ
できるのか？　できないのか？　できないなら去れ　できるなら結果出せ　以上

427デフォルトの名無しさん2015/10/12(月) 00:54:54.91ID:7l73laAr

>>426
＞男のくせに

単純に疑問です。何を根拠にして男と判断したのでしょうか？

428デフォルトの名無しさん2015/10/13(火) 21:07:29.45ID:iGPs38vk

VBAじゃないんだが助けてくれ〜。Access を複数人で使用する時について質問させて下さい。

テストのために、Access（2010）でこういう簡単なシステムを作りました。

　　バックエンド　2フィールド／レコードが数レコードだけあるテーブルが1つ
　　フロントエンド　リンクテーブルと、そのテーブルの全フィールドを表示するクエリ
　　　　　　　　　　（クエリのレコードロックプロパティ：編集済みレコード）
　　※ 全 accdb ファイルについて、オプションから
　　　「共有モード」「編集済みレコード」レコードレベルでロックして開く」を指定済み

でさて、フロントエンドＡ・Ｂを開き、Ａがレコードを編集する時に、
よく解らないきっかけでＢのほうで複数レコードに渡ってロックされる事態になり
（これは全レコードの時もあるし、１行より多く全レコードより少ない時もあります）、
またよく解らないきっかけでその事態が解消されることがあるのに気づいたのですが、
この異常事態の原因は何で、対策はどうすればいいでしょうか？

検索しても手持ちの書籍でも解らずお手上げでして、
どなたかご助言を下さればありがたいです。

429デフォルトの名無しさん2015/10/13(火) 22:09:39.22ID:v0mnZW8d

>>428
それがわからないなら、諦めろ。
外注に出そうな。

430デフォルトの名無しさん2015/10/14(水) 02:52:15.27ID:EFTour7u

良くわからないきっかけとやらを特定する
エスパーを探す

お好きな方で

431デフォルトの名無しさん2015/10/14(水) 06:55:27.52ID:fbrLImlI

428ですが先輩の皆様非常に手厳しいですね

何とか自分で特定できました　おじゃましました

432デフォルトの名無しさん2015/10/14(水) 11:31:57.79ID:EGTHNy+H

自分で解決できるなら質問しないでください
うざいだけです

433デフォルトの名無しさん2015/10/14(水) 19:36:39.06ID:Wlh7M+gV

解決した結果というか原因を書いておけば、後輩が喜ぶよ。

434デフォルトの名無しさん2015/10/17(土) 08:19:31.95ID:P+NFgFW2

Accessなんて俺以外は誰も使ってないよね。

435デフォルトの名無しさん2015/10/17(土) 19:12:33.45ID:ee0s4Mox

>>434
俺は使ってるぞ!
ちょっと癖はあるがAccess最強伝説は不滅さ!
ただし小さいシステムに限る。。。。

436デフォルトの名無しさん2015/10/18(日) 06:40:13.96ID:262pAAoP

MSDEとかSQL Serverと組み合わせれば少しはレベルが上がりますかね？

437デフォルトの名無しさん2015/10/18(日) 07:25:07.68ID:cUqtHutT

>>436
いまそこまでするならWebで使えるようなスキルを身につけてしまう事も考えちゃいますね。。。。phpとかいい感じに枯れてきてるよう思います

438デフォルトの名無しさん2015/10/18(日) 11:01:28.83ID:vJDQVwJW

access + django 試したら意外といけた

439デフォルトの名無しさん2015/10/18(日) 16:38:41.44ID:cUqtHutT

>>438
少しだけｋｗｓｋ
Pythonのフレームワークだよね?

440デフォルトの名無しさん2015/10/18(日) 17:07:54.47ID:Vpke6UWK

今からweb連携て
php覚える前に俺のいろいろが枯れてるのを何とかしてくれ

441デフォルトの名無しさん2015/10/18(日) 17:18:09.60ID:81sora9Q

ウェブアプリよりネイティブアプリだよね

442デフォルトの名無しさん2015/10/18(日) 18:00:30.34ID:cUqtHutT

>>441
いやーWebでしょう。
限られた環境ならネイティブアプリでもいいんでしょうけど。。
どこまで広げるかによるけどね。
入力はネイティブ、閲覧はWebという感じに住み分けるのも
いいのかもしれない。

443デフォルトの名無しさん2015/10/18(日) 18:19:24.53ID:81sora9Q

>>442
>入力はネイティブ、閲覧はWeb

そうそう
それそれ

444デフォルトの名無しさん2015/10/23(金) 20:11:11.99ID:YF5Y/5+5

カラムの中で、空白の場合は、空白でない上のデータもってくるってクエリを作りたいのですが、どのようにすればできますか？
Excelでは可能なのですが、百万件以上のテーブルのためできません。

445デフォルトの名無しさん2015/10/24(土) 04:28:16.14ID:dOe1BR+K

>>444
原則としてRDBのテーブルの行に、上とか下とか順序はないんだが

頑張ればSQL(クエリ)だけで出来なくもないけど、簡単なVBAマクロ作って流せばいいんじゃね

446デフォルトの名無しさん2015/10/24(土) 12:14:04.67ID:niXzNvfm

ソート後の順序で真上のレコードっていう条件が必要だろう

447デフォルトの名無しさん2015/10/24(土) 17:03:31.97ID:XMDiNwuL

>>443
マイクロソフトさんこんな需要がありますよー
アクセスこれからも面倒見てね

448デフォルトの名無しさん2015/10/24(土) 18:35:34.63ID:niXzNvfm

FileMakerでも出来ること

449デフォルトの名無しさん2015/10/24(土) 20:02:10.36ID:pancXijC

>>447
MySQLに接続して閲覧側はウェブでAccess側は入出力側で実現。
でも、MSはAccessはいずれ亡くすと思うよ。年々需要が減ってる

450デフォルトの名無しさん2015/10/24(土) 21:31:19.29ID:XMDiNwuL

LightSwitchってその後どうなったのかな?

451デフォルトの名無しさん2015/10/25(日) 21:29:15.26ID:3h+48Nx8

>>450
殆ど消えたも同然の状態。

452デフォルトの名無しさん2015/10/26(月) 20:56:01.66ID:GrJVc3nW

フォームやレポートの作成が簡単で助かってるんだけど、Accessに匹敵するほどお手軽簡単な開発環境あるのですか？

453デフォルトの名無しさん2015/10/27(火) 02:06:01.33ID:P3tmhbiJ

ない

454デフォルトの名無しさん2015/10/27(火) 06:08:45.26ID:aDjshOL6

だから無くなると困るんだよなあ

455デフォルトの名無しさん2015/10/27(火) 08:16:54.33ID:O948v5f3

Filemakerとどっちがいいの
わりとまじで質問

456デフォルトの名無しさん2015/10/27(火) 09:01:30.38ID:NzV7E0Ep

どっちもどっちだろうな。
バックエンドにもよるだろうけど、いつも使ってる方とか得意な方で開発するだろ。
指定があるときはそれに従うだけだから比べなくていい。
FileMakerはiPadなんかで使えるっていうのがウリみたいだけど。

457デフォルトの名無しさん2015/10/27(火) 22:44:31.91ID:UL6Q2dpz

Accessのほうが情報は手に入れやすいんじゃない?

458デフォルトの名無しさん2015/10/28(水) 18:34:43.87ID:tdXqh+ol

それは言える

459デフォルトの名無しさん2015/10/28(水) 22:29:42.64ID:mlOdASO2

結局のところAccessが担当してた部分ってETLツールに置き換えられてきてるってことかな?入力は除いてだけど。

460デフォルトの名無しさん2015/10/29(木) 10:20:50.66ID:olmk/SiV

何が結局のところだよ
ETL言いたいだけちゃうんかと
そもそもAccessでビッグデータなんか扱えくぇｒちゅいおｐｓｄｆｇ

461デフォルトの名無しさん2015/10/29(木) 23:09:13.90ID:yeCeSffg

>>459
ｈ？

462デフォルトの名無しさん2015/10/29(木) 23:46:52.13ID:+ZsDxL5P

Forguncyに流れちゃった人いる?

463デフォルトの名無しさん2015/10/29(木) 23:50:41.92ID:+ZsDxL5P

>>460
人それぞれだと思うが、おいらの使い方ならビックじゃないデータでもETLは結構いい選択肢だと思たあるよ
定形業務にはいいんじゃないか?

464デフォルトの名無しさん2015/10/30(金) 15:53:29.13ID:ijicNSnW

あるレポートが、あるクエリを元に作成されていて、そのクエリのレコード毎に、レポートをPDF出力し、出力先はまた別のクエリのフルパス文字内との元クエリデータとの一致で決めたいのですが、ご教示いただけないでしょうか？

465デフォルトの名無しさん2015/10/30(金) 15:57:13.83ID:o6oPjLK7

>>464
どこまで出来てて何がわからんのだ？

466デフォルトの名無しさん2015/10/30(金) 19:35:33.54ID:Y9M2GM2T

>>465
レポートをレコード毎にPDF出力して、クエリにあるパスに保存するところ

467デフォルトの名無しさん2015/10/31(土) 02:10:26.31ID:CVsb3S4r

どこまで出来てるんだ

468デフォルトの名無しさん2015/10/31(土) 03:08:21.25ID:CVsb3S4r

>>466
「MS-Accessのレポートをページ毎にPDF化する」でググって一番上のページ
そこみて、わからないとこは自分で勉強してくれ

469デフォルトの名無しさん2015/11/01(日) 03:17:03.71ID:MNp+RCAH

>>466
あのさ、ここはお前の願望を叶えるスレじゃないの。
わからない所を聞く為のスレなわけ。

お前のそれは1機能まるごと作ってここにコード貼れって命令してるに過ぎない。自分でコードもはらずにね。

470デフォルトの名無しさん2015/11/04(水) 20:19:18.57ID:jMb6JFTC

VBAでSELECT文を作って、Formに渡してRequeryして結果を表示しています。
テキストボックスに表示するテキストデータが途中で切れているという現象がおきました。
別のフォームで同じデータを同じようにテキストボックスに表示させると、全部のデータがきちんと表示されます。
スクロールとかではありません。文字列がぶつっ！と切れて途中までしか表示されないのです。

この現象の原因とかわかる人いますでしょうか？

471デフォルトの名無しさん2015/11/04(水) 21:27:15.64ID:oSFsMrp6

>>470
なぞなぞかよっ！ｗ
テキストボックスのプロパティを良く見た？

472デフォルトの名無しさん2015/11/05(木) 11:16:36.84ID:AOwzRWVn

>>470
そおテキストボックスどっかからコピペしてきたと見た

473デフォルトの名無しさん2015/11/05(木) 19:21:36.55ID:zgwRgbI3

>>471,>>472
表示ができているテキストボックスと同じプロパティです。
でも、１０００件データのうち、１つだけ200文字くらいの文字列なんですが、１００文字くらいの
ところでブツッ！って切れてるんです。
他のデータで同じくらいのサイズの文字列は問題なく表示されています。
SQLが悪いのかと思って、Debug.PrintしてSQLを取り出して、クエリを実行してみると、ちゃんと文字列が全部表示されています。
文字コードかなんかでしょうか？
でも、同じ文字列を別のフォームにあるテキストボックスで表示可能なんです。(ToT)

474デフォルトの名無しさん2015/11/05(木) 19:22:59.62ID:I4yBwlZm

>>473
同じ方法で出してるの？
ヌル文字ってVBAは関係なかったっけ？

475デフォルトの名無しさん2015/11/05(木) 19:44:01.06ID:zgwRgbI3

SQLは、違います。
あぁ・・・・その実験やってなかった・・・。
やってから報告します・・・。

476デフォルトの名無しさん2015/11/05(木) 19:53:07.35ID:tNVJsXcL

VBAの文字列はヌル文字ではターミネートされない
改行とか入って、見えなくなってるだけとかじゃないのか

477デフォルトの名無しさん2015/11/06(金) 09:46:24.95ID:rpsHbqpr

union
を
union all
にしたら現象がでなくなりました。
(ヽ´ω`)でもクエリデザインから実行するとunionでも普通に表示されるんだよなぁ、、、

478デフォルトの名無しさん2015/11/06(金) 10:26:38.77ID:iLvLfKdX

>>477
重複業があるんじゃないの？
目視で見てるのは違う行とかないよね。

479デフォルトの名無しさん2015/11/06(金) 12:39:06.37ID:F7EIvq3A

test

480デフォルトの名無しさん2015/11/06(金) 17:29:52.25ID:FW411vzH

>>478
質疑回答IDも一致してて、単純なSELECTぶんなので、、
超レアなバグなのかなと

481デフォルトの名無しさん2015/11/06(金) 19:16:39.01ID:hUa1dWCf

メモ型あたりでunionの同一行判定でなんかあるかもしれんけど
どう考えても>>480の勘違いの可能性の方か高いと思うぞ

まあACCESSのバージョンもテーブルの種類もSQLもデータをどうやって表示してるかも書かんような奴の話は
聞くだけ無駄かもしれん

482デフォルトの名無しさん2015/11/06(金) 19:41:20.27ID:hUa1dWCf

メモ型ってgroup by 出来なかった気がしたのでちょっと調べた
どうも、TEXT型にキャストして判定するみたいだな
なので、255文字目までが同一のメモ型は同一と判定される

distinctで採択されるのがどっちの行かはわからんが
とりあえずメモ型の制限だからメモ型使って値操作するのが悪いと言う結論だな

個人的にはエラーにしてほしいところだし、昔はエラーになってた気がするんだが俺の気のせいだろうか

483デフォルトの名無しさん2015/11/06(金) 19:56:07.21ID:hUa1dWCf

あと、unionは単純なSQLとは言えんし
はなからunionしてるSQLとテーブルレイアウト出してればもっと解決早かっただろうに
全く同じ現象出てるって書いてるブログあるぞ

484デフォルトの名無しさん2015/11/07(土) 13:41:21.41ID:Lam93S6q

あのっ某所でAccessはフロントエンドのみの製品で
RDB自体はOS標準で使えますぜｇｆｆ・・・
みたいな内容見たんだけど
本当なんです？

485デフォルトの名無しさん2015/11/07(土) 16:11:16.86ID:rKOE1Rwz

yes

486デフォルトの名無しさん2015/11/07(土) 17:29:39.50ID:D4Pma+c4

>>484
んだ。
だから、ExcelがあればVBAで組める人がいるなら、ぶっちゃけいらん。

487デフォルトの名無しさん2015/11/07(土) 17:54:57.33ID:nFXrQ+Fm

OSに標準でついてるRDBってなんのこと？？

488デフォルトの名無しさん2015/11/07(土) 18:34:51.46ID:eMujCaYk

RDBは付いてないでしょう

489デフォルトの名無しさん2015/11/07(土) 19:25:43.69ID:Lam93S6q

ちゅーかVBScriptからもいけるじゃん
後付けコンポーネントってわけでもなさそうだし
Officeいらないのかもしかして

490デフォルトの名無しさん2015/11/07(土) 19:37:37.20ID:sBJO9RQ1

SQLサーバのこといってんの？

491デフォルトの名無しさん2015/11/07(土) 19:39:42.37ID:Lam93S6q

>>487-488
>Jetデータベースエンジンとは、Microsoft社が開発したリレーショナルデータベースエンジン。Microsoft Access用に開発されたもので、現在ではWindowsに統合され、様々な製品から利用されている。
だそうですよ

492デフォルトの名無しさん2015/11/07(土) 19:47:42.23ID:sBJO9RQ1

>>491
トン
jetってAccess買わなくてもつかえるんだ。
ランタイムはしってたけど

493デフォルトの名無しさん2015/11/07(土) 20:47:46.88ID:nqO+al0X

windowsに統合されたjetの使い方はどうすれば？

494デフォルトの名無しさん2015/11/07(土) 22:03:40.43ID:cyCg/fRc

レポートをレコードごとに、pdf出力したく
daoで以下のような感じで書いたんだが。
ファイルのフルパスが書いてある別クエリの中のレコードとレポートの項目が合致するレコードのフルパスにpdfを出力したいんだがどうしたらいいのかわからない。

Do Until rs.EOF
DoCmd.OpenReport 〜
DoCmd.OutputTo acOutputReport, , acFormatPDF, "ファイルパス.pdf"
DoCmd.Close acReport, レポート名
rs.MoveNext
Loop

495デフォルトの名無しさん2015/11/07(土) 22:57:08.01ID:uMO3Ng54

SQL書いてそれをレコードセットに入れたら？

496デフォルトの名無しさん2015/11/08(日) 02:11:48.41ID:WbD4bkmm

JETだけでDB組むとか何の拷問だよ
素直にAccess使え

497デフォルトの名無しさん2015/11/08(日) 12:15:44.95ID:GC9rkdcu

Pythonで書いても楽

498デフォルトの名無しさん2015/11/08(日) 13:04:28.61ID:iWdr+l4l

で、Accessって
何に使えばいいの？
(´・ω・｀)

499デフォルトの名無しさん2015/11/08(日) 14:01:11.47ID:LxG8VZT7

>>498
一人で完結する仕事で面倒臭くて外注する予算もなくてなことを
自動化するのに使ってるよ。だから保守も自分でしかできない（笑）
そんな仕事じゃないか?

500デフォルトの名無しさん2015/11/08(日) 15:13:38.10ID:QfP+cajQ

社内の統計担当とかそんなポジションの人かな？
社内の簡単な統計ならほんと楽ちん。
Access使えるか使えないかでどえらい作業能力の差が生まれる。

501デフォルトの名無しさん2015/11/08(日) 18:18:56.29ID:dBATCu8V

m9 pgr

502デフォルトの名無しさん2015/11/10(火) 21:11:26.36ID:Ya5Yiifl

>>501
それは何？

503デフォルトの名無しさん2015/11/11(水) 13:15:07.58ID:vGX0No5x

むきゅー
ぷぎゃー

504sage2015/11/11(水) 19:27:14.97ID:V8OM9GuG

access2013でフォームからの入力期間の金額を集計してレポート作成をしようとしています。
vbaでリボンにあるレポートボタンを押下した動作と同じコードは存在しますでしょうか。

505デフォルトの名無しさん2015/11/11(水) 20:31:20.16ID:RY0eiki2

マクロの操作を記録すれば出てくるでしょ

506デフォルトの名無しさん2015/11/11(水) 22:30:56.87ID:/+peIgnx

>>505
ACCESSにマクロの記録は無かったと思ったが
2013とかだと出来るようになってるのか？

507デフォルトの名無しさん2015/11/11(水) 22:51:22.82ID:oO+3Zy7C

無いと思うよ

508デフォルトの名無しさん2015/11/11(水) 22:55:33.44ID:51LqdR7k

vba レポートでくぐったがはやいよ。

509デフォルトの名無しさん2015/11/12(木) 04:28:05.37ID:MeI9ns/Z

>>505
は？馬鹿はいちいちスレに出張って来るなよww
何がマクロの操作を記録だ馬鹿が。

510デフォルトの名無しさん2015/11/12(木) 12:35:52.00ID:pHlRdfiq

普通にフォームと同じソースの「れぽーとほげ」を用意しておいて

DoCmd, OpenReport "れぽーとほげ", acViewPreview
ではダメな理由があるのかな？　フォーム上でレポートに応用できるように画面設計
作り込むよりは専用のレポートで別制作しといたほうが何十倍も効率いいだろうにな

511デフォルトの名無しさん2015/11/12(木) 12:42:12.51ID:tbcgbggA

>>504
ちょっと出来ない事があるとVBAに頼るのはよくない。
Officeの使い方をもっと勉強してからVBAに手を出すべきだよ。

「パラメータクエリ」と「フォーム」で作ればなんとかなるかな。
というわけで、VBA必要ないので↑の２つのキーワードでggrks

5125112015/11/12(木) 12:43:58.58ID:tbcgbggA

パラメータクエリとレポートでも作れるわ。

513デフォルトの名無しさん2015/11/12(木) 14:18:08.75ID:Cdboni3Z

フォームからfrom日付-to日付を入力
↓
テーブルから購入日が対象範囲のデータ取得
テーブル構造は
シーケンスno.,氏名,購入品1,購入日1(購入日、購入品は6まで存在)
↓
クロス集計にて月毎の金額を集計
↓
レポートに出力

入力する日付によってフィールド数が可変なため、レポートの作成はしていないです。
vbaを使う必要がなく可変レポートが作成出来るならスルーして下さい

514デフォルトの名無しさん2015/11/12(木) 15:03:31.62ID:m1A4y0ZB

>>513
クエリ作っときゃいいんじゃないの？集計の。
フィールド数が可変とはなんぞ。

5155112015/11/12(木) 16:03:58.58ID:tbcgbggA

>>513
テーブルの基本設計からやり直せ。
購入品と購入日が１〜６って無いと思います。

516デフォルトの名無しさん2015/11/12(木) 16:36:07.67ID:Cdboni3Z

>>515
くそなテーブルだと思ってますが自分が作ったテーブルではないので変更出来ません

5175112015/11/12(木) 16:42:28.68ID:tbcgbggA

>>516
レポート用にテーブル作っちゃうことはできないの？

518デフォルトの名無しさん2015/11/12(木) 16:43:56.03ID:m1A4y0ZB

>>516
だからクエリ作れよ。
select id,1 as 区分,氏名,購入日1 as 購入日,購入品1 as 購入品
union
select id,2 as 区分,氏名,購入日2 as 購入日,購入品2 as 購入品
:
select id,6 as 区分,氏名,購入日6 as 購入日,購入品6 as 購入品
で、あとはそれに対して、fromToでフィルタ掛ければいいんでないの？

519デフォルトの名無しさん2015/11/12(木) 16:44:59.17ID:Cdboni3Z

>>514
入力した期間に応じて月が増減します


集計用のクエリは作成したのでリボンにあるレポートボタン同様に自動でリポート作成出来ないかと思ってます

520デフォルトの名無しさん2015/11/12(木) 16:47:06.72ID:m1A4y0ZB

>>519
帳票一枚に並べられる分の月数を元からつくっとけ。

521デフォルトの名無しさん2015/11/12(木) 17:02:23.22ID:Cdboni3Z

>>517
くえりをそのままレポートは難しそうだったのでテーブル化はしてあります

522デフォルトの名無しさん2015/11/13(金) 20:45:36.98ID:7WxIZdrP

複雑になってるクエリが循環参照になってるようなのだが、読み解かずにテーブル作成して逃げようとしたらまたエラーなんとかならんかなー

523デフォルトの名無しさん2015/11/13(金) 20:51:20.52ID:etlrmpjh

>>519
クエリ出来てるなら、レポート作って保存しておけば好きなときに開くだけじゃん

524デフォルトの名無しさん2015/11/13(金) 22:14:56.04ID:fKrJSaVy

vbaでfilecopy(fsoも含む)でリムーバブルディスクにファイルをコピーするとハードウェアの安全な取り外しで
ファイルが使用中とかでできない。まぁ警告のダイアログで続行を押すと取り外せるんだけど、これやると
マイコンピュータからリムーバブルディスクが消えなかったりすることがある。
accessを終了すると普通に取り外せるんだけど、これをなんとかできないかなぁ。

525デフォルトの名無しさん2015/11/14(土) 00:03:58.17ID:Q8aVOdfz

>>524
Fsoでやるなら、
宣言で　as new ...とかしない、最後にNothing入れとくを徹底したら無くなるんじゃないかな。

526デフォルトの名無しさん2015/11/14(土) 00:13:34.12ID:YdrOLc06

カレントフォルダとカレントドライブを明示的に
リムーバブルじゃないとこに設定してやれば行ける見たいな事を聞いたことがある

527デフォルトの名無しさん2015/11/14(土) 07:50:49.05ID:ZUqvxiq2

>>524
それ、使用したメソッドがファイル掴んだままで、開放してないからでしょ。ちゃんとプログラミングのイロハ身につけてたらやらない。

使ったら必ず開放する。VBAユーザはなぜか使いっぱなしが多い。

528デフォルトの名無しさん2015/11/14(土) 08:28:36.61ID:f21e1kim

.NETなんかだとマネージドは書いてもほぼ意味なかったりで使いっ放し推奨

5295242015/11/14(土) 10:27:44.88ID:c/SicAL6

>>525、527
Dim objFileSys As Object
Set objFileSys = CreateObject("Scripting.FileSystemObject")
objFileSys.CopyFile 元ファイル, コピー先フォルダ & "\"
Set objFileSys = Nothing
copyfileの部分だけをかいつまんで書くとこんな感じだけど、解放の仕方を教えてくれないか。
リムーバブルディスクにコピーしたファイルは開けるし削除もできるからロックされた感じじゃないんだよね。
安全なハードウェアの取り外しだけがうまくいかないんだよ。

530デフォルトの名無しさん2015/11/14(土) 11:01:39.40ID:ajpWryyv

getdriveとか適当なのを実行してみたら？
カレントが移動するかも。

5315242015/11/14(土) 12:52:04.15ID:c/SicAL6

>>526、530
ありがとう。この方法で解決した。
ChDrive "c"　って1行追加しただけでOKでした。言われないと気付かなかったから助かりました。
他のみなさんもありがとう。

532デフォルトの名無しさん2015/12/06(日) 22:14:00.95ID:ZiGqGoDJ

重複した文言の多いcsvファイルの情報を読み込む時に、重複しない文言を蓄えたテーブルと、
文言テーブルのIDだけを入力したテーブルに分けて管理する事で容量を節約しようと思ってるんですが、
人が読める様にIDから元の文言を復元したテーブルを作りたいと思った時、
VBAで文言一つ一つ代入したテーブルを新たに作るしかないですかね？

533デフォルトの名無しさん2015/12/07(月) 01:08:03.51ID:D3MoacxB

IDでテーブル結合したview作るなりクエリにすりゃいいんじゃないの
どちらにしろVBAとか関係ないと思う

534デフォルトの名無しさん2015/12/10(木) 11:46:09.31ID:V//Y2NlP

質問です
Access2007ファイルのショートカットをデスクトップに作ろうと思って

https://www.moug.net/tech/acvba/0020025.html

ここを参考にパスとかだけ変えて作ったんだけど、ショートカットが作成されません
解決策教えてください

535デフォルトの名無しさん2015/12/10(木) 12:16:08.88ID:gg94mj0B

うちはできたよ

5365342015/12/11(金) 16:06:56.86ID:UbN3V6OX

出来ました。

537デフォルトの名無しさん2016/01/04(月) 04:37:40.84ID:KKPx2R3A

mdbファイルのテーブル構造をADO.NET SqlCommandで取り出す方法を知りたいです。（データ定義言語的な取り出し）
DoCmd.TransferDatabase acExportでできるテーブル構造のコピーと同じことを，ADO.NETで，元データなしで実現（テーブル生成）したり
プログラム側が想定するテーブル構造と一致するか確認する処理をテーブル生成→比較とすることで一般化したりしたいのですが

538デフォルトの名無しさん2016/01/04(月) 18:57:08.11ID:uh/Y4MEw

ADODBEX

539デフォルトの名無しさん2016/01/09(土) 22:01:59.03ID:ytxGXkKI

Accessでプロマネの仕事頼まれたけど断ったわ
もうVisualStudioが無いと何もできない体になってしまった

540デフォルトの名無しさん2016/01/10(日) 01:26:39.26ID:0BvJ+8Ai

プロマネの仕事は開発じゃない、とつっこみ

541デフォルトの名無しさん2016/01/11(月) 08:38:46.37ID:grtS6L7L

>>540
そういういかにも日本的で世界で通用しない回答は誰も期待していないし、
君みたいな奴は誰も求めていない。

542デフォルトの名無しさん2016/01/11(月) 17:35:29.30ID:ErJJ4Q3v

>>541
君には悲しいかもしれないけど、ここ日本なのよね

543デフォルトの名無しさん2016/01/14(木) 21:12:26.51ID:RIYdCmvc

テーブルにインポートするとたまに失敗する変なゴミデータが入ったエクセルファイルをVBAでテーブルに登録しようとしてます。1レコード100フィールドほどあるもので、addnewで登録すると100件で20秒ほど掛かってしまいます。
Insertでも23秒でした。
全部で10万件あるのですが、高速登録する方法ないでしょうか？

544デフォルトの名無しさん2016/01/14(木) 22:01:16.12ID:fK8eMzuy

>>543
配列で受けると速くなるかもしれない
dim ary as variant
ary = Range("A1").CurrentRegion.value ' 1オリジンの2次元配列

545デフォルトの名無しさん2016/01/14(木) 22:04:06.66ID:fK8eMzuy

ゴミは数式やエラー値が混ざってるんだろうから配列にした段階で適当に変換する
dim row, col
for row = lbound(ary(), 1) to ubound(ary(), 1)
for col= lbound(ary(), 2) to ubound(ary(), 2)
if ゴミ？(ary(row, col)) then ary(row, col) = ゴミ処理(ary(row, col))
next
next
この後でテーブル登録する

546デフォルトの名無しさん2016/01/14(木) 23:52:25.44ID:SY7xxp+v

>>543
パフォーマンス重視ならレコードセットやExcelオブジェクトは扱わない方が良いですよ
1.インポート定義でインポート
2.リンクテーブルを作って追加クエリ
3.SQL の IN 句使って INSERT
4.OLE DB の Jet か ACE で接続して INSERT
などなど...

ゴミが混ざるならゴミを許容する作業テーブルにインポートしてから後始末をするとか
処理の仕方も色々あると思います、頑張ってください

547デフォルトの名無しさん2016/01/14(木) 23:55:58.95ID:SY7xxp+v

書き忘れ
インポート定義は文字列切り詰めなどが起きるかもしれないので
使うなら想定しておいた方が良いです

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

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

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

549デフォルトの名無しさん2016/01/17(日) 14:16:21.53ID:A2o/pomn

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

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

聞くがよい

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

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

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

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

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

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

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

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分を使ってみたのですが、上手く行きません。

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

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

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

555デフォルトの名無しさん2016/01/21(木) 07:45:42.44ID:7TL6zMKQ

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

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

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

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

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

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

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

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

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

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

これはひどい

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

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

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

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

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

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

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

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

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

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

5645532016/01/22(金) 16:35:45.14ID:FxZxO26V

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Private Const START_CELL =

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

すみません

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

5735712016/02/02(火) 10:30:04.88ID:OPpL3JBW

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

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

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

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

これはひどい

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

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

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

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

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

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

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

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

両成敗

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

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

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

>>580
うん

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

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

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

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

>>582
できるよ

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

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

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

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

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

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

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

587デフォルトの名無しさん2016/02/22(月) 10:46:47.09ID:4/RFA0DI

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

588デフォルトの名無しさん2016/02/22(月) 10:47:20.99ID:4/RFA0DI

すまん
誤爆った

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

>>587
それな

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

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

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

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

うざ

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

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

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

できますん

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

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

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

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

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

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

VBAで

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

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

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

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

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

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

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

access 2010
windows7

DoCmd.OutputTo acReport,

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

access 2010
windows7

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

607デフォルトの名無しさん2016/04/28(木) 09:47:32.29ID:wel45o+X

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

608デフォルトの名無しさん2016/04/28(木) 17:15:09.15ID:iPy/jEF0

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

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

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

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

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

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

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

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

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

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

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

613デフォルトの名無しさん2016/08/24(水) 19:34:34.65ID:3q4Jyrt7

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

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

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

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

615デフォルトの名無しさん2016/08/24(水) 22:13:48.17ID:3q4Jyrt7

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

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

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

617デフォルトの名無しさん2016/09/29(木) 18:41:58.74ID:2yQBgN/R

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

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

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

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

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

620デフォルトの名無しさん2016/09/30(金) 11:38:14.95ID:tD6+ktpC

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

621デフォルトの名無しさん2016/09/30(金) 11:43:24.10ID:tD6+ktpC

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

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

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

623デフォルトの名無しさん2016/09/30(金) 13:59:26.62ID:4mQfWuIk

いいかげんスレチ

624デフォルトの名無しさん2016/10/01(土) 18:16:06.96ID:94YBKalt

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

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

625デフォルトの名無しさん2016/10/01(土) 18:24:50.88ID:94YBKalt

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

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

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

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

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

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

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

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

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

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

どうしたいの？

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

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

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

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

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

通じないか…すまん

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

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

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

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

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

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

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

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

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

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

何で？

Win7x64+Acs2010

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

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

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

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

637デフォルトの名無しさん2017/01/01(日) 20:32:48.66ID:F1PmU62+

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

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

だと期待する結果になる

638デフォルトの名無しさん2017/01/01(日) 20:35:20.03ID:F1PmU62+

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

639デフォルトの名無しさん2017/01/01(日) 22:05:32.13ID:5bQycJKK

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

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

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

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

利用環境
access2010
Windows7

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

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

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

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

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

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

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

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

643デフォルトの名無しさん2017/01/04(水) 15:25:42.45ID:JR/sdM0U

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

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

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

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

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

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


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

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


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

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

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

646デフォルトの名無しさん2017/01/04(水) 16:53:55.47ID:JR/sdM0U

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

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

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

accessでやる案件じゃないな

648デフォルトの名無しさん2017/01/04(水) 17:01:26.69ID:JR/sdM0U

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

649デフォルトの名無しさん2017/01/04(水) 17:29:52.12ID:geFs4Pus

>>648
仰る通り、管理者用に作成しようとしているツールです
ゆくゆくはアンケートを取るようにして、
400人のユーザの傾向分析などに使おうと思っています


> アクセスのDBは基本的にはファイル共有で動作してる

ファイル共有で動作している事で、同時に複数人で
mdbを開くと負荷が大きくなるということでしょうか？

> 共有サーバどうする気か知らんが、その共有サーバで実際に４００人でファイル同時オープンしてみ

この部分が最大のネックで、テストが出来ない環境なんです

650デフォルトの名無しさん2017/01/04(水) 23:07:33.39ID:Hrm6AnDP

社内セキュリティで制約厳しいのに　仕事中に2chで相談　　阿呆らし　　アホじゃ無いよ、阿呆だよ

651デフォルトの名無しさん2017/01/04(水) 23:09:47.67ID:J+uePkPh

釣りには反応しないことにしている

652デフォルトの名無しさん2017/01/05(木) 04:36:33.99ID:n6wSBZKS

>>649
mdbですよね?
データ量にもよりますが同時セッションでせいぜい数人です
同時でないにせよ400人はAccessの要件じゃないです
ほぼ確実にmdb壊れますよ

653デフォルトの名無しさん2017/01/05(木) 13:00:18.18ID:UOU5yV0Y

>>652
ありがとうございます
同時にたくさんのユーザで開くことが現実的でないのであれば
下記方法を検討してみようと思います。

・共有サーバーに起動用mdbを1個。参照用mdbを40個。テーブル専用mdbを7個設置。
・全ユーザーは起動用mdbからIDによって振り分けられた参照用mdbに移動。
(400人に対して参照用mdb40個なので、
10人単位で参照用mdbを割り当てる)
・各参照用mdbからテーブル専用mdbに入出力を行う
(既読フラグの入力。既読状態を読み取って参照用mdbの
フォームに既読の表示をする)

654デフォルトの名無しさん2017/01/05(木) 13:07:54.05ID:2uA+A+xC

人の話を聞かないひとだな

655デフォルトの名無しさん2017/01/05(木) 13:50:12.16ID:L/jinxrk

ヴァージョン管理は何が良いのかな？
実際に使っている人いますか？

656デフォルトの名無しさん2017/01/05(木) 13:58:55.25ID:UOU5yV0Y

>>654
人の話を聞いていないように見えたのであれば謝罪します
申し訳ありません
Accessで扱うには難しい案件だという事は分かりました
その難しい環境下で、どうやったら実現出来るかが知りたいです

657デフォルトの名無しさん2017/01/05(木) 14:34:29.15ID:2uA+A+xC

>Accessで扱うには難しい案件だという事は分かりました

論点はそこじゃないよ

658デフォルトの名無しさん2017/01/05(木) 14:57:02.77ID:YjTG1plI

しらんがな

659デフォルトの名無しさん2017/01/05(木) 15:21:53.24ID:UOU5yV0Y

>>657
「人の話を聞かないひとだな」「論点はそこじゃないよ」
論点はどこですか？

660デフォルトの名無しさん2017/01/05(木) 16:44:07.63ID:1cxa7M6H

>>653
色々アイデアを出されておりますが400人が接続する先は「テーブル専用mdb」ですから
仮に動作したとしてもクエリ1つ投げて戻ってくるのに数十秒かかる、という事態も想定されますよ

どうしてもAccessで開発するのであれば
バックエンドをSQL Serverなどにして「参照用mdb」を各クライアントに配布する形になります

661デフォルトの名無しさん2017/01/05(木) 19:41:31.33ID:V7dbykQV

ファイルベースだとmdb以前に共有サーバの同時接続数も見積もらないといけないのでは

662デフォルトの名無しさん2017/01/05(木) 23:23:39.16ID:quCbp6zV

阿呆通り越して馬鹿か いかれてる
到底400人を超える社員を擁する企業の案件とも思えず（担当がこのレベルなんだし）
じゃあ何だ？ゲームのなんちゃら？とも思えず、僕ちゃんAccessなら少しはお上手だから
それで400人のお年寄りを騙す仕組みを思い付いたから構成教えて！なのか
なんなんだ？こいつ　　ひつこいし

663デフォルトの名無しさん2017/01/06(金) 08:55:08.12ID:977IrQIJ

>>662
まずは日本語勉強しようね

664デフォルトの名無しさん2017/01/08(日) 10:59:41.54ID:tUVpbJjX

そもそも誰もWin7の同時接続数制限とか突っ込まない件
652除く

665デフォルトの名無しさん2017/01/08(日) 12:33:28.94ID:0mVP2hZ6

政治には興味ないですし

666デフォルトの名無しさん2017/01/08(日) 16:28:19.18ID:7mm8hykc

>>664
>>643で突っ込まれてるけど？

667デフォルトの名無しさん2017/01/08(日) 23:15:06.32ID:tUVpbJjX

>>666
ライセンス違反じゃなくて、もともとできんのだよ。動的パッチでも当てないと。またレジストリをいじらないと実際にはその前に限界が来る。
わからないくせに出しゃばるなよ。

668デフォルトの名無しさん2017/02/16(木) 10:45:18.11ID:aBJd2B4P

Accessから参照設定なしでExcelを起動し、種々作業を行うPGを作ってます。
その際、Excelの自作関数（Function）が使えんのですが、
良い方法がありましたらご教示お願いします。

669デフォルトの名無しさん2017/02/16(木) 11:30:15.28ID:KUjZVbQE

追記です。
自作関数（Function）は、=SUMのように
Excelシート上で使う関数です。

670デフォルトの名無しさん2017/02/16(木) 12:08:53.08ID:1VBkG9E6

参照しろ

671デフォルトの名無しさん2017/02/16(木) 12:33:12.55ID:l4cugFFN

回答ありがとうございます。

いちおう参照設定してのテストも行ってますが、結果は同じでした。

なので困ってます。(；ω；)


ちなみに参照設定しないのは、AccessでExcelを扱う際にやっかいとなる、
残プロセスを残さないためです。

672デフォルトの名無しさん2017/02/16(木) 13:29:00.95ID:1VBkG9E6

じゃあ再定義しろ
中身はformulaでとって来れるだろ

673デフォルトの名無しさん2017/02/16(木) 13:59:57.08ID:0BcpOJQi

>>671
自作関数については分かりませんが

> ちなみに参照設定しないのは、AccessでExcelを扱う際にやっかいとなる、
> 残プロセスを残さないためです。
参照設定(事前バインディング)はコンパイル最適化とコーディングをしやすくするのが主な目的です
それが原因でプロセスが残る事は考えにくいです(そんな現象は見た事がない)
定番の「Excelオブジェクトを解放しきれていない」が原因ですよ

674デフォルトの名無しさん2017/02/16(木) 16:50:59.97ID:ha+qjoA8

えっ?使えるでしょ。
objExcel.WorksheetFunction.Sum(...

675デフォルトの名無しさん2017/02/16(木) 16:54:22.22ID:ha+qjoA8

ああ、自作関数だったか。
Application.Runじゃ出来なかったっけ?

676デフォルトの名無しさん2017/02/16(木) 17:58:12.26ID:6ZvAKcv7

>>673

その通りなんですが…
参照設定しないのが一番簡単なので。。

みなさまありがとうございました。


自作関数は諦めて、標準の関数でなんとかしました。
記述はかなり冗長になりましたが…

677デフォルトの名無しさん2017/03/14(火) 15:44:05.81ID:xSphHjM7

プロシージャ内でSQLを使用する際に、

SELECT
[テーブル名].[フィールド名]…

みたいな感じで、テーブルオブジェクト全てにカギ括弧をつけてるんですが、

みなさんはどうしてますか？

678デフォルトの名無しさん2017/03/14(火) 15:52:48.60ID:vbV/Jpv3

付けてるよ

679デフォルトの名無しさん2017/03/14(火) 18:46:12.84ID:hwBjOTV4

あざーっす！

680デフォルトの名無しさん2017/03/15(水) 09:24:20.26ID:5k9Lj/ic

カッコなんてつけなくても
よくね？

681デフォルトの名無しさん2017/03/15(水) 11:36:01.57ID:7YWEdixI

構文エラーになるケースを避けるため

682デフォルトの名無しさん2017/03/16(木) 15:27:44.93ID:IvuT2rvG

フィールド名に全角英数字を使っている場合にカギ括弧を付けないと構文エラーになる
まあ、普通はフィールド名に全角英数は付けないけどね。

683デフォルトの名無しさん2017/03/16(木) 23:24:09.16ID:PNfj678B

いまどき、普通に日本語を使えないのかよ

684デフォルトの名無しさん2017/03/23(木) 10:28:42.05ID:5Vz0tz9C

お疲れさまです。

DoCmd.RunSQL で、select結果を表示する方法ってあります？

685デフォルトの名無しさん2017/03/23(木) 11:35:43.51ID:AyyVp0Pm

あります

686デフォルトの名無しさん2017/03/23(木) 12:21:55.77ID:sD6rx87L

ご教示いただけたら幸いでございます

687デフォルトの名無しさん2017/03/23(木) 12:46:28.00ID:AyyVp0Pm

948 デフォルトの名無しさん sage 2017/03/22(水) 18:27:50.62 vhfzvoEm

少し調べればすぐ分かることなんだから
聞く前にまず自分で調べなよ

949 デフォルトの名無しさん sage 2017/03/22(水) 20:02:01.65 pQEBF+SX

>>947
初心者のくせに欲張りだね君は

688デフォルトの名無しさん2017/03/23(木) 14:40:42.73ID:BfWircGx

999 名前:本当にあった怖い名無し＠無断転載は禁止 :2017/03/23(木) 04:44:44.44 ID:7MjKM4Gx0

てめえか？
てめえかよ！え？
その腐った根性！

689デフォルトの名無しさん2017/04/17(月) 10:33:15.33ID:hesGBEnq

>>684
docmdでは無いけどこちらを利用してみてはどうでしょうか？
https://m.chiebukuro.yahoo.co.jp/detail/q1043675165

690デフォルトの名無しさん2017/04/17(月) 10:45:51.14ID:hesGBEnq

・access2010
・win7
・共有サーバ上での利用
・共有サーバにaccessで作成したスターターファイル.accdbとフロントエンドファイル.accdbがあります
・accessを開くと必ず上部に黄色のバーが表示されて
「コンテンツを有効化してください」が表示されます


上記環境での質問です

1,スターターファイルを開いて、フロントエンドファイルをvbaで共有サーバ上の別のフォルダにファイル名「a.accdb」としてコピー
2.vbaでコピーした「a.accdb」を起動
3.ユーザはマウス操作で「a.accdb」の「コンテンツを有効化」ボタンを押下

3の動作をした際に「a.accdb」が必ず自動で閉じられてしまいます
2回目の起動の際には「コンテンツを有効化してください」が有効になっている為、閉じられることはありません

何が原因で「a.accdb」が自動で閉じられているのでしょうか？
またどうすれば閉じないように処理をすることが出来るのでしょうか？

恐れ入りますが、ご教示願います

691デフォルトの名無しさん2017/04/17(月) 12:24:07.44ID:BKaS1p5r

フロントエンドは各クライアントに置く
各クライアントにはRuntimeをインスコ
その状況なら、いろいろ解説しているサイトがごまんと転がってる

鯖でアプリケーションサーバー機能を持たせてないなら
鯖上のアプリを起動しようとする意図が間違っている
スターターは何だか判らん

692デフォルトの名無しさん2017/04/17(月) 13:58:30.12ID:43/Py1Cq

すみません、下記前提が抜けていました

・クライアント側はローカルへのデータ保存不可
・クライアント端末にruntimeのインストール不可

スターターはクライアントが直接フロントエンドファイルを開かない(占有)しないようにする為のファイルです

accessが閉じられてしまう原因が分かりました

Sub test()
Dim acApp As Access.Application
Dim strDBPath As String
strDBPath = "hogehoge\db1.MDB"
Set acApp = New Access.Application
acApp.OpenCurrentDatabase strDBPath
End Sub

プロシージャを抜けるとローカル変数の
acAppが無効化されてしまう為に
accessが閉じられていました
グローバル変数としてacAppを宣言することによって
閉じられてしまう事は回避出来たのですが
同じプロシージャ内に「スターターを閉じる」命令を
すると、コピーしたファイルまで閉じてしまいます

理想はスターターを起動後、
1.ファイルをコピー
2.コピーしたファイルを開く
3.スターターを閉じる
を全て実行出来るようにしたいのですが、accessVBAでは
出来ないのでしょうか？

693デフォルトの名無しさん2017/04/17(月) 14:35:23.27ID:AilOqA4r

>>692
環境とやりたい事が全く分からん
>・クライアント端末にruntimeのインストール不可
当然ACCESSそのものもインストール不可なんだろうな
その状態で、スターターやコピーしたaccdbは「誰が」「開く」んだ

ふつうaccdbを開くというのはACCESS（ランタイム含む）で開くことだぞ

クライアントにACCESS(ランタイム)インストール不可
ローカル（クライアント）にACCDBコピー不可
の環境で、ACCESSで作ったアプリ使おうとか俺なら無理って言って断るけど

694デフォルトの名無しさん2017/04/17(月) 15:33:38.97ID:fguab9d+

バッチファイルなら2行で出来る
Copy A B
B

695デフォルトの名無しさん2017/04/17(月) 17:40:07.70ID:Jx2ehMcZ

>>694
ありがとうございます
共有サーバ上にバッチファイルを置く事は出来ないので
バッチファイルでの対応は検討していなかったんですが
accessVBAでクライアントのローカルにバッチファイルを
生成して、それを実行した後にスターターファイル自身を
閉じれば想定通りの動作をするかもしれません！

696デフォルトの名無しさん2017/04/17(月) 18:40:12.06ID:AilOqA4r

>>695
なあ、そのバッチファイルやVBAはいったいどこで実行する気なんだ？

697デフォルトの名無しさん2017/04/17(月) 22:03:56.60ID:BKaS1p5r

もうリモートでやれよ　後々のメンテ考えてもリモートのが百万倍楽だろ
何十時間費やしてご自慢の構成組み上げても、余人に理解できなきゃ
ポンツコアプリに堕するだけ　お前亡き後後輩がハゲあがるわ

今日びのクライアントマシンならストレスも少なくて済む性能持ってるし
バッチは置けないけど鯖上でVBAならなんでもござれ　ってのもな
シンクライアントなら尚更リモートで発想してやるのが環境にやさしいってもんだ

698デフォルトの名無しさん2017/04/18(火) 00:11:18.28ID:hjZqdERg

クライアントに
インストールは駄目なのに
バッチファイルは置いていい
とかwwwwwwwww

699デフォルトの名無しさん2017/04/18(火) 18:05:35.01ID:UkP+KrtI

業務委託契約として顧客に準備された制限の多い
環境下で業務をしています共有サーバも特殊である為、
理解出来ないような仕様が多いです

「別のaccess起動」はshell関数で対応する事で
解決出来ました
たくさんのご意見どうもありがとうございました

700デフォルトの名無しさん2017/04/18(火) 18:15:43.89ID:Uw8XacGP

はよ逃げ

701デフォルトの名無しさん2017/04/19(水) 12:26:18.06ID:j6KP6NRK

クライアントにACCESSインストール不可なのに
どこでどうやって「別のaccess起動」を解決できたのかすごく気になる

特殊なサーバってメタフレームとかじゃないだろうな

702デフォルトの名無しさん2017/04/19(水) 22:16:46.24ID:JHVKZFyT

インストール不可なのはランタイムだろ

703デフォルトの名無しさん2017/04/20(木) 06:20:13.83ID:1KNeIeUu

>>702
これだな
別にクライアントでaccessが使えないとは書いてないし
変な奴が揚げ足とって粘着してるようにしか見えん

704デフォルトの名無しさん2017/04/21(金) 11:31:18.08ID:cjUCDLpJ

accessVBAでファイルコピーをするのですが、

テーブルにある数値をコピー先のファイル名としてファイルコピーしたいのですが、
どうすればいいでしょうか？
テーブルには1フィールド1件のレコードしかないようにしています。

705デフォルトの名無しさん2017/04/22(土) 01:12:38.74ID:qUZ+Jwsq

コードはどこまで書けたのよ？

706デフォルトの名無しさん2017/05/09(火) 21:18:01.19ID:4Eh9wDDp

レポートにクエリを埋め込んだ場合、フィールド幅とかフォントとかって指定はできませんか？

707デフォルトの名無しさん2017/05/09(火) 22:38:58.26ID:ho5latp+

ひどく難しい質問だが ：
　レポートのソースをクエリにしている、という意味なのか
　　　だとするとその一文は無用なのだが

　レポート上のテキストボックスにクエリのSQL文を埋め込み（貼り付け）
　たいんだが、それぞれ文字数が変わるのでそのテキストボックスの
　フィールド幅とかフォントを自在に変えたいのか

下の意味だとしたら　cf.　http://www.newsbit.org/vol16/　幅は変わらないけれども
Verが2010以上なら　cl.　http://mukkumuku.blogspot.jp/2013/02/access-2010-2013-anchor-property-2.html　とか

708デフォルトの名無しさん2017/05/09(火) 22:42:38.49ID:ho5latp+

なんだよ　cl.　って、こっ恥ずかしい　cf.　confer 【参照】の意味で

709デフォルトの名無しさん2017/05/09(火) 23:10:41.56ID:4Eh9wDDp

>>707
残念ながらどっちでもないです。

1枚のレポートの中に複数のクエリの結果を表示させているのだけど、幅サイズ指定どころかフォントすら指定出来なくてこまっているんです。

710デフォルトの名無しさん2017/05/09(火) 23:42:18.10ID:ho5latp+

そのクエリの結果をそれぞれ個別にレポートに仕上げる分には
フィールド幅とかフォントを固定できるものなのか？
一つのクエリでならMaxサイズがそれぞれのフィールドで指定できるものなのかを聞いてるんだが

それができるなら個別にレポートを作って、最終的に一つのレポートにそれぞれをサブレポートとして
埋め込めば可能だろうが、個別のクエリでもフィールドサイズが都度都度変わるものだとしたら
無理気味な気が　　つか、そこまで可変を重要視するならフォームに表示してそっちで印刷・・
現物に当たれないからフォームでの仕様は後日確認してみるけど

711デフォルトの名無しさん2017/05/10(水) 11:27:46.90ID:Cp7+CNi6

Accessのレイアウトは鬼門だよなぁ

712デフォルトの名無しさん2017/05/10(水) 11:34:50.56ID:9XlEtVx1

お手軽だけど細かいことはできないんだよね

713デフォルトの名無しさん2017/05/10(水) 11:37:58.15ID:Cp7+CNi6

AccessからExcelに書き出して印刷まで自動化した方がうまくいくこともある

714デフォルトの名無しさん2017/05/15(月) 05:55:17.74ID:eTrrYCJR

フォームコントロールを自動で
美しく配置するツールを作りました。

需要ありますかね。

もちろんレポートにも対応してます。

715デフォルトの名無しさん2017/05/15(月) 08:45:14.54ID:+qzB37uA

ソースにするクエリを選択します
作成タブのフォームをクリックします
美しいレイアウトのフォームが自動で作成されます

716デフォルトの名無しさん2017/05/15(月) 10:42:35.49ID:UIY4n9Gi

それは
ブサイクなフォームですよ

717デフォルトの名無しさん2017/05/15(月) 23:55:52.20ID:ChfDmfRH

まずは
美しいレイアウトのスクショを見てからだ

718デフォルトの名無しさん2017/05/16(火) 01:19:24.97ID:CV++bHOB

Access2000　Win7

例えば、　田中，安倍，中曽根，福田，小泉， 麻生　という文字列をフォームに順次入力したとき、
直近の5個をプルダウンメニュー化（コンボボックス？）して再入力の手間を省きたいです。

上で言えば、安倍より右なのでプルダウンメニュー化（コンボボックス？）すると

安倍
中曽根
福田
小泉
麻生

となって、中曽根を選んだらそれがフォームに表示（入力）されるという具合です。
VBAではどうすべきでしょうか？　何かヒントはありますか？

職場の都合上Access2000を使っていますが、これ以降のバージョンで可能ならそれも教えて下さい。

7197182017/05/16(火) 01:23:53.47ID:CV++bHOB

（補足）AccessのVBAも可能です

720デフォルトの名無しさん2017/05/16(火) 08:04:15.30ID:VdvmUVsR

私なら
入力した名前をテーブルに追加していき
リストボックスの値集合ソースにそのテーブルを指定して表示させ
Wクリックで入力させたいテキストボックス(?)に転記させます
※コンボじゃなくリストにしたのは好みです

721デフォルトの名無しさん2017/05/16(火) 12:18:30.41ID:14hiXRCy

配列で変数に入れて、
値集合ソースにセットすれば？

722デフォルトの名無しさん2017/05/16(火) 12:19:41.22ID:14hiXRCy

strSQLで。

723デフォルトの名無しさん2017/05/16(火) 12:33:54.26ID:14hiXRCy

まあ、でも次回開いた時に
直近のを表示したいって事なんだろうから
やっぱりテーブルに保持して
それを表示してやる感じかね。

7247182017/05/16(火) 12:53:25.27ID:CV++bHOB

>>720-723
色々有難うございます。
すいません、AccessのVBAのスレで>>719を書いてしまいました。完全にネボケていました

725デフォルトの名無しさん2017/05/16(火) 12:59:39.86ID:Gxqu5M/V

そもそも質問の意味がわからない。
任意のリストをコンボボックスに表示する方法は分かってる?
或いは指定テーブルの指定フィールドをコンボボックスに表示する方法とか。
それが分かれば技術的な問題じゃ無くて頭の問題でしょ。

7267182017/05/16(火) 13:12:32.50ID:CV++bHOB

>>725
職場では検証や練習の時間が取れないので、自宅で練習した上でやりたいのですが
自宅にはAccessが無いので上記のような質問になってしまいました。

727デフォルトの名無しさん2017/05/16(火) 14:13:45.32ID:Gxqu5M/V

>>726
いや、それは分かるけどコンボボックスに何かを表示する方法は分かってるのかという話。
それが分かれば後は頭の体操の話でしょ。

任意のリストでやるなら5個の文字列を連結したものを都度作成すれば良いし、テーブルでやるならUNIQUEにして追加削除すれば良んじゃね。

728デフォルトの名無しさん2017/05/16(火) 22:08:47.69ID:g0o7D5lq

田中，安倍，中曽根，福田，小泉， 麻生　・・・　がどう入力されるかだけど
田中，安倍，中曽根，中曽根，田中，小泉，福田，小泉，安倍， 麻生　・・・
とかだと直近の重複しない名称が都度ドロップダウンリストボックス内で
変化していきそうで、それはそれで入力時に戸惑いそうだが

ドロップダウンリストボックスのソースを重複クエリ（>>722の言うstrSQLでもいいけど）で
セットすればいちばん簡単だけど、直近を抽出するにはレコード番号とか入力日時とか
を基準にして並べ替えする　てことかな

氏名は例だろうけど、現物は何だろ？　面白そう　入力のたびに「あれ？」「ん？」って
声が聞こえて来そうだ（本人が使うんじゃ無ければ）

7297182017/05/16(火) 22:31:51.86ID:CV++bHOB

>>728
現物は顧客リストとパートナー営業さんのリストです

勿論、上記の氏名は例ですが、中曽根さんのデータを呼び出して30分くらい経って
「中曽根さんの○○の項目を更新忘れていたわ」ということが多々あるので、一旦呼び
出した人は履歴から簡単に再呼び出ししたいです。

平たく言うと、WebブラウザのHP履歴みたいなもんです。

730デフォルトの名無しさん2017/05/16(火) 22:59:07.91ID:9DoKORjf

オートコンプリートね。
テンポラリテーブル作るのが
一番簡単かと。

7317182017/05/18(木) 02:38:44.45ID:v5KhOq09

>>730
ありがとう

732デフォルトの名無しさん2017/06/06(火) 14:35:30.83ID:7I4Q1TJn

フォームから入力されたデータってレコードソースで指定しているクエリのテーブルに格納されるって認識あってますか

733デフォルトの名無しさん2017/06/06(火) 14:38:41.23ID:7I4Q1TJn

>>732に追記です
DoCmd.RunCommand acCmdSaveRecordで保存されたデータはレコードソースのテーブルに格納されるでいいでしょうか。
基本的な質問ですみません

734デフォルトの名無しさん2017/06/07(水) 12:39:00.78ID:m3sH3bSc

テキストボックスが連結されていれば入力内容はテーブル（の連結フィールド）に保存されます。

735デフォルトの名無しさん2017/06/07(水) 12:47:43.50ID:bbXeH7ar

>>734
すみません、テキストボックスとは何を指してますか、クエリのソースですか？

736デフォルトの名無しさん2017/06/07(水) 22:15:49.46ID:JlTkUU5d

>>735
フォームに配置するオブジェクトのひとつ。他にコンボボックスとかリストボックス、コマンドボタンなんかがあります。

737デフォルトの名無しさん2017/06/07(水) 22:22:23.86ID:+eS8ypoQ

何やら禅問答の様相を呈しているようだが
その入力フォームのレコードソースがクエリで、対象のテーブルに保存できるか？
という質問なら、DoCmd　・・・なんぞを使わずともレコードが移動した時点で保存される

ソースの無いフォーム上のテキストボックス群（等）に入力して、例えば[保存ボタン]などで
対象のテーブルにデータを保存するような使い方の場合には、その DoCmd ・・・を使って
それぞれ保存したいフィールドに各テキストボックス群（等）のデータを保存する　でよろしいか
テキストボックス、コンボボックス、リストボックス、チェックボックス等々があるから・・群（等）と書いたけど

738デフォルトの名無しさん2017/06/08(木) 12:41:56.61ID:Gl6SA9F6

>>737
はい、フォーム上のテキストボックスに入力されたデータの保存について聞きたいのですが、レコードソースのクエリで複数テーブルが結合している場合、共通のカラムのデータは結合しているすべてのテーブルに保存されますか

739デフォルトの名無しさん2017/06/08(木) 21:37:20.87ID:QO2QuDWb

>>738
すみません、分かりません。
カラムっていうのは何だろ?フォームはデータシートビューなのかな。

740デフォルトの名無しさん2017/06/08(木) 22:12:23.06ID:ymWmjIat

百聞は一見の喩えじゃないが、二日費やしてる間に試しで入れてみれば
100ヶテーブル繋げてても全部入るだろ　あ、Max32だったか しかも結合は16までか
じゃあ16で　　で、へぇ、なるほど、こうなるんだ　って理解に繋がる

741デフォルトの名無しさん2017/06/09(金) 14:32:01.31ID:273W91RO

>>739
カラムは列（項目）です
フォームビューです
本番環境で作業してるため、登録処理ができないので、教えていただきませんでしょうか

742デフォルトの名無しさん2017/06/09(金) 14:33:57.33ID:273W91RO

レコードセットがダイナセットで、レコードソースのクエリが２つ以上のテーブルを結合しているときの登録されるテーブルを教えてほしいです

743デフォルトの名無しさん2017/06/09(金) 19:37:19.10ID:arHWLDZ3

クエリが複数のテーブルからできていても
そのクエリのカラムはどっちのテーブルのカラムか区別されてるぞ

744デフォルトの名無しさん2017/06/09(金) 23:11:20.98ID:LJNVGfcK

>>742
フォームプロパティのレコードソースからクエリのデザインできるウィンドウを開きます。項目フィールドがどのテーブルのものか定義されています。
正確な名称で答えられなくてすみません。布団の中からなので。

745デフォルトの名無しさん2017/06/13(火) 12:35:22.53ID:CYlYHOF+

easyComm使ってrs-232cで測定器つないでデータ取る、みたいなのが得意な人いる?

746デフォルトの名無しさん2017/06/13(火) 15:22:33.36ID:mycfBP+w

いない

747デフォルトの名無しさん2017/06/13(火) 21:12:00.58ID:R7Yl4a9U

いませんか。仕方ない、コリコリ書くかな。

748デフォルトの名無しさん2017/06/16(金) 21:29:11.74ID:YDbGqV+E

出来た!動いた!
測定器の制御とか本当はvisual studioとかで作成するんだろうけど、パソコンの性能がいつの間にか上がっててACCESSでもいけたよ!

749デフォルトの名無しさん2017/06/17(土) 17:55:53.00ID:n14YEU6w

そのうち性能ωが上がってACCESSでBIGデータ扱ったり機械学習したりする時代が来るのか

750デフォルトの名無しさん2017/06/22(木) 11:21:35.79ID:1rSOLJ2h

すごい基本的な質問ですみません
accessのSQLの言語って何ですかね
MYSQLとかですか

751デフォルトの名無しさん2017/06/22(木) 15:04:17.20ID:+TFSs5XU

SQLが言語だよ
すとらくちゃーどくえりーらんげーじ
だったかな

752デフォルトの名無しさん2017/06/22(木) 15:25:40.99ID:9kjviait

質問の意味も意図もよくわからんね。
access以外のシステムからSQL文をコピペしたいってことなのか!?

753デフォルトの名無しさん2017/06/22(木) 15:27:59.87ID:T7aSUWBW

>>750
MYSQLもSQL。
仕様があって、それに沿って各社実装してる。
が、独自部分も多いから同じSQLだからといって何処でも動くとは言えない。

754デフォルトの名無しさん2017/06/22(木) 15:43:16.41ID:1rSOLJ2h

>>753
SQL言語もポスグレだったりPLSQLだったりあるじゃないですかそれで言うと何になるのか聞きたいんですけど

755デフォルトの名無しさん2017/06/22(木) 15:44:58.51ID:1rSOLJ2h

勘違いしてたらすみません
SQLとMYSQLの関係ってCとC♯の関係ですか

756デフォルトの名無しさん2017/06/22(木) 15:45:47.90ID:1rSOLJ2h

>>752
コピペでそんなこと気にする必要ありませんよね
気になったから質問したまでです

757デフォルトの名無しさん2017/06/22(木) 15:53:28.78ID:wdLd6PlL

SQLとMYSQLの関係は他人のSQLと自分のSQLの関係です
昔、金井克子という人が歌ってました

758デフォルトの名無しさん2017/06/22(木) 16:58:01.05ID:zFId4oiO

SQLというのはそれが言語
（たまにSQL言語以外の事をSQLと言っている場合もある）

ポスグレやMYSQLやACCESSはそのSQL言語を使う環境（の一部）
環境によりSQLに多少の差はある

ポスグレはSQL言語じゃない
PL/SQLはSQLを拡張した言語
ACCESSならSQLを超える範囲の言語はVBA

759デフォルトの名無しさん2017/06/22(木) 17:53:43.99ID:1rSOLJ2h

>>758
よくわかりました、ありがとうございます

760デフォルトの名無しさん2017/06/22(木) 21:11:47.56ID:f/XKrCgm

>>756
他のSQLの構文をそのままコピペしてAccessで使うのは
うまくいかないこともある　ことを気遣ってくれたんじゃね？
そんな言い捨てるようなレスはいけないと思いますよ

761デフォルトの名無しさん2017/06/22(木) 21:17:42.32ID:t4uJuvar

>>760
なるほど
>>752失礼しました

762デフォルトの名無しさん2017/06/22(木) 23:45:58.46ID:Ddgcj+Nb

>>761
素直な態度の人は成長するらしいですね。
良い事良い事。

763デフォルトの名無しさん2017/06/30(金) 23:17:34.97ID:8BMFafeA

何でも良い、誰でも良いから質問すれ。

764デフォルトの名無しさん2017/07/03(月) 12:15:52.25ID:HFvRoHNk

変数の宣言を強制するにチェック入れたのに
Option Explicit
が出てこないのですが
どうしたら出て来ますか？

765デフォルトの名無しさん2017/07/03(月) 12:56:00.26ID:hBIZ2owM

既存のコードには入らないよ
新規で作成するオブジェクトには入る

766デフォルトの名無しさん2017/07/04(火) 16:03:28.67ID:ce7knrBK

Accessの神々よ、御教えを！

Accessでは、CHECK 句が使えないようですが、
カラム数が多いため、
いちいちプロパティから入力規則を設定するのは骨が折れます。

SQL で一括設定する方法をご伝授くださいませ〜

767デフォルトの名無しさん2017/07/04(火) 22:10:20.82ID:WoXW+1QF

えー、クエリ作ってからSQL表示してコピペ。
そんな事聞いてないよね。

768デフォルトの名無しさん2017/07/05(水) 02:09:17.79ID:EckUEWaI

>>765
なるほどさんくす

769デフォルトの名無しさん2017/07/05(水) 10:03:04.42ID:Qpg00Afa

view

770デフォルトの名無しさん2017/07/05(水) 17:39:45.65ID:XEX8l1it

win7x64-office2016x86環境下のみで再現するらしい
xls出力からコペピ張り付け罫線操作等々やってる処理で張り付したシートがズレル不具合発生
ネット調べても一切情報でてこなくて期待込めてofficeアプデしたら実行時エラー1401
空白でないセルが云々カンヌん泣きたい

771デフォルトの名無しさん2017/07/20(木) 13:40:54.23ID:AoFZnXDG

自己レス
office365BPの2016でのみ再現
別シートの複数列コピー選択状態でAAセレクトインサートやろうとするとコピーペになる
セレクト前に空白セル1コピーで回避

772デフォルトの名無しさん2017/07/21(金) 16:32:01.78ID:28Rvh+yS

クエリを実行したときに全件レコードを取得できてないのに検索結果画面が開くときってない？
▷｜←このボタン押すと検索結果の件数が出てくるんだけど、押してから出るまでに時間がかかるってことは全件レコード取得できてないってことだよね

773デフォルトの名無しさん2017/07/21(金) 16:32:40.55ID:28Rvh+yS

この現象を何なのか教えてほしい

774デフォルトの名無しさん2017/07/21(金) 17:16:56.11ID:PYWMukgm

表示した後でも数字が勝手に増えるってこと？

775デフォルトの名無しさん2017/07/21(金) 17:49:46.53ID:28Rvh+yS

>>774
いや、クエリのSQLをorderby句を書かなかったとき、全件検索する前に検索結果画面が開く

776デフォルトの名無しさん2017/07/21(金) 17:55:49.86ID:28Rvh+yS

�@orderby書いてクエリを実行する→1/2500みたいに結果件数がでる
�Aorderby書かないでクエリを実行する→1　結果件数が上記と違いでない
▷｜このボタンおすと上記と同じように1/2500となる

�@の実行時間10秒
�Aの実行時間1秒　ただし▷｜ボタン押すと10秒くらいかかる

777デフォルトの名無しさん2017/07/21(金) 21:47:28.80ID:GPYD2Qke

なんかオプションに無かったかな。最初の表示するぶんだけ読み込んでとりあえず見せておいて裏で続きを読むって機能をオンに、みたいな。

778デフォルトの名無しさん2017/07/24(月) 04:02:58.29ID:UL92A3MD

>>777
あれば教えてほしいですね

779デフォルトの名無しさん2017/07/24(月) 15:06:22.21ID:BdqEvISL

あった気がする

780デフォルトの名無しさん2017/07/25(火) 22:56:57.38ID:EiidKUEl

会社テーブル
id　　会社名　　・・・
1.　　A社
2.　　B社
3.　　C社
4.　　B社

職員テーブル
name　　会社id　　・・・
山田.　　1
鈴木.　　1
飯田.　　2
野口.　　3
岡本.　　4

一対多のリレーションがありまして
会社マスターにダブり登録されている場合(この場合B社）
楽に修正する方法はないでしょうか

250社くらいダブリやトリプルしていて困っております

781デフォルトの名無しさん2017/07/26(水) 07:07:59.14ID:wP3Z6w42

名寄せマスター
名寄せＩＤ　会社ID　新会社ID
1　　　　　　2　　　　　2
1　　　　　　4　　　　　2

名寄せマスターと職員テーブルをJOINしてUPDATE
というのはどうですか？

782デフォルトの名無しさん2017/07/26(水) 07:12:28.72ID:XR9PfPcp

その会社マスターがおかしいのを放置するのか修正するのかで違ってくるよね

783デフォルトの名無しさん2017/07/26(水) 16:42:27.76ID:Pvb1ow9Q

合併したんかね

784デフォルトの名無しさん2017/07/27(木) 20:31:02.25ID:6NlFfxVd

>>781
なるほど
重複クエリに各会社の最小IDを連結して名寄せテーブルを作成し
JOINしてUPDATEしました

名寄せテーブルを作成しないでクエリだけでUPDATEまでもっていくのは
この場合駄目なんですね　はじめ理解できず悩みました

>>784
JOINしたAccessのデータをExcelに吐き出し各職場に配布、各々で修正追加。
一年以上たって回収しAccessに貼り付けられて今の状態です。
正確には職員テーブルじゃなくて顧客テーブルですね

785デフォルトの名無しさん2017/07/27(木) 20:40:42.96ID:DKmshiqQ

なあんだ、Excelの段階で調整しちゃえば余計な苦労しなくて済んだのに

786デフォルトの名無しさん2017/08/01(火) 21:53:22.72ID:FQn2qD+M

初心者なんで教えて欲しいんだけど、フォームの次へボタン押した時に次のレコードが
表示されないのだがどうしたらいいか教えて欲しい。バージョンは2013
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("名簿テーブル",dbOpenTable)
Me!名前テキスト = rs!名前
Me!カナテキスト = rs!よみがな
End Sub
Private Sub 次へボタン_Click()
DoCmd.GoToRecord , , acNext
End Sub

787デフォルトの名無しさん2017/08/01(火) 22:21:37.22ID:16hy4odR

フォームのソースが名簿テーブルならフォーム読み込み時の名前とよみがなセットするコードは無くても先頭レコードが表示される。
フォームのソースを確認しましょう。
非連結フォームならボタン押した時に次のレコードを読み込んで名前とよみがなセットするコードが必要だけど、キーが不明なので何ともアドバイスできません。
長々と書いたがわかりにくいね、すまん。

788デフォルトの名無しさん2017/08/02(水) 22:57:21.98ID:GleVclNw

>>787
ありがと

789デフォルトの名無しさん2017/08/28(月) 11:23:53.36ID:XLKoN0Ik

神さま教えてください。

ADODB.Commandでのインサートが失敗しても
エラーが出ないのですが、エラーハンドリングの
方法を教えてください。

よろしくお願いします。

790デフォルトの名無しさん2017/08/28(月) 21:14:51.01ID:6Oo2q0tu

on error

791デフォルトの名無しさん2017/08/29(火) 08:37:26.00ID:SOL0jppX

むしろonerrorしかないと思うが、他にやり方あんの？

792デフォルトの名無しさん2017/08/29(火) 09:14:08.50ID:WIE1SoZ9

レスありがとうございます。
ON ERROR は当然やってまして
その上での質問です。

793デフォルトの名無しさん2017/08/29(火) 21:25:59.80ID:BqQa7G9t

失敗ってなんだ。
戻り値を取ればAffectedRowsになってるだろうから
それで判断するか追加されたはずの行数をあらためSELECTするとか

794デフォルトの名無しさん2017/11/15(水) 11:14:08.03ID:PQCfnSyv

>>786
そのコードはFormがLoadされた時に名簿テーブルを開いてRecordsetに格納し、名前とカナをテキストボックスに入れるというものと次へボタンを押した時にFormがLoadされた時の処理とは全く関係なく次のレコ−ドに移動するもの。

ところで次へボタンでの次のレコ−ドってのは何のデ−タなんだい?
改めて言うけどFormがLoadされた時の処理なんて知らないからとAccess君は言っている。

要は、DoCmd.GotoRecordってのはデータとオブジェクトが連結されていることが想定されていて、連結されているから既にオブジェクトにレコードが表示されているわけだが、それに対して次のレコ−ドと言ってる。

一方、FormのLoad時の処理は連結関係無くデ−タを自ら取ってくるもの。
こちらのやり方を取るならRecordsetをPublic変数にするかForm内でのPrivate変数として保持しておき、他のイベント(次へボタンクリックのような)で使いまわすというやり方になる。

795デフォルトの名無しさん2017/11/22(水) 10:10:39.42ID:as8vu/t7

整数型､重複なしの列を書き換えるときはどうしてますか？たとえば､
2 1
3 → 2
1 3
にしたいときに2→1の時点でエラーが出ると思うので回避策を検討しています。
一時的に重複なしを解除して､終了時点で重複なしへ戻す方法や､一旦一時的に重複しない数字に書き換えて､それから再度書き換えるべきか悩んでいます。
なにか一般的な方法はございますか？

796デフォルトの名無しさん2017/11/22(水) 10:11:55.37ID:as8vu/t7

あれ､スペースがおかしくなっている。
列を書き直すときにたとえば
2→1
3→2
1→3
としたいのです。具体的にはidを振り直す作業です。

797デフォルトの名無しさん2017/11/22(水) 12:23:57.98ID:TDbCG25M

レンジのソートでよくね？
もしくはフィルタ付けて並び替えてからフィルタ解除とか

798デフォルトの名無しさん2017/11/22(水) 12:27:01.49ID:taN4cymO

idには触らないで、整数型のフィールドを追加します。そのフィールドでやりたい放題やります。

799あ2017/11/22(水) 12:46:48.77ID:MjBhGus4

どうしてもやりたけりゃ、swapしていきゃいいんじゃないの？
最初は2→1にしたいから、
1 3 2に。
次は3を2にして
1 2 3
に。
入れ替え自体は、UPDATE xxx SET unique = CASE WNEN unique=1 THEN 2 WHEN unique=2 THEN 1 ELSE unique END
でCASEで書いちゃえば入れ替えられる。
1クエリ内で完結したら、制約はかからない。

800デフォルトの名無しさん2017/11/22(水) 13:21:54.54ID:as8vu/t7

>>797
済みません。AccessにもRangeというのがあるのですか？あと､フィルターの使い方も御教示をお願い致します。
>>798
それが､当該idを参照しているテーブルが20個以上あるので､別のコラムという訳にはいかないのです。
参照先を変更するとなるとクエリやらVBAのコードやらを書き換えないといけないので大変だと思います。
>>799
バブルソートみたいなものですね。レコード数が3万ありますので､何となく時間がかかりそうな気がしますが､試してみます。

今はソート後にDMax+iのループで重複しないidへ書き換えて､書き換えが終わってからDMaxを引くという2段階の作業をしています。
(参照元のidも2段階の書き換えをしています。))
我ながらドン臭いやり方だと思うので､もう少しスマートな方法があれば御教示をお願いいたします。

801デフォルトの名無しさん2017/11/22(水) 15:00:03.20ID:t4MJ2LxN

その列自体を書き換えちゃうの?
じゃあ、今入ってる値は必要無いってこと?
だったら削除して連番振り直したら?

802デフォルトの名無しさん2017/11/22(水) 15:02:12.97ID:TZAtmSaI

今の時代なにが楽しくてAccessなんてやるんだ

803デフォルトの名無しさん2017/11/22(水) 15:50:01.09ID:as8vu/t7

>>801
idだから主キーです。Nullは不可だと思います。

804あ2017/11/22(水) 16:48:33.62ID:QspO8Ati

>>800
もう組み合わせがわかってて、ほんとに単発で1回きりなら、
エクセルで対比表作って、CASEの列とWHENの列足してコピペでクエリ作っても良いけど、全く健全な保守ではない。
2　1
3　2
1　3
に列追加してオートフィルで

WHEN unique=　2　then　1
WHEN unique=　3　then　2
WHEN unique=　1　then　3
ってして、
unique= CASE
と
ELSE UNIQUE endで挟んで、コピペでテキストエディタに貼り付けて、テキストエディタからコピペでAccessに貼り付けるやつ。

しょっちゅうやるならテーブル見直そう。

805デフォルトの名無しさん2017/11/22(水) 16:57:08.62ID:QHiNhW2y

>>803
方法はいくらでもあると思うけど。
Field追加して連番を振って、追加したFieldを主キーに変更して元の主キーのFieldを削除するとか。
試してないからできるか分からんけど。

そんなことせずに振りなおすならOrderByでId順にして小さい値から振りなおしたら?

806デフォルトの名無しさん2017/11/22(水) 16:59:54.83ID:QHiNhW2y

ただ、主キーを振りなおす意味が分からない。
そういうもんじゃ無いと思うし、テーブルの連結によっては滅茶苦茶になるのは分かってるよね。

807あ2017/11/22(水) 17:57:43.64ID:QspO8Ati

主キー振り直すのは、やむを得ずやるのはそのアプリのライフタイムに何発かあると思う。
業務系だと、「スキーマ変えるな」「デカいトランザクションはるな」「一時テーブルすら作るな」とか無茶苦茶言いよることもある。
でも、しょっちゅうやるならホントに設計考えたほうが良い。

808デフォルトの名無しさん2017/11/22(水) 18:29:23.78ID:2YVJuPMl

別に列作ってそっち主キーにすれば？

809デフォルトの名無しさん2017/11/22(水) 23:10:16.27ID:as8vu/t7

>>805
>>そんなことせずに振りなおすならOrderByでId順にして小さい値から振りなおしたら?
そんなことが出来るのですか？DAOもADOも1行ずつしかupdate出来ないから､重複データーが発生してしまって出来ないのですが…
>>806
ワークテーブルまで含めて数えなおしたら､35個のテーブルで件のidを使用していました。なので35個のテーブルに対して変更を行わないといけませんね。

810デフォルトの名無しさん2017/11/22(水) 23:11:54.97ID:as8vu/t7

>>808
それで解決するなら簡単ですね。やってみたいですね。
元の列の属性がすべて引き継がれるならいいですね。試してみます。

811デフォルトの名無しさん2017/11/23(木) 09:57:12.17ID:wkO+ZdSN

主キーの役割はレコードをユニークにすることだろ
並べ替えが必要ならそのための項目を別に用意するわ

作業量を問題にしてるけど
無茶な運用は後に響くよ
分かり易さを優先すべきだと思うわ

812デフォルトの名無しさん2017/11/24(金) 12:10:31.02ID:fRZqdK5G

主キーを解除して､重複可にして連番を書き込みました。その後に元に戻しました。変更前後の番号を配列に書き込んでおいて､その配列の値から関連するテーブル全部において置換作業を行うことにしました。
idが2万5000レコード､関連するテーブルのレコードが全部で100万近いのですが､2万5000の置換を100万レコードに対して行うので時間がかかりそうな気がしています。どのくらい時間がかかるのか計算する方法がありますかね？

813デフォルトの名無しさん2017/11/24(金) 12:21:50.25ID:Q2HEJk5l

accessにSQLコストを計算する機能はないよ

814デフォルトの名無しさん2017/11/24(金) 19:17:11.31ID:fRZqdK5G

主キーの削除をVBAでやろうとしているんだけど､メソッドが見つからない。SQLでやるしかないのかな？
下を読むとdeleteメソッドはダメみたいだし。
https://msdn.microsoft.com/ja-jp/library/office/ff197351.aspx
>>Deleteメソッドは、インデックスオブジェクトが新しいと、データベースに追加されていない場合にのみサポートします。

815デフォルトの名無しさん2017/11/25(土) 10:30:03.03ID:eU9hnSW+

無理矢理面倒臭い事をしているようにしか思えない
まぁ人の話を聞く気が無いみたいだし
好きに調べてやればええよ

816デフォルトの名無しさん2017/11/27(月) 17:21:43.17ID:twASlFZz

SQLであっさり出来たわ。後は置換をどうするかだな。関連するテーブル全部を置換できればすべて解決するけど､何を使うかだな。
SQLは遅いんだっけ？レコードセットでループ回す方が速いと読んだ気がする。

817デフォルトの名無しさん2017/11/27(月) 22:26:05.40ID:HF1f2kGW

>>816
普通に考えればSQLの方が速いに決まってると思ってたが。
遅いとしたらその文書いた奴が悪いという印象。

ま、DB系については大したレベルにないから俺が間違ってるかも。

818デフォルトの名無しさん2017/11/28(火) 05:38:20.27ID:GeGdCCsE

業務用ソフトのテーブルを眺めていたら､テキスト型のフィールドがあって､256桁の数字が羅列してあった
様々な設定を指定された桁に格納しているようですが､このようなデーター保存方法は一般的なんでしょうか？
他の言語でもあるのでしょうか？

819デフォルトの名無しさん2017/11/28(火) 05:58:01.76ID:Brt1t867

>>818
あるんじゃないの?としか。どんなテーブルとか、フィールドの名前とか、なんかヒントはないですか？ 様々な設定も謎が深まるだけですね。

820デフォルトの名無しさん2017/11/28(火) 09:43:49.19ID:GeGdCCsE

たとえばあるフォームAのオプションボタンの値を98桁に書き込む､フォームBのチェックボックスの値は例えばCstr(Abs(True)))でstringへ変換して105桁に書き込むとかそんな感じです。
合理的な気もするのですが､こういう方法は検索しても見つからないので一般的なのか､特殊なアイデアなのか知りたくなりまして。

821デフォルトの名無しさん2017/11/28(火) 11:59:57.14ID:vHFzkUKA

すくなくともRDBを使う上ではやるなって言われてるやり方

固定長ファイルにデータ保存してるようなシステムなら結構あったけどね

822デフォルトの名無しさん2017/11/28(火) 16:08:53.51ID:GeGdCCsE

>>821
そうなんですか。面白そうな話しなので調べてみようと思います。その手法はどういう名称なんですか？もしくは検索ワードを御教示頂けましたら幸いです。

823あ2017/11/28(火) 18:29:06.23ID:i1R8M5pm

RPG区分列とかじゃないの？古い呼び方だけど。
酷すぎてだれも触りたくないやつ。
RDBに移すような事があったら、末期には照合順序をbinaryにするしか無くなったりすごく苦しむから辞めた方がいい。
メリットらしいメリット無い。LIKEで雑に'[A-C]__1_2'みたいにSELECTできることぐらい。

824デフォルトの名無しさん2017/11/28(火) 18:44:14.15ID:GeGdCCsE

残念ながら､ググっても何もヒットしません。
なにかヒントをお願い出来ますか？

825デフォルトの名無しさん2017/12/01(金) 16:18:17.01ID:xc+Vk5Dr

RPGとRDBで検索したら関係ありそうなのがいくつかヒットしたけど。

検索能力は俺の方が上みたいだな。

826デフォルトの名無しさん2017/12/02(土) 14:50:26.76ID:EvURnJTn

固定長ファイルでぐぐったら、先頭に固定長データファイルとはっていうサイトがでたけど
なにでどうググったんだか

827デフォルトの名無しさん2017/12/04(月) 10:19:55.17ID:eu/J6Nzp

皆様､御指導､御鞭撻ありがとうございます。
COBOLでよく使う手法だったんですね。
件のmdbはコボラーが設計したんですかね。

828デフォルトの名無しさん2017/12/04(月) 23:04:21.85ID:HIES1UEg

言語の問題じゃ無いと思うが

829デフォルトの名無しさん2017/12/05(火) 01:17:27.21ID:jk/z017d

そうなんですか。accessの本には全く載っていないでのすが､RDBMSの世界ではごく一般的な手法なんですか

830デフォルトの名無しさん2017/12/05(火) 13:50:48.83ID:JFWc1rHJ

ISAM

831デフォルトの名無しさん2017/12/05(火) 14:44:30.03ID:LtpZx+mu

>>829
>>821

832デフォルトの名無しさん2017/12/05(火) 16:01:26.32ID:jk/z017d

言語の問題ではない
しかしRDBMSではやってはいけない
よくわからないけど昔のデーターベースの本を読んでみますわ
暇つぶしにちょうどいいわ

833デフォルトの名無しさん2017/12/05(火) 17:17:16.01ID:Jckjy/ZT

自分たちが使うデータをどういった構造で保持するかは各自で考えて構わない
ただRDBに入れるのであれば、やってはいけなくもないけど、おすすめはしない、という話では？
RDBならテーブル・フィールド分けてデータもコードも見やすくできるのに、そうしないのはもったいないというかなんというか

834デフォルトの名無しさん2017/12/05(火) 19:05:27.76ID:IwqbiEq4

結局何の解答にもなってないw

835名無し2017/12/06(水) 08:23:07.59ID:qK37T0GP

データベースの列が増やせない何かがあった。
開発者の気まぐれ。手抜き。
従来の固定長ファイルと1:1の情報を保持したかった。
とかね。。。
こっちの業界じゃ拡張DM形式なんて固定長ファイルが普通にやり取りされてて、桁数制限とかが厳しいけど、容量の割に情報量が多いし古いソフトの互換性があるとかで100年以上生きると思うわ。
でも固定長ファイルの文字列をmdbに格納するのは正気とは思えない。データベースのメリット全部殺してるじゃん

836デフォルトの名無しさん2017/12/06(水) 08:50:38.97ID:3RgxoH/J

固定長レコードw化石乙ww

837デフォルトの名無しさん2017/12/06(水) 09:56:13.57ID:+yD4mhv+

郵便とのやり取りは今でも固定長フィールド使てんじゃね
さすがに今はないか、フロッピーとか

838デフォルトの名無しさん2017/12/06(水) 11:12:29.56ID:dYt4FwS2

未だに固定長を扱う事はありますが、設計済みDBに展開して処理していますよ

839デフォルトの名無しさん2017/12/07(木) 05:51:08.35ID:opi4zWAm

固定長のEDI、増えたりしないだろうけどいつまでも残るんだろなあ。csvやtsvをメール添付で良いのにって思う。

840デフォルトの名無しさん2017/12/07(木) 12:12:58.82ID:NfkoL/Di

固定長の方がパースが軽いからなぁ
あといつまでもなくならないレガシな環境とかな
処理系そのものは変更されてもＩＯ部分の仕様変更はなかなかやらない

841デフォルトの名無しさん2017/12/07(木) 12:15:15.31ID:YN66KLnO

今どき固定長レコードなんて使ってるのに前向きな理由なんて無いよ

842名無し2017/12/07(木) 17:45:46.41ID:d4TqII+f

>>839
同じ拡張子なのに何十種類もバリエーションのある欠陥フォーマットを使うのはやめてくれ

843デフォルトの名無しさん2018/02/05(月) 10:45:37.49ID:e967XxUr

アクセス始めて触る初心者です。
テキストボックスが複数含まれたワードファイルが5000個ぐらいあります
各テキストボックスからいろんな項目を取得するとして、1ファイルあたり３０項目ぐらい
つまり5000個のファイル*３０項目＝15,000項目
これをアクセスで処理していこうと思ってるんですが、アクセスはこの程度さくさく処理できるものでしょうか
目的は、ワードファイルが多すぎて邪魔なんで全部削除したい。必要に応じて元のファイルと同じものを再現できるようにするため、必要な情報をアクセスのデータベースに保存しておくことです
必要なファイルを再現できるように検索機能と再現機能をもったVBAマクロを組むつもりです
最初エクセルでやろうとも思ったのですが、さすがに万単位で今後も増える可能性が高いため
アクセスかな？と思ったのですが、どうでしょう

844デフォルトの名無しさん2018/02/05(月) 13:37:19.07ID:KJpDTktT

>>843
初めて触る様な状態なら無理だから、諦めた方がいいですよ

845デフォルトの名無しさん2018/02/05(月) 13:53:17.30ID:e967XxUr

>>844
アクセスは初めてだけどエクセルVBAはそこそこ経験あります
エクセルVBAでなら自分で組める範疇ですね

すでにアクセスで途中までマクロは組んであります
同一フォルダ内にテスト用に作成してあるワードファイルを順次開いてすべてのテキストボックスの値、位置関連の数値を
Debug.Printで出力後、ワードファイルを閉じる
ここまでうまくいってるんであとはアクセスの基本機能理解すればそう困難ではないでしょう
ざっとみたところ、この用途で使う限りではそう複雑なものでもないようですし。

質問の内容はアクセスでやる利益があるかどうかという点ですね
まぁ組めばわかるんですけどね

846デフォルトの名無しさん2018/02/05(月) 20:59:27.31ID:+YlQ+DNK

>>845
エクセルのテーブルに格納したらアクセスにインポートするのが良いんじゃない？
エクセルのままでも良いと思うけど、

847デフォルトの名無しさん2018/02/06(火) 08:18:15.16ID:YHjH5DQb

>>846
それいいですね
やってみます

848デフォルトの名無しさん2018/02/06(火) 14:52:40.80ID:Y79w2nNG

貴乃花親方にしろ有賀さつきにしろ
やはり「語らない」ことが年末から今年にかけてのポイントだな
逆に語っている方が何かと物議を醸しているし

849デフォルトの名無しさん2018/02/06(火) 14:53:16.21ID:Y79w2nNG

ミスった
すまん

850デフォルトの名無しさん2018/02/07(水) 11:19:44.29ID:mhmm9auu

医療過誤？

851デフォルトの名無しさん2018/04/14(土) 12:06:32.62ID:bV7+SAsd

すみません質問させてください。

Private Sub Form_Load()
　　Me.TimerInterval = 1000
End Sub

Sub Form_Timer()
　　Static intShowPicture As Integer
　　If intShowPicture Then
　　　　Me.btnPicture.Picture = "C:\taiyo.jpg"
　　Else
　　　　Me!btnPicture.Picture = ""
　　End If
　　intShowPicture = Not intShowPicture
End Sub

このコードは何をしているのでしょうか？
ご回答よろしくお願いします。

852デフォルトの名無しさん2018/04/14(土) 12:24:03.37ID:2RkkR2xg

一秒毎に画像を出したり引っ込めたり

8538532018/04/14(土) 12:53:27.07ID:bV7+SAsd

ご回答ありがとう御座います。
イメージはなんとなく掴めたのですが、
この場合のintShowPictureには何が格納されているのでしょうか？
もしくはBoolean型なのでしょうか？

854デフォルトの名無しさん2018/04/14(土) 16:08:38.27ID:1T8oabCl

Static intShowPicture As Boolean
にして試してみろよ

855デフォルトの名無しさん2018/04/14(土) 19:25:20.18ID:cGW/rI9o

VBAには暗黙の変換ってのがあるから
IntegerをBooleanに暗黙的に変換して評価してる

まあ、あまり良いコードじゃないな

856851,8532018/04/14(土) 21:39:02.03ID:criYFAGW

>>852さん
試しに、フォームと画像を用意して作ったら、点滅しました！
>>854さん
この文でも点滅しました！
>>855さん
Falseが0でTrueが-1なのですね！

ご回答ありがとうございました。
解決しました！

857デフォルトの名無しさん2018/04/15(日) 10:38:49.74ID:E1b18XLI

>Falseが0でTrueが-1なのですね！

そうだっけ？

858デフォルトの名無しさん2018/04/15(日) 12:40:33.57ID:VXOW+WoG

Access で画像を点滅する？

そんなの普通は、JavaScript, jQuery とかだろ

859デフォルトの名無しさん2018/04/15(日) 22:05:01.30ID:4uH7KTiu

ここは Access の質問スレですよ

860デフォルトの名無しさん2018/04/21(土) 00:22:50.08ID:IpoNn3EX

10万件以上の大量レコードを追加するインサート処理をクエリを作成してDocmd.OpenQueryでやっているが時間が1分以上かかる
この処理をモジュールにADO、もしくはDAOでインサート処理を記述したら、Docmd.OpenQueryより早くなるかな？

861デフォルトの名無しさん2018/04/21(土) 12:05:09.74ID:M/Q9a6+d

VBAで書くと数倍遅くなるんじゃね？
Cからなら速いかも知れん

862デフォルトの名無しさん2018/04/21(土) 14:39:22.47ID:JSWmVJf3

たぶんクエリのほうが遥かに速い

863デフォルトの名無しさん2018/04/21(土) 16:21:47.73ID:Zke6MJB8

OpenQueryをCから実行

864デフォルトの名無しさん2018/04/21(土) 17:48:56.41ID:e0mRRnZY

BULK INSERT は？

そもそも、INSERT文は速くならない！

865デフォルトの名無しさん2018/04/22(日) 14:54:13.01ID:QBM3hGX3

10万が大量かどうかという問題も有るがRecordset + AddNewの方が速いと聞いたし、実際俺が組んだ場合も明らかに早いんだが。

状況にもよるかもしれんけど。

866デフォルトの名無しさん2018/04/23(月) 02:01:29.71ID:zWK+uIrS

そもそもOpenQueryでどんなクエリ流してインサートしてるかわからんのに比較にならんわ

867デフォルトの名無しさん2018/04/23(月) 02:08:10.01ID:zWK+uIrS

>>865
例えば単純な追加クエリや、INSERT SELECTするSQL発行するより
1件ずつAddNewして（どこかから値持ってきて）１カラムずつ値セットするほうが早いっての？
どこで聞いた話だそれ？

868デフォルトの名無しさん2018/04/23(月) 09:13:20.51ID:/uUuSWda

やってみてから言ってくれ。
俺の場合は実際早かった。

俺の場合は1カラムずつじゃなくてフィ―ルド名の配列と値の配列でAddNewだけど、たぶん1カラムずつセットしてUpdateでも早いんじゃないかな。

869デフォルトの名無しさん2018/04/23(月) 09:41:02.27ID:Yo1LL5su

そんなあほな

870デフォルトの名無しさん2018/04/23(月) 15:45:02.07ID:YMq7Ch8w

SQLでもINSERT一回じゃなくて1行のINSERTを何度も繰り返したら遅くなるからな
それと比べるなよ

871デフォルトの名無しさん2018/04/23(月) 17:22:09.14ID:zWK+uIrS

>>868
やってみるから、フィールド数、フィールド長とレコード数教えれ
あと配列のデータどう用意するのかと、比較するクエリの元データどうすのかも

とうぜんACCESSと対象ＤＢエンジンとADOかDAOのバージョンも明示してくれよ

で、ループまわして１レコードずつ.AddNewして.Updateするんだな


これでほんとにVBAが速いならちょっとACCESS使うの考えるわ

872デフォルトの名無しさん2018/04/25(水) 22:44:48.30ID:dGu0vJMQ

>>870
そんな低レベルの話はしとらん。

>>871
たぶんフィールドは40~50ぐらいじゃね?
レコードは200万ぐらい。
リモートでOracleに接続してる。
JOINで20個位のテーブル繋げてるな。
ADO使ってる。

パススルーのSELECTクエリ+INSERTじゃ永遠に終わらない感じが20分程度で取得出来るようになった。

「access insert addnew 速度」でクグってみればけっこうAddNewの方が早い話が見つかるぞ。

873デフォルトの名無しさん2018/04/26(木) 20:39:25.51ID:/vLmdzNr

だからどこからどうやって元データ取ってきてるんだと
リンクテーブルやリモートＤＢでADOの方が早いとかなら別に驚くに値せんけどな

というかお前らOpenQueryってレコード数分実行する前提で話してたのか？

874デフォルトの名無しさん2018/04/27(金) 17:07:36.05ID:ash3pEtl

パススルーωとか使っちゃいけないTOP3じゃないか
素直にリンクテーブルにすれば良いのに

875デフォルトの名無しさん2018/04/27(金) 23:22:48.36ID:jiI6PjPI

パススルーって駄目なの?
リンクテーブルは話にならないくらい遅くてパススルーのが全然早かったんだが。

876デフォルトの名無しさん2018/04/28(土) 15:07:07.82ID:6AYZ4JmZ

ケースバイケース
たいていの場合、リンクテーブルに対する操作よりはSQL飛ばすほうが早いとは思うけどな
パススルーが使っちゃいけないTOP3とか初めて聞いたわ

877デフォルトの名無しさん2018/05/09(水) 09:34:09.66ID:OAputzVD

keydownイベントからのキー取得ではなくて、
OnKeyDownイベントからキーを取得する方法がわかりません。
Me("テキストボックス"& i).OnKeyDown = "=get_Key(" & this? & ")"
ご教授お願いします。

878>>8772018/05/09(水) 17:09:04.61ID:OAputzVD

レスが付かないので別の掲示板に移動します。

879デフォルトの名無しさん2018/05/11(金) 06:01:03.99ID:sj29e99C

>>877
OnKeyDownイベントを知らなくてすまん。

880デフォルトの名無しさん2018/05/11(金) 09:03:43.55ID:hWQk+urq

Excel で JavaScript も扱える様になるらしいね

881デフォルトの名無しさん2018/05/16(水) 14:07:17.01ID:aP5Z4SKQ

業務用mdbのコードを見てて気づいたんだけど､戻り値を使わないのに､functionを作成しているのが非常に多い。
どんなメリット､デメリットがあるのですか？戻り値用の変数を用意するから速度が低下するのが問題なんですか？

英語の本には
>>Many programmers think that they must return something, even if they have to make some artificial return code or status. This practice can make your code harder for others to understand.
て書いてあってヤメレって書いてあるのになんでやりまくるのですかね？

882デフォルトの名無しさん2018/05/16(水) 14:57:23.49ID:Ml4MG34X

subの代わりにしてんじゃないの

883デフォルトの名無しさん2018/05/16(水) 18:06:12.59ID:xULU+qSI

>>881
しまった戻り値無いfunction俺も作ってた
動くから別にいいやって感じだった

884デフォルトの名無しさん2018/05/16(水) 19:24:53.85ID:DzLb+Dky

業務でプログラム組むような場合は、コーディングスタイルが指定されてる事が多いんだよ

正確には戻り値のないFunctiionじゃなくて、戻り値を無視してるだけだけどな

885デフォルトの名無しさん2018/05/16(水) 20:47:56.46ID:xULU+qSI

functionとsubはcallが要るかどうかの違いだと思ってた。

886デフォルトの名無しさん2018/05/16(水) 23:07:53.34ID:aP5Z4SKQ

可読性が低下する以外のデメリットは無いんでしょうかね？
個人的には出番のない変数は目障りなんですけどね。

887デフォルトの名無しさん2018/05/17(木) 00:12:37.33ID:e2hshpiX

呼び出しネストの限界がFunctionのほうが浅いってデメリットがあるはず
呼び出しに必要なスタック領域が違うから
昔だれかが実測してたな。まあ再帰でよっぽどのことやらんと問題ないんじゃね

SubをFunctionにして可読性が落ちるとか、それ関数の命名に問題がある気がするがな

888デフォルトの名無しさん2018/05/17(木) 08:14:31.45ID:JDzFkPHQ

戻り値ある前提で組んでるんでしょ。
エラー処理等で単に関数が失敗か成功かを返すとか。
後で作ろうとしてたけどグダグダになって無しになっちゃうとか。

889デフォルトの名無しさん2018/05/17(木) 11:23:10.83ID:eM4CBQj1

後でやろうとしてやめちゃうってのは非常に大変頻繁によくあることだからね。

890デフォルトの名無しさん2018/05/17(木) 12:28:55.01ID:HY+Xmele

>>881
呼び出し側でいちいち call 書くの面倒だから

891デフォルトの名無しさん2018/05/17(木) 13:35:45.45ID:vSfZvvAw

>>890
FunctionもSubもCallを書かなくても呼び出せすので､理由にならないと思います。
個人的には､Callが書いてないと唐突に見慣れない文が出現するので驚いちゃいます。馴れれば､労力の軽減になるのかな？

892デフォルトの名無しさん2018/05/17(木) 13:53:44.02ID:HY+Xmele

call 書かないと () 付かないだろ
() 付かないから知らない文が出て来たと思ってしまう
() 付ければ関数だと判るが call 書かないといけないって話

893デフォルトの名無しさん2018/05/17(木) 15:12:43.90ID:vSfZvvAw

>>892
済みません。よくわかりませんのでかみ砕いておしてもらえますか？
Callと括弧がペアで必要なのは理解しています。
もちろん､CALLなし､括弧なしでFunctionもSubも呼び出せるのも知っています。
両者の呼び出しの記法が全く同じで､唯一の例外が
lngSum=AddNumbers(10,20)
等の場合ということも知っています。

894デフォルトの名無しさん2018/05/17(木) 15:32:30.96ID:vSfZvvAw

>>884
こんな感じですかね？
SUBは使わないのが基本？
http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=47673&;forum=36
↑でも結局解決していませんね。

895デフォルトの名無しさん2018/05/17(木) 17:22:26.67ID:eM4CBQj1

つい全文読んじゃったよ
いろんな考えの人がいるんだね

896デフォルトの名無しさん2018/05/19(土) 13:29:25.00ID:CLRFNNLm

>>893
えっcallなしで呼び出せるの?知らない事がたくさんあるなあ

897デフォルトの名無しさん2018/05/19(土) 13:36:56.85ID:hVWJ7ayQ

>>896
英語の本にはちゃんと書いてあるんですよね。私はVBSの本で知りました。

898デフォルトの名無しさん2018/05/23(水) 19:16:19.68ID:Au5e7VGg

僕の知り合いの知り合いができたパソコン一台でお金持ちになれるやり方
役に立つかもしれません
グーグルで検索するといいかも『ネットで稼ぐ方法　モニアレフヌノ』

BHZ67

899デフォルトの名無しさん2018/05/24(木) 10:37:30.53ID:cPlRxlDn

BHZ67

900デフォルトの名無しさん2018/05/24(木) 21:31:25.23ID:fKzQ9ZgX

ありがとう、僕も幸せになります

901デフォルトの名無しさん2018/06/13(水) 13:33:14.15ID:jDAL4HLn

全モジュールをExportするコードがネットにあったので試したら､0TESTModuleという名前のモジュールでエラーになった｡0TESTに書き換えたら通った｡
予約語かと思ったけど､そんなリスト見つからない｡モジュールに名前にModuleが含まれていると失敗するものなの?
ちなみに使ったコードは↓
https://stackoverflow.com/questions/16948215/exporting-ms-access-forms-and-class-modules-recursively-to-text-files

902デフォルトの名無しさん2018/06/29(金) 23:41:22.03ID:Ur5E76UH

学生はaccessの勉強してないよね。既存の社内システムメンテナンスできる人を募集してるけど応募が無い。
accessなんて社会人になってから仕事の合間に覚える人がまれにいる、程度のものなのかな。

903デフォルトの名無しさん2018/06/30(土) 00:22:45.41ID:2tzAZf7R

そもそもOfficeのPro版がほとんどの市販PCに載ってないから触れたことすらなかった

904デフォルトの名無しさん2018/06/30(土) 12:32:46.83ID:QJJEkoJ9

大学はFileMakerすすめるからな

905デフォルトの名無しさん2018/06/30(土) 22:27:35.34ID:XUZKNvMV

>>902
給料が安いから応募がないんじゃないの？

いくらで募集なのか知らないが、派遣の求人だと
社内システム作れる人だと時給2100円前後という印象だなAccessは
(高くても2300円くらいか)

だから社内システムメンテ出来る人は普通の会社には行かないのでは
そこまで出来るなら専門業者で働いた方がずっと稼げるだろう

906デフォルトの名無しさん2018/06/30(土) 23:30:30.56ID:D2LAG+Ct

人にもよるだろ。
俺の印象では3000円弱ぐらいまではいく。

907デフォルトの名無しさん2018/07/01(日) 22:59:11.58ID:zfW8OWzE

>>903
今は単品で15,000円位だから、コスパ良い開発環境だと思うのだが。

908デフォルトの名無しさん2018/07/02(月) 11:07:23.80ID:kZ0RH16R

VBAで自動メンバー表示できるVBE以外のエディタってあるのかな？

909デフォルトの名無しさん2018/07/04(水) 06:14:38.14ID:0ZnatSkO

VBS のエディタが使えないかな。

910デフォルトの名無しさん2018/07/04(水) 22:00:33.68ID:gFgZc5FG

OH1

911デフォルトの名無しさん2018/07/04(水) 22:52:05.24ID:SBPTcvBw

>>909
vbseditで試したけどダメだった
emacsで成功した人がいたのでWIN用emacsインスコしてみた
この後は面倒くさいからあしたやるemacsはいろいろ出来てすごいと言うことが少し分かったわ

912デフォルトの名無しさん2018/07/04(水) 23:17:14.61ID:uOrTSuCX

VS CodeにVBA用の拡張があったはず
ふつうのVSにも探せばあるかもな

913デフォルトの名無しさん2018/07/05(木) 04:54:44.26ID:/W/cgvJ/

VBE ではないエディタが欲しい場面とは？良かったら教えて。

914デフォルトの名無しさん2018/07/05(木) 10:21:34.29ID:6LeJvB+6

>>912
VSCの奴は2つ入れたけど,オートコンプリートはできるけど,自動メンバー表示は出来ないですね.

>>913
一般的なエディタと比べると余りにもVBEが低機能だからですね.
たとえばコードフォールディングをしたいし,行番号も見たいけど,出来ないですからね.ズームが出来ないのも案外不便.

915デフォルトの名無しさん2018/07/05(木) 23:08:09.61ID:pNcP8vSm

フォームでマウスホイールをコロコロしてレコードを移動させるプログラムを教えていただけませんか？

916デフォルトの名無しさん2018/07/10(火) 21:58:48.67ID:U+UpIg0Q

ソース連結の単票フォームなら、何にもしなくてもホイールコロコロでページパタパタ出来るけど
そういうのとは違うのか　　或いは、制作者が敢えて無効にしてるのを有効化したいのか
或いは、帳票フォームの上下・・　これもホイール効くか、、　シーンを限定してもわらないと

917デフォルトの名無しさん2018/07/11(水) 04:54:43.98ID:UzCikUyf

>>914
913です。VBE良くできてるな便利だなと思って使ってました。もっと捗るエディタも有るんですね。

918デフォルトの名無しさん2018/07/11(水) 06:04:47.59ID:ejJItOxX

>>917
ネット上にはVBEを賞賛する声は余り見ませんね。悪口は沢山見ます。
emacsをインスコしてみましたが､Windows7 64bitではダメでした。
emacsならやりたいことが全部出来るはずですが､lisp書けないから悲しいです。

919デフォルトの名無しさん2018/07/22(日) 19:25:52.08ID:fTZbDOvh

質問です
UPDATEでテーブルを一斉更新する際に、
「Aさん」「Bさん」「Cさん」のようなデータを
繰り返しで連番のように入力させる手段は無いのでしょうか？
連番のような数値型は出来るようなのですが、
文字列で実現する方法が分からないです

目的は出勤している人間(5名程度)に
難易度にムラがある案件(200件程度)を均等・公平に
割り付けるためです

お手数をおかけしますが、どうかご教授ください
よろしくお願いします

920デフォルトの名無しさん2018/07/23(月) 00:04:34.46ID:2H/uT7qC

一度連番を振ってその後に「連番 mod 3 = 0」をAさん、
「連番 mod 3 = 1」をBさん、連番 mod = 2」をCさん
っていうようにすれば出来なくもないか…
でもスマートじゃないですし、処理に時間がかかりそうですね

921デフォルトの名無しさん2018/07/23(月) 06:42:41.53ID:Aoeea3bS

>>919
解答ではありません。
私ならexcelにエクスポートして手作業でautofill してインポート。またはvbaで一件ずつ読み書き。
Sqlでどうするかわかったら教えてください。

922デフォルトの名無しさん2018/07/23(月) 10:05:37.58ID:86GO4HnW

連番（数値型）を繰り返し入力させる方法が分かるのなら、
1=Aさん、2=Bさん、…っていうテーブル用意しておいて、
連番振ったあと更新クエリで文字列を更新させるのは駄目ですか？

923デフォルトの名無しさん2018/07/23(月) 10:21:18.69ID:eU1p7hr8

autoincrement

924デフォルトの名無しさん2018/07/27(金) 08:00:42.36ID:G5saNUly

20人程度が1つのテーブルにそれぞれ10分間隔くらいでUPDATE INSERTをしているんですが、突然テーブルが開けなくなりました
「他者が開いています」というメッセージが出て開くことやコピーすら出来なくなりました

対策やこの症状が出た時の対処方法はないのでしょうか？

フロントエンドとしてユーザーの数だけUI用のAccessファイルを準備して、
バックエンドはテーブル1つだけのAccessファイルを置いています

925デフォルトの名無しさん2018/07/27(金) 12:49:22.89ID:ASV/JfNN

そうなる前に、誰かがなんかのエラーを発してるはず
或いはエラーを殺しちゃってるかどうか
大概マズイことには口を噤むのが社畜の習い性

エラーにならないよう対策するか、エラー時に対策するか

コピーすらできないなら、サーバー側での対策として
バックアップ時に戻すか
そのファイルさえ救出出来たら修復できるんだろうけど

926デフォルトの名無しさん2018/07/27(金) 13:38:08.89ID:rdFKIS0q

共有数の制限の気がするけど
そのバックエンドのアクセスファイルはどこでどうやって共有してるんだよ

927デフォルトの名無しさん2018/07/27(金) 17:29:47.26ID:hf+c8Fmp

919です
返答が遅くなってしまい申し訳ありません

>>921
解決しました
元々テーブルに連番が振ってあったので、それを利用して
sqlのswitch文とmodを使ってます
リストボックスで選択した担当者を配列に格納して
ubound関数やらを使ってvbaでsqlを生成しました

switch id mod i
0:Aさん
1:Bさん
2:Cさん
3:Dさん

って感じのイメージです

>>922
週休者には割り当てたくなかったので上記方法で解決しました

928デフォルトの名無しさん2018/07/27(金) 17:35:57.88ID:hf+c8Fmp

>>925
先日は事前に取っておいたバックアップまでロールバックして対処しました
未だにエラーの原因が分からないので
不具合が起きた時の対策とバックアップ頻度を上げるような
業務フロー(タイマー関数含む)を追加しようと思います

開けなくなったファイルは日を跨いだら開けるようになりました
恐らく誰かが気づかずにバックグラウンド掴んでる状態だったんだと思います

>>926
特にオプションをいじっていないaccdbを共有サーバに
そのまま置いてる状態です
データを取得するのはサーバのバックエンドテーブルを
ローカルファイル(フロントエンド)にコピーして
ローカルで完結して参照しています
更新や追加する時だけバックエンドのテーブルに
UPDATEとINSERTをしています

929デフォルトの名無しさん2018/08/11(土) 16:51:32.08ID:/3QviRkj

質問です。
分割フォームの
分割フォームデータシートプロパティを
VBAから操作できる方法がありますでしょうか？
ご教授お願い致します。

930デフォルトの名無しさん2018/08/11(土) 18:04:27.51ID:MwiIaP9n

具体的なプロパティもわからんしお休みなのでパソコンも手元にないけど検索したらsplitformsize のvba コードがあるから何らかの操作は出来るんでないの？お盆モードの適当コメントですまぬ。

9319292018/08/11(土) 18:45:39.43ID:/3QviRkj

>>930さん

ありがとうございます！
splitform vbaで調べていたら見つかりました！！
うれしいです！

Private Sub コマンド11_Click()

If Forms("test").SplitFormDatasheet = acDatasheetReadOnly Then
Forms("test").SplitFormDatasheet = acDatasheetAllowEdits
Forms("test").コマンド11.Caption = "過去のデータを編集不可にします。"
Else
Forms("test").SplitFormDatasheet = acDatasheetReadOnly
Forms("test").コマンド11.Caption = "過去のデータを編集可能にします。"
End If

End Sub

ありがとうございます！！

932デフォルトの名無しさん2018/08/23(木) 22:05:56.98ID:VOAIsull

サイズの限界まで巨大化しているフォームを改造して､様々なコントロール類をタブコントロール上に配置しようと考えています。
元のフォーム上のコントロール類をコピーしてタブコントロール上にペーストしたまでは良かったのですが､イベントプロシジャーがごっそり抜け落ちています。コマンドボタンを押してもなにも始まらない状態です。
イベントプロシジャーを保持したままコントロールをコピペする方法はありますか？

933デフォルトの名無しさん2018/08/23(木) 22:21:39.28ID:VOAIsull

解決しました。
https://bytes.com/topic/access/answers/688028-controls-cut-paste

934デフォルトの名無しさん2018/08/24(金) 06:25:14.72ID:zBeCnEZ1

>>933
良かったね。
俺はVBA コードを頑張ってコピーしてるのでよかったら解説下さい。えーごわからないので。翻訳機能?あの人たちとは話が合わん！

935デフォルトの名無しさん2018/08/24(金) 09:58:42.20ID:IIPiSmN7

Accessの本はいろいろ買ったけど､良書だなあと感心したのはほとんどが未翻訳の洋書でした。
谷尻､緒方､葛西も和書としては悪くないのですが､洋書と比較すれば月とスッポンです。
技術書の英語は辞書とgoogle翻訳でだいたいなんとかなりますよ。
たまに文学的表現があってイラッとしますけど､だいたいが簡単明瞭です。

936デフォルトの名無しさん2018/08/24(金) 10:46:31.53ID:jVqNqoKW

すいません質問です。オフィス365です。
手動で空のサブレポートをレポートに配置しました。これをVbaコード でコピーする方法を教えてくださいませ。

937デフォルトの名無しさん2018/08/30(木) 13:16:49.85ID:onaqxfsR

すみません、質問させてください。
ExcelからAccessの特定のフォーム
を閉じるとき、
DoCmd.Close acForm, "フォーム名"
で入れると、おそらくacFormがAccessVBAの引数のためか、
エラーが出てしまいます。
何か解決方法があればご教授よろしくお願いします。

938デフォルトの名無しさん2018/08/30(木) 13:20:53.05ID:S/vwwZyF

アプリが違うからOLEとかActiveXObject使うんでは

939デフォルトの名無しさん2018/08/30(木) 14:29:11.04ID:4drhoSMA

>>937
acForm=2なので、acFormじゃなく直接2を指定してみると上手く行くかも

DoCmd.Close 2, "フォーム名"
↑でやってみて

940デフォルトの名無しさん2018/08/30(木) 16:02:05.01ID:onaqxfsR

>>938さん、939さん
ありがとうございます。
939さんの方法でいけました。
ありがとうございますm(_ _)m
番号で指定する方法があったのですね。
感謝です。

941デフォルトの名無しさん2018/08/30(木) 23:00:19.83ID:NGm4WU4A

Access.AcObjectType.acForm が 2

942デフォルトの名無しさん2018/09/13(木) 01:52:34.58ID:iAlG4Fvk

アホな質問ですまん。
クエリの中でクエリを複数使うクエリを作成したんだけど、これをSQLに書き直すときにエイリアスを使いたいんだけど、クエリに対するエイリアスは使えるのかな？テーブルだけかな？
実験した感じではダメそうなんだけど、どうですか？

943デフォルトの名無しさん2018/09/13(木) 03:14:29.75ID:liq2Qruq

>>942
普通に使えるはずだが
AS付けてないとか

944デフォルトの名無しさん2018/09/13(木) 03:15:45.30ID:liq2Qruq

DAO経由じゃないとだめだったかも

945デフォルトの名無しさん2018/09/13(木) 12:56:01.88ID:C2gZ+hmS

>>942
普通に出来るはずだぞ
どういう状況でダメになってるんだ？

946デフォルトの名無しさん2018/09/13(木) 13:07:05.55ID:C2gZ+hmS

>>942
サブクエリの話だよな？
自作ツールで確認したがASで普通にできてたぞ

947デフォルトの名無しさん2018/09/14(金) 08:17:56.50ID:JMy0VfN7

たぶん、サブクエリじゃなくて作成済みのクエリをSQL内部のFROM句やJOIN句にテーブルのように使う時にエイリアスを使いたいという話だと思うんだが、それでも普通に使えると思う。

9489422018/09/14(金) 11:04:12.59ID:cjIZJ/+q

みんな、ごめん。使えました。
おいらがSQLビューで書くときに、どっか間違えたみたい。
クエリのエイリアスも使えるし、サブクエリでネストも出来るし、accessって凄いね。糞長いSQLを書きたくなるね。
問題は余計な括弧がいっぱいくっつくところだよね。

949デフォルトの名無しさん2018/09/14(金) 12:54:33.03ID:cjIZJ/+q

またまたくだらない質問です．
UPDATEで苦労していますが，https://www.ipentec.com/document/sql-multi-record-update　に書いてある
update working set value=price from products where working.name = products.name
だとエラーが出ます．試行錯誤して成功したのは
UPDATE working, products SET working.[value] = [products].[price]
WHERE (((working.name)=[products].[name]));
でした．UPDATEの述語に参照するだけのproductテーブルが書いてあるのが不可解ですね．
なんで，こんな変な書き方をするのか分かる人いますか？

950デフォルトの名無しさん2018/09/14(金) 13:41:49.29ID:5xDSXwp0

fromが無いから

951デフォルトの名無しさん2018/09/14(金) 15:43:10.38ID:cjIZJ/+q

>>950
FROMを書きました．下のようにしました．でも，演算子がありませんと怒られます．

UPDATE [working],[products]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name]));

952デフォルトの名無しさん2018/09/14(金) 15:43:55.27ID:cjIZJ/+q

これも同じように怒られます．

UPDATE [working]
SET [working].[value] = [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name]));

953デフォルトの名無しさん2018/09/14(金) 18:33:15.77ID:JMy0VfN7

それだと[products].[price]の後が何だか分からん。

[products].[price]を求めるSQLをそのまま書くかJOIN使った方が良い。

UPDATE [working]
SET [working].[value] = (SELECT [products].[price]
FROM [products]
WHERE ((([working].[name])=[products].[name])));

UPDATE [working]
INNER JOIN [products]
ON [working].[name]=[products].[name]
SET [working].[value] = [products].[price];

スマホからテキトーに書いてるので間違ってたらスマン。

954デフォルトの名無しさん2018/09/14(金) 20:41:59.46ID:cjIZJ/+q

>>953
上のは，更新可能なクエリであることが必要です　と怒られました．
下のは成功です．ありがとうございます．

FROMを記載したコードでは出来ないというのが興味深いですね．
クエリーと一般のSQLではコードを処理する方法がかが違うんですかね？
聞きかじりですが，オプティマイザとか実行計画とか言う奴ですかね？

次はクエリを参照するUPDATEを書かないといけないのですが，テーブルならOKでクエリでは怒られるんですよね．
http://www.10days.org/diary/20090705.htmlとかその他いろいろヒットしますが，VBAからSQLを発行したら出来るんですかね？
とりあえず実験します．

955デフォルトの名無しさん2018/09/14(金) 21:06:57.90ID:wdFP/Mir

>>951
横入だがAccessがUPDATEでのFROMを
サポートしていないという意味での「FROMがないから」
じゃないの？

956デフォルトの名無しさん2018/09/14(金) 21:11:41.20ID:wdFP/Mir

>>954
確かAccessはUPDATEでFROMは使えないぞ

957デフォルトの名無しさん2018/09/14(金) 21:32:20.19ID:cjIZJ/+q

>>956
マジすか？ありがとうございます．
SQLって方言が多いんですね．

958デフォルトの名無しさん2018/09/15(土) 02:34:58.26ID:7Yaecm93

UPDATE文は特に方言が多いんだよ

959デフォルトの名無しさん2018/09/15(土) 11:35:48.46ID:AVfR6YnT

>>954
更新クエリに設定しろ

960デフォルトの名無しさん2018/09/16(日) 09:41:31.06ID:o5IUt/R9

昔はオラクルとかに直接更新クエリ実行しようとして固まってたなあ、、、
ハード性能上がった今でも固まるのかね?

961デフォルトの名無しさん2018/09/16(日) 16:10:48.91ID:qqKBC7cw

リンクテーブルに対して何かするのを「直接」とは言わないからな？

962デフォルトの名無しさん2018/09/16(日) 18:15:18.31ID:HF0YmRsW

アスペですね

963デフォルトの名無しさん2018/09/16(日) 19:05:43.00ID:8jdJAOdP

それ以前に、ハード性能で固まったことなんてないんだが
単に遅いだけで固まったって言ってるのかね

964デフォルトの名無しさん2018/09/16(日) 19:27:12.80ID:yPlmt9/8

>>963
初代ペンティアムマシンでAccess97で動かした事無い人かな

965デフォルトの名無しさん2018/09/16(日) 20:39:37.56ID:fj0Djq38

>>964
それは何自慢？俺は20年前からACCESS やってるベテランだぞすごいだろう？

966デフォルトの名無しさん2018/09/16(日) 22:05:06.06ID:8jdJAOdP

>>964
だからそれは単に遅いだけだろうと言ってるんだが

ついでに言えば、ACCESSで外部DBMS使うときに一番気を付けるべきは回線の速さだがな
その環境でも、100MのLANならそれなりに快適だったわ

967デフォルトの名無しさん2018/09/17(月) 18:07:40.72ID:l9KryutO

486DXでAccess95とか動いたっけ

968デフォルトの名無しさん2018/09/17(月) 19:52:07.58ID:3YPJfo/c

多分動いたと思う。
ペンティアム90では確実に動いた。
当時486DX100マシンにOffice入れてたと思うんだが、そのマシンでAccess動かしたかどうかで記憶が無い。

969デフォルトの名無しさん2018/09/18(火) 01:29:37.70ID:Bq/PEIsn

Windows95が動いてたからOFFICEの95も動いてたと思う

970デフォルトの名無しさん2018/09/18(火) 19:14:26.16ID:32W6TMTL

マハーポーシャの思い出しかないわ

971デフォルトの名無しさん2018/09/18(火) 21:06:59.49ID:Y+CFjjh5

>>970
出張でアキバ行ったらチラシ貰った。あんな事件起こすなんて夢にも思わず、スペックのわりに安いじゃんなんて思ってたわ。

972デフォルトの名無しさん2018/10/15(月) 12:32:08.29ID:UJZpBNX3

DAOでmdbに接続して､フォーム上のコントロールボタンのCaptionを大量に一括変更したいんだけど､できるかな？
データーベースオブジェクトのメンバーのリストを眺めてもフォーム関連がないので､だめなのかな？

973デフォルトの名無しさん2018/10/15(月) 13:28:15.42ID:L3fZFxj5

>>972
COMオブジェクト生成で
Application→Forms→Form→Controls→Control
ってたどる感じかな
最近どうなってるか知らん
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa663065(v=office.11)

974デフォルトの名無しさん2018/10/15(月) 19:00:25.28ID:UJZpBNX3

リンクが死んでいて読めません。
ネット探しても情報が見つかりませんね。
パッチを当てるときに便利な気がするのですが…
私が知ってるパッチはモジュールやフォームを入れ替えるものばかりですが､一部編集みたいなことが出来ると便利な気がしますがどうでしょうか。
コードを1行書き換えとか出来ると便利な気がしますが､リスクもありそうですね。

975デフォルトの名無しさん2018/10/15(月) 23:32:47.15ID:L3fZFxj5

>>974
MSのURLは2chのリンク表示と相性が悪いからクリック
カッコまで全部コピーしてブラウザに貼りつけないと付けると飛べるぞ

ラベルを外部リソースにしてフォーム側で呼び出すのが正攻法な気がするが
多言語対応とか

976デフォルトの名無しさん2018/10/16(火) 07:11:10.97ID:o1jBtF96

DAO で接続じゃなぁ

977デフォルトの名無しさん2018/10/16(火) 19:50:00.82ID:nNSV5Ror

接続は別になんでもいいです。

978デフォルトの名無しさん2018/10/22(月) 12:14:49.52ID:9BvHUkZ3

マクロの編集をVBAで出来ませんかね？バージョンアップの際にカスタマイズ済のAutokesyを再現したいもので。

979デフォルトの名無しさん2018/10/23(火) 14:44:19.48ID:qJAZHzzr

>>978
出来る、何年か前に前の勤め先でやったわ
あまり覚えてないが、VBEにアクセスする方法があって
それで出来たと思う

ググりながらやった覚えがあるからググれば
何かヒントが出てくると思う

980デフォルトの名無しさん2018/10/23(火) 17:12:08.69ID:D922t3yz

>>979
saveastextですね。あれ､最近のoffceだとゴミコードが1行あって､そのままでは読み込めないんですよね。

981デフォルトの名無しさん2018/12/04(火) 21:13:39.22ID:TBSeaia1

業務用ソフトでどこからもGOTOされていないラベルがあるんだけど､作った奴は馬鹿なのかな？

982デフォルトの名無しさん2018/12/05(水) 13:19:49.01ID:2sSegHBZ

いくらでもある

983デフォルトの名無しさん2018/12/05(水) 14:21:48.59ID:8B064Egy

そうですか…
宣言だけして使わない変数や､空のプロシジャー､その空のプロシジャーを呼び出す無意味なプロシジャー､戻り値を変数に格納だけしてなにも利用しない関数とか意味不明なことが多くてPGの世界ってカオスなんだな。
リーダブルコードとかだと絶対に怒られるようなことが目白押しだわ。

984デフォルトの名無しさん2018/12/05(水) 14:51:15.50ID:2sSegHBZ

理想と現実は違う

985デフォルトの名無しさん2018/12/05(水) 15:58:58.90ID:Tdi7Zg1z

そう、動きゃいいんだから
見た目なんか気にしてたら絶対に間に合わない

986デフォルトの名無しさん2018/12/05(水) 17:29:29.08ID:8B064Egy

なるほど…
カスタマイズしている方からすると添削をしているよう気分になりますね。
稼働しているコードの何倍もあるコメントアウトされた過去コードとかあって､正にべからず集みたいなもんですね。

987デフォルトの名無しさん2018/12/05(水) 17:34:49.19ID:kX9gokKe

実際問題
中身はgdgd
https://www.filemaker.com/jp/solutions/customers/stories/shinshu-ham.html

988デフォルトの名無しさん2018/12/07(金) 12:18:56.42ID:RZ2R69DU

>>987
FileMakerはスクリプト(マクロ)しか無いからな

989デフォルトの名無しさん2018/12/07(金) 18:12:05.49ID:Uga2tmpi

>>988
両方そなわってたら、Accessを潰せてたのにね。

990デフォルトの名無しさん2018/12/10(月) 21:20:32.74ID:WdAp4299

マクロのAutokeysが急にキーを取りこぼすようになった。F1を押すとプロシジャーの実行をしてくれないでHELPが立ち上がる。
F2等をおしても無反応になってしまった。officeのアップデートが原因かな？WIN7とAccess2016の組み合わせなんだけど分かる人いますか？

991デフォルトの名無しさん2018/12/11(火) 13:04:58.28ID:eQLW3H68

Access最近アプデしてないな
古いのまだ使ってる

992デフォルトの名無しさん2018/12/11(火) 18:13:25.39ID:fkccCnsx

>>991
2013使ってるならアプデする意味がほぼないし

993デフォルトの名無しさん2018/12/11(火) 19:29:38.35ID:cP19L9C3

２０年くらい前はAccessファイルはいつ壊れるかわからない。
って言われてたけど、いまってどうなの？

994デフォルトの名無しさん2018/12/11(火) 21:03:35.30ID:OP7GyNdd

>>993
今は壊れることはなくなったよ。

995デフォルトの名無しさん2018/12/11(火) 21:35:29.03ID:kFp89+PJ

いつの間にかデータアクセスページなくなったの？

996デフォルトの名無しさん2018/12/11(火) 23:24:33.12ID:ADs7qBab

>>993
同じだと思うよ。いつもは動くプロシジャーが変な挙動するようになってそのうち､フォームが全部消えちゃうとか何度もあった。というかこの1週間でもあったよ。本当にポンコツだよ。
とはいえ､ここまでカスタマイズが自由に出来るDBって他に無いような気がするけど､どうなんだろう。

997デフォルトの名無しさん2018/12/12(水) 00:19:48.14ID:GF6Qf3Td

WindowsFormの不自由さにはびっくりしたな

998デフォルトの名無しさん2018/12/12(水) 10:51:22.24ID:I3Mp/+TW

いまはIMEの辞書が良く壊れるイメージ

999デフォルトの名無しさん2018/12/12(水) 10:53:08.65ID:I3Mp/+TW

>>996
小規模のシステムでも
テーブル用のmdbとフォーム用のmdbを分けて
リンクで管理すると壊れるケースはかなり減った

1000デフォルトの名無しさん2018/12/12(水) 10:53:27.51ID:I3Mp/+TW

次スレはよ

lud20221025180208ca

このスレへの固定リンク： http://5chb.net/r/tech/1328536426/
ヒント：5chスレのurlに http://xxxx.5chb.net/xxxx のようにbを入れるだけでここでスレ保存、閲覧できます。

TOPへ TOPへ 　

		ブックマークへ

---

全掲示板一覧 この掲示板へ 人気スレ | Youtube 動画 >50 >100 >200 >300 >500 >1000枚 新着画像

　↓「Access VBA 質問スレ Part1 YouTube動画>1本 ->画像>3枚 」を見た人も見ています：
・Access VBA 質問スレ Part2
・Excel VBA 質問スレ Part66
・Excel VBA 質問スレ Part68
・Excel VBA 質問スレ Part67
・Excel VBA 質問スレ Part50
・Excel VBA 質問スレ Part74
・Excel VBA 質問スレ Part70
・Excel VBA 質問スレ Part75
・Excel VBA 質問スレ Part77
・Excel VBA 質問スレ Part72
・Excel VBA 質問スレ Part65
・Excel VBA 質問スレ Part73
・Excel VBA 質問スレ Part69
・Excel VBA 質問スレ Part71
・Excel VBA 質問スレ Part49
・Excel VBA 質問スレ Part61
・Excel VBA 質問スレ Part57
・Excel VBA 質問スレ Part60
・Excel VBA 質問スレ Part51
・Excel VBA 質問スレ Part58
・Excel VBA 質問スレ Part64
・Excel VBA 質問スレ Part63
・Excel VBA 質問スレ Part79(ﾜｯﾁｮｲあり)
・【BlackDesert】黒い砂漠 質問スレ Part21
・【BlackDesert】黒い砂漠 質問スレ Part18
・Hearthstone: Heroes of Warcraft 質問スレ part40
・【TESO】The Elder Scrolls Online 質問スレ Part27
・【TESO】The Elder Scrolls Online 質問スレ Part24
・【TESO質問】The Elder Scrolls Online 質問スレ Part1
・Hearthstone: Heroes of Warcraft 質問スレ part41
・【BlackDesert】黒い砂漠 質問スレ Part19 [無断転載禁止]
・【BlackDesert】黒い砂漠 質問スレ Part28 [無断転載禁止]
・【BlackDesert】黒い砂漠 質問スレ Part31 [無断転載禁止]
・【BlackDesert】黒い砂漠 質問スレ Part14 [無断転載禁止]
・【TESO】The Elder Scrolls Online 質問スレ Part15 [無断転載禁止]
・Excel VBA 質問スレ Part81 (889)
・Excel VBA 質問スレ Part80(ﾜｯﾁｮｲあり) (87)
・Excel Python 質問スレ
・【BlackDesert】黒い砂漠PC版 質問スレPart67
・【BlackDesert】黒い砂漠PC版 質問スレPart61
・【miHoYo】崩壊3rd 質問スレ Act.1 [無断転載禁止]
・【MACRO】Google Apps Script 質問スレ【DRIVE】
・【PC】Terraria 質問スレ Part17
・au Xperia Z1 SOL23 質問スレ part3
・PSVita 質問スレ part1 [無断転載禁止]
・WIXOSS-ウィクロス- 質問スレPart2
・【海外通販】AliExpress初心者質問スレ 20
・【海外通販】AliExpress初心者質問スレ 21
・【海外通販】Aliexpress初心者質問スレ 2
・【海外通販】AliExpress初心者質問スレ 17
・【海外通販】AliExpress初心者質問スレ 8
・【海外通販】AliExpress初心者質問スレ 15
・【海外通販】AliExpress初心者質問スレ 19
・【海外通販】AliExpress初心者質問スレ 12
・【海外通販】AliExpress初心者質問スレ Part2
・【海外通販】AliExpress初心者質問スレ 7 【ﾜｯﾁｮｲ】
・【海外通販】AliExpress初心者質問スレ 6 【ﾜｯﾁｮｲ】
・【PS4】Destiny2 質問スレ14【デスティニー】
・【PS4】Destiny2 質問スレ13【デスティニー】
・Counter-Strike: Global Offensive 質問スレ Part3
・Excel ピボット Power Pivot DAX関数 質問スレ (13)
・WebObjects 質問スレ

2ch 画像 AV 動画 10:43:11 up 15 days, 21:07, 1 user, load average: 8.75, 8.84, 9.44 in 0.053185939788818 sec @0.053185939788818@0b7 on 122800