Need Loop

I have this code below, everything works except this (1)piece.  I need to make a loop that goes through and each record with that Company Number match the Company Number(Text38) then make all chech boxes blank and  [Desicioned by Mandatory] = " " blank.  

Any help would be appreciated.
////////////////////////////////////////////////////////
(1)

ElseIf IsNull(Combo91) Then
 
 If [Company Number] = Me.[Text38] Then

    [Positive Mark] = False
    [No prior maintinance] = False
    [Strong ATE] = False
    [Nominal/reasonable MTM exposure] = False
    [Good fill rate] = False
    [Low request amount] = False
    [Desicioned by Mandatory] = " "
 
///////////////////////////////////////////////////////////

All the code below
/////////////////////////////

Private Sub Combo91_Click()
Dim sql As String
 Me!loginnumber = fOSUserName
 
 If [Company Number] = Me.[Text38] Then
     Me!loginnumber = fOSUserName
   
   
    If loginnumber = "N574824" Then
       Man = "Carol Armstrong"
   ElseIf loginnumber = "M006620" Then
     Man = "Tracy Wood"
   ElseIf loginnumber = "M001542" Then
Man = "John Carrigan"
   ElseIf loginnumber = "M004551" Then
   Man = "Steve Keldermans"
  ' ElseIf LoginNumber = " " Then
      'Man = "Brian Kizer"
   
   Else
       Man = fOSUserName
    End If
 
'////////////////////////////////////////

   Me.Dirty = False
 
If Not IsNull([Combo91]) Then
 sql = "update [Roll Exception Report] set [Denied/Approved Mandatory] =""" & Me.[Combo91] & """ where [company number] = " & Me.[Text38]
 CurrentDb.Execute sql, dbFailOnError
     
 sql = "update [Roll Exception Report] set [Desicioned by Mandatory] =""" & Me.Man & """ where  [company number] = " & Me.[Text38]
 CurrentDb.Execute sql, dbFailOnError
     
 ElseIf IsNull(Combo91) Then
 
 If [Company Number] = Me.[Text38] Then

    [Positive Mark] = False
    [No prior maintinance] = False
    [Strong ATE] = False
    [Nominal/reasonable MTM exposure] = False
    [Good fill rate] = False
    [Low request amount] = False
    [Desicioned by Mandatory] = " "
 
Me.Refresh
Else
End If
End If
End If


ca1358Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Leo EikelmanDirector, IT and Business DevelopmentCommented:
if all u want to do is clear checboxes then you can do this

 Dim fSelectedField As FormField
  Set fFields = ActiveDocument.FormFields
 
  ' Clear all existing checks
  fFields("Positive Mark").CheckBox.Value = False
fFields("No prior maintinance").CheckBox.Value = False
etc........



Cheers,

Leo

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ca1358Author Commented:
Tank you!
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.