Ahhh...... I should have known a "Shipmate" would come to my rescue...... and
one of my hero's to boot!!! A SubMariner!!!!!........ the one part of my
military service I miss is the shipboard time!! (My neighbor is a WWII
SubMariner..... Great Guy)
Many Thanks for your response, however, I hope I'm not biting off more than
I can chew. (smile)
Let me explain a little further............ I now work for a Financial
Service's Company as a Field Audit Advisor which is pretty much like an IG
team. We visit our assigned offices once a year and conduct an on-site audit
and finish up with a question/answer interview with the Regional VP. The
document we use is a Word document divided into three columns on the sheet.
The L/H column is the question..... center column is our guidance (Standard
or Validation of the question) and the R/H column is the drop down boxes that
contain the "Y", "N" or "N/A" with enough space in the column where we can
type in any additional notes. (The interview is conducted on the lap-top as
we're now a paperless system.)
Many of the questions are a simple "Y" or "N"......such as "Is the
Securities Trade Blotter Properly Maintained"
However, there are questions such as "Is a DP (Designated Principle)
appointed for suitablility reveiw?" "Y" "N" with the next question being.....
If "Yes" is the DP Appointment letter on file? "Y", "N", or "N/A"
Obviously if a DP hasn't been appointed, the follow on question would be
marked "N/A"....... but it's questions like this that will occasionally be
missed and confuses whoever reviews the files as to if a DP was or was not
appointed and if the appropriate paperwork is or is not on file etc.
What I was curious about or my vision on this computer checklist etc........
Why couldn't a checklist be constructed with no answers on the R/H side....
boxes are blank. Conduct the audit etc., however, at the end of the
checklist a button or something that when clicked would not allow you to
finish or close the checklist if a box was not completed. True...... this
would not prevent someone from answering the question wrong....... but would
ensure that each box was reviewed prior to closing the document and the
appropriate "Y", "N" or "N/A" was or was not selected.
From your response.....I believe this concept could be done......perhaps
from someone much smarter than myself (smile) but it does sound fesiable.
I'm returning home from this business trip tomorrow so I'm anxious to start
digging in and seeing if I can come up with a better mousetrap. (smile)
Many Thanks again Greg!!! You've given me something to now ponder. Most of
the folks on the U.S. team are all prior military....so many are not computer
junkies and a few....like me.......know just enough to be dangerous..... but
I know there is so much more that could be done to make this system simplier
and more accurate. I now will have to figure out exactly how to go about
it...... but you've now pointed me into the right direction to start digging.
Best wishes Commander....... And Many Thanks!!
--
Steven R.
SgtMajor, USMC (Retired)
"Greg Maxey" wrote:
SgtMajor,
The code you could you would look something like this:
Option Explicit
Private mstrFF As String
'Use this to set up the checkboxes
Public Sub SetupMacros()
Dim ffItem As Word.FormField
For Each ffItem In ActiveDocument.FormFields
If ffItem.Type = wdFieldFormDropDown Then
With ffItem.DropDown.ListEntries
.Clear
.Add " "
.Add "Y"
.Add "N"
.Add "N/A"
End With
End If
ffItem.EntryMacro = "AOnEntry"
ffItem.ExitMacro = "AOnExit"
Next
End Sub
Public Sub AOnExit()
With GetCurrentFF
If .DropDown.Value = 0 Then
MsgBox "You can't leave field: " & .Name & " blank"
mstrFF = GetCurrentFF.Name
End If
End With
End Sub
Public Sub AOnEntry()
Dim strCurrentFF As String
If LenB(mstrFF) 0 Then
ActiveDocument.FormFields(mstrFF).Select
mstrFF = vbNullString
End If
End Sub
Private Function GetCurrentFF() As Word.FormField
With Selection
If .FormFields.Count = 1 Then
' CheckBox or DropDown
Set GetCurrentFF = .FormFields(1)
ElseIf .FormFields.Count = 0 And .Bookmarks.Count 0 Then
Set GetCurrentFF = ActiveDocument.FormFields _
(.Bookmarks(.Bookmarks.Count).Name)
End If
End With
End Function
You could intercept Print and Save and run this as a final check of all
fields
Sub CheckAll()
Dim ffItem As Word.FormField
For Each ffItem In ActiveDocument.FormFields
If ffItem.Type = wdFieldFormDropDown Then
If ffItem.DropDown.Value = 0 Then
ffItem.Select
MsgBox "You must fill in each ckecklist item."
Exit Sub
End If
End If
Next
End Sub
Post back if you need more help.
1SgtMajor wrote:
My company uses a checklist in MS Word with drop down boxes after each
question with either a "N", "Y", or "NA".
It seems everyone always misses at least one of the drop down boxes
which creates a problem.
Is there some way to create a checklist in "Word" preferably will use
anything right about now...(Smile)..... that the form would NOT be
completed until each box is properly selected with a response?--
Any help would be appreciated.
Steven R.
SgtMajor, USMC (Retired)
--
Greg Maxey
See my web site http://gregmaxey.mvps.org
for an eclectic collection of Word Tips.
Arrogance is a weed that grows mostly on a dunghill (Arabic proverb)
.