Private Sub Form_Close()
Dim sqlLoc As String
sqlLoc = "UPDATE tblObjState SET tblObjState.objLeft = " & Me.WindowLeft & ", tblObjState.objTop = " & Me.WindowTop & _
", tblObjState.objHeight = " & Me.WindowHeight & ", tblObjState.objWidth = " & Me.WindowWidth & " WHERE tblObjState.objName = " & """" & Me.Name & """" & ";"
DoCmd.SetWarnings False
DoCmd.RunSQL sqlLoc
DoCmd.SetWarnings True
End Sub
Private Sub Form_Open(Cancel As Integer)
If DCount("*", "tblObjState", "[objName] = '" & Me.Name & "'") = 0 Then
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO tblObjState (objName) SELECT " & """" & Me.Name & """" & ";"
DoCmd.SetWarnings True
DoCmd.Maximize
Else
Me.Move DLookup("[objLeft]", "tblObjState", "[objName] = '" & Me.Name & "'"), _
DLookup("[objTop]", "tblObjState", "[objName] = '" & Me.Name & "'"), _
DLookup("[objWidth]", "tblObjState", "[objName] = '" & Me.Name & "'"), _
DLookup("[objHeight]", "tblObjState", "[objName] = '" & Me.Name & "'")
End If
End Sub