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

くその山

まさかの３

期待あげ

問題なく使えてるけど

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

うぜえ

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

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

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

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

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

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

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

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

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

HideしてShowするとLoadに飛ぶ

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

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

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

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

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

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

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

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

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

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

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

教えてください。

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

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

>>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変換すると見やすいぞ

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

hosyu

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

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

WindowsXP
Access2003

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

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

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

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

馬鹿には無理

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

Private Sub 1_AfterUpdate()
End Sub

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

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

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

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

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()

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

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

>>38
了解

>>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

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づつ進むように出来ないんだろうか・・・。

age忘れたorz

馬鹿には無理

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

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

やれば出来る子

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






かもしんない。

Access2003 　WinXP　SP3　Firefox14.0.1です。

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

「""」で囲んでみた？

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

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

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

ソース貼れ

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

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

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

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

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

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()

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

馬鹿には無理

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

使えますよ。

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

>>64
使えますよ。

>65
使えますね。

>>66
さっさと使え。

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

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

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

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

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

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

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

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

馬鹿には無理

ACCESS2013はどうですか？

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

ACCESS2013の利点は無いのかね！

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

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

おめでとうw

Win8でACCESS2010です。

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

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

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

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

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

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

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

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

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

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

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

１．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の実行ファイルは作成可能ですか？

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

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

>>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

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

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

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

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

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

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

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

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
フォームの[実時間]の時間によって[時間]に結果を出す場合で、

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

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

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

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

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

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

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

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

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

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

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

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

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

どもです

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

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

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

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

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

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

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

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

ﾀﾌﾞｺﾝﾄﾛｰﾙでﾍﾟｰｼﾞ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です。

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

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

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

変更がめんどくさい

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

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

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

キリっ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

自分はそうしてる

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

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

いいですよ

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

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

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

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

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

おもろいな

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

よし

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

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

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

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

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

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

VBAを一言で表すと

>>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が変わったら改ページな

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

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

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

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

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

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

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

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

よろしくお願いします。

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

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

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

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

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

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

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

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

view

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

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

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

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

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

疲労困憊る

コンパイルダー・オン

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

あったなぁ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

一応解決したっぽい

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

みんなありがと

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

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

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

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

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

誰か翻訳

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

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

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

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

>>202
>>204
ググレカス

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

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

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

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

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

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

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

有りますね、サーセンｗ

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

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

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

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

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

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

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

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

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

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

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

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

以上

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

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と返ってくるようにするには
イミディエイトウインドウに、どう入力すればいいんでしょうか。

? ＠FuncSyohizei(100.0)

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

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

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

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

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

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

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を変更して呼び出すたびに毎回出てくるので、処理を開始して放置しておくことができません。

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

>>232
本当ですか…

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

が、少し怖い…

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

ADOXDB

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

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

マルチだよ

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

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

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

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

>>252
pypiで検索してみ

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

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

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

馬鹿には無理

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

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

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

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

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

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

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

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


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

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

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

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

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

>>264
Runtime Errorがでました

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

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

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

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

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

よろしくお願いします。

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

次のかたどうぞ。

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

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

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

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

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

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

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

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を参照しようとすると異常終了してしまいます。
全部のフィールドを強制的に文字列型で見る方法はないのでしょうか？

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

>>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など

Access2013です。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

二つ教えてください。

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

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

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

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

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

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

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

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

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

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

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

/decompile 知らなかった。

俺もだよ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

馬鹿には無理

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

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

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

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

びっくりおみくじ

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

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

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

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

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

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

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

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

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

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

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

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

ツボったω

俺もしょっぱい2号

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

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

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

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

decompileつけても治らない

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

押してもダメなら・・・

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

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

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

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

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

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

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

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

Access2010利用

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

あれ？コンテンツ〜の話って
「プライベート ネットワーク上にある信頼できる場所を許可する] チェック ボックスをオンにして回避するって話ですか？
2010だと↑をオンにしてないと変な場所では最適化も出来なかったような

