Access VBA 質問スレ Part2

**デフォルトの名無しさん** · 2019/03/15(金) 18:46:17.04

>>54
id使わないなら 1テーブルでええんとちゃう？

**デフォルトの名無しさん** · 2019/03/15(金) 18:47:49.00

>>56
余りにも近視眼でした

**デフォルトの名無しさん** · 2019/03/15(金) 19:00:16.39

>>55
性別はboolでいい

ただしオカマちゃんなどに対応するため
Bool 肉体の性別
Bool 精神の性別
Bool 改造後の性別
Bool 住民基本台帳の性別
Bool 一般公開する性別
Bool セキュリティで保護された性別
などのフィールドを用意するのがベスト

**デフォルトの名無しさん** · 2019/03/15(金) 20:17:51.87

SLC、MLC、TLC、QLCだな

**デフォルトの名無しさん** · 2019/03/15(金) 21:26:19.10

オカマでも、男専、バイ、女専と分けないとトイレで掘られるリスクが

**デフォルトの名無しさん** · 2019/03/16(土) 08:42:08.72

Excel VBA質問スレが最後までいって終わったので、次スレ検索したらここが出てきた
Excel VBA質問スレの新スレはないのか？

**デフォルトの名無しさん** · 2019/03/16(土) 08:43:02.89

Excel VBA質問スレでもAccessの話が話題に出るので、ここと統合してもいいんじゃね？
VBAメインの話だろ

**デフォルトの名無しさん** · 2019/03/16(土) 10:08:04.54

>>29がダメな理由、データベースがわからない人にどう説明したら良いんだろ。
ウチの会社も、みんなこうやって作りたがるんだよな。

商品　1月売上　2月売上　3月売上　4月売上　・・・

**デフォルトの名無しさん** · 2019/03/16(土) 13:39:03.23

難しいだろうね
リレーショナルデータベースにおける正規化って
コンピューター的な都合でテーブルを分けてる
でも実際には依頼伝票と明細というものは
人間の感覚的には一体として扱う方が感覚的に自然だからそういう風になってしまう
何の為にリレーショナルで正規化をするのか?
というのをデータの不整合が起きないようにを集中化させる為である事を教えるしかないけど
コンピューターがどういう風に処理をすると
効率的だったり安全だったりするか
を理解しておかないと難しい
表計算の延長や通常の感覚のままだと無理だと思う
大げさに言うと
コンピューターサイエンスの知識が必要
って事になる思う
accessはリレーショナルな所を活用して効率化しているから結構難しい面が有る
どうしても無理なら
桐
でも使うという手も有るw

**デフォルトの名無しさん** · 2019/03/16(土) 17:31:16.60

>>54
横槍ど素人でごめん。
連結用テーブルってのは>>50みたいなのでおkってことですか？
最近ACCESS初めて同じようなことしようと思ってます。

**デフォルトの名無しさん** · 2019/03/16(土) 19:49:12.47

>>65
そそ。
あそこに並んでる表を入れておくのが連結テーブル
あれがなぜ必要かはわかると思うので略
商品、材料テーブルの内容から、自ずと連結テーブルも必要になり、そういうテーブル構成になることは別に特殊なことではありません

**デフォルトの名無しさん** · 2019/03/17(日) 08:42:17.71

こんなスレがあるぞ

VBAに関する質問はこちらへどうぞ
Excel、Access、Outlook分ける必要ないだろ

VBAなんでも質問スレ Part2 [転載禁止](c)2ch.net
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/17(日) 10:57:55.94

>>66
ありがとうございます。
実際は、製品のそれぞれの材料をどれくらい使ったかを管理する必要があるのですが、その場合、
製品テーブル
材料テーブル
製品と材料の連結テーブル
連結テーブルと使用量の入力用テーブルが必要になるイメージですかね？
VBAスレでしたね。テーブルの作り方はここではないのはわかってるのですが、何かこのあたりのテーブルやフォームの作成のヒントになる書籍とかあれば教えていただけませんか？

**デフォルトの名無しさん** · 2019/03/17(日) 13:57:54.89

excelとaccessはアプリケーションとして随分違うから分けた方が良い
excelの方が進みが速いし
access相談系ってここ以外に案外質問スレが見当たらないし(自分が知らないだけで実際には有るかも知れないけど)

分量で分けるなら
excel
access,word,outlook,その他?
みたいに二つに分けた方が良い

excelは利用している人の数が段違いだろうし
上の質問みたいに
材料1,材料2,...
みたいにするのはaccessでは合い難いけど
excelでは割とそういう風に使うから
違いは大きい
それにexcelvbaの方は見てないけど
accessとexcel勢で何か悶着有ったみたいだし

基本は分けた方が良い

**デフォルトの名無しさん** · 2019/03/17(日) 17:33:15.64

>>63
Excelに慣れて表を想像するから。
DBはリレーションを想像すべきで表を想像すべきじゃない。

>>64
リレーションに慣れてれば自然に正規化しようとするようになる。

**デフォルトの名無しさん** · 2019/03/17(日) 23:33:28.89

>>68
まず、製品、材料、連結テーブルの中で使用量を格納できる（格納するのがふさわしいか）のはどのテーブルかを考える。
ふさわしいテーブルがなければ新テーブルを追加するが、使用量は連結テーブルに格納すればいいのではと理論建てて考えられるようになりましょう。

書籍は近所に大きめの書店があれば、自分の好みで選びましょう。図が多いとかカラフルなのが見やすいとか。
初級本は2、3回見ればあまり出番なくなると思いますが、どんなことができるのかとか効率よく知るのに有効です。
他は、逆引きとか、テクニック本とかがいろいろな処理を書く上で有効で、長く役立ってくれるでしょう。

**デフォルトの名無しさん** · 2019/03/17(日) 23:53:15.91

>>63
データベースに限ったことではないが、最小限の入力（手間）で最大限の結果（伝票だけでなく売上集計や分析など）を得ることが目標。
平たく言えば、楽（効率アップ）しようと思わない人、そのために努力しようと思わない人には伝わらない。

オレは説得するのは諦めた。残業代増やしたい奴ばっかりだから

**デフォルトの名無しさん** · 2019/03/18(月) 00:03:45.33

馬鹿には無理

これが真実

**デフォルトの名無しさん** · 2019/03/18(月) 19:45:55.30

構造ならSQLとかDBのアンチパターン解説本
>>65
他にも連結用テーブルはプライマリをフィールド二つの複合にして
それぞれに元テーブルとの外部キーつくること

**デフォルトの名無しさん** · 2019/03/19(火) 06:30:11.40

みんなこっちにいるよ
https://mevius.5ch.net/test/read.cgi/tech/1432173164/

**デフォルトの名無しさん** · 2019/03/19(火) 23:41:14.03

馬鹿でも仕事をしなきゃならない
そういう人は材料1,材料2,...でやれるなら
それでやってもらうしかない
頭いい奴だけで後は生活保護で構わない
とかで良いなら話は別だけど?
その辺を理解出来ないアホが多くて困る
正規化を理解しないでaccess使っている人間と種類的には同じ
自分がやれる事が一番と思って他を考えていない

