Saving a Record

[Craig Brockhouse]

I have a Visual Basic program that is attached to a 97 access database. I have 6 buttons where users make themselves available and a caption pops up and states that "your name" has been made available. It also calls into play NOW which give the time on the keyboard/machine. How can i save this information with the time and name of the person into either a database or into a text file. Here is the code for one if the buttons.

[Private Sub cmdScharlette_Click()
 
 
    On Error GoTo Errortrap
   frmAssign.datAvail.Recordset.MoveFirst
    frmAssign.datAvail.Recordset.MoveNext 'Move to the 2nd record(Scharlette's)
    If frmAssign.txtAvail.Text = 1 Then
        frmAssign.txtAvail.Text = 0
        lblStatus.Caption = " " & Now & "- Scharlette has been made Unavailable."
   ElseIf frmAssign.txtAvail.Text = 0 Then
        frmAssign.txtAvail.Text = 1
        lblStatus.Caption = " " & Now & "- Scharlette has been made Available."
    End If
    frmAssign.datAvail.Recordset.MoveFirst
    RefreshAvail
    Exit Sub
 
Errortrap:
    wait (50)
Return]

[Killer42]

Could you perhaps add a couple of fields to your existing table, to hold the status (available or not) and the date/time? For example (keeping in mind I'm somewhat rusty on this stuff, and never have used the data control a great deal)...

Private Sub cmdScharlette_Click()
 
  On Error GoTo Errortrap
  frmAssign.datAvail.Recordset.MoveFirst
  frmAssign.datAvail.Recordset.MoveNext ' Move to the 2nd record (Scharlette's)
  If frmAssign.txtAvail.Text = 1 Then
    frmAssign.txtAvail.Text = 0
    lblStatus.Caption = " " & Now & "- Scharlette has been made Unavailable."
    frmAssign.datAvail.Recordset.Edit
    frmAssign.datAvail.Recordset("Available") = False
    frmAssign.datAvail.Recordset("When") = Now
    frmAssign.datAvail.Recordset.Update
  ElseIf frmAssign.txtAvail.Text = 0 Then
    frmAssign.txtAvail.Text = 1
    lblStatus.Caption = " " & Now & "- Scharlette has been made Available."
    frmAssign.datAvail.Recordset.Edit
    frmAssign.datAvail.Recordset("Available") = True
    frmAssign.datAvail.Recordset("When") = Now
    frmAssign.datAvail.Recordset.Update
  End If
  frmAssign.datAvail.Recordset.MoveFirst
  RefreshAvail
  Exit Sub
 
Errortrap:
  wait (50)
  Resume ' Not Return

Note, I'm working under the assumption that you're using VB6.