Option Compare Database Private Sub Combo51_Change() If Combo51 <> "" Then saxkodi.Value = DLookup("code", "code", "saxeoba= CStr(saxeoba.Value)") End If End Sub Private Sub Command131_Click() DoCmd.OpenReport "Rxx", acViewPreview End Sub Private Sub Form_AfterUpdate() saxkodi.Value = Null End Sub Private Sub Form_BeforeInsert(Cancel As Integer) Dim maxnom As Long If DMax("CInt([doknomeri])", "Semkopespodencia", "[doknomeri]<>Null") <> 0 Then maxnom = DMax("CInt([doknomeri])", "Semkopespodencia", "[doknomeri]<>Null") Else: maxnom = 0 End If 'If IsNull(doknomeri.Value) Then doknomeri.Value = "01-10" + ChrW(4328) + " " + CStr(maxnom + 1) If IsNull(doknomeri.Value) Then doknomeri.Value = CStr(maxnom + 1) doknomeri.Requery ChkMdgomareoba.Value = 0 ChkMdgomareoba.Requery End Sub Private Sub Ctl__Click() On Error GoTo Err_Ctl__Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Exit_Ctl__Click: Exit Sub Err_Ctl__Click: MsgBox Err.Description Resume Exit_Ctl__Click End Sub Private Sub Command97_Click() On Error GoTo Err_Command97_Click DoCmd.GoToRecord , , acNewRec Exit_Command97_Click: Exit Sub Err_Command97_Click: MsgBox Err.Description Resume Exit_Command97_Click End Sub Private Sub Form_Current() If Combo51 <> "" Then saxkodi.Value = DLookup("code", "code", "saxeoba= CStr(saxeoba.Value)") Else: saxkodi.Value = "" End If End Sub Private Sub Form_Load() DoCmd.GoToRecord , , acNewRecord End Sub Private Sub Close_Click() On Error GoTo Err_Close_Click DoCmd.Close Exit_Close_Click: Exit Sub Err_Close_Click: MsgBox Err.Description Resume Exit_Close_Click End Sub Private Sub Command111_Click() On Error GoTo Err_Command111_Click DoCmd.Close Exit_Command111_Click: Exit Sub Err_Command111_Click: MsgBox Err.Description Resume Exit_Command111_Click End Sub Private Sub Command182_Click() On Error GoTo Err_Command182_Click DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70 Exit_Command182_Click: Exit Sub Err_Command182_Click: MsgBox Err.Description Resume Exit_Command182_Click End Sub Private Sub Command183_Click() On Error GoTo Err_Command183_Click DoCmd.Close Exit_Command183_Click: Exit Sub Err_Command183_Click: MsgBox Err.Description Resume Exit_Command183_Click End Sub Private Sub Command184_Click() On Error GoTo Err_Command184_Click DoCmd.GoToRecord , , acNewRec Exit_Command184_Click: Exit Sub Err_Command184_Click: MsgBox Err.Description Resume Exit_Command184_Click End Sub Private Sub Command185_Click() On Error GoTo Err_Command185_Click DoCmd.Close Exit_Command185_Click: Exit Sub Err_Command185_Click: MsgBox Err.Description Resume Exit_Command185_Click End Sub