| |
はじめまして、Access初心者です。
検索画面で、明細をフィルタを使用して一覧表示してます。
各明細に、編集画面や削除画面のフォームを呼び出すボタンを使っています。
明細行の条件により、各ボタンを使用不可にしたいのですが、
全行が使用不可になってしまい、各行毎の設定が出来ません。
条件の”[Dtl_Emp_del_flg] = no”の条件でのハンドリングもわからなかったので
一旦、プロパティを指定して、それをもとに条件文を組み立てました。
もっとよい方法があるかと思うのですが、どなたかご教示ください。
よろしくお願いします。m(_ _)m
For Each ctl In Me.Section(acDetail).Controls
With ctl
Select Case .ControlType
Case acTextBox
.FormatConditions.Delete
With .FormatConditions.Add(acExpression, , "[Dtl_Emp_del_flg] = no")
.BackColor = 16777215
End With
If Dtl_Emp_del_flg.BackColor = 16777215 Then
With Dtl_Emp_Name
.Locked = yes
.Enabled = False
End With
With DTL_Emp_Code
.Locked = yes
.Enabled = False
End With
With btn_dtl_updt ＜＝ このコードが効いてない？
.Enabled = False ＜＝ このコードが効いてない？
End With ＜＝ このコードが効いてない？
With btn_dtl_del ＜＝ このコードが効いてない？
.Enabled = False ＜＝ このコードが効いてない？
End With ＜＝ このコードが効いてない？
Else
With Dtl_Emp_Name
.Enabled = True
End With
With DTL_Emp_Code
.Enabled = True
End With
With btn_dtl_updt ＜＝ このコードが効いてない？
.Enabled = True ＜＝ このコードが効いてない？
End With ＜＝ このコードが効いてない？
With btn_dtl_del ＜＝ このコードが効いてない？
.Enabled = True ＜＝ このコードが効いてない？
End With ＜＝ このコードが効いてない？
End If
Case Else
End Select
End With
Next ctl
|
|
ぼっこ
- 06/11/17(金) 23:10 -