>>355
アプリケーションが自分自身の信頼性を操作するのか
そんなアプリこそ信用できんわ

>>356
べつにネットワーク上に限った話ではないと思うが

>>358
MSが何を推奨してるのかしらんが
アプリケーションの意味が通じてないのかね
アプリケーションを.ACCDB(.MDBでも.ACCDEでも良いけど)に置き換えて考えてみ

逆鱗(ぎゃくりん)

runtime 2010(2013も同じ)の起動時のセキュリティ警告を出ないようにする
http://www.mkkobo.com/runtime/runtime04.htm

>>343で質問した者です
細かい利用環境等を書いてなかった事で迷惑をかけました
ごめんなさい

会社独自で開発したと思われる共有サーバシステム上に、accdbを置いて利用者は「読み取り専用」で利用します。(accdeは共有サーバ上では起動できません。)

なので、Access内で設定出来るオプション以外は全く自由がきかず、共有サーバ上でaccdbを開くと必ず「コンテンツを有効化にする」ボタンが表示されてしまうのです

今回の問題自体は、FormLoad関数をExcelで言うAutoOpen代わりに使う事で解決出来たと思っています

しかしAccessって、Web上で資料を探すにしても、資料が豊富なExeclVBAに比べてAccessVBAは資料が少なく、更にバージョンによって仕様が大きく変わるので大変ですね

このスレのやり取りを見ているだけで非常に勉強になります
ありがとうございます

>>363
ファイル共有のプロトコルとかによって制約あるかもしれんが
共有フォルダを信頼できる場所に追加する事は可能だぞ

ただ信頼されてないaccdb(のVBA)から、信頼できる場所を設定とか出来ないし
そんなことができたら信頼できる場所の意味がないからな

利用環境:Access2010、Win7
現在、国内の物件情報をテーブルに入力して、出力フォームで参照出来るようにしています
テーブルのフィールドは「物件No(主キー)」「物件名」「県」「市」「区」「町」「番地」「物件情報」です

新しいレコードが増えた場合は、入力フォームから、データを入力出来るようにしようと思っています

