Form_test.Filter = "分類 Not Like ""*あああ*"" And Not Like ""*いいい*""" Form_test.FilterOn = True
コンボボックスの更新後処理イベントで上記のコードを走らせると、 「構文エラー:演算子がありません」と返されます。 初歩過ぎる質問ですんまそん。文法何か間違ってますでしょうか。 0084デフォルトの名無しさん2013/03/26(火) 12:05:53.53 Form_test.Filter = "分類 Not Like ""%あああ%"" And Not Like ""%いいい%""" 0085デフォルトの名無しさん2013/03/26(火) 13:24:28.20 たぶん "分類 Not Like ""*あああ*"" And 分類 Not Like ""*いいい*""" 0086デフォルトの名無しさん2013/03/26(火) 15:56:56.54 >>84->>85 返信ありがとうございます。どちらも「演算子がありません」エラーは解消されませんでした。
ちなみに、↓は問題ないので、And Notがまずいのかなと思ったんですが、書式は問題なさそうですか・・・。 Form_test.Filter = "分類 Not Like ""*あああ*""" Form_test.FilterOn = True 他の方法も探してみます。
ヘルプ開くとBingとかいうのが出て何も表示されないお・・・。2010使いづらいお(;´Д`) 0087デフォルトの名無しさん2013/03/26(火) 17:04:55.32 Form_test.Filter = "Not (分類 Like ""*あああ*"" Or 分類 Like ""*いいい*"")" 0088デフォルトの名無しさん2013/03/27(水) 08:35:25.18>>87 これでいけました!ありがとうございます! 0089デフォルトの名無しさん2013/03/27(水) 11:51:17.13>>88 >>84は文法間違いあるけど、>>85はいけるはずだが、ほんとにダメだったのか? 先頭の のとこは無視しないとだめだぞ 0090デフォルトの名無しさん2013/03/27(水) 17:54:38.17 "Not 分類 Like ""*あああ*"" And Not 分類 Like ""*いいい*""" 0091デフォルトの名無しさん2013/04/04(木) 18:20:58.41 1.OS(64bit) + Office2010(64bit) 2.OS(64bit) + AccessRuntime2010(64bit) 3.OS(64bit) + Office2010(32bit) 4.OS(64bit) + AccessRuntime2010(32bit) 5.OS(32bit) + Office2010(32bit) 6.OS(32bit) + AccessRuntime2010(32bit) ※ OS:XP〜Windows8まで
上記のどの組み合わせでも動くようなAccessの実行ファイルは作成可能ですか? 0092デフォルトの名無しさん2013/04/04(木) 19:39:15.05>>91 http://tsware.seesaa.net/article/174598211.html0093デフォルトの名無しさん2013/04/12(金) 00:23:04.15 使用不可にいている3つのテキストボックスを、 チェックボックスをonにすると使用可能にするにはどうしたらいいでしょうか? 0094デフォルトの名無しさん2013/04/12(金) 01:37:21.85>>93 Private Sub チェックボックス_Click() If Me.チェックボックス.Value = True Then Me.テキストボックス1.Enabled = True Me.テキストボックス2.Enabled = True Me.テキストボックス3.Enabled = True Else Me.テキストボックス1.Enabled = False Me.テキストボックス2.Enabled = False Me.テキストボックス3.Enabled = False End If End Sub 0095デフォルトの名無しさん2013/04/12(金) 11:57:39.57>>92 参考にさせてもらいました。 ありがとうございます。
この現象について何かご存知の方がいらっしゃいましたらお願いします。 0096デフォルトの名無しさん2013/04/12(金) 17:36:38.89>>94 もう少しシンプルなコードはないですか? わがままですみません。 0097デフォルトの名無しさん2013/04/12(金) 17:42:08.68>>96 Private Sub チェックボックス_Click() Me.テキストボックス1.Enabled = Me.チェックボックス.Value Me.テキストボックス2.Enabled = Me.チェックボックス.Value Me.テキストボックス3.Enabled = Me.チェックボックス.Value End Sub 0098デフォルトの名無しさん2013/04/12(金) 18:36:06.95>>97 すばやいご回答ありがとうございました。 いろいろな書き方があるんですね。 0099デフォルトの名無しさん2013/04/12(金) 22:29:10.45 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"))
というアドバイスをしてくれた方がいましたが、 これに相当するコードが全くわかりません。 丸投げですがどなたか教えてくださいませ。 0100桃白白2013/04/13(土) 02:40:34.80>>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")
If s < Q Then marume = H Else marume = Fix((s + Q) / H) * H End If End Function