Can I do a loop in this case?

[brave07124]

Hi

Please find attached the database. View attachment ModuleSelection.accdb
Under the subroutine - Private Sub Command1_Click() , I use 14 If ... then statements.
I originally wanted to use a loop to do the job. But I cannot see how.
Can anyone see how a loop statement can be constructed or how to shorten the tediously long code?

Kind regards

 

[JHB]

When you put the module no. in the Tag property for each control, then you can reduce the code length.

Private Sub Command1_Click()
  Dim n As Integer, x As Integer
  Dim Student As String
  Dim Module As String
  Student = Text1.Value
  
  For x = 1 To 14
    If Me("Option" & CStr(x)) Then
     Call AddData(Student, Me("Option" & CStr(x)).Tag)
    End If
  Next
End Sub

And if the Module no. is a continuous number like you have here, then you don't need to put in a number in the Tag.

Call AddData(Student, "13BSC0" & Format(CStr(x), "00"))