igaguri
2019/05/15 (水) 00:35:56
32a1e@d14a6
フォームを起動すると
Private Sub Form_Load()
Me.従業員コード.DefaultValue = Me.cb従業員コード.Value
Me.入出庫日.DefaultValue = "#" & Me.txt入出庫日.Value & "#"
Me.Filter = "従業員コード=" & Me.cb従業員コード.Value & _
" AND 入出庫日=#" & Me.txt入出庫日 & "#"
Me.FilterOn = True
Me.cb従業員コード.SetFocus
DoCmd.GoToRecord , , acNewRec
End Sub
の Me.FilterOn = True の部分が 黄色くなってしまい フォームが表示されません。
各名称はあっているのですが・・・
通報 ...