4章 カスタマイズ /4-3フォーム参照が自動で展開する[Access] |
Private Sub XXX_Enter()
If IsNull(Me![XXX]) Then
XXX.Dropdown
End If
End Sub
(”XXX”はフィールド名)
![[参照自動展開]](Tr04030b.gif)
| <「明細」フォームの例> |
Private Sub 商品番号1_Enter()
If IsNull(Me![商品番号1]) Then
商品番号1.Dropdown
End If
End Sub
| |
|