| |
得意先CDの入力チェックするフォームをテスト中にエラーコード２１０８が表示されました。 『”Gotocontrol”アクション ”GOTOCControlメソッド”またはSetFocusメソッドを実行する前にフィールドを保存する必要があります』。このエラーの意味と対処方法を教えてください。以下にコードを表示します。
エラーになった箇所は←印で表示しています。
If IsNull(Me!得意先CD) Or IsEmpty(Me!得意先CD) Or Val(Me!得意先CD) = 0 Then
MsgRet = MsgBox("得意先CDを入力して下さい。", vbOKCancel, "入庫データ入力")
Select Case MsgRet
Case vbOK
Cancel = True
Case vbCancel
Me!区分.SetFocus
Case Else
End Select
Else
If Len(Me!得意先CD) > 6 Then
MsgRet = MsgBox("得意先CDは６桁以内で入力して下さい。",vbOKCancel, "入庫データ入力")
Select Case MsgRet
Case vbOK
Cancel = True
Case vbCancel
Me!区分.SetFocus ←ここでエラーが発生
Case Else
End Select
Exit Sub
End If
Set DB = CurrentDb
Sql = "Select * From T_得意先マスタ Where 得意先CD = '" & Me!得意先CD & "'"
Set Rst = DB.OpenRecordset(Sql)
If Rst.RecordCount = 0 Then
MsgRet = MsgBox("得意先が未登録です。", vbOKCancel, "入庫データ入力")
Select Case MsgRet
Case vbOK
Cancel = True
Case vbCancel
Me!区分.SetFocus ←ここでもエラーが発生
Case Else
End Select
Else
Me!得意先名 = Rst!得意先名
End If
End If
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
