Advanced Search

Return to Snippet

Revision: 29226
at July 24, 2010 02:02 by heislekw
Initial Code 
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("Save changes?", vbQuestion + vbYesNo) = vbNo Then
   Cancel = True
End If
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)
   If DataErr = 2169 Then
     Response = acDataErrContinue
   End If
End Sub
Initial URL 

                                

                                                            

                                    

                                        

                                        Initial Description
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Title
                                        

                                    

                                    
Save changes code, prevent you can't save record error

                                

                                                            

                                    

                                        

                                        Initial Tags
                                        

                                    

                                    

                                

                                                            

                                    

                                        

                                        Initial Language
                                        

                                    

                                    
Visual Basic