Private Sub
Form_Load()
If IsNull(Me.QCDate) = True Then
Me.ASMtxt.Enabled = True
Me.Epithtxt.Enabled = True
Me.LPtxt.Enabled = True
Me.CommentsMicrotxt.Enabled = True
Me.BiopsySizetxt.Enabled = True
Me.TotalAreatxt.Enabled = True
Else
Me.ASMtxt.Enabled = False
Me.Epithtxt.Enabled = False
Me.LPtxt.Enabled = False
Me.CommentsMicrotxt.Enabled = False
Me.BiopsySizetxt.Enabled = False
Me.TotalAreatxt.Enabled = False
End If
End Sub
Private Sub
SaveSlidebtn_Click()
If IsNull(Me.QCDate) Then
Me.QCDatetxt = Now()
Me.UserNametxt = TempVars("UserName").Value
End If
End Sub
Private Sub
Command269_Click()
If IsNull(Me.QCDate) = True Then
MsgBox "Couldn't lock, please sign the entries."
Exit Sub
End If
SetProperty:
If MsgBox("
Saving the data will lock further entries." & _
vbCrLf & "
Confirm all entries are completed. Would you like to proceed?", vbYesNo, "Save Data") = vbYes Then
If IsNull(Me.QCDate) = False Then
Me.ASMtxt.Enabled = False
Me.Epithtxt.Enabled = False
Me.LPtxt.Enabled = False
Me.CommentsMicrotxt.Enabled = False
Me.BiopsySizetxt.Enabled = False
Me.TotalAreatxt.Enabled = False
End If
End If
End Sub