|
|
| Другие темы раздела | ||||||||||||||||||
|
VBA Openrecordset: Ошибка 3061 - Слишком мало параметров
https://www.cyberforum.ru/ vba/ thread1412913.html Dim rst As DAO.Recordset Set rst = CurrentDb.OpenRecordset("select * from ") If rst.RecordCount > 0 Then MsgBox "Поиск не дал результатов" Else ........... End if rst.close Пишет слишком мало параметров. Требуется 1. Где ошибка? |
Передача RefEdit1.Value в качестве параметра функции VBA Добрый вечер! Записываю функцию в ячейку. Функция принимает в качестве параметра диапазон ячеек, который вводит пользователь через RefEdit1. Подскажите, как это реализовать? Вот как я пробовал: ActiveCell.FormulaLocal = "=Sr(" & RefEdit1.Value & ")"но это не правильно, т.к. таким образом всего лишь записывается значение RefEdit1.Value в координату столбца первой ячейки. | |||||||||||||||||
|
VBA Visual Basic, Access - код для запуска готовых встроенных функций
https://www.cyberforum.ru/ vba/ thread1412555.html ребят, пожалуйста помогите написать код для запуска запросов(встроенных функций) при нажатии на кнопку, которая находится на форме, на языке visual Basic, сам ноль в этом языке. Там встроенные функции вместо обычных запросов, потому что работаю с базой MsSQL через access. Задание в универе дали такое. Буду благодарен за любую помощь. Вот скриншоты скину. |
VBA Выбор диапазона ячеек курсором Доброго времени суток! Подскажите пожалуйста, как в VBA использовать или сделать окно выбор диапазона ячеек, которое используется, например, в выборе данных для диаграмм. (На фотографии пример этого окна) нужно выбирать данные именно путём выделения на листе мышью. https://www.cyberforum.ru/ vba/ thread1412544.html | |||||||||||||||||
|
VBA Как можно переходить в конструктор не выполняя код в событии закрытия формы? У меня вылетает ошибка 2046. Команда или макрокоманда "Выход" в данное время недоступно Но я понимаю почему вылетает такое сообщение. Я не знаю что делать. У меня в событии закрытия формы стоит Application.Quit Соответственно как-только я вызываю конструктор, у меня закрывается БД, и программа пытается запустить конструктор, когда приложение уже практически закрыто. Вот как мне запретить при... |
VBA Открытие файла txt из Excel, имя которого известно лишь частично
https://www.cyberforum.ru/ vba/ thread1412519.html Всем привет! Подскажите, пожалуйста, как прописать имя текстового файла для открытия его в Excel? Проблема в том, что файл называется примерно так: "Файл1_666_777_888.txt" А мне нужно открыть его, зная только, что он начинается на "Файл1..". Моя жалкая попытка, которая не привела к успеху: Filename = "Файл1_" & "*.TXT" | |||||||||||||||||
| VBA Вычисление функции двумя способами (If Then Else и Select Case) Здравствуйте, подскажите где я ошибся (значения не те получаются). Есть задание: "Составить программу вычисления функции двумя способами (If Then Else и Select Case). Пояснения 1. При вычислении тригонометрических функций необходимо значение аргумента переводить в радианы. Для этого аргумент функции необходимо умножить 3.142/ 180" Option Explicit Sub Ant() Dim x As Double, y As Double https://www.cyberforum.ru/ vba/ thread1412448.html |
VBA Ошибки компиляции при открытии на другом компьютере Сначала пишет что ошибка при компиляции. Захожу в код и пишет что нужно адаптировать по 64x систему. Ну я так понял. И всё это несмотря на то, что всё это было сделано на 64x машине и всё прекрасно работала. Библиотеки все подключены. (Которые подключены на 1 компьютере (где всё работало) ) Option Compare Database Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal... | |||||||||||||||||
|
VBA Получить результат выполнения скриптов из IE
https://www.cyberforum.ru/ vba/ thread1412421.html Добрый день, коллеги. Облазил миллион форумов в т.ч. иноязычных, и совсем отчаялся получить ответ. Хотя проблема, на первый взгляд, элементарная. В текстовую переменную нужно получить тект HTML страницы. Функция вида: str$ = getText(url) Что принципиально - мне не нужен код страницы, нужен результат, отображающийся на экране. Приведу самый простой пример -... |
VBA Как разделить двумерный массив NxN на одномерные векторы размера (0,N)
https://www.cyberforum.ru/ vba/ thread1412419.html Т. е., если например есть матрица размера 3х3, то надо разделить ее на 3 вектора: Как программно реализовать такую функцию? Как создать 1 вектор понятно: | |||||||||||||||||
|
VBA Как присвоить значение переменной GetSystemMetrics? Пробовал так: Dim t As Integer t = CInt("& GetSystemMetrics(0) &") Выодит ошибку 13 - type mismatch. Функция GetSystemMetrics подключена. Проверил. Работает. В общем по коду и так вроде бы понятно. Есть переменная. Нужно чтоб её значение было равно ширине или высоте экрана (не суть). Что у меня неверно? |
VBA Access - Объединение параметров в DoCmd.OpenForm
https://www.cyberforum.ru/ vba/ thread1412001.html Добрый вечер! Уже 5-ый месяц создаю АРМ в MSAccess. Столкнулся с массой проблем и смог их решить, не без вашей помощи за что огромное спасибо! Но с этой проблемой ни как не могу справиться( Сказывается недостаток знаний. У
Наверх
| |||||||||||||||||