**デフォルトの名無しさん** · 2019/04/25(木) 10:33:32.47

32bitのAccess2016を使っています。
いままではinteger型で済むものはlong型にしてはいけない。メモリーの無駄遣いと思ってきました。
しかし､ベンチマークをとるとlong型の方が速いという主張を頻繁に見るようになりました。
数字は全部long型にした方がいいのでしょうかね？

**デフォルトの名無しさん** · 2019/04/25(木) 11:52:04.10

>>77
昔々はそうだった
しかし、今はあり余るメモリをたらふく使って、高速にとか、プログラム書きやすくとかになってる。
（もちろん限度ってものはある）

昔は8bitや 16bit CPUだから、長い桁は時間かかった。今は 64bitなので、それ以下に収まれば充分高速。
（数億回ループするのは稀なので、あるなら都度ベンチ取ってロジックなど決めるといい）
SIMDにより多く詰め込めるとかもあるけど、VBAでは多分使われてないから気にしなくていい

わざわざ longに直す必要はない。これからは気にせず long使っていい

**デフォルトの名無しさん** · 2019/04/25(木) 15:22:48.68

>>78
でも､longに直したくなりますよねw
標準モジュールは一括置換→保存で問題ありませんでしたが､
フォームでやってみたら､すぐにメモリー不足やら､フォーム破損が生じてしまいましたw

**デフォルトの名無しさん** · 2019/04/25(木) 17:43:41.51

馬鹿に教えるとロクなことをしない例

**デフォルトの名無しさん** · 2019/04/25(木) 18:18:18.21

実験用のコピーだよ。
楽しく実験するのがプログラミング上達の近道だと思うんだよね。

**デフォルトの名無しさん** · 2019/04/25(木) 20:40:48.35

>>81
実験は大切。失敗もベンチ取るのも身になる。
実験ソースや結果も Accessのテーブルに分類して残しとくんだぞ
（オレは、ソースはモジュールに置いて、コメントに結果を書いてたりもする。もちろん他言語などはテーブルやプロジェクトにしてなど）
カンペ作ったときみたいに忘れないもんだが、将来の追試や数値が役に立つ（まれに）

**デフォルトの名無しさん** · 2019/04/25(木) 22:25:13.99

>>81
後付けの言い訳乙
実験するよう連中はこんなところで質問なんかせんわ

**デフォルトの名無しさん** · 2019/04/26(金) 05:09:51.54

>>83
Access界隈っこういう人が多い気がするなあ。
実験用コピーじゃなかったら真っ青になってるだろうなw

**デフォルトの名無しさん** · 2019/04/26(金) 13:04:47.02

新人の頃は良く失敗した
数値フィールドをテキスト型で定義したり
データ、システム分離しなくてmdb破損させたり
手元の最新版壊して顧客PCまで最新版取りに戻ったり
：

**デフォルトの名無しさん** · 2019/04/26(金) 14:38:58.61

>>85
オレも最初の頃壊れ（し）まくって、Accessなんて使いもんにならんやんと思った
dbだから、排他とかできるんだし、別々のフォーム触るなら、皆で開発できるやろと 1つの共有mdbで開発やってたw

規模によるけどシステム分離はわざわざしないな
分離するのは、sqlserverとかにするときだけだ

**デフォルトの名無しさん** · 2019/04/28(日) 22:30:01.14

システム分離ってなんですか？
私もファイルが壊れてばかりで困ってます。

**デフォルトの名無しさん** · 2019/04/29(月) 11:11:13.24

>>87
データベースでデ－タをどうこうする部分と、デ－タそのものを分離するということでしょ。

テーブルとクエリやフォーム、レポートを別ファイルにするという意味だと思う。

**デフォルトの名無しさん** · 2019/04/29(月) 11:33:05.46

>>87
>>88
テーブルとそれ以外に分けることです。
それ以外の方にはリンクテーブルを置いておけば、同じように処理できます。
複数人で同時にテーブル読み書きするときは定番のやり方です。
（一人でしか使わないなら、わざわざ分ける必要はありません）
テーブルの方はファイルサーバに、その他は各ローカルに置いて使います。

もう少し細かく言うと、ワークテーブルはそれ以外の方に含みます。

**デフォルトの名無しさん** · 2019/04/29(月) 11:38:37.49

>>89
横からすんみません｡
一人でしか使わない場合もフォームのコントロールを弄くるのが好きな人は分離した方が良いと思います｡
コマンドボタンの位置を変更しただけでフォームが消えてしまったことが何度もありますから､
一人で使用する場合もカスタマイズ好きならデーターは分離した方がいいと思います｡

89 · 2019/04/29(月) 11:43:25.91

>>89
ネットワークが遅い場合は、定数テーブルもローカルにとか、その辺は臨機応変に。

89 · 2019/04/29(月) 12:16:08.84

>>90
最近は個人的な作成しかしなくなったので教えて下さい。
そのファイルはmdb、accdbどちらですか？
（拡張子が変わって壊れにくくなったかとか、何が変わってどう影響するか細かくは調べてないです）
そのdbファイルはローカル/ファイルサーバどちらに置いてましたか？

ここ数年はツール的な小さなものを、accdbをローカルで作成してますが、壊れた経験はないです。
1つのフォーム内で、各処理をフレームで分けてあり、フレーム内にはテキストボックスやボタンなどがあります。
フレーム単位で、あっちやこっちに頻繁に移動はしてます。
（それでも、過去の壊れてた経験から、数日に一回最適化とバックアップはとってます）

**デフォルトの名無しさん** · 2019/04/29(月) 12:36:13.73

>>92
mdbです｡dbファイルもmdbでローカルです｡
フロントエンド？(と言っていいのかしら？)が巨大で､100MBくらいあります｡
業務用ソフトで中身は使用されていないゴミ変数やゴミプロシジャーが大量にあります｡空のプロシジャーもある上に､それをcallしている謎のプロシジャーもあります｡
str型の変数なのに､タイプするのが面倒くさかったのか､var型で宣言されている変数がこれまた大量にあります｡

89 · 2019/04/29(月) 13:14:19.98

>>93
ありがとうございます。
今でもmdbで作り込みが大きいのは壊れやすいんですね。
以前は、新mdbに全部インポートして、リフレッシュ（ゴミ除去）とかやってました。
（最適化より小さくなるから、何か効果はあるんじゃないかと思って。）

accdbに全部インポートして、参照設定修正という方法もあるけど、業務用だと完全に同じ動きするかと問われると保証できないので、難しいだろうし。
時間やお金出るなら（これからも使い続けるなら）、機能（部署）ごとに分割とか、accdbに徐々に移行（プロシージャ修正整理）とかやっていきたいところですね。

**デフォルトの名無しさん** · 2019/04/29(月) 13:47:50.96

SQLserver使おうぜ

**デフォルトの名無しさん** · 2019/05/04(土) 18:38:16.45

Accessはフロントエンドに使う
DBはMySQLでも良い

**デフォルトの名無しさん** · 2019/05/05(日) 01:45:20.23

一度に大量で複雑な更新をすると落ちやすかった印象は有るかなぁ

**デフォルトの名無しさん** · 2019/05/07(火) 11:01:49.04

