Access VBA 質問スレ Part1

[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)
上下前次 1-新

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

19: 2012/03/12(月)14:16 AAS
DoCmd.RunSQL "ALTER TABLE (テーブル) ADD COLUMN XXXX BOOLEAN;"

20: 17 2012/03/13(火)01:56 AAS
回答ありがとうございます
ただ他のフィールド（adGUID・ adInteger・adVarWChar）は問題なく
Appendできるので、SQL文ではなく、これらに合わせたADOXによる
コードにしたいと思ってます
んん、というかadBooleanのフィールドを追加するとtablesへのAppend時に
エラーとなる原因がどうしても知りたいです
散々ググったのですが、結局実際にadBooleanのフィールドを追加している
省3

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

22: 17 2012/03/14(水)01:05 AAS
原因が分かりました
普段ACCESS使ってる人からは、当たり前やんけ！って怒られそうな話ですが
アドバイス下さった方もいらっしゃるので報告しますと
(テーブル).Columns.Append "XXXX",adBoolean
が原因ではなく、その次に入れておいた次の文
(テーブル).Columns("XXXX").Attributes = adColNullable
が原因でした
省4

23: 2012/03/15(木)23:06 AAS
ADOのDynamicPropertyについて
かなり詳細な解説が知りたいのですが、
なにか参考となるURLや書籍はありませんか？

24: 2012/03/17(土)19:33 AAS
Access初心者です。質問があります。
前任者のAccessで作られた業務ソフトを担当することになりました。

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

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

教えてください。

25: 2012/03/19(月)00:50 AAS
コードはともかくとして、プロパティなんかは
自分でそれをリストするプログラムを書けばいい。

26(2): 2012/03/22(木)05:39 AAS
VBAでそんなこと出来るんですね。
どこかのHPにソースが公開されていないかな〜
参考になるページなど、探して見ます。

27(1): 2012/03/22(木)21:28 AAS
>>26
ツールならこのへんか
外部ﾘﾝｸ[html]:www.vector.co.jp
外部ﾘﾝｸ[html]:www.vector.co.jp
どっちもDAOとかCOMのAccess.Applicationオブジェクトで抜いてるだけだと思う

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

28: 26 2012/03/25(日)17:47 AAS
>>27
情報サン・クスコ☆

29: 2012/04/16(月)23:53 AAS
hosyu

30(1): 2012/04/18(水)00:22 AAS
Accessで同時利用の限界ってどれくらい？
プログラム工夫すれば50人くらいは兵器？

31: 2012/04/18(水)13:07 AAS
５０人がそれぞれ日一回違う時間帯に読み書きするとかならぜんぜん平気かもしれないよ

32(1): 2012/04/26(木)11:59 AAS
WindowsXP
Access2003

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

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

についてフォームで値を入力できるようにしたとします。
省4

33: 2012/04/26(木)13:16 AAS
馬鹿には無理

34: 2012/04/26(木)15:30 AAS
>>32
テーブルAを表示させたメインフォームの中に同じテーブルAを表示させたサブフォームを置いて

Private Sub 1_AfterUpdate()
End Sub

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

35(1): 2012/05/17(木)20:45 AAS
人の手でデータ加工する過程はすべてＶBAに置き換えられるのでしょうか？

36: 2012/05/18(金)03:27 AAS
>>35
Access内でやっている限りは

37: 2012/05/19(土)00:18 AAS
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)
省6

38(2): 2012/05/24(木)11:34 AAS
VBAじゃないんだけどmdbファイルからSQLで指定テーブルのフィールド名を列挙するSQLを教えてくださ

39: 2012/05/24(木)11:40 AAS
>>30
バックエンドにMySQLを使うといったようなクラサバにすれば50人だろうが
100人だろうが行ける。

40: 2012/05/25(金)03:16 AAS
>>38
了解

41: 2012/05/25(金)23:17 AAS
>>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
省2

42(2): 2012/07/04(水)17:05 AAS
Access2010(x86)　Windows7(x64) PostgreSQL9

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

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

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

43: 42 [age] 2012/07/04(水)17:12 AAS
age忘れたorz

44(1): 2012/07/04(水)19:17 AAS
馬鹿には無理

45: 42 2012/07/05(木)10:34 AAS
>>44
?。
おまいのおかげで目が覚めた。

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

46: 2012/07/05(木)11:25 AAS
やれば出来る子

47: 2012/07/06(金)19:18 AAS
おまえみたいなやつが伸びる。

かもしんない。

48: 2012/08/12(日)10:55 AAS
Access2003 　WinXP　SP3　Firefox14.0.1です。

質問ですが、hyperlinkaddressプロパティというのがありますよね。
url文字列を代入すると、そのページをデフォルトのブラウザで
開いてくれるというやつ。
で、このｕｒｌのCGI何とかっていう文字列が入っていますので、
CGIで何らかのプログラムを起動しているんでしょうが、その時に、
ページが表示されないんです。
省8

49: 2012/08/12(日)14:26 AAS
「""」で囲んでみた？

50: 2012/08/12(日)15:32 AAS
”で囲むと、「”ｕｒｌ”を開くことができません。指定したファイルを開くことができません」というエラーダイアログが出ます。

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

52(1): 2012/08/27(月)21:38 AAS
500件ぐらいのDATAをどんどん追加していくと、3、4回で重くなってしまうんですけど、
どっから手を付けていいのやら分かりません。
ヒントください。

