| |
オブジェクトウィンドウのモジュールで新規作成をクリックして
Option Compare Database
Option Explicit
の直下に
Public varBM As Variant
と書きます。
Ctrl+Sで保存してください。
前のレスの一部削除追加で以下のようにします。
Private Sub コマンド102_Click()
Dim mySQL As String 'SQLステートメント
Dim cn As New ADODB.Connection
Dim com As New ADODB.Command
'現在位置取得
varBM = Me.Bookmark
'更新クエリを作成
mySQL = "update 受注伝票 set 集計月 = #" & 伝票日付 & "# " _
& "WHERE ((顧客コード = " & 顧客コード & ") and (伝票日付 Between #" & Me!date2 & "# And #" & Me!伝票日付 & "#));"
DoCmd.Close '←ここを追加
'接続
Set cn = CurrentProject.Connection
'更新クエリを実行
Set com.ActiveConnection = cn
com.CommandText = mySQL
com.Execute
DoCmd.OpenForm "受注伝票1" '←ここも追加
End Sub
フォームの開く時のイベントで
If IsEmpty(varBM) Then
Exit Sub
Else
Me.Bookmark = varBM
End If
としてください。
こんな感じでしょうか？
#データの競合の方の調査をした方がいいような気がします...
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
