Modify the code in the Select Case structure to fit your needs.
Option Explicit
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdClear_Click()
Dim ctl As Control
' Clear the form
For Each ctl In Me.Controls
If TypeName(ctl) = "TextBox" Or TypeName(ctl) = "ComboBox" Then
ctl.Value = ""
ElseIf TypeName(ctl) = "CheckBox" Then
ctl.Value = False
End If
Next ctl
End Sub
Private Sub cmdOK_Click()
Dim c00 As String, J As Integer, I As Integer, a() As String
If cbohandler.Value = "" Or txtClaim.Value = "" Or txtrecs.Value = "" Or _
cboCHO.Value = "" Or lstissue.Value = "" Or txtcommentry.Value = "" Then
MsgBox "Please enter all fields before continuing!", vbCritical
Exit Sub
End If
For J = 0 To lstissue.ListCount - 1
If lstissue.Selected(J) Then c00 = c00 & ";" & lstissue.List(J)
a() = Split(c00, ";")
Next
With New Recordset
.Open "SELECT * FROM [chotable]", "Provider=Microsoft.Jet.OLEDB.4.0; " & _
"Data Source=S:\HO Shared\P1 HX & B'ham joint folder\2014\cho.mdb;"
.AddNew
.Fields("Handler Name") = cbohandler.Value
.Fields("Claim Number") = txtClaim.Value
.Fields("CHO") = cboCHO.Value
If UBound(a) <> -1 Then
'.Fields("Issue(s)") = Mid(c00, 2)
For I = 0 To UBound(a)
Select Case a(I)
Case "A"
.Fields("IssueA") = a(I)
Case "B"
.Fields("IssueB") = a(I)
Case Else
End Select
Next I
End If
.Fields("Commentry") = txtcommentry.Value
.Fields("Recommendations") = txtrecs.Value
.Update
.Close
End With
Unload Me
End Sub