0

Access でデータベースを作成しました。これが私のワークフローの設定方法です。

  1. 「フィールド」テーブルを作成しました。
  2. 各フィールドに一意の列名を付けます (つまり、プロジェクト チーム フィールドには Fld10078 フィールド ID があります)。
  3. 「チケット」フォームを作成しました
  4. 希望のフィールドが希望の場所に配置された「チケット」カードのようなレイアウトのレポートを作成しました。
  5. 「チケット」の各プロジェクト チームには独自の色があります。

私が来る前に、これはすでにコード化されており、正常に機能していました。各プロジェクト チームには独自の色があります。ユニークな色の 2 つの新しいチームを追加したかったのですが、現在表示されています。チケット カードに色が表示されるのは上位 4 チームのみです。

コードは次のとおりです。

Select Case Me.Fld10078

        Case "Team A"
            Me.Fld10078.BackColor = RGB(204, 0, 0)
            Me.Fld10078.ForeColor = vbWhite
        Case "Team B"
            Me.Fld10078.BackColor = RGB(51, 102, 255)
            Me.Fld10078.ForeColor = vbWhite
        Case "Team C"
            Me.Fld10078.BackColor = RGB(0, 153, 0)
            Me.Fld10078.ForeColor = vbWhite
        Case "Team D"
            Me.Fld10078.BackColor = RGB(255, 153, 0)
            Me.Fld10078.ForeColor = vbWhite
        Case "Team E"
            Me.Fld10078.BackColor = RGB(204, 0, 0)
            Me.Fld10078.ForeColor = vbWhite
        Case "Team M"
            Me.Fld10078.BackColor = RGB(0, 128, 128)
            Me.Fld10078.ForeColor = vbWhite
        Case Else
            Me.Fld10078.Visible = False
    End Select

これが私がコントロールソースのために持っているものです:

=IIf([Fld10078]="Team A","Team A",IIf([Fld10078]="Team B","Team B",IIf([Fld10078]="Team C","Team C",IIf([Fld10078]="Team D","Team D",IIf([Fld10078]="Team E","Team E",IIf([Fld10078]="Team M","Team M"))))))

チーム E とチーム M は色を表示していません。テキストは表示されていますが、色は表示されていません。

4

1 に答える 1

0

コントロールの名前がデータベースのフィールド名と同じ場合、アクセスが混乱することがあります。

ラベル Fld10078 の名前を、TeamLabel や lblFld10078 などの別の名前に変更してみてください。プロパティ (F4)、[すべて] タブ、[名前] プロパティを使用します。

編集してコメントを明確にする

Fld10078が列名で、lblFld10078がそれを参照するラベルであると仮定すると、次のようになります。

  • Select Case ステートメントの前に lblFld10078.Visible = True を設定します。
  • Caption プロパティを lblFld10078IIf ステートメントから =[Fld10078] に変更します。
于 2013-09-30T20:38:03.413 に答える