Hi-I added column Updated_Date to my Company table. JAMES Private Sub tbc_afterupdate() If Me.tbc = True Then Me.Section(0).BackColor = 65535 Else Me.Section(0).BackColor = 16777215 End If End Sub

[LastUpdated] = Now() End Sub However, when I try to change records with the navigation buttons or with a combo-box, i get no response. Any help on solving this would be great. Problem is it doesn't allow the record to be saved "Can't save the record at this time". View 10 Replies View Related Another Vbscript - Afterupdate Sep 28, 2004. Private Sub TextBox01_Enter() Call TabStopsFalse Me.TextBox05.TabStop = True End Sub Private Sub TextBox02_Enter() Call TabStopsFalse Me.TextBox06.TabStop = True End Sub Private Sub TextBox03_Enter() Call TabStopsFalse Me.TextBox07.TabStop = True End Sub Private Sub TextBox04_Enter() Call TabStopsFalse Me.TextBox08.TabStop = True End Sub Sub TabStopsFalse() …

Private Sub Form_AfterUpdate() Me! I do see the work "calculating" appear in the status bar at the bottom of the screen. Private Sub Form_AfterUpdate() Me! share this JB. End Sub. Private WithEvents m_frm As Access.Form Public Sub initFormHandlers(p_form As Form) Set m_frm = p_form m_frm.OnUnload = "[Event Procedure]" 'Your existing code End Sub Private Sub Form_Unload(Cancel As Integer) 'Release event handler collections Set m_TextBoxes = Nothing Set m_ComboBoxes = Nothing End Sub I do see the work "calculating" appear in the status bar at the bottom of the screen. I'm thinking next I need to do this using a recordset routine. Join your peers on the Internet's largest technical computer professional community. Any help on solving this would be great.

Any suggestions? NewRecord would always be False in AfterUpdate.

However if I tick the box now it turns the back colour of every form irrespective if that record is ticked tbc or not! Private Sub Form_AfterUpdate() Me.Timestamp = Now() End Sub Bryan. Mary, I'm afraid that you're going to have to make your code somewhat more specific than you want. Problem is it doesn't allow the record to be saved "Can't save the record at this time". Private Sub PictureName_AfterUpdate() Me.Refresh Me.Requery End Sub [LastUpdated] = Now() End Sub However, when I try to change records with the navigation buttons or with a combo-box, i get no response. Hello Chaps, In the AfterUpdate code I had the detail back colour change if a check box (tbc) = True. I work in a lab where we weigh animals via an ipad and I think it would be easier to be able to punch in on a number pad while gloved instead of the traditional text box. Code: Private Sub Genotype_AfterUpdate() APOE Status.Requery End Sub. The default value for the "PictureName" field is "Logo.jpg" which is a real picture, but just used as a place holder logo image in the box. [LastUpdatedBy] ... End sub. When I use a different VBA sub to input a value in the above mentioned field, the "After Update" event does not occur, even thought the data in the field has been changed.

It only contains 8 TextBoxes and this code: Code: Private Sub TextBox01_AfterUpdate() Me.TextBox08.SetFocus End Sub - Private Sub TextBox02_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) TextBox08.SetFocus End Sub - Private Sub TextBox03_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox08.SetFocus End Sub - Private Sub TextBox04_Change() TextBox08.SetFocus End Sub …