★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
http://www.geocities.jp/cbc_vbnet/
http://accessvba.pc-users.net/
http://vba.officehp.com/
ググればいくらでも出てくる罠。
とりあえず程度なら解説見ないで作れよ。
ＸＰから7へ移行したいのですがaccessのvba上で
excelのマクロを操作してセルの中身を変えて上書き保存してたのですが、
今まで前面にexcelのメッセージで上書きしますか？的なメッセージが出てたのですが
7だとaccessが出っ放しでexcelがタスクに隠れてメッセージが前面に出てこないのです。
何かやり方ありませんか？ググり方すら分からない…アドバイス下さい；
ttp://oshiete.goo.ne.jp/qa/4876776.html
早々とありがとうございます。本当に嬉しい！！
しかし、自分で作ったメッセじゃなくてデフォルトの置き換えますかってメッセなんです。
XPから7に変わると設定変えるんじゃなくてvbaに追加せんと駄目なんですかね…無知でスイマセン
Excelのマクロ実行中にExcelをアクティブウィンドウに出来ればおK。
試してないが、この辺が参考にならないかな？
ttp://www.officepro.jp/excelvba/window/index2.html
Open→Load→…が規定だと思いますが、
Loadが飛ばされる条件はどのような条件か
ご存じの方いらっしゃいませんか？
ありがとうございます。一度試してみます
ADOで新規にブール型のフィールドをテーブルに作成する場合、
VBAではどうかくのでしょうか
（テーブル）.Columns.Append "XXXX", adBoolean
だとエラーになってしまうんですが
OS：Vista
Ver：Access2010（accdbファイルを使用。実際のコードはExcel2007ファイルに記述）
ただ他のフィールド（adGUID・ adInteger・adVarWChar）は問題なく
Appendできるので、SQL文ではなく、これらに合わせたADOXによる
コードにしたいと思ってます
んん、というかadBooleanのフィールドを追加するとtablesへのAppend時に
エラーとなる原因がどうしても知りたいです
散々ググったのですが、結局実際にadBooleanのフィールドを追加している
サンプルコードにはお目にかかれませんでした
何が原因なんだろう…
adBooleanの時はAppendの他に何か処理が必要なんだろうか…
そうじゃないとしたら、参照設定でバージョンの違うADOモジュールを試すとか。
普段ACCESS使ってる人からは、当たり前やんけ！って怒られそうな話ですが
アドバイス下さった方もいらっしゃるので報告しますと
(テーブル).Columns.Append "XXXX",adBoolean
が原因ではなく、その次に入れておいた次の文
(テーブル).Columns("XXXX").Attributes = adColNullable
が原因でした
ブール型フィールドには初期値（True）があり、Nullを設定できないのにNull許容を設定したせいで
エラーになっていたようです
本やネットで情報漁って、ADOでEXCElからACCESSファイル作れてテーブルも作れるなら、ACCESS買わなくてもいいんじゃね？
なんて思ってましたが、ソフト買って普段からいじって慣れておいた方かいいのかも
かなり詳細な解説が知りたいのですが、
なにか参考となるURLや書籍はありませんか？
前任者のAccessで作られた業務ソフトを担当することになりました。
まずは全体を見通したいので、Basicのコードやコントロールのプロパティ、
イベントなど、すべての情報をテキストファイルに書き出したいです。
どうやったら良いのでしょうか？
Access2003 です。
教えてください。
自分でそれをリストするプログラムを書けばいい。
どこかのHPにソースが公開されていないかな～
参考になるページなど、探して見ます。
ツールならこのへんか
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変換すると見やすいぞ
情報サン・クスコ☆
プログラム工夫すれば50人くらいは兵器？
Access2003
DoCmd.RunCommand acCmdSaveRecord
の使いようがよくわかりません。
例えば
テーブルA フィールド1～3
についてフォームで値を入力できるようにしたとします。
フォームに入力して閉じるとテーブルのレコードは更新されています。
DoCmd.RunCommand acCmdSaveRecord
を使うとフォームを閉じる前の時点でレコードが更新されるんでしょうか？
しかしこの命令文を通過した後でテーブルを開いてみても更新されていませんでした。
テーブルAを表示させたメインフォームの中に同じテーブルAを表示させたサブフォームを置いて
Private Sub 1_AfterUpdate()
End Sub
Private Sub 2_AfterUpdate()
DoCmd.RunCommand acCmdSaveRecord
End Sub
と書け
メインに表示されたフィールド1を変更して、フォーカスをフィールド2に移すとサブに表示された内容も変わるメインに表示されたフィールド2を変更して、フォーカスをフィールド3に移してもサブの内容は変わらない
ただしどちらもメインフォームからサブフォームにフォーカスを移せば内容は変わる
これでレコードがどういうタイミングでセーブされるか判るべ
Access内でやっている限りは
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()
バックエンドにMySQLを使うといったようなクラサバにすれば50人だろうが
100人だろうが行ける。
了解
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
パススルークエリ＋PostgreSQLの関数でナンバリング実装したんだが、
PostgreSQLの関数直接叩く → 1づつ進む
クエリをデータシートビューで開いてリロード → 1づつ進む
DLookup(結果フィールド, パススルークエリ名) → 2～3づつ進む
ADOのExecuteでレコードセット取り出し → 2～3づつ進む
になってしまう。（直接叩く＆データシートビューで問題なしなので、VBAからの呼び出しの問題だと思う。）
試しにVBAの方にテスト用の関数(デバッグメッセージ出してダミーの値を返す)を作って
それを呼び出すパススルーじゃないクエリを作ってDLookUp実行してみたが、デバッグメッセージは1回しか出ない。
(Accessのパススルーじゃないクエリは1回の実行毎に1回しか開かれない？)
VBAからパススルークエリ実行する時は、1回の実行でも複数回(2～3回)開かれるのか？
何とかして1回に1づつ進むように出来ないんだろうか・・・。
㌧。
おまいのおかげで目が覚めた。
パススルークエリやめて、直接ADOからPostgreSQL開いてクエリ送ったら1づつカウントするわ。
助かったよ。
かもしんない。
質問ですが、hyperlinkaddressプロパティというのがありますよね。
url文字列を代入すると、そのページをデフォルトのブラウザで
開いてくれるというやつ。
で、このｕｒｌのCGI何とかっていう文字列が入っていますので、
CGIで何らかのプログラムを起動しているんでしょうが、その時に、
ページが表示されないんです。
正確に言うと、デフォルトのブラウザがIE(自分の機械には６しか
入ってないんですが)だと、表示されるんですが、Firefoxだと表示できません。
でも、FFのURLボックスには灰色でうｕｒｌが表示されていて、
再読み込みボタンを押すと、表示します。
試しに、コマンドラインからurlをパラメータにして起動すると、表示します。
症状から見て、VBAの問題なのか、FFの問題なのか、判断しかねたので、
こちらでお聞きする次第です。
どなたか、詳しい方、アドバイをおねがいします。
ショートカットやコマンドライン、メールやワープロ、表計算ソフトから
同じ現象になると思うのでFFの仕様かバグ、設定のせいだとわかるのではないかと
どっから手を付けていいのやら分かりません。
ヒントください。
書き込みが遅くなるって事ですか？
[外部データ] タブの [インポート]からはうまくいくのですが、それをVBAで実行したいです。
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
DoCmd.TransferDatabase でできるんじゃね
まだ初心者なので、VBAについてお詳しい方、
ExcelのVBAでのテーブル作成方法を教えてください。
データーベース中心で、入力画面からデーターをmoveしてくるものを作りたいです。
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()
現在、ある地区の人口増減表を作成しています。
そのデータを格納するためにAccessを使用しています。
1回のデータを入れるたびに〈男or女〉〈転入or転出〉で元々設定された数値から（男性人口数）（女性人口数）（総人口数）
が自動的ににカウントアップする（データシートビューに）ロジックを作成したいと思っています。
現在、「データシートビュー」「デザインシートビュー」まで作成したのですが、これからどのように手を加えていけばいいでしょうか？
クエリで演算フィールドなどを作成するのでしょうか。
Access自体が全くの初心者なので、できるだけ詳しく書いていただけると助かります。
是非よろしくお願いします。
クリックやダブルクリックのイベントを使えないですか？
クリックしたグラフの要素を得たいのですが。
どのようにするのですか？
何か参考になるページなど教えてもらえませんか？
使えますよ。
使えますね。
さっさと使え。
サンキュー助かった!
スマホで規制で返信できずすスマソ。
今のところ、機能は追加できたのですが、トグルボタンの表示がうまく更新されず、最初に押したボタンが引っ込んだままもどりません。
トグルボタンの表示を更新する方法はあるのでしょうか?
すみません。言葉足らずでした。
トグルボタン1を押した後、トグルボタン2や3を押しても、トグルボタン1が押されたままの表示になってしまいます。トグルボタンに割り当てたRecordSourceの切替え機能はちゃんと動いています。
。
トグルボタン2を押して
トグルボタン3を押したら
トグルボタン2はどうなってますか
トグルボタン2の表示は押されていない状態です。
トグルボタン1が押されたままの表示になっています。
adpがつかえん
クラサバの旗降ってきた漏れの立つ瀬がない囧rz
見た目がヌルヌルしてキモいけど、価格分の性能&利便性向上はない
Office使ってなくてOpen系で駄目なら、仕方ないから買ってやるか程度
血も涙もないよ
Form_test.Filter = "分類 Not Like ""*あああ*"" And Not Like ""*いいい*"""
Form_test.FilterOn = True
コンボボックスの更新後処理イベントで上記のコードを走らせると、
「構文エラー：演算子がありません」と返されます。
初歩過ぎる質問ですんまそん。文法何か間違ってますでしょうか。
"分類 Not Like ""*あああ*"" And 分類 Not Like ""*いいい*"""
返信ありがとうございます。どちらも「演算子がありません」エラーは解消されませんでした。
ちなみに、↓は問題ないので、And Notがまずいのかなと思ったんですが、書式は問題なさそうですか・・・。
Form_test.Filter = "分類 Not Like ""*あああ*"""
Form_test.FilterOn = True
他の方法も探してみます。
ヘルプ開くとBingとかいうのが出て何も表示されないお・・・。2010使いづらいお(；´Д｀)
これでいけました！ありがとうございます！
>>84は文法間違いあるけど、>>85はいけるはずだが、ほんとにダメだったのか？
先頭の のとこは無視しないとだめだぞ
２．OS(64bit) + AccessRuntime2010(64bit)
３．OS(64bit) + Office2010(32bit)
４．OS(64bit) + AccessRuntime2010(32bit)
５．OS(32bit) + Office2010(32bit)
６．OS(32bit) + AccessRuntime2010(32bit)
※ OS：XP～Windows8まで
上記のどの組み合わせでも動くようなAccessの実行ファイルは作成可能ですか？
http://tsware.seesaa.net/article/174598211.html
チェックボックスをonにすると使用可能にするにはどうしたらいいでしょうか？
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
参考にさせてもらいました。
ありがとうございます。
引き続き質問なのですが、
Windows8(32bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合に毎回ではないのですが、
レーダーチャートの目盛りが正常に表示されません。（-3E+259と表示される）
なお、表示しているデータは毎回同じものです。
ちなみに、Windows8(64bit) ＋ Access2010(32bit)環境で作成したファイルを
Windows8(64bit) ＋ Access2010(32bit)環境で実行した場合も同様でした。
この現象について何かご存知の方がいらっしゃいましたらお願いします。
もう少しシンプルなコードはないですか？
わがままですみません。
Private Sub チェックボックス_Click()
Me.テキストボックス１.Enabled = Me.チェックボックス.Value
Me.テキストボックス２.Enabled = Me.チェックボックス.Value
Me.テキストボックス３.Enabled = Me.チェックボックス.Value
End Sub
すばやいご回答ありがとうございました。
いろいろな書き方があるんですね。
以下のような時間の計算結果を出す関数として
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"))
というアドバイスをしてくれた方がいましたが、
これに相当するコードが全くわかりません。
丸投げですがどなたか教えてくださいませ。
TOP カテ一覧 スレ一覧 2ch元 削除依頼 ▲
3Dアルゴリズム全般 (500)
Metroスタイルアプリ開発について語れ (952)
マルチプラットフォーム プログラミング言語 haXe (135)
プログラミング雑談スレ (359)
Subversion r14 (694)
datファイルを共有するP2Pソフト o2on 17dat (482)
--log9.info------------------
ヘタレ眼鏡友の会 会報一号 (779)
【スターマイン】ストロマ その16【くらまちゃん】 (917)
【箱入りドロップス】 津留崎優 【ちょっと！そこの男子！！】 (614)
いじわるばあさん 総合スレ 29いじわる (252)
【毎月9日発売】まんがタイムきらら19【芳文社】 (358)
【毎月17日発売】まんがタイムファミリー【芳文社】7コマ目 (142)
【セカイ魔王】双見酔 NEET5年目【空の下屋根の中】 (132)
松田円総合スレ６ (577)
植田まさしの漫画でありがちなこと 第2巻 (110)
【天子様】安堂友子…その４【ぎんぶら】 (273)
【はるまちダンス】佐藤両々15【あつあつふーふー】 (697)
【数学女子】安田まさえ (579)
【毎月4日】まんがくらぶ4【竹書房】 (743)
【うず】炊飯器少女コメコ【ジャンボ・ホーム】 (423)
師走冬子スレ２ (265)
【のむらしんぼ】つるぴかハゲ丸【もうけたぜ～】 (199)
--log55.com------------------
★2ch.scは何故失敗したのか
★クロール批判要望スレ
★削ジェンヌに文句ある人集合
★迷惑行為報告担当 - 小さな親切募集中 2
★2ch.scへの要望スレ Part3
★かっこう観測所
★スレ立て人キャップ
★2ch.scニュース系板観測所