Вопрос № 133748: Здравствуйте!
Подскажите как в access из VBA открыть отчет/форму/запрос поверх других окон?
Есть форма развернутая на весь экран, по нажатию на ней кнопки открываю отчет: "DoCmd.OpenReport DocName, acPreview", но он оказывается за ф...Вопрос № 133756: Господа профессионалы!
На VB6 делаю математическую программу с двумя Текстбоксами для ввода цифр с массива кнопок на форме...
Подскажите, как сделать мигающий курсор (каретку) вида "_" в конце текста (для визуального обозначения фок...Вопрос № 133766: Уважаемые эксперты, здравствуйте еще раз! У меня еще одна проблема. На форме расположены drivelistbox, dirlistbox, filelistbox. Между собой я их связала. Только теперь нужно когда выбираешь (кликаешь) из filelistbox какой-нибудь файл (допустим их там...Вопрос № 133777: Здраствуйте!...Помогите
построить график в графическом режиме
y=arctg 4x [0..3] и с шагом 0,15....
Вопрос № 133.748
Здравствуйте!
Подскажите как в access из VBA открыть отчет/форму/запрос поверх других окон?
Есть форма развернутая на весь экран, по нажатию на ней кнопки открываю отчет: "DoCmd.OpenReport DocName, acPreview", но он оказывается за формой (а не повех) и его не видно...
Та-же проблема с запросом, открываю так-же: "DoCmd.OpenQuery DocName, acNormal, acEdit", но оно оказывается за формой, а не перед ней.
Отправлен: 23.04.2008, 11:36
Вопрос задал: Upgrader (статус: 7-ой класс)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Тесленко Евгений Алексеевич
Здравствуйте, Upgrader!
Поэкспериментируйте со свойствами окна Вашей формы.
"Всплывающее окно"
"Модальное окно"
совет не предлагаю, т.к. в разных версиях MS Access, они ведут себя по разному.
Евгений.
Господа профессионалы!
На VB6 делаю математическую программу с двумя Текстбоксами для ввода цифр с массива кнопок на форме...
Подскажите, как сделать мигающий курсор (каретку) вида "_" в конце текста (для визуального обозначения фокуса). При вводе цифр стандартная каретка исчезает...
С благодарностью Сергей.
Отвечает: PsySex
Здравствуйте, Maksimtsev S.I.!
Код в приложении. На форму поместите таймер и сделайте интервал, например в пол секунды.
Единственное, когда считываете значение TextBox'а, то удаляйте символ "_" перед использованием полученной строки.
Приложение:
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 23.04.2008, 14:14
Вопрос № 133.766
Уважаемые эксперты, здравствуйте еще раз! У меня еще одна проблема. На форме расположены drivelistbox, dirlistbox, filelistbox. Между собой я их связала. Только теперь нужно когда выбираешь (кликаешь) из filelistbox какой-нибудь файл (допустим их там 5 штук), его содержимое должно отображаться в textbox. Как это сделать? в инете нашла только как в функции open жестко прописывают путь.
Open "c: ext.txt" For Input As FileNum
Можно его как-нибудь по-другому указать?чтобы была возможность выбора? Или это можно сделать с помощью FileSystemObject? Про FSO ничего толкового найти не могу. В инете только про то как его создать, а дальше что с ним можно делать? и как его привязать к моему существующему файлу? Помогите...!!!!
Отправлен: 23.04.2008, 14:23
Вопрос задала: Cholito (статус: Посетитель)
Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: PsySex
Здравствуйте, Cholito!
почему только жестко?? Используйте переменные
============
'путь на выбранный файл в filelistbox
sMyFile=File1.Path + "" + File1.FileName
Open sMyFile For Input As FileNum
..
..
============
Думаю пример с чтением текстового файла и отображения его в TextBox'е вы сделаете.
--------- Bom Shankar!
Ответ отправил: PsySex (статус: Практикант)
Ответ отправлен: 23.04.2008, 14:29 Оценка за ответ: 5 Комментарий оценки: Спасибо!!!!Я просто не знала как путь прописать..))все получилось..))
Отвечает: Черников Игорь Владимирович
Здравствуйте, Cholito!
Вот Ваша программа.
Не забудьте в свойствах textbox поставить MultiLine - True и ScrollBars - 3
Удачи!
Приложение:
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: Студент)
Ответ отправлен: 23.04.2008, 17:01 Оценка за ответ: 5 Комментарий оценки: Спасибо большое!!! У меня так как раз и сделано. Значит я правильно все написала.
Отвечает: Павленко Александр Геннадьевич
Здравствуйте, Cholito!
Я так понимаю вся проблема у Вас состоит в отрытии файла?
Так поставьте вместо "c: ext.txt" текстовую переменную
dim pth as string
pth=Dir1.Path + File1.FileName
Open pth For Input As 1
удачи
Ответ отправил: Павленко Александр Геннадьевич (статус: 2-ой класс)
Ответ отправлен: 23.04.2008, 17:30 Оценка за ответ: 5 Комментарий оценки: Спасибо за совет!!!!
Отвечает: Калашник Андрей Николаевич
Здравствуйте, Cholito!
Попробуйте через FileSystemObjects
Подключить в Project->References->Microsoft Scripting Runtime
Private Sub File1_Click()
Dim FSO As New FileSystemObject
Dim AA As Object
Set AA = FSO.OpenTextFile(File1.Path + "" + File1.FileName)
Me.MousePointer = 12
File1.Enabled = False
Text1.Text = AA.ReadAll
Me.MousePointer = 0
File1.Enabled = True
Set FSO = Nothing
End Sub
Еще можно схитрить, используя вместо стандартного компонента "textbox", компонент "RichTextBox"
Нажмите Ctrl+T, подключите Microsoft RichTextBox Control
Поставьте его на форму, назовите также (например text1 или text2)
Private Sub File1_Click()
text2.LoadFile File1.Path + "" + File1.FileName
End Sub
Причем, в отличие от простого textbox, он показывает и служебные символы (с ascii<30)
