티스토리 뷰


도미노의 그룹웨어라는 특성상 전자결재등의 공문서에 많은 부분 집중된다. 집중되는 만큼 활용방법도 다양해야 하는게 바로 이부분이다보니 여러가지 필요한 성격이 있다. 공문서등의 업무적인 양식에는 빈칸이 존재하는 경우 안되는 그런 일이 있다. 그때 일반적인 필드(텍스트, 숫자, 날짜등)에서는 확인이 쉽지만 RTF(Rich Text Field : 리치텍스트필드)에서는 확인이 어렵다. 그럼에도 불구하고 사용자가 RTF를 사용하는 이유는 텍스트필드와 달리 글씨와 그림등을 붙여 넣어서 사용할 수 있다는 장점 때문이다.

이런 장점을 장점으로 활용하기 위해서는 RTF에 값이 있는지 없는지를 체크할 수 있어야 한다고 생각한다. 그래서 아래와 같은 코드를 이용하면 가능하다.

Function IsRTFNull(rtfield As String) As Integer

On Error Goto Errhandle

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = workspace.CurrentDocument

currentfield = uidoc.CurrentField

Call uidoc.GotoField(rtfield)
Call uidoc.SelectAll
Call uidoc.DeselectAll

If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If

IsRTFNull = False

Exit Function


Errhandle:
Select Case Err
Case 4407
If currentfield <> "" Then
Call uidoc.GotoField(currentfield)
End If
IsRTFNull = True
Exit Function
Case Else
Error Err
End Select
End Function


이렇게 하면 RTF를 사용하면서 필수값으로 변경해서 사용할 수 도 있게 된다.



 




댓글
최근에 올라온 글
최근에 달린 댓글
Total
Today
Yesterday
«   2024/03   »
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31
글 보관함