[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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
100(1): 桃白白 2013/04/13(土)02:40 AAS
>>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")
省6
101(1): 2013/04/13(土)17:33 AAS
>>100
フォームの[実時間]の時間によって[時間]に結果を出す場合で、
Function 時間(ByVal 実時間 As Double) As Double
Dim Q As Double
Dim H As Double
Q = TimeValue("0:15")
H = TimeValue("0:30")
省8
102(1): 桃白白 2013/04/13(土)20:28 AAS
>>101
あら。結果がずれてた？ それともなんか変な動きした？
引数の形式が違うのかな。どういう入力でどう出力された？
103(1): 2013/04/13(土)21:29 AAS
>>102
[開始時間]に入力、[終了時間]に入力後、
時間の差を[実時間]に表示し、これを基に[時間]に結果を表示したい、という流れですが、
フォームを開くだけで以下の、
「イベント プロパティに指定した式 読み込み時でエラーが発生しました：
このメンバー識別子は既にオブジェクトモジュールの中に存在しています。」
※マクロ名、ユーザー定義関数、[イベント プロシージャ]以外の式が指定されています。
省2
104(1): 桃白白 2013/04/14(日)01:59 AAS
>>103
コントロールの名前と関数の名前が競合してるんでない？
コントロールと関数を別の名前にしてコントロールソースで紐付けて
やっちゃえばいいよ。こんな感じで。
Database1.zip download
外部ﾘﾝｸ:kie.nu
105: 2013/04/14(日)14:28 AAS
>>104
うわー、ファイルのアップまでしていただき本当にありがとうございます。
テーブルに記録しておく必要があったため、
Private Sub 終了時間_AfterUpdate()
時間 = Marume(実サービス時間)
End Sub
ということで全てスッキリしました。
省3
106: 2013/04/19(金)11:54 AAS
フォームのプロパティにある「コード保持」って何でしょうか？
「はい／いいえ」はどのように使い分けるのでしょうか？
107(1): 2013/04/19(金)12:30 AAS
存在しないオブジェクトに関連したコードを不要になったときに自動で削除する機能がある
たとえば"ボタンA"をクリックしたときのコードを書いてある状態で
あとで"ボタンA"を"ボタンB"に名称変更したりしたときに
コード保持が「いいえ」だと"ボタンA"をクリックしたときのコードは捨てられる
108(1): 2013/04/19(金)16:04 AAS
どもです
つまりコード保持は、名称変更をした際に以前のコードが消えても良い
または名称変更は絶対にしないような状況であれば、「いいえ」を選択しておいても良い
と言うことで間違いないですか？
どこかで「いいえ」にした方が速度が速くなる的なことが書いてあった覚えがあるので･･･
109(1): 2013/04/19(金)16:43 AAS
>>107
名前の自動修正オプションとこんがらがってないか？
>>108
コード消えるのはフォームかレポート単位だぞ
名前変更とか関係なくて、そのフォームのコード全部消えるぞ
ヘルプにはコードが無いからいいえの方が処理が早いとは書いてあるな
その分制約もあるが
省1
110: 2013/04/22(月)10:00 AAS
>>109
遅くなりましたが、ありがとです
試しにフォームを作成時に、「いいえ」を選択しておいた状態で
イベントプロシージャを設定してみました。
その時点で自動的に「はい」に切り替わるんですね。
そしてコードを使うフォーム、レポートが１０００個を超えるものは作れないと言う事なんですね。
勉強になりました。
111(1): 2013/04/25(木)11:56 AAS
ﾀﾌﾞｺﾝﾄﾛｰﾙでﾍﾟｰｼﾞ5枚作る。
ﾁｪｯｸﾎﾞｯｸｽによって表示ﾍﾟｰｼﾞ数を切り替えたい。
・ﾁｪｯｸなし ： ﾍﾟｰｼﾞ1〜ﾍﾟｰｼﾞ5
・ﾁｪｯｸあり ： ﾍﾟｰｼﾞ2〜ﾍﾟｰｼﾞ4
そのため、ﾁｭｯｸﾎﾞｯｸｽのｲﾍﾞﾝﾄﾌﾟﾛｼｰｼﾞｬで、一旦全部のﾍﾟｰｼﾞを非表示にして
そのあと、必要なﾍﾟｰｼﾞを表示するようにしてみました。
For i=0 To 5
省9
上下前次1-新書関写板覧索設栞歴
あと 891 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.023s