>>96
帳票とかからむと、手軽だもんな

**デフォルトの名無しさん** · 2019/05/08(水) 19:00:39.16

Accessは何たって帳票の作成が超簡単！
これがあるから離れなれない。
LibreOfficeやOpenOfficeにも帳票作成ツールはあるけど、
Accessほど使い易くはないのが、移行できずにいる大きな要因の一つなのは間違いない。

**デフォルトの名無しさん** · 2019/05/11(土) 13:23:24.99

Office365でアプリアイコンが刷新されたがAccessは変わらない悲しみ

**デフォルトの名無しさん** · 2019/06/03(月) 01:57:41.37

access2016使ってて2013のランタイム入れたらaccessが使えなくなってびびったわ
あわててシステムの復元して直ったけど

**デフォルトの名無しさん** · 2019/07/17(水) 21:40:08.49

サブフォームのソースオブジェクトに、SQLを直接記入することはできないのでしょうか？
SQL文というものがそもそもオブジェクトでないから記入できないのでしょうか？

**デフォルトの名無しさん** · 2019/07/17(水) 22:16:32.17

Formのオープン時にそのサブフォームのおソースを放り込めばできる
あとはメインフォーム上でサブフォームをいぢるイベント時に書くとか　例えばボタン押した時など
サブフォームはソース無し　にしてるけど、自分は　　そこへ放り込むやり方だと出来てる

**デフォルトの名無しさん** · 2019/07/17(水) 22:25:51.54

>>102
ビュー定義してソースに設定したら？

**デフォルトの名無しさん** · 2019/09/28(土) 01:30:49.78

id 　部門　販売品目
1　　A　　りんご
2　　A　　バナナ
3　　A　　りんご
4　　B　　バナナ
5　　B　　ぶどう
6　　B　　ぶどう
というテーブルから、
部署と販売品目が同じレコード数
（Aかつりんご、Aかつバナナ、Bかつバナナ、Bかつぶどう　の数）をカウントしたいのですがうまくいきません。

販売品目単独では
SELECT 販売品目,Count(id)
FROM テーブル名
GROUP BY 販売品目
のようにすれば思うようにいくのですが、複数条件になると思うようにいきません。
お知恵を貸していただけないでしょうか。

**デフォルトの名無しさん** · 2019/09/28(土) 02:03:10.80

