Access2002 チェックボックス選択→適切な言葉の表示
- Accessで、チェックボックスの選択に応じて表示される言葉を変更したいです。
- 現在、選択したチェックボックスの値にかかわらず、WXYZと表示されてしまいます。
- どのようにすればチェックボックスの選択に応じてABCDEが表示されるようになりますか？
- ベストアンサー
Access2002 チェックボックス選択→適切な言葉の表示
アクセスで、fraで囲まれたチェックボックス.Valueの値によりtxtに表示される言葉を変更したいのですが、fraCで2,3どちらを選択しても、WXYZと表示されてしまいます。 ABCDEが表示されるにはどのようにすればよいのでしょうか？ 教えて下さい。よろしくお願い致します。 'ABCDE If fraA.Value = 3 Or fraB.Value = 3 And fraC.Value = 2 Then txtXXX = "ABCDE" Else txtXXX = "" End If 'WXYZ If fraA.Value = 3 Or fraB.Value = 3 And fraC.Value = 3 Then txtXXX = "WXYZ" Else txtXXX = "" End If
- Swim
- お礼率79% (248/313)
- オフィス系ソフト
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
式が一つのサブルーチンなら txtXXX = "" If fraA.Value = 3 Or fraB.Value = 3 Then If fraC.Value = 2 Then txtXXX = "ABCDE" Else If fraC.Value = 3 Then txtXXX = "WXYZ" End If End If End If 別々なら 'ABCDE If ( fraA.Value = 3 Or fraB.Value = 3 ) And fraC.Value = 2 Then txtXXX = "ABCDE" Else txtXXX = "" End If の様にOR条件をカッコで閉じる。
関連するQ&A
- アクセスでテキストボックスの値が空白だったら
お世話になっております。 フォームのテキストボックスの値が0か空白だったら、レポート上に表示されるものを変えたいのですが、うまくいきません。 If [Forms]![フォーム1]![テキストボックス1].value = 0 Or [Forms]![フォーム1]![テキストボックス1].value = "" Then Me![レポート上のテキストボックス] = "無" Else [Forms]![フォーム1]![レポート上のテキストボックス1] = [Forms]![フォーム1]![テキストボックス1] & "ヶ月" End If これだと何も入っていないときに"ヶ月"と表示されてしまいます。どのように書けばよいのでしょうか？ ご教授願えませんでしょうか？
- ベストアンサー
- オフィス系ソフト
- チェックボックスについて
こんにちは。 フォームで「個人別状態」が「成約済み」の時に チェックボックスにチェックがつくようにしたいのですが、 動作しません。 どこが間違っているのでしょうか。。。 Private Sub チェック31_Click() If Me.個人別状態 = "成約済み" Then Me.チェック31.Value = False Else Me.チェック31.Value = True End If End Sub
- ベストアンサー
- その他(データベース)
- AccessVBAのチェックボックスの使い方
お世話になります。 フォーム上に、印刷sw(チェックボックス)と印刷範囲(テキストボックス）を定義して、次のようにコーディングしました。 If 印刷SW = False Then 印刷SW.Value = True 印刷範囲 = "全て印刷" Else 印刷SW.Value = False 印刷範囲 = "指定印刷" End If これを実行すると 「指定した式には値がありません」 となり、 また 先頭に 印刷SW = True を加えると 「このオブジェクトに値は代入することは出来ません」 となります。 だいぶ舌足らずのところがあると思いますがうまく表現出来ません。宜しくお願いします
- ベストアンサー
- オフィス系ソフト
- Accessのチェックボックス
こんにちは。AccessのVBAについてお教えください。 下記URLに質問内容の画像を配置しました。 http://kie.nu/tli フォーム1にテキストボックス1というコントロールを配置しました。テキストボックス1に名簿IDの数値を入力して、ボタン１をクリックします。 もしチェックボックス1に既にチェックが入っていたらメッセージ「チェックが既に入っています。」といったメッセージを表示したいと思います。 そこで、ボタンを押した時に、 If フォーム1!サブフォーム1!チェックボックス1.Value = -1 Then msgbox "チェックが既に入っています。" end if とやりましたが、うまく動きません。どうやれば、うまく動くようになりますかご教授頂けませんでしょうか。よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- EXCEL VBA コンボボックス、テキストボックスが未入力のときメッセージを表示する方法
ユーザーフォームにコンボボックス2個textboxが2個あります コンボは選択のみです。 コンボとtextbox1は入力必須にして、空欄でコマンドボタンが押された時はメッセージを表示したいです OKwebを参考に作ったのですが、コンボ１が空欄でもMsgが出ません 願いします Private Sub CommandButton1_Click() Dim ctrl As Control, tst1 As String, txt2 As String Dim ws As Worksheet Set ws = Sheets("sheet1") For Each ctrl In Me.Controls Select Case ctrl.Name Case "ComboBox1", "ComboBox2", "TextBox1" If Me.Controls(ctrl.Name).Value = "" Then txt1 = txt1 & ctrl.Name & vbLf Else txt2 = txt2 & Me.Controls(ctrl.Name).Value & vbLf End If End Select Next If Len(txt1) > 0 Then MsgBox "以下の値を入力してください" & vbLf & txt1, vbExclamation Exit Sub Else ret = MsgBox("以下の値を入力します" & vbLf & txt2, vbOKCancel) If ret <> vbOK Then Exit Sub
- ベストアンサー
- オフィス系ソフト
- チェックボックスの使い方
VBスクリプトでよくわからないところがあるので教えてください。たくさんのチェックボックスがあるので、For i To ～Next の構文を使って効率よくチェックされたものだけSQLの構文に取り入れて検索しようとしたのですがうまくゆきません。どのようにしたらよいでしょうか。 今試してみたのは、検索条件の設定画面で、 <input type=checkbox name=tatemono(0) value=自社使用>自社使用 <input type=checkbox name=tatemono(1) value=事業用>事業用 <input type=checkbox name=tatemono(2) value=電算センター >電算センター というようなチェックボックスを 検索処理用ページで SQL="SELECT * FROM [データ] " 'チェックボックスのチェック数が0でなければWHERE文をいれるflagをTrueにしておく If Request.Form("tatemono").Count>0 Then SQL=SQL & "WHERE " flag=True End If 'チェックボックスを最初から調べてチェックされていたらその項目がyesになっているという条件をSQL文に追加する For i=1 To Request.Form("tetemono").Count If Request.Form("tatemono")(i)<>"" Then fldname=Request.Form("tetemono")(i) If flag=True Then SQL = SQL & "AND" Else SQL = SQL & "WHERE" End If SQL= SQL & fldname & "=Yes" End If Next とやってみたのですが、ぜんぜん駄目みたいです。 根本的にどこか間違ってますよね・・・。 直すところを教えてください。 お願いします。
- ベストアンサー
- Microsoft ASP
- チェックボックスの入力チェックについて
VB.NETに関する質問です。 画面の一覧（SPREAD等）にチェックボックスがあり、 全てのチェックボックスにチェックがついているかどうかを調べたいです。 「もし一つでもチェックがついていた場合は、チェック処理から即座に抜け、 もし全てのチェックがついていない場合は、エラーメッセージを出力する」 という動作を求めています。 例えば、 For intRowIndex As integer = 0 To MaxRowCount - 1 If CBool(Cells(intRowIndex, checkboxColumn).Value) Then '' チェックがついている場合 Exit For Else If intRowIndex = MaxRowCount Then '' エラーメッセージ出力 End If End If Next という処理で求める動きは可能ですが、 もう少しスマートなロジックがないかと考えています。 どなたか教えて頂けませんでしょうか？
- 締切済み
- Visual Basic
- エクセル チェックBOXを使用してシート選択 保存
皆様お世話になります。 昨日は一括保存をご教授していただきありがとうございました。 早速ですが今回は、チェックboxを使用してシートを選択しそれをCSV形式にて保存したいのですがどうもうまくいきません。 ご教授よろしくお願いします Private Sub 保存_Button1_Click() If CheckBox5.Value Or CheckBox6.Value Or CheckBox7.Value Then bl = 5 If CheckBox5.Value Then Sheets("管理").Select Cells.Select Range("a1").Select 保存_start End If bl = 5 If CheckBox6.Value Then Sheets("カット").Select Cells.Select Range("a1").Select 保存_start End If bl = 5 If CheckBox7.Value Then Sheets("ノズル").Select Cells.Select Range("a1").Select 保存_start End If MsgBox "通信終了" Unload Me Else MsgBox "何も選択されていません" End If End Sub Private Sub 保存_start() Cells.Select Selection.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Application.DisplayAlerts = False ActiveWorkbook.SaveAs Flname = "c:\" & ActiveSheet.Name & "-" & CStr(Format(Date, "yymmdd") & _ "-" & Format(Time, "hhmmss")), FileFormat:=xlCSV ActiveWindow.Close ThisWorkbook.Activate Application.DisplayAlerts = True End Sub
- ベストアンサー
- オフィス系ソフト
- たくさんのテキストボックスを制御する算段について
フォーム上にテキストボックスをエクセルのシートのように並べて、月の日付の一覧を表示し、そこに項目があります。 項目をダブルクリックすると○と空白を交互に入れ換えたいのです。 下のようなイメージです。ちょうど勤務表のようなイメージでしょうか。 １ ２ ３ ４ … 月 火 水 木 … 項目Ａ ○ ○ ←ここにはテキストボックスが31個隙間なく並んでいる→ 項目Ｂ ○ で、そのソースは下のようにしたのです。 Private Sub A01_DblClick(Cancel As Integer) If A01.Enabled <> False Then If IsNull(Trim(A01.Value)) Or Trim(A01.Value) = "" Then A01.Value = "○" Else A01.Value = "" End If End If End Sub が、これですとテキストボックスの数分だけこの記述をしなければならず、余り賢いやり方だとは思えないのです。 何か、算段があれば、ヒントだけでもご提示していただければ幸いです。 宜しくお願いいたします。
- 締切済み
- オフィス系ソフト
- チェックボックスが選択させない
PHP smartyで4×6のチェックボックスのリストを表示しています。 しかし、上の２行（8つのチェックボックス）が、 初期表示から3分以上たたないと、選択できない状態になります。 ブラウザはIE6.0です。 原因が不明の状態です。どのようにすればよろしいでしょうか。 Mozilla Firefox2.0では正常に動作します。 <table border=0 class="tabledetails"> <{section name="index" loop=$data start="0" step="1" max="10"}> <tr> <th> <{$data[index].name_1}> </th> <td> <{if $data[index].name_1 <> '' }> <{if ($curentview == 'CHECK' or (($modeid == 'SERH1') or ($modeid == 'SERH2') or ($modeid == 'SERH3') or ($modeid == 'SERH4'))) }> <input type="hidden" name='code_<{$data[index].code_1}>' <{if $data[index].name_1_flg}>value='on'<{/if}> > <{if $data[index].name_1_flg}><img src="./images/reten.png" /><{/if}> <{else}> <input type="checkbox" name='code_<{$data[index].code_1}>' <{if $data[index].name_1_flg}>CHECKED<{/if}> > <{/if}> <{/if}> </td> <th> <{$data[index].name_2}> </th> <td> <{if $data[index].name_2 <> '' }> <{if ($curentview == 'CHECK' or (($modeid == 'SERH1') or ($modeid == 'SERH2') or ($modeid == 'SERH3') or ($modeid == 'SERH4'))) }> <input type="hidden" name='code_<{$data[index].code_2}>' <{if $data[index].name_2_flg}>value='on'<{/if}> > <{if $data[index].name_2_flg}><img src="./images/reten.png" /><{/if}> <{else}> <input type="checkbox" name='code_<{$data[index].code_2}>' <{if $data[index].name_2_flg}>CHECKED<{/if}> > <{/if}> <{/if}> </td> <th> <{$data[index].name_3}> </th> <td> <{if $data[index].name_3 <> '' }> <{if ($curentview == 'CHECK' or (($modeid == 'SERH1') or ($modeid == 'SERH2') or ($modeid == 'SERH3') or ($modeid == 'SERH4'))) }> <input type="hidden" name='code_<{$data[index].code_3}>' <{if $data[index].name_3_flg}>value='on'<{/if}> > <{if $data[index].name_3_flg}><img src="./images/reten.png" /><{/if}> <{else}> <input type="checkbox" name='code_<{$data[index].code_3}>' <{if $data[index].name_3_flg}>CHECKED<{/if}> > <{/if}> <{/if}> </td> <th> <{$data[index].name_4}> </th> <td> <{if $data[index].name_4 <> '' }> <{if ($curentview == 'CHECK' or (($modeid == 'SERH1') or ($modeid == 'SERH2') or ($modeid == 'SERH3') or ($modeid == 'SERH4'))) }> <input type="hidden" name='code_<{$data[index].code_4}>' <{if $data[index].name_4_flg}>value='on'<{/if}> > <{if $data[index].name_4_flg}><img src="./images/reten.png" /><{/if}> <{else}> <input type="checkbox" name='code_<{$data[index].code_4}>' <{if $data[index].name_4_flg}>CHECKED<{/if}> > <{/if}> <{/if}> </td> </tr> <{/section}> </table>
- ベストアンサー
- JavaScript
お礼
ありがとうございます！ いっぺんで完成できました。 すごく助かりました！