- ベストアンサー
Access2000でのプロシージャの書き方について
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
条件付き書式でいいんじゃないですか？ http://support.microsoft.com/kb/879811/ja
関連するQ&A
- アクセスのレポートにて明細行の色付け
アクセスのVisualBasicで、明細行をある項目毎に色分けをいたいのですが、一応参考書にて If Me!テキスト１ > Me!テキスト２ Then Me.Section(acDetail).BackColor = RGB(200, 200, 200) Else Me.Section(acDetail).BackColor = RGB(255, 255, 255) End If というようなことまではできたのですが、 同一レコード内ではなく、前レコードと対比して異値なら色付 という方法をご存知の方よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 条件に該当したテキストボックスの名前を(2)
前回 http://okwave.jp/qa/q6556269.html で テキストボックスの名前をメッセージボックスに表示する方法(VBA)を 教えて頂いたのですが新たにわからない事がでてきてしまったので 質問させて下さい＞＜自力で解決しようとしたのですがどうしてもできなくて… Accessのバージョンは2003です。 フォームに伝票番号と得意先コードの2つの入力フィールド (テキストボックス)があります。 やりたいことは、以下のようなことです。 伝票番号は100未満の数値でなくてはならず、 得意先コードは1以上かつ10未満でなくてはなりません。 もし、上記の条件に該当しない場合はテキストボックスの色を 黄色に変更させます。 そうしたら黄色に変更されたテキストボックスだけの名前を メッセージボックスに表示させます。 前回教えて頂いたVBAを追記して動かしたところ どちらか片方がエラーの場合はテキストボックスの名前が メッセージボックスに表示されるのですが、 ２つともエラーの場合、メッセージボックスが２回表示され １つのメッセージボックスに１つの名前しか表示されません。 記述したVBAでは正常な動作だと思うのですが、 これを１つのメッセージボックスに黄色のテキストボックスの 名前をいっぺんに表示させたいのですが、 どのようにすれば宜しいでしょうか。 良かったらご教授お願いします！＞＜ 現在記述しているVBAは以下になります。 ---------------------------------------------------------------- Private Sub 閉じる_Click() 'フォーム上のコントロールを格納する変数 Dim ctrl As Control 'フォーム上のすべてのコントロールに対しての繰り返し処理 For Each ctrl In Me.Controls '取得したコントロールがテキストボックスかどうか If ctrl.ControlType = acTextBox Then '伝票番号の値が100未満の場合 If Me!txtNo <= 100 Then '背景をピンクに Me!txtNo.BackColor = vbMagenta Else '背景を黄色にして値を元に戻す Me!txtNo.BackColor = vbYellow End If '得意先コードの値が1以上かつ10未満の場合 If Me!txtCode <= 10 And Me!txtCode >= 1 Then '背景をピンクに Me!txtCode.BackColor = vbMagenta Else '背景を黄色にして値を元に戻す Me!txtCode.BackColor = vbYellow End If End If Next ctrl Me.Undo 'フォーム上のすべてのコントロールに対しての繰り返し処理 For Each ctrl In Me.Controls 'テキストボックスのコントロールを取得 If TypeOf ctrl Is TextBox Then '取得したコントロールが黄色だった場合 If ctrl.BackColor = vbYellow Then 'メッセージボックスに名前を表示 MsgBox ctrl.Name End If End If Next ctrl End Sub
- ベストアンサー
- Visual Basic
- Accessレポートで1行おきに色を変える
Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) FontCount = FontCount + 1 If FontCount Mod 2 = 1 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 16777164 End If End Sub としてみました。 ですが何らかわりなく… 試しに Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer) FontCount = FontCount + 1 If FontCount Mod 2 = 1 Then Me.Section(0).BackColor = 16777215 Else Me.Section(0).BackColor = 16777164 End If MsgBox FontCount End Sub としてみたところずーっと「1」が表示され、変数がかわってないようです。 いったいどこがダメなのでしょうか？ 確か以前できたはずなのに…（＞＜）
- ベストアンサー
- オフィス系ソフト
- アクセスでテキストボックスの値が空白だったら
お世話になっております。 フォームのテキストボックスの値が0か空白だったら、レポート上に表示されるものを変えたいのですが、うまくいきません。 If [Forms]![フォーム1]![テキストボックス1].value = 0 Or [Forms]![フォーム1]![テキストボックス1].value = "" Then Me![レポート上のテキストボックス] = "無" Else [Forms]![フォーム1]![レポート上のテキストボックス1] = [Forms]![フォーム1]![テキストボックス1] & "ヶ月" End If これだと何も入っていないときに"ヶ月"と表示されてしまいます。どのように書けばよいのでしょうか？ ご教授願えませんでしょうか？
- ベストアンサー
- オフィス系ソフト
- アクセスのＭｅについて
アクセスの本の中で，Meが出てきました。 問題は，フォームに得点と結果のテキストボックスを作成します。そして，テキストボックスに得点を入力します。コマンドボタンに次のイベントで，得点が合格か不合格かを判定し，結果のテキストボックスに出力するものです。フォームにMeを入力していないのですが，VBAで突然現れてきました。このMeは，どんなときに使うのでしょうか。教えていただければ幸いです。 Private Sub 実行_Click() If Me.得点 >= 100 Then Me.結果 = "合格" Else Me.結果 = "不合格" End If End Sub
- ベストアンサー
- オフィス系ソフト
- accessの検索フォームについて（複数条件）
access初心者です。 本などを参考に検索フォームを作成しました。 １つの条件で検索することは出来たのですが、複数の条件を入力するとうまく検索出来ません。 全ての条件を満たすデータの抽出を行いたいと思います。 「あ」「い」「う」というテキストボックスを用意しています。 Private Sub コマンド14_Click() If Not IsNull(Me.txt_あ) Then ' Me.Filter = "あ LIKE '*" & Me!txt_あ & "*'" End If If Not IsNull(Me.txt_い) Then ' Me.Filter = "い LIKE '*" & Me!txt_い & "*'" End If If Not IsNull(Me.txt_う) Then ' Me.Filter = "う LIKE '*" & Me!txt_う & "*'" End If Me.FilterOn = True End Sub よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 【ACCESS2000】 帳票での入力チェック
帳票形式のフォームでエラーチェックを行う場合、たとえば、 If Me!入金日 = "" then Msgbox ("入金日が入力されていません") Else '登録処理・・・・ というように入力すると、現在フォーカスがある行しか チェックしてくれません。 すべての行の入金日が入っているかをチェックする方法はないでしょうか。
- ベストアンサー
- オフィス系ソフト
- ACCESS
現在以下のシステムを検討しています。 (1)ログインフォームと(2)トップフォーム(3)注文フォームが別々に存在しており、 (1)ログインフォームは ・ログインID入力用のテキストボックスが一個 ・パスワード入力用のテキストボックスが一個 ・ログインボタンが1個 設置されています。 以下はログインボタンクリック時に動作するプログラムです。 Private Sub cmdLogIn_Click() Dim Res If IsNull(Me.txtID) Then MsgBox "IDを入力してください" Me.txtID.SetFocus Exit Sub End If If IsNull(Me.txtPass) Then MsgBox "パスワードを入力してください" Me.txtPass.SetFocus Exit Sub End If Res = DLookup("パスワード", "T顧客", _ "顧客ID='" & Replace(Me.txtID, "'", "''") & "'") If IsNull(Res) Then MsgBox "該当するIDはありません。正しいIDを入力してください。" Me.txtID.SetFocus Exit Sub End If If Res = Me.txtPass Then DoCmd.OpenForm "注文フォーム" '----ID,pass合致でフォームを開く。 Me.txtID = Me.txtID2 Me.txtPass = Me.txtPass2 DoCmd.Close acForm, "Fログイン" Else MsgBox "パスワードが異なります。", vbOKOnly + vbCritical Me.txtPass.SetFocus End If End Sub (2)トップフォームは 商品のリストが画像付き（商品一個につき画像一個） で示され、画像を押すと商品別に作成してある注文フォームに進むのですが、 ログイン完了していないとログインを促すメッセージが出て注文フォームが開かないよう にしています。 トップフォームにはテキストボックスを２個不可視の状態で配置しております。 以下は商品画像に埋め込んであるコマンドです。 Private Sub 商品画像 1_Click() Dim Res If IsNull(Me.txtID) Then MsgBox "ログインしてください" Exit Sub End If If IsNull(Me.txtPass) Then MsgBox "ログインしてください" Exit Sub End If If Res = Me.txtPass Then DoCmd.OpenForm "商品名" '----ID,pass合致で注文フォームを開く。 End If End Sub (3)注文フォームは ・数量選択のコントロールボックス ・注文ボタン ・キャンセルボタン を設置しています。 【以下が質問内容になります】 「ロフインフォーム」内の入力値（テキストボックスに入力されていたIDやパスワード値）を注文フォーム内のテキストボックスに取得させる（あるいは設定させる）にはどのようにすればよいのでしょうか？ 注文フォームにはテキストボックス２個（ ID入力用と Password入力用)を不可視で配置しています。こちらのテキストボックス２個については手動入力は行わず、注文フォームが開いた際にログイン時の ID, Paswordがテキストボックスの中に自動的に入力あるいは設定されるようにしたいのですが、どのようにすればよいかがわかりません。 因みにログイン ID,Passwordは複数セットあり、ユーザーがログイン完了後、注文フォームを閉じるまでの間は 同一のID, Paswordの内容を保持したいと考えています。 上記の中にID,Paswordを保持させるようなコードを入れることは可能でしょうか？ 注文フォームを開く際のコードに何か入れることができるのではないかと考えていたの ですが、よい案が浮かびません。 他によいやり方などがあれば教えていただけますでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- テキストボックス1が空白のとき背景色を黄色にしてタブ移動しないようにし
テキストボックス1が空白のとき背景色を黄色にしてタブ移動しないようにして再入力を促したいのですが うまく行きません まず、テキストボックス1からテキストボックス2に進むようタブオーダーの設定がされています Private Sub テキストボックス1_Exit(Cancel As Integer) '空白のとき If IsNull(Me!テキストボックス1) Then MsgBox "テキストボックス1が指定されていません。" 'テキストボックス1を黄色にする Me!テキストボックス1.BackColor = 8454143 'タブキー操作で移動できないようにする テキストボックス2.TabStop = False Else 'それ以外の場合タブキー操作で移動できるようにする テキストボックス2.TabStop = True End If ご指導ください
- ベストアンサー
- Visual Basic
- アクセスのレポートの背景を日付で変更したい
アクセス2002を使用しています。 レポートで計測日、計測場所、品名、大きさ・・・・など項目があり、 計測場所が大阪で、計測日が2012/6/27～今日まで（Date())のデータがある行の 背景色を変更したいのです。 計測場所が大阪の場合は簡単に出来たのですが 日付が入ると訳が分からなくなってしまいました。 計測場所のみの場合下記のようなＶＢＡになっています。 Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer) If Me!計測場所 = "大阪" Then Me.Section(acDetail).BackColor = RGB(255, 0, 255) Else Me.Section(acDetail).BackColor = RGB(255, 255, 255) End If End Sub
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございました。 なんとかなりそうです。