SELECT 部門, 販売品目, Count(ID) AS IDカウント
FROM テーブル1
GROUP BY 部門, 販売品目
HAVING (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう")) ;

**デフォルトの名無しさん** · 2019/09/28(土) 02:08:15.90

もしくは
SELECT 部門, 販売品目, Count(ID) AS IDのカウント
FROM (
SELECT * FROM テーブル1 WHERE (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう"))
) GROUP BY 部門, 販売品目

**デフォルトの名無しさん** · 2019/09/28(土) 02:22:14.79

//シンプルにこれでもできたけどwhereの位置とか括弧とか間違えてない？
select 部門, 販売品目, count(ID) as カウント
from テーブル1
where (((部門)="A") AND ((販売品目)="りんご")
OR ((部門)="A") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="バナナ")
OR ((部門)="B") AND ((販売品目)="ぶどう"))
group by 部門, 販売品目

**デフォルトの名無しさん** · 2019/09/28(土) 06:33:14.21

>>106
ありごとうごぞいます。
説明が不十分でした。
たしかにそのとうり記述すればできるのですが、部門や販売品目が増えていった場合に、全組合せを書き出さないでやる方法はないものかと考えております。

**デフォルトの名無しさん** · 2019/09/28(土) 09:36:23.69

まだ説明不足かと
組み合わせを指定しないと絞り込みはできないし
クエリビルダーでちゃちゃっと作った最小形が>>106
絞り込み条件のテーブルを他に作ってリレーションとる方法もあるけど

**デフォルトの名無しさん** · 2019/09/28(土) 21:47:53.70

>>105
要件定義すらまともに書けない馬鹿だからSQLの基本もわかっていないのかね？
どこにも部署なんてないのだが

**デフォルトの名無しさん** · 2019/09/28(土) 23:50:31.47

Ruby なら、

require 'csv'

str = <<"EOT"
id 部門販売品目
1 A りんご
2 A バナナ
3 A りんご
4 B バナナ
5 B ぶどう
6 B ぶどう
EOT

# 空白区切りで、ヘッダー有り
options = { :headers => true, :col_sep => " " }

# Hash.new で、初期値は、{ }
hash = CSV.parse( str, options ).each_with_object( Hash.new { |h,k| h[ k ] = { } } ) do | row, hash |
dep = row[ '部門' ] # department
item = row[ '販売品目' ]

if hash.dig( dep, item ) # Ruby 2.3 から
hash[ dep ][ item ] += 1
else
hash[ dep ][ item ] = 1
end
end

p hash
#=> {"A"=>{"りんご"=>2, "バナナ"=>1}, "B"=>{"バナナ"=>1, "ぶどう"=>2}}

**デフォルトの名無しさん** · 2019/09/29(日) 07:32:11.18

>>111
いきってないで答えてやれよヴァカw

**デフォルトの名無しさん** · 2019/09/29(日) 09:35:48.11

AccessならGurupByしたクエリを名前を付けて保存しておくのが正解
サブクエ遅いから

**デフォルトの名無しさん** · 2019/09/29(日) 19:47:04.97

普通に部門販売品目でソートしてから
dynasetからvbaでカウントしたら駄目なの?
sql文を捏ね繰り回すよりその方が簡単な気がするけど?

**デフォルトの名無しさん** · 2019/09/30(月) 00:02:54.58

質問者が一番馬鹿だが答える方も馬鹿ばっか

**デフォルトの名無しさん** · 2019/09/30(月) 00:24:58.55

なのでこのカウントの質問、ここで終了！

**デフォルトの名無しさん** · 2019/09/30(月) 10:47:04.29

どうしてもsql文でやりたいなら
他のsql系統のスレで聞いたほうが良いと思う
accessはsqlとvbaを組み合わせて使えるので
込み入り難いからやり易い面が有る
自分は割りとそういうやり方をしてしまう
けど他のリレーショナルデータベースはsqlを駆使しないといけない場面が多いだろうから
その手の方面の人の方がsql文に詳しい人が多いと思う
sql文の質問をしても構わないと自分は思うけど一応vbaスレなんで

**デフォルトの名無しさん** · 2019/09/30(月) 23:29:21.37

他のリレーショナルデータベースはもっとましな言語で使うんだよ

**デフォルトの名無しさん** · 2019/10/05(土) 14:25:32.14

""とclearcontentsの違いが明らかになったな

**デフォルトの名無しさん** · 2019/10/05(土) 14:25:47.70

誤爆です

**デフォルトの名無しさん** · 2019/10/22(火) 14:54:31.07

俺なら
SELECT [部門] & [果実] AS 式1, Count("HOGE") AS DUMMY
FROM テーブル１
GROUP BY [部門] & [果実];

**デフォルトの名無しさん** · 2019/10/30(水) 06:50:33.11

普通の関数を使ったSQLがコンパイルエラーで通らなくなるのは、ずっとあるバグなの？
文字列中に含まれるスペースをなくした列同士を比較したいだけなのに

**デフォルトの名無しさん** · 2019/10/30(水) 08:05:14.44

DBに上げる前のデータ加工はExcelとPowerBIについてくるPowerQueryで完結させる
DB自体は何でも良い
Accessはフロントエンド

こういう感じの運用が一番融通が利いて楽

**デフォルトの名無しさん** · 2019/10/31(木) 14:53:16.10

>>123
通ってたのが通らなくなったなら参照設定確認が最初の一歩

**デフォルトの名無しさん** · 2019/10/31(木) 16:05:52.19

optionala argumentについて教えてください｡
https://tsware.jp/tips/tips_119.htm では引数を Optional かつバリアント型で宣言すると書いてありますが､
総本山の https://docs.microsoft.com/ja-jp/office/vba/language/concepts/getting-started/understanding-named-arguments-and-optional-arguments では
あっさりと string型で宣言しています｡どっちが正しいのでしょうか？

それと､プロパティーシートから関数を呼び出すときに引数を省略できますか？エラーばっかり出てしまうので,不可能という気がしてきますが､実際はどうでしょうか？

**デフォルトの名無しさん** · 2019/10/31(木) 16:14:24.18

ひとつ解決しました｡
ここ https://bettersolutions.com/vba/macros/optional-arguments.htm に Remember that IsMissing will only work with the Variant datatype. と書いてあるので､
IsMissingを使いたい場合にvariant型である必要があるだと思います｡

プロパティーシートからcallするときに省略可能かどうかはまだわかりませんね｡

**デフォルトの名無しさん** · 2019/10/31(木) 23:30:26.82

>>127
プロパティシートからでも省略できると思うよ
標準で使える関数でも省略できるから

**デフォルトの名無しさん** · 2019/11/06(水) 06:37:50.98

IsNumeric 関数 VBA　http://vba-auto.com/isnumeric_function_vba/

9CF

**デフォルトの名無しさん** · 2019/11/06(水) 06:37:51.02

IsNumeric 関数 VBA　http://vba-auto.com/isnumeric_function_vba/

9CF

**デフォルトの名無しさん** · 2019/11/12(火) 08:08:27.20

スレチですまん。
俺はVBAをやってるが上司から言われました。（うちの部署、10名のうち、VBAを作れる人は二人だけ、、、）

AIが集計をしてくれるからEXCELは必要ない時代が来るねと言ってた。

反論出来る？

**デフォルトの名無しさん** · 2019/11/12(火) 09:07:34.81

高度なAIにVBAとか集計なんかやらせちゃ駄目だ。他に何もできない俺たちがやらなきゃな

**デフォルトの名無しさん** · 2019/11/12(火) 10:13:03.38

>>131の者です。
EXCELとACCESSを間違えた、、、。
すみません。

**デフォルトの名無しさん** · 2019/11/12(火) 18:47:25.82

ここって禿げのおっさん来てるの？

**デフォルトの名無しさん** · 2019/11/12(火) 21:13:04.29

>>131
〉AIが集計をしてくれるからACCESSは必要ない時代が来るねと言ってた。

来ませんけど、未来のことなので証明はできません
なので、その理由を何かをしないことに最大限反論に活用するのが最も有効です

私がプログラムを始めた数十年前から、「コンピュータが発達したらプログラマーはいらなくなる」と言われていましたが、今でも慢性的に不足してますし、更には小学校（？）からプログラムを教えると

ちなみに自社でai使うことになっても、おそらく数百万円かかって、大して使い物にならないでしょう
ITに詳しくない人は、知識もないのに夢見過ぎです

複数データを組み合わせてサクッと結果求めたり、そこそこのアプリ（特にレポート活用）作るなら、今でもACCESSは最良の選択の一つだと思ってます。2.0くらいから今までそこかしこで使いまくってます

**デフォルトの名無しさん** · 2019/11/17(日) 21:57:31.66

エクセルに比べて、アクセスは過疎ってるなあ

**デフォルトの名無しさん** · 2019/11/18(月) 09:09:41.09

あなたの禿にacc(ry

**デフォルトの名無しさん** · 2019/12/19(木) 22:11:03.53

Access2010
印刷プレビューのリボンで「PDFまたはXPS」を押した際に出てくる
「PDFまたはXPS形式で発行」のダイアログを出すVBAコード教えてください。

**デフォルトの名無しさん** · 2019/12/20(金) 21:12:19.28

とりあえず自分でマクロの記録でそれらの操作をなぞって
それでできたブツを思う存分手直しして
そこで発生した問題を質問した方がいいかもな

Access遣いはおばーちゃんやおじーちゃん多いから
「イチからかよ」って思われると、誰も面倒がって答えたがらない

**デフォルトの名無しさん** · 2020/01/25(土) 09:08:10.81

Windows10､Office365のAccess16なんだけど､レポートプレビュー画面にボタンでもおいて､そこにイベントプロシジャーを設定したいんだけど､どうするのかな？
Access2003では簡単にできたんだけど､リボンがでてきたAccess2007以降出来なくなった気がするんだけど､どうなんだろう？

**デフォルトの名無しさん** · 2020/01/25(土) 10:20:39.11

あなたのハゲにサクセスしたい

**デフォルトの名無しさん** · 2020/01/25(土) 23:41:49.05

>>140
ちょっと2003でそれをやるコード上げてみ

**デフォルトの名無しさん** · 2020/01/26(日) 13:49:02.85

>>142
確か､カスタムメニューだったか､カスタムボタンを設定して､それにイベントプロシジャーを設定していた気がする｡
アクセスキーを設定してプレビューを印刷して､プレビュー画面を閉じて､特定のフォームを起動して､特定のボタンやらテキストボックスにフォーカスを与えるとかやっていた気がする｡
あれは実に便利だった｡
Windows7が動いているPCが物置にあった気がするから確かめてみる｡

**デフォルトの名無しさん** · 2020/02/06(木) 19:57:45.45

会社で役割柄ツールを作ることになりまして、アクセスに入門しました
xlsxをインポート、それと同時にテーブルを作成するVBAは組めたのですが、同時にレコードが勝手にソートされてしまい、元データとレコードの順番が異なってしまうという問題に直面しています。
この場合、テーブル作成と同時にオートナンバーを設定するようにしたいのですが、docmd～acimportdelimでは定義付けができません。
何か方法はありますでしょうか

インポートするxlsxは毎回ファイル名が異なる想定なので、保存したインポートを使うのは極力避けたいです

**デフォルトの名無しさん** · 2020/02/06(木) 22:52:24.69

>>144
元データに順序列付けとき

**144** · 2020/02/07(金) 06:55:52.14

>>145
そうですよね…
最終手段としてはそれを考えています

**144** · 2020/02/07(金) 06:56:12.50

ありがとうございます！

**デフォルトの名無しさん** · 2020/02/07(金) 12:31:07.76

>>146
最終手段というか、ＲＤＢの行の順序に意味を持たしちゃ行けないと言う基本理念

**デフォルトの名無しさん** · 2020/02/09(日) 18:52:02.04

あなたのハゲにサクセスしたい

**デフォルトの名無しさん** · 2020/05/03(日) 05:34:51.92

おはようございました
新型コロナでACCESSどころでは無いですね

**デフォルトの名無しさん** · 2020/05/23(土) 05:21:27.38

jetbeensのDataGripってアクセスでも使えるの？

**デフォルトの名無しさん** · 2020/05/24(日) 14:56:41.74

>>151
jetbrainsでしょ

**デフォルトの名無しさん** · 2020/05/24(日) 14:58:32.86

>>151
https://stackoverflow.com/questions/36820072/how-do-i-connect-a-ms-access-database-to-jetbrains-datagrip

**デフォルトの名無しさん** · 2020/06/12(金) 10:16:26.06

全然ネットにもあがっていないけれど、Access2019の最新版で、DAOでレコードセットを作成して操作しようとすると
Accesが落ちるっていう現象を経験している人っていませんか？
32ビット版も64ビット版も同じ。

**デフォルトの名無しさん** · 2020/06/13(土) 00:26:56.61

Excelが2013というオチではなくて?

**デフォルトの名無しさん** · 2020/06/13(土) 23:26:59.26

そうでなくて、今まで動いていたのに最新のビルドになったら突然落ちるようになった。
前のビルと番号に戻したら動くのよ。
ADOでレコードセットを作成したときはどのビルド番号でも問題なし。

**デフォルトの名無しさん** · 2020/06/19(金) 09:37:07.67

Application.SetOptionの引数一覧が知りたいのですが、誰か知りませんか

**デフォルトの名無しさん** · 2020/07/31(金) 18:27:45.20

ヘルプデスクがスキルアップするため、プログラミング経験積むのにAccessVBAって合ってますか？

**デフォルトの名無しさん** · 2020/07/31(金) 18:46:19.97

まずヘルプデスクという職場でプログラミング経験積めるの？

**デフォルトの名無しさん** · 2020/08/01(土) 22:26:21.99

合ってるかどうかはわからんけど、それはありだな。
DBとPG、両方の知識が増える。

**デフォルトの名無しさん** · 2020/08/02(日) 01:27:11.88

お前らどうやって勉強したの？
おいらADO勉強したいけどどの本読んでいいかわからないから勉強できてない。

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

覚えるなら実務が一番早いと思いますが
独学なら簡単なものを作ってみると良いですよ
持ち物リストとか

**デフォルトの名無しさん** · 2020/08/04(火) 22:22:12.96

持ち物リストですか、わかりました

**デフォルトの名無しさん** · 2020/08/07(金) 09:09:10.88

>>161
Google。
本で勉強したのは20年前かな。

**デフォルトの名無しさん** · 2020/10/10(土) 13:55:25.74

最近のAccessは条件付き書式の条件数が3つまでという制限がなくなったと聞いて､vbaで4つ条件を書いたら､怒られた｡
条件数の上限の件はどうなっているの？

**デフォルトの名無しさん** · 2020/10/12(月) 19:42:49.57

https://hamachan.info/win8/access/and.html#st-toc-h-3
なんだろ？もっかい見直してみ

**デフォルトの名無しさん** · 2020/10/12(月) 20:44:51.07

>>166
こんなことがかいてありましたね｡
>>参考Access2010以降は、条件付き書式を3つ以上追加することができます。Access2007では、3つまでです。

もしかしたら､メニューからなら可能でVBAでは不可能なのかもしれませんね｡そうだとしたら変な仕様ですね｡

**デフォルトの名無しさん** · 2020/10/12(月) 22:03:49.00

不可能とみるか、未対応と思うか　人それぞれ
クレバーなら文句を付けてるヒマ有ったら今できるベストな対応をして次に進んでる

**デフォルトの名無しさん** · 2020/10/12(月) 22:18:07.44

おお､AccessとかVBAを勉強し始めた頃を思い出しますね｡
ネットで誰かが質問すると必ず上から目線で罵詈雑言だったなあ｡
知恵袋とかも酷かったなあ｡

**デフォルトの名無しさん** · 2020/10/13(火) 20:22:52.03

>そうだとしたら変な仕様ですね｡
これが無かったら小言書かなかったけどな　MS相手にどっちが上から目線なんだか
かてて加えて減らず口叩かれるとは　いやはや

チラとWeb巡ったら難問袋小路問題で以前からあった疑問なのは判った
条件付き書式をVBAで制御するときに注意すること　でググれば一番上に出てくるであろうサイトでは
2013をベースに「・・・すること」とか断言してるが、どうなんだ？
hatena さんのサイトでは別問題として画面がチラつくと仰ってる
そのサイトの途中にあるリンク先　↓　（アドレス貼ると書き込みできないから省略
YU-TANG さんは既にアーカイブでしか見られないしVerも古いが
3つしかできないのを工夫で５つまで可能にしてる（らしい　詳細は未チェック）
そのサイトの最下段にあるリンク先 ↓　（ｒｙ
で、そこから誘導されたこちらもアーカイブなLebans 氏のサンプル（らしい　詳細は未チェック）
帳票フォームをサブクラス化して　云々　悪魔の技とYU-TANGさんは大絶賛してる
驚くことにアーカイブだがファイル落とせる

自分では必要に迫られたこと無かったから無頓着だったが、なるほどね　みなさん悪戦苦闘してるんですね

**デフォルトの名無しさん** · 2020/10/14(水) 02:48:02.48

accessは質問者に小言を言う人が多い印象。
いわゆるIT土方が多いからかねえ。
余談だけど世間に流通している商品のVBAを覗くとひどいコードの多さに驚く。そういうコードを書く人が質問者相手にがストレス発散してる気がするなあ。

**デフォルトの名無しさん** · 2020/10/20(火) 06:46:57.60

ACCESSは後継者が少ないから先輩面したくても出来ないって人が多いのでは。
私も後輩が欲しい。育成では無く先輩面目的で(だからダメなんだろうね)。

**デフォルトの名無しさん** · 2020/10/23(金) 06:48:31.50

Access2016を使っています
VBAを使いcsvファイルを取り込もうとしているのですが取り込み先のファイルの名前全てにピリオドが入っており、例1333.T.csv ピリオドが邪魔でファイル名を指定してもうまく取り込めません
何か良いアイデアはないでしょうか？

**デフォルトの名無しさん** · 2020/10/23(金) 17:06:19.46

ｃｓｖファイルに名前付けのルールとかがあって、規則性があるなら Left Mid Right
辺りを交えて工夫　　全く一貫性が無いとかなら　. を ppp とかにリネームする工夫
https://soudan1.biglobe.ne.jp/qa2877385.html　　←これってこと？
http://tsware.seesaa.net/article/214574472.html　←ここにもヒントが

**デフォルトの名無しさん** · 2020/10/24(土) 06:13:20.49

>>173
私はファイル選択、コピー、インポート、コピーしたファイルの削除、と言う手順でデータを取り込んでます。

**173** · 2020/10/24(土) 23:19:53.94

>>174
ありがとうございます
ファイル名は規則性があるのでLeft Mid Rightを使ってドットをスルーして取り込みをするやり方を探してみます
>>175
こちらはファイルコピーをしてドットのない名前に変換してからインポートといった感じでしょうか初心者すぎてまだ色々理解できていないですが道筋がみえましたありがとうございます

**デフォルトの名無しさん** · 2020/11/21(土) 02:09:02.77

ACCESS365?でadoの話。
昨日、テーブルメンテナンス用にプログラム書いて、テストでupdateメソッド行をコメントアウトして実行したのにレコードが更新されて焦った。幸い意図した通りの更新が出来たので問題は無かったのだが、こんな事有る?

**デフォルトの名無しさん** · 2020/11/21(土) 19:58:38.03

通常ではあり得ない動作ですから
accdbが破損しているか
思い違いしているか
じゃないですかねぇ

**デフォルトの名無しさん** · 2020/11/22(日) 23:10:13.61

だよね、自分の事じゃなければ私もそう思う。明後日に追試してみます。

**デフォルトの名無しさん** · 2020/11/25(水) 18:43:23.08

>177
ADOだと、Updateメソッド実行しなくてもレコードが保存される条件があったはず

https://docs.microsoft.com/ja-jp/office/client-developer/access/desktop-database-reference/update-method-ado
>Update メソッドを呼び出すより前に追加中または編集中のレコードから移動すると、ADO によって自動的に Update が呼び出されて変更内容が保存されます。

**デフォルトの名無しさん** · 2020/11/26(木) 22:16:38.24

>>180
これか、ありがとう。
だとしたらupdateメソッド要らなくね?よく分からんが。

**デフォルトの名無しさん** · 2020/11/27(金) 16:20:14.12

レコード移動しないけど変更を保存したいときに必要だろう

**デフォルトの名無しさん** · 2020/11/29(日) 20:06:15.16

>>182
それはそうね

**デフォルトの名無しさん** · 2021/01/11(月) 16:27:04.20

ACCESSのSQLでビット比較ってどうすればいいですか
(value & 0x10) == 0x10 みたいに特定のビットが立ってるか比較したいのですが

**デフォルトの名無しさん** · 2021/01/11(月) 17:56:37.60

できるかわかりませんが、
(value and &H10) = &H10
だとダメですか？

**デフォルトの名無しさん** · 2021/01/12(火) 19:10:42.78

>>185
試してみます、ありがとうございます

**デフォルトの名無しさん** · 2021/01/12(火) 19:16:56.91

ダメでした
andを&に変えてもダメでした

**185** · 2021/01/12(火) 19:30:22.83

そっか、SQLのAND演算子になっちゃうのか… &も文字列の結合演算子とみなされちゃうのかな？

&H10のビット限定なら、
(value \ 16) MOD 2
でいけそうですが、他にもパターンがあるでしょうから…

**185** · 2021/01/12(火) 19:34:25.38

何より分かりにくいですねw
整数除算(\)で該当のビット位置を一番右にずらして、MODでそのビットを取り出します

**185** · 2021/01/12(火) 19:49:06.45

16 じゃなくて &H10 と書く方が取り出すビットと一緒で分かりやすいですね(うまくゆくかはわかりませんが)

(value \ &H10) MOD 2

**185** · 2021/01/13(水) 02:15:13.93

連投すみません
188案は value が long型だとして、値が負数のとき正しい結果にならないことがあります
ごめんなさい

**デフォルトの名無しさん** · 2021/01/13(水) 17:32:20.96

>>188-191
親切にありがとうございます。
\とか使えるのは知りませんでした。
試してみます

**デフォルトの名無しさん** · 2021/01/13(水) 17:50:48.61

Windows10、Access365です。

Excelファイル上のデータに対して、ADOでアクセスして、データを取り込んでいるのですが、時間がかかります。
時間を短縮する方法はないでしょうか。

データは1ヶ月分9万件程度ですが、Accessのテーブルに取り込むのに、7分程度かかります。

テーブルのレコードの追加は、データ1件1件に対して、ADOのAddNewメソッド、Updateメソッドで追加しています。

試しに手動でAccessのインポート機能を使用して1ヶ月分のデータを取り込んでみたのですが、時間はかからなかったのですが、F20、F21など、空白の列まで要求されました。
そのためこの手段はあまり良くないと思っています。

レコードセットを一気にInsertする方法とかないでしょうか。
よろしくお願いします。

**デフォルトの名無しさん** · 2021/01/14(木) 01:33:57.64

一件一件Updateするんじゃなくて、UpdateBatchでバッチ更新してみるとか

**デフォルトの名無しさん** · 2021/01/14(木) 01:41:15.38

>>187
ふつうに>>185でできるはずだけど

valueの型が数値じゃないんじゃ?

**デフォルトの名無しさん** · 2021/01/14(木) 03:34:32.57

>>193
レコードセットで要求の動作はできないと思われます
以下はレコードセットを使わない方法になります
前提として
・現在取込時にレコードセットを編集していない
・SQL が書ける

INSERT 文で
・「IN 句」に Excel ファイルを指定
・追加先テーブルに Access テーブルを指定
これでインポートと同等のパフォーマンスになると思います

詳細は MS のリファレンスを参照
https://docs.microsoft.com/ja-jp/office/vba/access/concepts/miscellaneous/in-clause-microsoft-access-sql
今(.xlsx)だと EXCEL 12.0 になります

**デフォルトの名無しさん** · 2021/01/14(木) 05:18:36.84

知恵袋はあてにならんくて

**デフォルトの名無しさん** · 2021/01/14(木) 12:53:46.92

>>196
ありがとうございます
試しに1行をInsertしてみたところ、3分程度で処理できました。
ただ、.AddNewの方も、同じデータで3分-7分のくらいで処理できたので、思ったよりも処理速度は改善しませんでした。
あと、Nullだけのレコードが入ってしまうことも難点でした。

取り込みたいデータを取り込めたのと、列が30列くらいあり書き換えに時間がかかるので、一旦は今のままでいこうと思います。

ただ、今後も同じようなデータの取り込みがありそうです。
他に効率的なデータ入れ込み方法がありましたら、お教えいただけると幸いです。

**デフォルトの名無しさん** · 2021/01/14(木) 16:43:18.02

>>198
ループ中の AddNew を SQL の INSERT に置き換えたのでしょうか？
インポート対象(9万件程度)を1度の INSERT で行います
Null レコードは Where で除外可能かと思います

現実的なのは SQL 直発行かインポート機能の2択かと思います
インポート機能も定義を固めれば使い物になります

効率というのは人によって変わります
普段からコードに触れている人なら VBA からの SQL 発行が効率的
コードは書かないが Access を使い慣れている人ならインポート機能やクエリ定義が効率的
両者の方法とも取り込み実行時間はほぼ同じです

**デフォルトの名無しさん** · 2021/01/14(木) 18:14:16.61

>199
いえ、INSERT SELECTからの列指定をして一気に入れ込みました。実験的に1列のみを。

インポート機能とSQLでの処理は速度が違う気がするのですが本当でしょうか？
テーブルへの書き込み方が根本的に異なるような気がします。

DoCmd.TransferSpreadsheet はぜひ使えるようになっておきたいですね。
エラーがよくわからないので今まで使っていませんでした。

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

>>200
全体で1トランザクションになるようにトランザクション張るか
UpdateBatchで更新するか試してみてくれ

**デフォルトの名無しさん** · 2021/01/14(木) 23:19:32.20

>>201
ありがとうございます
参考にしながらやってみます。
https://www.google.co.jp/amp/s/foolexp.wordpress.com/2011/11/07/%25E5%2588%2587%25E6%2596%25AD%25E3%2581%2597%25E3%2581%259F%25E3%2583%25AC%25E3%2582%25B3%25E3%2583%25BC%25E3%2583%2589%25E3%2582%25BB%25E3%2583%2583%25E3%2583%2588%25E3%2581%25A8%25E3%2583%2590%25E3%2583%2583%25E3%2583%2581%25E6%259B%25B4%25E6%2596%25B0%25E3%2583%25A2%25E3%2583%25BC%25E3%2583%2589/amp/

https://docs.microsoft.com/ja-jp/sql/ado/guide/data/sending-the-updates-updatebatch-method?view=sql-server-ver15

あと、トランザクションの以下のコードですが、参考にしようと思うのですがこれは全体で1トランザクションになっていますか？
https://excel-excel.com/tips/vba_299.html

**デフォルトの名無しさん** · 2021/01/15(金) 12:06:52.83

>>199
もう一度SQLでやってみたところ、インポートと同じ時間で処理できました。
ありがとうございます

>>201
UpdateBatchでは処理時間に違いがありませんでした
レコードセットへの書き込みに時間がかかっているのかもしれません。
ありがとうございます

**デフォルトの名無しさん** · 2021/01/16(土) 21:45:45.19

>>161
資格をモチベにしてる

**デフォルトの名無しさん** · 2021/01/26(火) 12:20:07.19

ウチの社内の情報システムの制限でwindowsカメラアプリが制限されてるんだけど、VBAで無理矢理動かせないだろうか、、、
いろいろ検索してみても古い情報しかなくて、、
64bit版でも出来るようなプログラムの見本とか有れば助かる。

**デフォルトの名無しさん** · 2021/01/26(火) 12:31:00.16

そんな事してバレたら懲戒処分にならない?

**デフォルトの名無しさん** · 2021/01/26(火) 21:32:09.76

>>206
少し言い方が悪かったかな。

端末でWEB会議してるから、カメラを使うのは問題無いんだけど、静止画を撮るソフトが入っていないもんで、静止画を撮ってDBと紐づけたいってなると、できなくて。
小規模グループでAccess使ってるから、システムに相談しても本気でかけあってくれなくて、、
それだったらVBAでどうにかならないかと思って。

**デフォルトの名無しさん** · 2021/01/26(火) 22:49:05.99

>>207
より悪いんだけど

**204** · 2021/01/27(水) 17:26:57.82

スタンダード受かった（＾ω＾）v

**デフォルトの名無しさん** · 2021/01/29(金) 13:44:54.10

>>209
もめでとう！
資格は財産！
凄いなスタンダードは

**デフォルトの名無しさん** · 2021/01/29(金) 16:32:16.97

>>210
ありがとう。マイナー資格のせいか、
テキストは悪評にも関わらず他に選択肢ないし、
そのテキストもアプリもやたら高いけど、
一発合格のために全部ちゃんと買ったわー。

**デフォルトの名無しさん** · 2021/01/31(日) 10:42:42.16

VB自体マイナーよりなのがね。。。
参考書の著者は名のある人(武藤玄さん？)だから安心でしょ

**デフォルトの名無しさん** · 2021/02/01(月) 19:30:44.14

「課題テーブル」の項目「ファイル：添付ファイル型（拡張子は.xlsx）」をSQLで取得して(1)、
そのファイル名を変更して保存(2)しようと思っています。
(2)の処理は問題ないのですが、肝心な（1）の処理が分かりません
SQLだと以下のような感じかと思うですが、これだと、「ファイル」の名称も取得すらできないようです。
なにかしらヒントをいただけないでしょうか。
検索にヒットするようなキーワードでもかまいません。
よろしくお願いいたします。
"SELECT ファイル　 FROM 課題テーブル where ID = 1"　（件数は1件）

**デフォルトの名無しさん** · 2021/02/01(月) 20:47:30.12

ファイルを取り出したいのか、ファイル名を変えたいだけなのか、何がしたいのかがわからない。

**デフォルトの名無しさん** · 2021/02/01(月) 20:48:57.97

ファイルをSELECTするとファイルが出てくるというのは奇妙な発想だな

**デフォルトの名無しさん** · 2021/02/01(月) 20:52:05.66

>>214
ファイルを取り出したいんだけど、
SQLでなくクエリーでやるべきなの？
先日Access始めたから見様見真似。

添付ファイルを取得すれば、renameして保存するところはわかるんだけど。

**デフォルトの名無しさん** · 2021/02/01(月) 20:58:59.00

エクセルファイルはAccessには入ってないだろ
フォルダから取り出すのか？

**デフォルトの名無しさん** · 2021/02/01(月) 20:59:30.52

何がしたいのかマジで分からんｗ

**デフォルトの名無しさん** · 2021/02/01(月) 20:59:46.61

Accessのテーブルの添付ファイル型の項目に入っている

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

そのアドレスをエクセルで開いてリネーム保存すればいいじゃん

**デフォルトの名無しさん** · 2021/02/01(月) 21:03:39.26

Dim MyExcel　As New　Excel.Application

とか使って

**デフォルトの名無しさん** · 2021/02/01(月) 21:12:34.68

>>221
それ使ってるんですけど添付ファイル型ってchar型とかと同じように扱えれるんですかね、
よろしければもう少しヒントを。

**デフォルトの名無しさん** · 2021/02/01(月) 21:22:03.72

ファイルをディスクのどこかに保存するのは、SaveToFile メソッドですかね？
なんか使えそうに思うけどいかがですか？

**デフォルトの名無しさん** · 2021/02/01(月) 21:43:47.01

そんな新しいAccessなんて持ってないから知らん

**デフォルトの名無しさん** · 2021/02/01(月) 21:44:43.65

https://oshiete.goo.ne.jp/qa/8167605.html

添付ファイル型はレコードセットになっていて
その中のフィールドのひとつ（3つ目。つまりF(2)）がファイルネームになっていて、
それを取得する。らしい。

**デフォルトの名無しさん** · 2021/02/01(月) 21:45:48.50

>>223
普通にSaveAsじゃあかんの？

**デフォルトの名無しさん** · 2021/02/01(月) 21:48:22.88

ありがとうございます。
少しヒントが得られたかも。
明日試してみます。

**213** · 2021/02/02(火) 11:31:56.15

添付ファイル型データのデータとファイル名取得が出来たので
参考に記載します。ありがとうございました。

http://www.proton.jp/main/windows/access-vba.html
（参考URL）添付ファイル型フィールドのファイルを開くには

コーディング抜粋
----------------------------------------------------------------
Dim　SQL, fileName As String
Dim DB As DAO.Database
Dim RS,RS2 As DAO.Recordset

Set DB = CurrentDb
'なお、下記「フアイル」は「.xlsx」形式のデータ
SQL = "SELECT ファイル FROM テストテーブル where ID = 1 ; "
Set RS = DB.OpenRecordset(SQL)

'「ファイル」データ取得
Set RS2 = RS.Fields(0).Value

'「ファイル」データファイル名称取得
fileName = RS2.Fields("FileName").Value

------------------------------------------------------------------------------------

**デフォルトの名無しさん** · 2021/02/02(火) 14:27:49.60

それ、SQLとRSは無駄にVariantになってないか？

**デフォルトの名無しさん** · 2021/02/04(木) 15:46:42.10

OLEオブジェクト型はどうやってSQL（select 文）で抽出するの？

**デフォルトの名無しさん** · 2021/02/04(木) 20:11:15.64

select文は普通に列名とテーブル指定するだけじゃないのか？
そっからどうやってデータ取得するかはどうやってDBアクセスしてるかによるんじゃね
とりあえずDAOかADOかとバージョンぐらい書け

**デフォルトの名無しさん** · 2021/02/04(木) 20:23:44.53

>>228
ファイルを取得したいと言っていたのに、ファイル内のデータでよかったのか？

**デフォルトの名無しさん** · 2021/02/05(金) 00:26:34.08

VBSでmdbに接続してaddnewしてupdateするだけの簡単なスクリプトの挙動がおかしい｡

sub や Functionにして callすると成功するくせに､subじゃなくて素のスクリプトだと何もしない｡
ちなみに読込みはどっちでも成功する｡
なぜ､addnewのときだけ､プロシジャーである必要があるのだろうか?

**デフォルトの名無しさん** · 2021/02/05(金) 00:34:27.19

vbseditがおかしいらしい｡
適当なディレクトリに保存して実行したら素のスクリプトでも成功した｡
わけわらん｡

**230** · 2021/02/05(金) 10:13:06.16

SELECT文でOLE型のファイル（拡張子.docx）を読み込んで保存しようとしています。
処理を行ったところ、「ファイル『temp.xls』は内容に問題があるため、開けませんでした。」という
メッセージが出ますが、「開いて修復」すれば元のファイルと同じに見えるので
SELECT文で項目だして、書き出すまである程度できているようなんですが、
どこがおかしいのでしょうか、ご意見をいただけたら幸いです。

参考サイト
https://www.moug.net/tech/acvba/0080032.html
画像を読み込む（GetChunkメソッド）

ソース一部抜粋

'OLE型用変数
Dim bytFile() As Byte
Dim nFileNo As Integer
Dim nSize As Long
Dim olename As String

Set DB = CurrentDb
　　　　'項目「OLE型データテスト」抽出のSELECT文の実行
Set rs = DB.OpenRecordset(sqlText)

nSize = rs.Fields("OLE型データテスト").FieldSize
bytFile() = rs.Fields("OLE型データテスト").GetChunk(0, nSize)

nFileNo = FreeFile
Open "C:\Users\testuser\Documents\test.docx" For Binary As #nFileNo
Put #nFileNo, , bytImage()
Close #nFileNo

**デフォルトの名無しさん** · 2021/02/05(金) 13:09:23.30

VBS って、まだシステムで使えるのか？

保守されてる？

**デフォルトの名無しさん** · 2021/02/06(土) 11:30:21.47

bytImage() の中身は docx に直接上書き保存できるものなのか？

**デフォルトの名無しさん** · 2021/02/07(日) 12:21:08.72

>>236
Windows 10そのものがまだ使っています。

**デフォルトの名無しさん** · 2021/02/26(金) 20:55:30.10

AccessからOracleに接続して、テーブル定義を取得しようとした場合、Currentdbにリンクテーブル作成してtabledefで取得するしかないですかね？

**デフォルトの名無しさん** · 2021/02/26(金) 23:30:20.77

>>239
そんな訳ないだろ
お前の頭には無理ってだけだ

**デフォルトの名無しさん** · 2021/02/26(金) 23:38:57.64

>>240
どうやってやっているんですか？
そんなに人に偉そうにいうくらいならお詳しいんですよね？

**デフォルトの名無しさん** · 2021/02/27(土) 00:39:35.09

一応言っとくが、あわしろ氏は権威だぞ。

**デフォルトの名無しさん** · 2021/02/27(土) 03:37:26.48

>>241
だからお前みたいな馬鹿には無理ってだけだ

**デフォルトの名無しさん** · 2021/02/27(土) 09:00:35.16

わからないんだろ？
教えられないのに質問スレでマウント取って
かっこいいね！

**デフォルトの名無しさん** · 2021/02/27(土) 13:52:55.39

馬鹿が聞き出そうとして必死だな
元の質問が、
「しかないですかね？」
だから、
「他にある。馬鹿にはわからないだけ」
これで完結

**デフォルトの名無しさん** · 2021/03/12(金) 04:20:10.68

クライアントPC複数台にコピーしてあるaccdbの更新を自動化したいのですが、上手い方法が有ったらアドバイス下さい。
今は、終了時に更新版があればコピー専用のaccdbを開く、という方法です。
時々コピーに失敗したり、更新後の起動が出来なかったり、なんかスマートに出来ません。

**デフォルトの名無しさん** · 2021/03/12(金) 07:03:59.49

それぞれのPCに共有サーバーでクライアント各々に1つのものを使ってもらえば？

**デフォルトの名無しさん** · 2021/03/12(金) 07:47:36.33

え？

**デフォルトの名無しさん** · 2021/03/12(金) 15:03:23.20

>>247　コメントありがとうございます。

共有フォルダに置いたテーブルだけのバックエンドや、データベースサーバーにテーブルがあり、フロントエンドにリンクして使ってます。
各クライアントのフロントエンドを更新したいのです。
フロントエンドを共有フォルダに置いて皆んなで使うと壊れやすい、50台のクライアント全て閉じてもらわないと更新できないなどの問題があり、現在のかたちで運用しています。

**デフォルトの名無しさん** · 2021/03/12(金) 16:26:24.53

基本的には別ブログラム（Accessでなくてもいい）で上書きしてもらうしかないけど
タスクに登録して再起動してもらうとか

さがせばそれ用のツールとかありそうだけどな

**デフォルトの名無しさん** · 2021/03/12(金) 18:43:58.19

>>250
WSHで一日一回各クライアントで実行する例があったんですが、やってる事は同じなのです。なんかスマートな方法無いのかなあ。
もう少し探してみます。お騒がせしました。

**デフォルトの名無しさん** · 2021/03/17(水) 08:24:13.18

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
.ボタン_Click
End With
にすると動くのは私だけ?

**デフォルトの名無しさん** · 2021/03/17(水) 08:27:13.40

まちがった.

**デフォルトの名無しさん** · 2021/03/17(水) 08:27:40.08

With Froms!フォーム名

**デフォルトの名無しさん** · 2021/03/17(水) 08:31:05.18

スレ汚しすみません、やり直し。

他フォームや親フォームのコマンドを実行する時,
Call Forms!フォーム名.ボタン_Click
だと動かないのに,
With Forms!フォーム名
Call .ボタン_Click
End With
にすると動くのは私だけ?