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(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
Subroutine to display a recordset on a form. Comments
No comments yet — be the first to post one!
Post a Comment