Private Sub Кнопка12_Click()
Dim strFilename As String
DoCmd.RunSQL  "Update igor2 Set igor2.flag=1  Where (((igor2.key) In (Select top  800  key From igor2 Where flag= 0 )))"
strFilename = funGetSaveFileName(Me.hWnd, _
             "Текст(*.txt)"  & Chr$( 0 ) &  "*.txt"  & Chr$( 0 ) & Chr$( 0 ), _
             "igor1.txt" ,  "Поиск и запись txt файлов" ,  "Txt" ,  "C:\Файлы\" )
If strFilename =  "" Then
    DoCmd.RunSQL " Update igor2 Set igor2.flag= 0  Where (((igor2.key) In (Select top  800  key From igor2 Where flag= 1 ))) "
    Exit Sub
End If
DoCmd.TransferText acExportFixed, " IgorSpec ", " SelectPriznak2 ", strFilename
DoCmd.RunSQL " Update igor2 Set igor2.flag= 2  Where (((igor2.key) In (Select top  800  key From igor2 Where flag= 1 )))"
End Sub