ここでお聞きしたいのは、入力フォームで新しいレコードを登録しようとした際の「重複チェックの方法」です
物件名は、入手先の情報や、入力者の考えによって
様々な表記ゆれが生じます(例:2棟 二棟 �A棟 �U棟)
入力規則を設ける事によってある程度は回避できると思いますが、
回避が難しいケース(例:ライオンズマンション Lionsマンション Lion'sMansion)の場合は
みなさんはどうやって重複チェックを行っているのでしょうか？

自身で考えた所では、入力フォームで新たなレコードを登録する際に、
似ている物件名があった場合は、お互いのレコードで「県」「市」「区」「町」の重複チェックを行い、最終的にユーザーに「似ている物件がありますが、これとは別の物件ですか？」と警告を出そうと思っています
そうする場合は、「フリガナ」フィールドを追加する必要があると思っています

しかし、もっとスマートな方法があるのではないかと思い、ここで質問させていただきました
よろしくお願いします

>>365
挙げられてますが、半角数字のみなど番地の入力制限は必須でしょうね
物件名のフリガナで番地違いもチェックされるみたいですし
十分スマートだと思いますよ

自分だったら番地まで一致した時にアラート出しますね
残りは住所or物件名でソートした物件リストに丸投げしちゃいます

>>365
月1くらいで住所は同じ、物件名が違うの重複チェックを動かしてリストに出すような運用にするとか。
難しいことをら考えずに済む。

なんで郵便番号のフィールドがないのか不思議

まあ、ACCESSもVBAも全く関係ない話なんだが
最終的には人間が検査しないとどうしようもないんだろうなと思う
市区町村番地あたりまではルール決めて、そこまで一致なら警告でいいんじゃね

すみません、郵便番号のフィールドもあります。入力し忘れていました

・1.レコード入力時に、住所関連のフィールドを利用して重複チェックを行い、ヒットした場合は警告を出す
・2.定期的にテーブル内のレコードの重複チェックをする
・3.物件の座標を利用して重複チェックをする

上記3つの案をいただいたと思いますので
1と2を組み合わせて運用したいと考えます

3の案>>369は、完全に自身の頭に無かったアイデアなので驚きました
入力者の稼働を考えて、負担にならなければ導入してみようと思います

たくさんのレスをいただき、心から感謝致します
受けた恩を忘れず、このスレに来た別の質問者の力になれるよう精進します

警告出すとかVB脳的にダサいから
郵便番号入力してヒットしたらリストボックスに表示させて
番地を半角か全角縛りにしてヒットしたらリストボックスに表示させる
リストボックスが件数ゼロなら新規入力ボタンをイナーブル
あぁ俺それ作りたい

フォームでFilter関数使おうと思ったら
IntelliSenseが効かなくて
無理に使おうとしてもエラーで使えず
？？？と思ったら
Filterプロパティとバッティングしてた。
VBA.Filterで解決したんだけど
プロパティの値ってオブジェクト変数無しでもアクセスできるのな。

>>374
フォームモジュールでそのフォームのプロパティならな

皆様、すみません

フォームAに入力されているテキストボックスAの値(数値)を、
フォームB（データ登録用）を開いた際に自動的にテキストボックスBに入力させないのですが、どうしてもわかりません

openform 〜 , , , , acformadd で記述しています

教えていただけないでしょうか

>>376
自動入力「させない」になってますが「させたい」って事ですよね？

Form_Load もしくは Form_Open イベントに
Me.テキストボックスB.Value = [Forms]![フォームB]![テキストボックスA].Value
もしくは >>319 みたいに
Me.テキストボックスB.Value = Forms("フォームB").Controls("テキストボックスA").Value

Load、Openどちらでも動くと思いますが、適した方を使ってください
コレクションに関しても好きな方を使ってください

>>377

あっさりとできました
ありがとうございました

たしかにformのイベントでやるべきでしたね、思い付かなかったです
勉強になりました

>>376
単純に
DoCmd.OpenForm "フォームB", , , , acFormAdd
Forms!フォームB!テキストボックスB.Value = Forms!フォームA!テキストボックスA.Value
で出来ると思うけど？

今使っているACCESSデータをPC3台で共有しようと思っています。

その場合、テーブルをサーバーPcに、フォームとクエリをクライアントPCに入れて使うと良いとのことでした。

ただいま、フォームを非連結にして、ADOでの追加や更新ができるように変更中です。

質問ですが、
すべてのフォームを非連結にするべきなのでしょうか？
データの追加更新のない、閲覧専用のフォームをネットワークトラフィックを考えて変更すべきでしょうか？

また、分割したテーブルのあるACCESSデータをNASに入れようかとも思っているのですが、PCの場合と動作に違いはでますか？（ここは単にスペックの問題でしょうか？）

どうかお時間のあるかた、教えていただけないでしょうか。

テーブルを外部からリンクすれば連結でいける

>>380
テーブルだけのファイルをネット上の共有フォルダに置いて、それのリンクテーブルとその他のオブジェクトが入ったファイルを配布して使うだけ。
フォームの作り直しはしなくて良いと思います。

>>381
>>382

ありがとうございます

今まで作ったフォームをすべて非連結にするのは難しそうなので追加更新するフォームだけにしようと思います。

>>382
その他のオブジェクトの入ったファイルは複数人で開いても問題ないのでしょうか？

>>384
オブジェクトだけのファイルは各パソコンにコピーして使うの。

二次元配列からレコードにデータを入れる方法は

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を取得してワークブック開く方法だとエラーが出て、手動で開いた状態にしておくと読み込むんですが、
これはインポートする際にいちいちエクセルで開いておく必要があるんでしょうか？

>>386
>地道な方法しかないんでしょうか？
地道に見えるんですね・・・。

DoCmd.TransferSpreadSheet
で、ググると
https://msdn.microsoft.com/ja-jp/library/office/Ff844793.aspx
なるページが出てきまして、そこに・・・
「インポートする際にいちいちエクセルで開いておく必要」
なんて書いてありませんでしたよ？

>>386
SQL は長くなるけどパフォーマンス気にしてるなら INSERT VALUES 試してみれば？
多少は早くなるかもよ

>>388
SQLがなんとか分かってきたので、今度やってみたいと思います。
ありがとうございました。

>>389
TransferSpreadSheetsもう少しがんばれ。
簡単で早いと思うよ。
387さんも言ってるけどEXCEL開く必要は無い。何ならEXCELがインストールされて無くてもインポートやリンクが可能なはず。

質問させてください。
コマンドボタンをクリックしたら、フォーム上の任意の位置にコンボボックスを新規作成させたいんですが、こんな事出来ますか？

似たようなことしたかったときはメニューで代用したな

>>392
詳しく

右クリックでコンテキストのpopupメニューだったかな

>>394
ありがとう
けど、求めてる者と違う感じです…

ACCESSでフォームに直接新規で追加するのは難しい
非表示にしといてボタンクリックで表示させればいいんじゃないか

やぱ難しいですか…
必要に応じて、数に上限定めずコンボボックスを増やしたいので、表示/非表示の方法は望ましくないんです…

仮に無理なら…
質問を変えて、1フォーム中にコンボボックスはいくつまで設置出来ますか？
↑ググれば出そうですが、ついで質問ですいません。

好きなだけ作ったらええねん

むむぅ…

違う方法を模索してみます。

じゃあフォームかサブフォームで帳票フォームにして詳細セクションにコンボ配置すればいいんじゃね
それ以外で不定数のコンボ欲しいとか言うなら設計がおかしすぎる

帳票フォームにコンボボックス設置したら、そこで変更した内容が全部のコンボボックスに反映されるじゃん？それは困る

ちょっと言ってる意味が分からない
あるレコードのコンボボックスの値が、他のレコードの値に影響すると？

最初の構想としては
データが存在するフィールドにコンボボックスを表示させて、それぞれに別々のデータを入れて、新しいテーブルを生成したかった。

説明下手ですいません。

設計がおかしい
もしくは
Accessを使うべきではない

設計し直します

>>405
最終的な目的というか、なにをするためにこういった機能が欲しいのか
わからない。

>データが存在するフィールドにコンボボックスを表示させて、
ここまでは何となくわかる。
フィールドのルックアップをコンボボックスにすることはできる。
ただ、あるフィールドをこのレコードはテキストボックス、
そのレコードではコンボボックスってのはできない。
どっちも似たようなものだけどねｗ

>それぞれに別々のデータを入れて、新しいテーブルを生成したかった。
これがわからない。それぞれにってなんぞ？
フィールドにデータが入力された、そのテーブルのコピーって。。。作れるよね？

ホント説明下手で申し訳ない

写真を付けてみた

・作業用テーブルAで帳票フォーム作る
・(出来ない所その1)フィールド上にデータがあるレコードにだけコンボボックスを表示させたい。
・(出来ない所その2)コンボボックスにデータを入力すると、他レコードにも同内容が入力される。←違うデータを入れたい

両方無理だね。

>>407
いろいろ試したけど、コンボボックスのvisibleのプロパティを
帳票フォームの詳細のpaintイベントで操作できないので無理かなと。
背景色は変えられるみたいだから、コンボボックス全部並べて
背景色で区別できるようにするくらいしかできないかも。

書かれている通りの物が欲しいのであれば、.Netで作るしかないかなぁと。

やぱ無理ですよね
諦めて違う方法を考えます

コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが

コンボボックスには何を表示/入力させたいんだ？
すくなくとも その２ はできるはずだと思うが

ひとつのフォームにひとつのコンボボックスのフォームをフィールド分作って
OpenしたりCloseしたりすればいいんじゃない？
フォームの表示位置は指定できるんだし、作り込めばカッコよくなりそう(俺はやらないけど)

受ける会社大丈夫？
下記の条件が全て当てはまる会社にご注意下さい。

・IT系 in tokyo
・「社名　労基」でググると過去の2chスレが出てくる
・転職会議で2.5点

結構前に質問した者だけど
設計変更して、無事にアプリが完成しました
色々アドバイスくれた人サンキューでした

>>415
わからんけど、良かったね

事後報告なんて珍しい

質問です

現在Accessでチェックシートを作成しています。
内容は以下の通りです。

・目的:接客の際の必須項目の聞き取り漏れ、説明漏れを防ぐ

・仕様の概要:必須項目の各チェックボックスにチェックが入っていなければ各チェックボックスの背景を赤塗り
チェックが入っていれば緑塗り
注意が必要な組み合わせにチェックをした際に警告メッセージを出す等の、相関チェックを導入
フォームで入力した値はテーブルに格納。
対応1件につき、1レコード。

・環境:win7 access2010


上記仕様のチェックシートをAccessのフォームで作成していますが、
別のレコードに移動するとチェックボックスの色が
画面遷移前のレコードの色のままになってしまいます。
レコードを移動する度に、移動先のフィールドの値に
適した色に変えたいと思っています。

自身の考えでは、レコード移動をする度に、移動後のレコードの
チェックボックスの値を取得。
値に適した色に変更と考えていますが
Access標準装備の機能等で、
もっとスマートな方法があるのではないかと思ったので、ここに質問に来ました

皆様のお知恵をお貸しください
どうかよろしくお願い致します

条件付き書式って機能があるけど、2007で試したら、チェックボックスには適用できないっぽいな

>別のレコードに移動するとチェックボックスの色が
>画面遷移前のレコードの色のままになってしまいます
今どうやってやってるんだ？

>>419
今は下記のようにコントロールの背景色を変えています

Checkboxの初期背景色はコントロールのプロパティで赤を選択しています

private sub Checkbox1_Click()
If Checkbox.Value = True then
Checkbox1.Backcolor = 緑
Else
Checkbox1.Backcolor = 赤
End If
End Sub

>>420
基本的には同じ事をレコード移動時にやるだけだな

ところで2007のCheckboxにはBackcolorとか無いっぽいけど、2010じゃあるのか

>>421
でもこれだとレコード移動時に、反映されないんですよね
1.リアルタイムで色を変えるコード
2.レコード移動時に色を変えるコード
2倍のコーディングが必要になる点がスマートじゃないと思ってます

今更ですが「全相関チェック(警告メッセージ含む) & 全チェックボックスの色変更」の
判定を行うサブルーチンを1つ作り、
「レコード移動時」「チェックボックスのチェック時」のイベントで
都度サブルーチンを呼び出しすれば
結構スマートになるのかな？と思いました

ただ、チェックをする度にサブルーチンが実行され、
関係の無い箇所まで判定されてしまうと
チェックボックスの数次第で重くなる可能性がありますね
また、相関チェック(メッセージ有)に引っかかる組み合わせになっていると、
関係のないチェックをした際にも
メッセージが出てしまうので、操作性が損なわれてしまいますね

>>421
条件付き書式はダメなのかと思い、一応調べてみたら下記サイトにあるように利用出来るかもしれません
条件付き書式で実装した方が
メンテナンス性も上がるので、一旦条件付き書式でやってみようと思います
http://hamachan.info/win8/access/and.html
http://m.chiebukuro.yahoo.co.jp/detail/q11134637911

Excelでは、条件付き書式を多用していたんですが、
今回は何故かその考えが完全に抜けてました
お教えくださり本当にありがとうございます

入力不可能なテキストボックスをチェックボックスの下に配置して条件付き書式設定とか
まあ、やりようはあるんだが
条件付き書式は、コード見てもプロパティ見てもその設定が分からんからなぁ
個人的には好きではない

>>424
仰る通り確かに、他者の事を考えると
条件付き書式だらけになってしまうってのも考える物ですね…
悩ましいです

>>426
＞男のくせに

単純に疑問です。何を根拠にして男と判断したのでしょうか？

>>428
それがわからないなら、諦めろ。
外注に出そうな。

良くわからないきっかけとやらを特定する
エスパーを探す

お好きな方で

428ですが先輩の皆様非常に手厳しいですね

何とか自分で特定できました　おじゃましました

自分で解決できるなら質問しないでください
うざいだけです

解決した結果というか原因を書いておけば、後輩が喜ぶよ。

Accessなんて俺以外は誰も使ってないよね。

>>434
俺は使ってるぞ!
ちょっと癖はあるがAccess最強伝説は不滅さ!
ただし小さいシステムに限る。。。。

MSDEとかSQL Serverと組み合わせれば少しはレベルが上がりますかね？

>>436
いまそこまでするならWebで使えるようなスキルを身につけてしまう事も考えちゃいますね。。。。phpとかいい感じに枯れてきてるよう思います

access + django 試したら意外といけた

>>438
少しだけｋｗｓｋ
Pythonのフレームワークだよね?

今からweb連携て
php覚える前に俺のいろいろが枯れてるのを何とかしてくれ

ウェブアプリよりネイティブアプリだよね

>>441
いやーWebでしょう。
限られた環境ならネイティブアプリでもいいんでしょうけど。。
どこまで広げるかによるけどね。
入力はネイティブ、閲覧はWebという感じに住み分けるのも
いいのかもしれない。

>>442
>入力はネイティブ、閲覧はWeb

そうそう
それそれ

カラムの中で、空白の場合は、空白でない上のデータもってくるってクエリを作りたいのですが、どのようにすればできますか？
Excelでは可能なのですが、百万件以上のテーブルのためできません。

>>444
原則としてRDBのテーブルの行に、上とか下とか順序はないんだが

頑張ればSQL(クエリ)だけで出来なくもないけど、簡単なVBAマクロ作って流せばいいんじゃね

ソート後の順序で真上のレコードっていう条件が必要だろう

>>443
マイクロソフトさんこんな需要がありますよー
アクセスこれからも面倒見てね

FileMakerでも出来ること

>>447
MySQLに接続して閲覧側はウェブでAccess側は入出力側で実現。
でも、MSはAccessはいずれ亡くすと思うよ。年々需要が減ってる

LightSwitchってその後どうなったのかな?

>>450
殆ど消えたも同然の状態。

フォームやレポートの作成が簡単で助かってるんだけど、Accessに匹敵するほどお手軽簡単な開発環境あるのですか？

ない

だから無くなると困るんだよなあ

Filemakerとどっちがいいの
わりとまじで質問

どっちもどっちだろうな。
バックエンドにもよるだろうけど、いつも使ってる方とか得意な方で開発するだろ。
指定があるときはそれに従うだけだから比べなくていい。
FileMakerはiPadなんかで使えるっていうのがウリみたいだけど。

Accessのほうが情報は手に入れやすいんじゃない?

それは言える

結局のところAccessが担当してた部分ってETLツールに置き換えられてきてるってことかな?入力は除いてだけど。

何が結局のところだよ
ETL言いたいだけちゃうんかと
そもそもAccessでビッグデータなんか扱えくぇｒちゅいおｐｓｄｆｇ

>>459
ｈ？

Forguncyに流れちゃった人いる?

>>460
人それぞれだと思うが、おいらの使い方ならビックじゃないデータでもETLは結構いい選択肢だと思たあるよ
定形業務にはいいんじゃないか?

あるレポートが、あるクエリを元に作成されていて、そのクエリのレコード毎に、レポートをPDF出力し、出力先はまた別のクエリのフルパス文字内との元クエリデータとの一致で決めたいのですが、ご教示いただけないでしょうか？

>>464
どこまで出来てて何がわからんのだ？

>>465
レポートをレコード毎にPDF出力して、クエリにあるパスに保存するところ

どこまで出来てるんだ

>>466
「MS-Accessのレポートをページ毎にPDF化する」でググって一番上のページ
そこみて、わからないとこは自分で勉強してくれ

>>466
あのさ、ここはお前の願望を叶えるスレじゃないの。
わからない所を聞く為のスレなわけ。

お前のそれは1機能まるごと作ってここにコード貼れって命令してるに過ぎない。自分でコードもはらずにね。

VBAでSELECT文を作って、Formに渡してRequeryして結果を表示しています。
テキストボックスに表示するテキストデータが途中で切れているという現象がおきました。
別のフォームで同じデータを同じようにテキストボックスに表示させると、全部のデータがきちんと表示されます。
スクロールとかではありません。文字列がぶつっ！と切れて途中までしか表示されないのです。

この現象の原因とかわかる人いますでしょうか？

>>470
なぞなぞかよっ！ｗ
テキストボックスのプロパティを良く見た？

>>470
そおテキストボックスどっかからコピペしてきたと見た

>>471,>>472
表示ができているテキストボックスと同じプロパティです。
でも、１０００件データのうち、１つだけ200文字くらいの文字列なんですが、１００文字くらいの
ところでブツッ！って切れてるんです。
他のデータで同じくらいのサイズの文字列は問題なく表示されています。
SQLが悪いのかと思って、Debug.PrintしてSQLを取り出して、クエリを実行してみると、ちゃんと文字列が全部表示されています。
文字コードかなんかでしょうか？
でも、同じ文字列を別のフォームにあるテキストボックスで表示可能なんです。(ToT)

>>473
同じ方法で出してるの？
ヌル文字ってVBAは関係なかったっけ？

SQLは、違います。
あぁ・・・・その実験やってなかった・・・。
やってから報告します・・・。

VBAの文字列はヌル文字ではターミネートされない
改行とか入って、見えなくなってるだけとかじゃないのか

union
を
union all
にしたら現象がでなくなりました。
(ヽ´ω`)でもクエリデザインから実行するとunionでも普通に表示されるんだよなぁ、、、

>>477
重複業があるんじゃないの？
目視で見てるのは違う行とかないよね。

test

>>478
質疑回答IDも一致してて、単純なSELECTぶんなので、、
超レアなバグなのかなと

メモ型あたりでunionの同一行判定でなんかあるかもしれんけど
どう考えても>>480の勘違いの可能性の方か高いと思うぞ

まあACCESSのバージョンもテーブルの種類もSQLもデータをどうやって表示してるかも書かんような奴の話は
聞くだけ無駄かもしれん

メモ型ってgroup by 出来なかった気がしたのでちょっと調べた
どうも、TEXT型にキャストして判定するみたいだな
なので、255文字目までが同一のメモ型は同一と判定される

distinctで採択されるのがどっちの行かはわからんが
とりあえずメモ型の制限だからメモ型使って値操作するのが悪いと言う結論だな

個人的にはエラーにしてほしいところだし、昔はエラーになってた気がするんだが俺の気のせいだろうか

あと、unionは単純なSQLとは言えんし
はなからunionしてるSQLとテーブルレイアウト出してればもっと解決早かっただろうに
全く同じ現象出てるって書いてるブログあるぞ

あのっ某所でAccessはフロントエンドのみの製品で
RDB自体はOS標準で使えますぜｇｆｆ・・・
みたいな内容見たんだけど
本当なんです？

yes

>>484
んだ。
だから、ExcelがあればVBAで組める人がいるなら、ぶっちゃけいらん。

OSに標準でついてるRDBってなんのこと？？

RDBは付いてないでしょう