win10pro64
office365
久しぶりの相談です。
よろしくお願いします。
NASを使ったリンクテーブルで運用してましたが、同一ネットワーク外とデータ共有の必要が生じSharePointを使いリンクテーブルで運用しようとしております。
テーブルの移動はウィザードで成功したのですが一点動作がおかしくなってしまい色々試したもののうまくいかないため相談させていただきます。
テーブルに入力用フォームからデータ入力をしますが、その際フォームを開いたときに新規レコード追加の画面になるようにしてありました。
フォームのプロパティの「入力用」を「はい」にしてあります。
このようなフォームがたくさん含まれたファイルなのですが、SharePointにリンクテーブルを移した途端、該当のフォームを開くと1行目のレコードが表示されてしまいます。それが入力用のすべてのフォームで起こります。
一例として
「T_棚卸」というテーブルに「F_棚卸入力」というフォームで入力します。
そのフォームのイベントプロシージャは以下の通りです。
Option Compare Database
Private Sub cmdボビン抽出_棚卸_Click()
Me.ボビンコード.SetFocus
DoCmd.OpenForm "F_ボビンマスタ_メイン", , , , , acDialog
End Sub
Private Sub cmd取引先抽出_Click()
Me.取引先コード.SetFocus
DoCmd.OpenForm "F_取引先マスタ_抽出", , , , , acDialog
End Sub
Private Sub cmd品種抽出_Click()
Me.品種番号.SetFocus
DoCmd.OpenForm "F_品種マスタ_抽出", , , , , acDialog
End Sub
Private Sub Form_BeforeUpdate(Cancel As Integer)
Cancel = True
End Sub
Private Sub コマンド_登録Click()
'レコード未入力時エラーメッセージ
With Me
If Not RequiredControls(.cb場所コード, .cb棚コード, .取引先コード, .品種番号,
.ボビンコード, .個数, .本数, .重量) Then
Exit Sub
End If
End With
With CodeContextObject
'品種番号タイプミス時エラーメッセージ
If (IsNull(Forms!F_棚卸入力!品名)) Then
Beep
MsgBox "品種番号が正しく入力されていません。", vbCritical, "棚卸管理"
Me.品種番号.SetFocus
Else
'取引先コードタイプミス時エラーメッセージ
If (IsNull(Forms!F_棚卸入力!取引先略称)) Then
Beep
MsgBox "取引先コードが正しく入力されていません。", vbCritical, "棚卸管理"
Me.取引先コード.SetFocus
Else
'場所コードタイプミス時エラーメッセージ
If (IsNull(Forms!F_棚卸入力!場所名)) Then
Beep
MsgBox "場所コードが正しく入力されていません。", vbCritical, "棚卸管理"
Me.cb場所コード.SetFocus
Else
'棚コードタイプミス時エラーメッセージ
If (IsNull(Forms!F_棚卸入力!棚名)) Then
Beep
MsgBox "棚コードが正しく入力されていません。", vbCritical, "棚卸管理"
Me.cb棚コード.SetFocus
Else
'ボビンコード未入力時エラーメッセージ
If (IsNull(Forms!F_棚卸入力!ボビン名)) Then
Beep
MsgBox "ボビンコードが正しく入力されていません。", vbCritical, "棚卸管理"
Me.ボビンコード.SetFocus
Else
'入庫数値0の時エラーメッセージ
If (.個数 + .本数 + .重量 = 0) Then
Beep
MsgBox "棚卸数値が入力されていません。棚卸数値を入力してください。", vbCritical, "棚卸管理"
Me.個数.SetFocus
Else
'レコード保存し再クエリ
If MsgBox("登録しますか？", vbYesNo, "棚卸管理") = vbYes Then
Me.BeforeUpdate = ""
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Requery ""
Me.BeforeUpdate = "[イベント プロシージャ]"
'レコード追加画面へ
If MsgBox("続けて入力しますか？", vbYesNo, "棚卸管理") = vbYes Then
DoCmd.GoToRecord acActiveDataObject, , acNewRec
Me.cb場所コード.SetFocus
Else
DoCmd.Close
End If
End If
End If
End If
End If
End If
End If
End If
End With
End Sub
何が原因しているのか全く分からず困っています。
解決策お分かりの方どうかよろしくお願いいたします。
