I have a form bound to a specific table but when a checkbox is checked (after update event), and want certain values to be written to a 2nd table. Here is my code but it is not working. Can someone offer a suggestion?
Private Sub chkbx10WindEp_AfterUpdate()
If Me.chkbx10WindEp = True Then
Me.txt10WindEpQty = Me.txtQty
Me.txt10WindEp = "#10 Window Envelope"
Dim rs As dao.Recordset
Set rs = CurrentDb.OpenRecordset("tblEnvelopeInventory")
rs!JobN = Me.txtJobN
rs!CompanyName = Me.txtCompanyName
rs!EnvelopeStyle = Me.txt10WindEp
rs!Qty = "-" & Me.txtQty
rs!TranxDate = Date
Set rs = Nothing