• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Subroutine to display a recordset on a form.

Subroutine to display a recordset on a form.

Subroutine to display a recordset on a form.

Rate Subroutine to display a recordset on a form.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Public Sub BIND(frm As Object, r As Recordset)
Dim CTL As Control
Dim i As Integer
    For i = 0 To r.Fields.count

      For Each CTL In frm.Controls

         If TypeOf CTL Is TextBox Or TypeOf CTL Is OptionButton Then

             If (CTL.Tag) = i Then

                     Set CTL.DataSource = r
                   
                         CTL.DataField = r.Fields(i).Name
                    
             End If
 
         End If

      Next CTL

    Next i

End Sub