VBA Lock Textbox

[shamas21]

Hi All

I have a bound OLEAttatchment in my Form.

Im trying to unlock it then add a file then lock it again.

The lock will not execute.

Can someone help?

Private Sub btnattach_Click()
 
On Error Resume Next
 
Dim sFile As String
 
With Application.FileDialog(msoFileDialogOpen)
.Show
     With .SelectedItems
                sFile = .Item(1)
 
    End With
End With
 
' This is where it doesnt lock
With Me.oleAttatachments
.SetFocus
.Locked = False
.SourceDoc = sFile
.Action = acOLECreateEmbed
.SizeToFit
.Enabled = False
.Locked = True
End With
 
End Sub

 

[boblarson]

You have to save the record first before relocking.

Do this:

With Me.oleAttatachments
.SetFocus
.Locked = False
.SourceDoc = sFile
.Action = acOLECreateEmbed
.SizeToFit
[color=red]If Me.Dirty Then Me.Dirty = False[/color]
.Enabled = False
.Locked = True
End With