Прерывается команда SAVE при работе нескольких пользователей |
Private Sub Ê237;î239;ê224;38_Click() If (Me.Ç224;ä224;÷224; <> "") And (Me.Ä224;ò224;Í224;÷224;ë224;Ç224;ä224;÷232; <> "") And (Me.Ä224;ò224;Î234;î237;÷224;í232;ÿ199;à228;à247;è <> "") And (Me.206;ò226;å242;ñ242;â229;í237;î229;Ë232;ö238; <> "") And (Me.È241;ï238;ë237;è242;å235;ü <> "") And (Me.207;ð238;ö229;í242;Â251;ï238;ë237;å237;è255; <> "") And (Me.Ï240;î229;ê242; <> "") Then DoCmd.Save DoCmd.Close Else If MsgBox("Âû íå çàïîëíèëè âñå îáÿçàòåëüíûå ïîëÿ. Äàííûå áóäóò ïîòåðÿíû. Ïðîäîëæèòü çàêðûòèå ôîðìû?", vbYesNo, "Ïîäòâåðæäåíèå çàêðûòèÿ ôîðìû") = vbYes Then Me.Form.Undo DoCmd.Close Else MsgBox "Çàïîëíèòå âñå îáÿçàòåëüíûå ïîëÿ" End If End If End Sub
http://www.sql.ru/forum/1110048/preryvaetsya-komanda-save-pri-rabote-neskolkih-polzovateley
| Комментировать | « Пред. запись — К дневнику — След. запись » | Страницы: [1] [Новые] |