unbound field

[toleafs]

Hello
ANy help is appreciated...
I have a form that reads a query. I have created an unbound text box (strLChg) to capture when the last time a change was made to the record. What I would like to do is have strLChng write to tblEmployee.
Any ideas?
thanks in advance for your help

 

[Joe4]

What I would like to do is have strLChng write to tblEmployee.

Then why not make the text box bound to a field in your table instead of making it unbound?

 

[toleafs]

I tried but does not save the date.
I have the Now() function in the text box? does the make a difference?
thanks

 

[Joe4]

No, that won't work. If you use a bound field, the Control Source is the field name (from your query/table), not a function/calculation.

What you want to do is update the value using VBA when "something" on your form happens (i.e. an After_Update script). So under what conditions do you want this field to be updated?

 

[toleafs]

This is what I have so far: * not working *

Private Sub cmdClose_Click()
Dim db As Database, rsCust As Recordset
Set db = CurrentDb
Dim strSQL As String

strSQL = "UPDATE T_rptTracking "
strSQL = strSQL & "strID= " & Me![strID]
strSQL = strSQL & "', strLastChange= '" & Me![strLastChange]

DoCmd.Close acForm, "frmPerfInd"

Exit_cmdClose_Click:
Exit Sub

Err_cmdClose_Click:
MsgBox Err.Description
Resume Exit_cmdClose_Click

End Sub

 

[Joe4]

Forget the VBA code for a moment, and focus on the last question I asked:

So under what conditions do you want this field to be updated?

So what is the purpose of your form?
Are you using it to make data changes?
Under what conditions should the strLastChange field be updated?

 

[toleafs]

Any time a record is changed, I would like the strLChng field to update the table with the Now() function.
The purpose of the form is to track changes.

 

[Joe4]

You would just add this code to the BeforeUpdate event procedure on the Form:

Private Sub Form_BeforeUpdate(Cancel As Integer)
 
    Me!strLChg = Now()
    
End Sub

 

[toleafs]

woooww...

soo simple and works perfectly....thanks a lot!

 

[Joe4]

Your welcome.

Its easy...when you know how!