Private UCS As New UnboundControls
Private Sub Form_Load()
UCS.Initiliaze "tblDemoUnbound"
UCS.Add Me.UCFirst, "first_Name"
UCS.Add Me.UClast, "Last_Name"
UCS.Add Me.UCemail, "Email"
UCS.Add Me.UCPersonID, "PersonID"
UCS.Add Me.UCdatefield, "DateField"
UCS.Add Me.UClongfield, "longField"
UCS.Add Me.UCdoublefield, "doubleField"
UCS.Add Me.UCcurrencyfield, "currencyField"
End Sub
Private Sub cmdLoad_Click()
UCS.LoadFromPK (Me.PersonID)
End Sub
Private Sub cmdUpdate_Click()
Dim pk As Long
pk = Me.PersonID
UCS.UpdateFromPK (Me.PersonID)
Me.Requery
Me.Recordset.FindFirst "personID = " & pk
End Sub
Private Sub cmdEmail_Click()
If Not Trim(Me.cmboEmail & " ") = "" Then
UCS.LoadFromCriteria ("email = '" & Me.cmboEmail & "'")
End If
End Sub