[過去ﾛｸﾞ] Access VBA 質問スレ Part1 (1002ﾚｽ)
上下前次1-新
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
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
112: 111 2013/04/25(木)12:00 AAS
忘れてましたがﾀﾌﾞの背景色を変更したいので
ﾀﾌﾞｺﾝﾄﾛｰﾙのﾌﾟﾛﾊﾟﾃｨで「ﾃｰﾏの使用」を「はい」に設定してあります。
113: 2013/04/25(木)14:29 AAS
消す前に違うページを選択すれば良いだけじゃないのか？
114(1): 2013/05/21(火)13:36 AAS
チェックボックスの true が -1 から 1 に変わったようです
2007からでしょうか？
変更がめんどくさい
115: 2013/05/22(水)11:48 AAS
>>114
2003と2007で試したけど非連結で画面でチェックした場合はどちらも-1になる
ただし、コードで1をセットしたら1のままだった
まず1をセットするコード書くのが悪い
そして、1でも-1でもBooleanとして評価したらTrueなんだから
そんな事に影響されるコード書くのが悪い
116: 2013/05/22(水)14:18 AAS
>チェックボックスの true が -1 から 1 に変わったようです
>2007からでしょうか？
キリっ
117: 2013/05/22(水)14:27 AAS
知らんがな
ってレスしようと思ったけど
かわいそうなので放っといた
118(1): 2013/06/04(火)02:35 AAS
月曜会社を休んで家で土曜から月曜までVBAをひたすら書き続けた結果
頭が超重くなって3日目は何やってるかよくわからないまま終わってしまった
VBAのコーディングをぶっ通しでやるのは2日が限界か？
119: 2013/06/05(水)22:11 AAS
>>118
限界は人それぞれだろうが、無理はすんなよ
120(1): 2013/06/21(金)00:57 AAS
access 2003 にて
SendObjectメソッドを利用して、メールを送信したいと思っています。
実際にメールを送れるようにはなっているのですが、
送信メール本文に「mdbファイルと同一ディレクトリにある単体の.msgファイルの本文」（.msgファイルの場所はフルパス指定でも構いません）
を表示させる事は可能でしょうか？
イメージ的には、テーブルから送信先アドレスを収集し、.msgファイルの本文の内容をテンプレートとして一括送信する
と言った感じです。
121: 2013/06/21(金)01:01 AAS
書き忘れました。
メール送信ソフトはoutlookです。
122: 2013/06/21(金)07:11 AAS
.msgファイルの形式ってたぶん公開されてないんだよなぁ
どうやってメールを.msgで保存してるかしらんが、そっちを変更した方が楽な気がする
outlookでもVBAは使えるぞ
123: 2013/06/30(日)18:38 AAS
>>120
OutLookのSession.OpenSharedItemで.msgファイルの読み込みできるが
他のアプリからOutLookいじるのはお勧めしない
OutLook側でmdbに書きだすとか、プレーンテキストで保存するとかした方が良いんじゃね
124(1): AAS
質問です
ODBCの接続する際に
IDとパスワードを入力するボックス(VBAで設定したものではない)がありますが、
初めから半角英数字になるように設定はできますか？
125(1): AAS
VBAで設定したものではないものを、VBAでどうこうするのは無理があります
126(1): AAS
>>125
ですよね。
IDやパスワードを入力するときに各々気を付けてもらうしかないですね。
127: AAS
>>126
プロパティにないの？
128: AAS
ODBCのミドル層で出てるダイアログだから、アクセス側からいじれるプロパティなんてないだろ
自分でIDとパスワード入力してもらうフォーム作ってそこに入力してもらえ
129(1): AAS
DBの持ち物か。すまん。
ダイアログの出る直前にACCESSで入力を固定して終わったら解除ってできないのかね。
（調べてない、ただの理想を述べてみた。）
130: 2013/09/01(日)00:30 AAS
>>129
>>124が言ってるのは多分、ODBCで接続するときにユーザとパスワードを指定しなかったときに出るやつ
自分でちゃんと接続できるユーザとパスワード指定したら出ない
間違ったユーザやパスワード設定したらしらん
131(2): 2013/09/01(日)02:59 AAS
Access初心者です。
VBAでExcelからデータをコマンドボタンで自動インポートさせる物を
作っています。
インポート漏れがないかのチェック処理もさせたいのですが、
どのようにすればいいかわかりません、ご教授お願いします。
132(2): 2013/09/01(日)03:24 AAS
>>131
レコード数で比較すれば？
133(1): 2013/09/01(日)03:48 AAS
>>132
ありがとうございます。
仮に件数が合わなくてインポート漏れしたレコードを
特定するための処理をいれることはできますか？
134: 2013/09/01(日)03:59 AAS
ユニークキーで差分とれよ
少しは考えろよ
135: 2013/09/01(日)04:00 AAS
>>133
ユニークキーで差分とれよ
少しは考えろ
136: 2013/09/01(日)08:49 AAS
インポート漏れなんてあるの？
137: 2013/09/01(日)09:02 AAS
結構ある
あと勝手にデータ変換されてたりもする
138: 2013/09/01(日)09:25 AAS
そうか
ならインポートしてからチェックするより自前のコードでインポートした方がいいんじゃない？
139: 【だん吉】 2013/09/01(日)09:31 AAS
自分はそうしてる
140: 2013/09/01(日)10:05 AAS
ウィザードにまかせてるとひどい目にあう
141: 2013/09/01(日)10:35 AAS
Access初心者なので、そのVBAのコードの書き方がわかりません
教えていただけませんか
142: 2013/09/01(日)10:36 AAS
いいですよ
143: 132 2013/09/01(日)19:42 AAS
>>131
www.nurs.or.jp/~ppoy/access/access/acX014.html
144: 2013/09/01(日)20:23 AAS
インポート漏れするデータ欲しい
試してみたい
145(1): 2013/09/01(日)23:14 AAS
数字型のとこに文字入ってるデータとか用意したらいいんじゃね
146: 2013/09/01(日)23:38 AAS
>>145
うーん、そういうデータをインポートすると普通にエラーとして扱われて
「テーブル名_$インポート エラー」 ってテーブルが生成されるから
インポート漏れのレコードがわからなくて困る、なんて状況にはならないんだよね
147: 2013/09/02(月)10:35 AAS
インポート漏れのレコードがわからなくて困る、なんて状況になると言ってる人はいないが
148: 2013/09/02(月)10:57 AAS
おもろいな
149: 2013/09/05(木)23:50 AAS
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, _
strac, strxls, True, strrange
上記でインポート エラーになるので引数のacImportのところに、
作成したインポート定義にしたいのですができるのでしょうか
150: 2013/09/07(土)03:42 AAS
よし
151: 2013/09/07(土)16:59 AAS
そもそもワークシート変換にインポート定義とかないだろ
152: 2013/09/09(月)01:46 AAS
Accessの初心者です。
レポート印刷でページヘッダーのコードが変わったタイミングで改ページしたい
かつ詳細の明細行は４レコードだけで改ページさせる、両方の条件を満たせるには、
どうやって作成したらよいかご教授お願いします。
153(2): 2013/09/09(月)02:08 AAS
ページヘッダーじゃなくて、その項目でグループ化してヘッダー作る
そのヘッダーかフッターで改ページを設定する
詳細の高さを４行分になるようにヘッダ、フッタや余白を調整する
つか、VBAまったく関係ない話
154(1): 2013/09/09(月)07:18 AAS
>>153
ここはVBAのスレですよね？VBAと関係ある話をしてください。
VBAとまったく関係ない話をしたのはあなたです。VBAでお願いします。
155: 2013/09/09(月)13:03 AAS
VBAを一言で表すと
156(2): 2013/09/09(月)13:20 AAS
>>154
マジレスしといてやるが、VBAでやるよりよっぽど>>153の方法の方が良いぞ
だがあえてVBAでやりたいなら
明細セクションの最初と最後に改ページコントロール(改ページ1,2)を配置して
Dim 行数 As Integer
Dim 前コード
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
省21
157: 2013/09/09(月)13:22 AAS
う。 は空白に置換してくれ
つか普通に貼り付けできなくなったのかよ
158(1): 2013/09/10(火)00:16 AAS
>>156
もう少し教えてください。。。
明細が５明細あった場合、
コードA
00001
00002
00003
省13
159: 2013/09/10(火)02:26 AAS
>>158
>>156が理解できないなら、VBAでやるのやめとけ
160(3): sage 2013/09/17(火)19:50 AAS
Accessのクエリで、「クエリの並び替え条件を動的に変更する」方法を
教えて頂けないでしょうか。
現状は、下記のクエリを作成しましたが、並び替え条件として判定されません。
SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value
よろしくお願いします。
161(1): 2013/09/17(火)20:22 AAS
>>160
SELECT * FROM テーブル1
ORDER BY FORMS!画面１!テキスト１.Value
これってどこに書いてるの？
162(1): 2013/09/17(火)21:44 AAS
>>160
どうしてもやりたいならQueryDefとか使えばできるかもしれんが
動的にSQLつくってDoCmd.RunSqlでやる方がいいんじゃね
上下前次1-新書関写板覧索設栞歴
あと 840 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.027s