IgorGer
Дата: 04.06.2004 09:44:08
Что надо добавить в следующий код, чтобы при каждом нажатии на кнопку имя файла (по умолчанию 1.txt) увеличивалось на 1, т.е. каждый раз не называлось 1.txt.
Private Sub Obz_Click()
Dim strFilename As String
DoCmd.RunSQL "Update igor Set igor.flag=1 Where (((igor.key) In (Select top 800 key From igor Where flag=0)))"
strFilename = funGetSaveFileName(Me.hWnd, _
"Текст(*.txt)" & Chr$(0) & "*.txt" & Chr$(0) & Chr$(0), _
"1.txt", "Поиск и запись txt файла", "Txt", "C:\Obz\")
If strFilename = "" Then
DoCmd.RunSQL "Update igor Set igor.flag=0 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))"
Exit Sub
End If
DoCmd.TransferText acExportFixed, "IgorSpec", "SelectPriznak", strFilename
DoCmd.RunSQL "Update igor Set igor.flag=2 Where (((igor.key) In (Select top 800 key From igor Where flag=1)))"
End Sub
С уважением, Игорь!!!