'Option Compare Database

Public Function ( As String) As String
'       
    SQL = "SELECT ., . " & _
                "FROM  WHERE (((.)='" &  & "'))"
    Set  = CurrentDb.OpenRecordset(SQL)
     = !
    .Close
End Function

Public Sub ( As String,  As String)
'       
    SQL = "SELECT ., . " & _
                "FROM  WHERE (((.)='" &  & "'))"
    Set  = CurrentDb.OpenRecordset(SQL)
    With 
        .Edit
        ! = 
        .Update
        .Bookmark = .LastModified
    End With
    .Close
End Sub

Public Function ( As Variant, Optional _
                                            As Boolean = True)
'          (  = _
True)  
    If  Then
        Select Case LCase()
            Case ""
                 = 1
            Case ""
                 = 2
            Case ""
                 = 3
            Case ""
                 = 4
            Case ""
                 = 5
            Case ""
                 = 6
            Case ""
                 = 7
            Case ""
                 = 8
            Case ""
                 = 9
            Case ""
                 = 10
            Case ""
                 = 11
            Case ""
                 = 12
        End Select
    Else
        Select Case LCase()
            Case 1
                 = ""
            Case 2
                 = ""
            Case 3
                 = ""
            Case 4
                 = ""
            Case 5
                 = ""
            Case 6
                 = ""
            Case 7
                 = ""
            Case 8
                 = ""
            Case 9
                 = ""
            Case 10
                 = ""
            Case 11
                 = ""
            Case 12
                 = ""
        End Select
    End If
End Function

Public Function ()
    '         .   , _
       -, ..       . , _
            
     = Forms("").!
End Function

Public Function ()
'       . , ..     _
       ,     -  .
    If Not .EOF Then
         = ! & " " & !
        If Not IsNull(!_) Then
             =  & ", " & !_
        End If
         = 
    Else
         = ""
    End If
End Function

Public Function ()
'       . , ..     _
       ,     -  .
    If Not .EOF Then
         = ! & " " & !
         = 
    Else
         = ""
    End If
End Function

'      (  )

Public Sub ()
    '         
    Set  = CurrentDb.OpenRecordset("", 2) '   , dbOpenDynamic  . .      .
    Set  = CurrentDb.OpenRecordset("")
    
    Do While Not .EOF
        .Filter = "ID = " & !
        Set  = .OpenRecordset
'        Debug.Print !
'        Debug.Print .
        .Edit
        ! = !
        .Update
        
        .MoveNext
    Loop
End Sub

Public Sub ()
    Set  = CurrentDb.OpenRecordset("", 2) '   , dbOpenDynamic  . .      .
    Set  = CurrentDb.OpenRecordset("")
    
    Do While Not .EOF
         = !RAZRIAD
        Mid(, InStr(1, , ",")) = "."
        .Filter = " = " & 
        Set  = .OpenRecordset
'        Debug.Print !
'        Debug.Print .
        If .RecordCount <> 0 Then
            .Edit
            ! = !
            ! = !
            .Update
        End If
        
        .MoveNext
    Loop
End Sub

Public Sub ()
    ' , 
    Set  = CurrentDb.OpenRecordset("", 2) '   , dbOpenDynamic  . .      .
    Set  = CurrentDb.OpenRecordset("")
    Set  = CurrentDb.OpenRecordset("", 2)
    '  
    Do While Not .EOF
        .Filter = "ID = " & !ID_MAT
        Set  = .OpenRecordset
        If .RecordCount <> 0 Then
            .Edit
            ! = !
            .Update
        End If
        
        .MoveNext
    Loop
    '  
    .MoveFirst
    Do While Not .EOF
        .Filter = "ID = " & !ID_RAB
        Set  = .OpenRecordset
        If .RecordCount <> 0 Then
            .Edit
            ! = !
            .Update
        End If
        
        .MoveNext
    Loop

    
End Sub


'   

Public Sub ()
    Set  = CurrentDb.OpenRecordset("")
    Do While Not .EOF
        '          ,   
        If ((IsNull(!)) And (Not IsNull(!))) Then
            .Edit
            ! = !
            .Update
        End If
        .MoveNext
    Loop
End Sub

'       (  )

Public Function ()
    ' ,     Connect  
    '  ,  
    '  
    
