Sub SchetChic(lngDocType As Long, strFrom As String, strTo As String)
'id типа документа, от кого, кому
 Dim rstType As Recordset
 Dim rstDocum As Recordset
 Dim strWere As String
 Dim lngCurrent As Long
 Set rstType = CurrentDb.OpenRecordset("Типы", dbOpenDynaset)
 Set rstDocum = CurrentDb.OpenRecordset("Документы", dbOpenDynaset)
   'Переключить счетчик
    With rstType
         strWere =  "id="  & lngDocType
         .FindFirst strWere
          If .NoMatch = False Then
             .Edit
              lngCurrent = ![Счетчик]
              lngCurrent = lngCurrent +  1 
              ![Счетчик] = lngCurrent
             .Update
          End If
              .Close
        End With
   With rstDocum
    'Добавить строку документа с новым значением счетчика
     .AddNew
       ![Тип] = lngDocType
       ![От Кого] = strFrom
       ![Кому] = strTo
       ![Номер] = lngCurrent
     .Update
     .Close
   End With
End Sub