53: 2012/08/27(月)21:43 AAS
ソース貼れ

54: 2012/08/28(火)07:43 AAS
>>52
書き込みが遅くなるって事ですか？

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

56: 2012/09/13(木)00:20 AAS
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:
省1

57(1): 2012/09/13(木)03:17 AAS
>>55
DoCmd.TransferDatabase でできるんじゃね

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

59: 2012/09/13(木)10:07 AAS
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)
省6

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

61: 2012/09/26(水)11:25 AAS
馬鹿には無理

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

63(1): 2012/09/26(水)12:53 AAS
使えますよ。

64(1): 2012/09/26(水)12:59 AAS
>>63
どのようにするのですか？
何か参考になるページなど教えてもらえませんか？

65(1): 2012/09/26(水)17:04 AAS
>>64
使えますよ。

66(1): 2012/09/26(水)18:11 AAS
>65
使えますね。

67: 2012/09/26(水)18:20 AAS
>>66
さっさと使え。

68: 2012/10/01(月)21:06 AAS
>>57
サンキュー助かった!
スマホで規制で返信できずすスマソ。

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

70(1): 2012/11/26(月)00:10 AAS
引っ込んだら戻らなくなるのがトグルボタンなんだけど

71: 2012/11/26(月)21:19 AAS
お前らここまでやるならC#でEXCELデータいじった方が簡単だろ

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

73(1): 2012/11/26(月)21:38 AAS
トグルボタン1を押したあと
トグルボタン2を押して
トグルボタン3を押したら
トグルボタン2はどうなってますか

74: 2012/11/26(月)22:19 AAS
>>73
トグルボタン2の表示は押されていない状態です。
トグルボタン1が押されたままの表示になっています。

75: 2012/11/26(月)22:27 AAS
1がグループに入ってないな

76: 2012/11/27(火)06:18 AAS
馬鹿には無理

77(1): 2013/02/09(土)15:50 AAS
ACCESS2013はどうですか？

78: 2013/03/04(月)07:41 AAS
>>77
adpがつかえん
クラサバの旗降ってきた漏れの立つ瀬がない囧rz

79: 2013/03/04(月)13:02 AAS
ACCESS2013の利点は無いのかね！

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

81: 2013/03/24(日)06:36 AAS
無料バージョンアップできると聞いて2010買ったのに、発売の2/6までにインスコしないといかんかった囧rz
血も涙もないよ

82: 2013/03/24(日)07:16 AAS
おめでとうw

83: 2013/03/26(火)11:24 AAS
Win8でACCESS2010です。

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

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

84(2): 2013/03/26(火)12:05 AAS
Form_test.Filter = "分類 Not Like ""%あああ%"" And Not Like ""%いいい%"""

85(2): 2013/03/26(火)13:24 AAS
たぶん
 "分類 Not Like ""*あああ*"" And 分類 Not Like ""*いいい*"""

86: 2013/03/26(火)15:56 AAS
>>84->>85
返信ありがとうございます。どちらも「演算子がありません」エラーは解消されませんでした。

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

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

87(1): 2013/03/26(火)17:04 AAS
Form_test.Filter = "Not (分類 Like ""*あああ*"" Or 分類 Like ""*いいい*"")"

88(1): 2013/03/27(水)08:35 AAS
>>87
これでいけました！ありがとうございます！

89: 2013/03/27(水)11:51 AAS
>>88
>>84は文法間違いあるけど、>>85はいけるはずだが、ほんとにダメだったのか？
先頭の のとこは無視しないとだめだぞ

90: 2013/03/27(水)17:54 AAS
"Not 分類 Like ""*あああ*"" And Not 分類 Like ""*いいい*"""

91(1): 2013/04/04(木)18:20 AAS
１．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まで
省1

92(1): 2013/04/04(木)19:39 AAS
>>91
外部ﾘﾝｸ[html]:tsware.seesaa.net

93(1): 2013/04/12(金)00:23 AAS
使用不可にいている3つのテキストボックスを、
チェックボックスをonにすると使用可能にするにはどうしたらいいでしょうか？

94(1): 2013/04/12(金)01:37 AAS
>>93
Private Sub チェックボックス_Click()
If Me.チェックボックス.Value = True Then
Me.テキストボックス１.Enabled = True
Me.テキストボックス２.Enabled = True
Me.テキストボックス３.Enabled = True
Else
省5

95: 2013/04/12(金)11:57 AAS
>>92
参考にさせてもらいました。
ありがとうございます。

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

96(1): 2013/04/12(金)17:36 AAS
>>94
もう少しシンプルなコードはないですか？
わがままですみません。

97(1): 2013/04/12(金)17:42 AAS
>>96
Private Sub チェックボックス_Click()
Me.テキストボックス１.Enabled = Me.チェックボックス.Value
Me.テキストボックス２.Enabled = Me.チェックボックス.Value
Me.テキストボックス３.Enabled = Me.チェックボックス.Value
End Sub

98: 2013/04/12(金)18:36 AAS
>>97
すばやいご回答ありがとうございました。
いろいろな書き方があるんですね。

99(1): 2013/04/12(金)22:29 AAS
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"))

というアドバイスをしてくれた方がいましたが、
省2

上下前次 1-新書関写板覧索設栞歴

あと 903 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ AAｻﾑﾈｲﾙ

ぬこの手ぬこTOP 0.024s