| |
|
|
| | печать отчета в текстовый файл сейчас происходит так:
Option Compare Database
Private Sub Кнопка36_Click()
DoCmd.OutputTo acOutputReport, "report", acFormatTXT, , False
End Sub
получаю:
123456789012345; 1234567890; 150508; 01234567890; 1234567890
123456789012345; 1234567890; 150508; 34567890123; 4567890
надо:
123456789012345;1234567890;150508;01234567890;1234567890
123456789012345;1234567890;150508;34567890123;4567890
как это сделать? - горю уже | |
| |
| |
| |
|
|
| | короче все не так :) невнимательно прочел :) | |
| |
| |
| |
|
|
| | а в отчете у вас что? точка с запятой где добавляется? | |
| |
| |
| |
|
|
| | ?str(121232) + ";" + str(13423423)
121232; 13423423
добавляется пробел
?121232 & ";" & 13423423
121232;13423423
все нормально | |
| |
| |
| |
|
|
| | в конструкторе отчета пишу =[имя поля] & ";" | |
| |
| |
| |
 1 Кб. |
|
| | не понял куда мне это вписать..
вот такой файл у меня есть | |
| |
| |
| |
|
|
| | в конструкторе отчета попробуйте =trim([имя поля] & ";")
или =replace([имя поля] & ";"," ","") | |
| |
| |
| |
|
|
| | к сожалению не катит:( я так понимаю надо на vb это сделать,если есть можно промер? | |
| |
| |
| |
|
|
| | сделайте базу с таблицей, 5-ю строками и отчетом
положите, посмотрим | |
| |
| |
| |
|
|
| | сделал так:
Sub proba()
УдалениеПробелов "C:\report.txt"
End Sub
Public Function УдалениеПробелов(file As String)
Dim fso, a, f, retstring, retstream
Const ForReading = 1, ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(file)
Set a = f.OpenAsTextStream(ForReading, False)
Do While a.AtEndOfStream <> True
retstring = a.ReadLine
retstring = Replace(retstring, " ", "")
retstream = retstream & retstring & vbCrLf
Loop
a.Close
Set a = f.OpenAsTextStream(ForWriting, False)
a.Write retstream
a.Close
End Function
|
и так
Private Sub Кнопка36_Click()
Dim Путь As String
Путь = Application.CurrentProject.Path & "\report.txt"
DoCmd.OutputTo acOutputReport, "report", acFormatTXT, , False
УдалениеПробелов Путь
End Sub
|
возник другой вопрос...как организовать перенос файла из фиксированой папки с помошью диалога save as | |
| |
| |