'    Set fs = CreateObject("Scripting.FileSystemObject")
'    Dim fd As FileDialog
'    Set fd = Application.FileDialog(msoFileDialogFilePicker)
'
'     = fs.GetFileName(Mid(CurrentDb.TableDefs("").Connect, 11))
'    Connect = Mid(CurrentDb.TableDefs("").Connect, 11)
'    '  ,   Connect,   
'    If (Connect <> (Application.CurrentProject.Path & "\" & )) Or _
'    Not fs.FileExists(Connect) Then
'        With fd
'            .AllowMultiSelect = False
'            .Filters.Add " MS Acess", "*.mde", 1
'            .Title = "  ,   :"
'        End With
'
'        If fd.Show = -1 Then
'            For Each  In CurrentDb.TableDefs
'                With 
'                    If .Connect <> "" Then '   
'                        .Connect = ";DATABASE=" & fd.SelectedItems(1)
'                        .RefreshLink
'                    End If
'                End With
'            Next
'        Else
'            Application.Quit
'        End If
'    End If
    DoCmd.OpenForm ""
End Function

Public Function () As Boolean
'         .     _
        .      _
 ,         ,    -    _
  .
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    
    If  = 1 Then
        .Filter = " = " & 
        Set  = .OpenRecordset
        If .RecordCount = 0 Then
             = False
        Else
             = True
            MsgBox "     .     , ..   " & _
            "  ", vbCritical
        End If
    ElseIf  = 4 Then ' 
        If .RecordCount = 0 Then
             = False
        Else '        
'             = MsgBox("    .      " & _
'            ". ?", vbYesNo + vbQuestion)
'             = IIf( = vbYes, False, True)

             = True
            MsgBox "    .        , " & _
            "..     .        " & _
            " .      ,      " & _
            "    ", vbCritical
        End If
    Else
        If .RecordCount = 0 Then
             = False
        Else
             = True
'            Do While Not .EOF
'                 =  & "/  " & !_ & ", " & _
'                ! & ",   " & ! & ", " & ! & Chr(10)
'                .MoveNext
'            Loop
'            MsgBox "     :" & Chr(10) &  & _
'            "       , ..     "
            MsgBox "    .        , " & _
            "..     .        " & _
            " ", vbCritical
        End If
    End If
End Function

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub ()
    ' ,  ,             _
      .    , ..        _
     
    Set  = CurrentDb.OpenRecordset("")
    Do While Not .EOF
         = InStr(!, "")
        
        If  <> 0 Then
            If Not IsNull() Then '   ,  "0",    Null  
                For i =  To Len(!)
                    If IsNumeric(Mid(!, i, 1)) Then
                         = Mid(!, i)
                        Exit For
                    End If
                Next
                If IsNumeric() Then
                    .Edit
                    ! = 
                    .Update
                End If
'                Debug.Print 
            End If
        End If
'        Debug.Print !
'        Debug.Print 
        .MoveNext
    Loop
    
    '  
    .MoveFirst
    Do While Not .EOF
        If InStr(!, "") Then
            .Edit
            ! = Null
            .Update
        End If
        .MoveNext
    Loop
End Sub

Public Sub ()
    '   ,        (),   _
               . ..   /  . _
           ()
    
    Set  = CurrentDb.OpenRecordset("")
    Do While Not .EOF
        If ! <> 0 Then
            If Not IsNull(!) Then '   ,  "0",    Null  
                .Edit
                ! = Round(! / !, 2)
                .Update
            End If
        End If
        .MoveNext
    Loop
End Sub

Public Sub ()
    '  "..."     .      ()
    
    Set  = CurrentDb.OpenRecordset("")
    Do While Not .EOF
        If Not IsNull(!) Then
             = !
             = InStr(!, "")
            If  <> 0 Then
                .Edit
                ! = Mid(, 1,  - 1)
                .Update
            End If
        End If
        .MoveNext
    Loop
End Sub

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Public Sub ()
    '             
    
    Set  = CurrentDb.OpenRecordset("")
    Set  = CurrentDb.OpenRecordset("")
    Do While Not .EOF
        .FindFirst " = '" & ! & "' AND  = '" & ! & "'"
        If Not .NoMatch Then
            .Edit
            !IDHOME = !IDHOME
            .Update
        End If
                
        .MoveNext
    Loop
End Sub

Public Function ()
    '        
    Screen.ActiveForm.ActiveControl.Form!Hide = True
    Screen.ActiveForm.ActiveControl.Form.Recordset.Requery
