Converting VB DB to a Daily Quote Applet
(Developer's Version)

Private Function GetData() As Long

' Function populates controls with Record data
' Returns Error value

On Error GoTo errHandler

' ***** MODIFY *****

With Record
  chkBoolean_01.Value = IIf(.Fields(FIELD_01), vbChecked, vbUnchecked)
  txtByte_01.Text = Trim$(CStr(.Fields(FIELD_02)))
  txtDate_01 = .Fields(FIELD_03)
  txtInteger_01.Text = CStr(.Fields(FIELD_05))
  txtLong_01.Text = CStr(.Fields(FIELD_06))
  txtSingle_01.Text = CStr(.Fields(FIELD_07))
  txtString_01.Text = .Fields(FIELD_08)
End With

PopulateArrayList 0

' ***** END MODIFY *****

Exit Function

errHandler:
GetData = Err

End Function

Private Function GetData() As Long

' Function populates controls with Record data
' Returns Error value

On Error GoTo errHandler

With Record
  txtQuote.Text = CStr(.Fields(QUOTE_TEXT))
  txtAuthor.Text = CStr(.Fields(QUOTE_AUTHOR))
End With

Exit Function

errHandler:
GetData = Err

End Function

Private Function SetData() As Long

' Returns Error value

On Error GoTo errHandler

' ***** MODIFY *****

With Record
  .Fields(FIELD_01) = chkBoolean_01.Value = vbChecked
  .Fields(FIELD_02) = txtByte_01.Text
  .Fields(FIELD_03) = txtDate_01.Text
  .Fields(FIELD_05) = txtInteger_01.Text
  .Fields(FIELD_06) = txtLong_01.Text
  .Fields(FIELD_07) = txtSingle_01.Text
  .Fields(FIELD_08) = txtQuote.Text
End With

' ***** END MODIFY *****

Exit Function

errHandler:
SetData = Err

End Function

Private Function SetData() As Long

' Returns Error value

On Error GoTo errHandler

With Record
  .Fields(QUOTE_TEXT) = Trim$(txtQuote.Text)
  .Fields(QUOTE_AUTHOR) = Trim$(txtAuthor.Text)
End With

Exit Function

errHandler:
SetData = Err

End Function

Private Sub mnuRecordsNewRecord_Click()

Reposition ADD_NEW
chkBoolean_01.SetFocus

End Sub

Private Sub mnuRecordsNewRecord_Click()

Reposition ADD_NEW
txtQuote.SetFocus

End Sub