End Function

Public Function ()
    '   AutoExec
    CommandBars("     ").Controls(" ").Enabled = False
End Function

Public Sub ()
    Dim v7 As Object
    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/DD:\WORK\PTO\\Smeta /N", "NO_SPLASH_SHOW")
    
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    
    With v7
        Set  = .CreateObject(".")
        Set 2001 = .CreateObject(".")
    
        .FindByDescr "-2001 (- )", 1
        .UseParent .CurrentItem
        .SelectItems
        While .GetItem > 0
'            Debug.Print .GetItem
            If .IsGroup Then '   
'                Debug.Print .
                .AddNew
                ! = .
                 = ! '  Update , ..     .
                .Update
            Else '  
                .AddNew
                ! = 
                
'                ! = 0
'                ! = 0
                
                ! = .
                !SPR = "-2001"
                !KOD_SPR = .
                Debug.Print . '      .  ,  _
                  .
                ! = .
                
'                ! = 0
'                ! = 0
            
                '      
                2001.UseOwner .CurrentItem
                2001.SelectItems
                While 2001.GetItem > 0
                    '      
                    If InStr(2001.., "") Then
                         = 2001..
                        .FindFirst " = " & Left(Right(, 2), 1) & "." & Right(Right(, 2), 1)
                        ! = !
                        ! = !
                    End If
                Wend ' While 2001.GetItem > 0
                
                .Update
            End If '  "/ "
        Wend
    End With
End Sub

Public Function Test()
'    MsgBox Screen.ActiveForm.ActiveControl.Form.Name

    Dim v7 As Object
    Set v7 = CreateObject("V77.Application")
    result = v7.Initialize(v7.RMTrade, "/DD:\WORK\PTO\\Smeta /N", "NO_SPLASH_SHOW")
    
    Set  = CurrentDb.OpenRecordset("", 2)
        
    With v7
        Set  = .CreateObject(".")
        Set 2001 = .CreateObject(".")
    
        .FindByDescr "-2001 (- )", 1
        .UseParent .CurrentItem
        .SelectItems
        While .GetItem > 0
            If .IsGroup Then '   
            Else '  
'                2001.UseOwner .CurrentItem
''                1 = 2001.
'                2001..SelectItemsByAttribute "", "1-20", 1, 0
''                Set  = 2001.
''                2001..FindByAttribute ".", "1-20"
'                Debug.Print 2001..
           
            
            '      
                2001.UseOwner .CurrentItem
                2001.SelectItems
                While 2001.GetItem > 0
                    If InStr(2001.., "") Then
                        Debug.Print 2001.. '     ""
                         = 2001..
                        .FindFirst " = " & Left(Right(, 2), 1) & "." & Right(Right(, 2), 1)
                        Debug.Print !
                        Debug.Print !
                        Debug.Print !
                        Debug.Print !
                    End If
                Wend
            End If
        Wend
    End With

End Function

Public Sub ()
'    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
'    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
'    MsgBox Screen.ActiveForm.ActiveControl.Form.Name
    CommandBars("     ").Controls(" ").Enabled = True
End Sub

Public Function ()
    '      ,   
    Set _ = CurrentDb.OpenRecordset("")
    With _
        If (! = ("")) And (! = ("")) Then
            Exit Function
        Else
             = !
             = !
        End If
    End With
    _.Close
    
    Set  = CurrentDb.OpenRecordset("", 2)
    Set  = CurrentDb.OpenRecordset("", 2)
    
    '    ,     
    SQL = "Delete ., . FROM  WHERE " & _
                "(((.)=" &  & ") AND ((.)='" & _
                 & "'))"
    DoCmd.RunSQL SQL

    '      
    Do While Not .EOF
        .AddNew
        ! = !
        ! = 
        ! = 
        ! = !
        .Update

        .MoveNext
    Loop

    '         
    Set  = CurrentDb.OpenRecordset("", 2)
    .Filter = "( = '" & ("") & _
        "') And ( = " & ("") & ")"
    Set  = .OpenRecordset
    
    If .RecordCount <> 0 Then
        '     
        Do While Not .EOF
            .Filter = " = " & !
            Set  = .OpenRecordset
            If .RecordCount <> 0 Then
                .Edit
                ! = !
                .Update
            End If
        
            .MoveNext
        Loop
    End If
End Function
