Форум 'Visual Basic' на RSDN.RU

438 error - Object doesn't support this property or method

Mon, 23 Jan 2012 17:43:50 GMT

Всем привет

Вот такая ошибка происходит при присвоении obj1 = nothing в VB6
Кто знает где копать?

Код вот
Sub a()
Dim objServer As Object
Set obj1 = CreateObject("ST.Server")

...
вызовы методов obj1
...

obj1 = Nothing
end sub

ST.Server — out of proc сервер с дуальным интерфейсом
Если убрать obj1 = Nothing все нормально и сервер через какоето время выгружается сам.

MSHFlexGrid (VB6), MergeCells

Fri, 20 Jan 2012 13:03:54 GMT

Как слить ячейки в контроле MSHFlexGrid? Этот код почему-то не работает:

        fg.MergeCells = flexMergeFree
        fg.MergeCol(1) = True
        fg.MergeCol(2) = True
        fg.MergeCol(3) = True
        fg.MergeRow(1) = True
        fg.MergeRow(2) = True
        fg.Redraw = True

пользовательские формы в OWA

Sat, 19 Nov 2011 07:05:10 GMT

Приветствую всех!
В Outlook есть пользовательские формы(задачи). Теперь мы хотим пользоваться Oulook Web Access
Не могу найти примеры как эти формы реализовать там. Не подскажете куда смотреть?
В интернете поискал, нет инфы. Или там инфы нет или я плохой искатель.

Как проверить символ в ячейке Excel?

Tue, 25 Oct 2011 08:25:55 GMT

Есть таблица Excel, в ячейке AH8 записан текст: test3_123. Подскажите пожалуйста чайнику самый простой способ как на VBA проверить, что пятым символом в этой ячейке является 3?

Спасибо!

Путь к файлу указан, а файл отсутствует. Как обойти ошибку?

Mon, 10 Oct 2011 13:28:52 GMT

Как исправить ошибку, когда путь к изображению есть, а самого изображения нет?

Crystal versus VB. Help please!

Fri, 07 Oct 2011 07:40:13 GMT

Ребят, здрасте.
Помогите пожалуйста с очень для меня непонятной ситуацией.
Уже который день бьюсь над задачей.

Отчет должен формироваться в приложении на VB (написанно когда-то кем-то)
Но происходит косячек после чего весь массив обнуляется и в отчет не передается ни один параметр.
Привожу часть кода и собственно где обнуляется.

Dim main As New Object

        Select Case _reportType
            Case 0
                main = New CRCheckConsistency2
                posCollection.Add("CPOSWITHSALES")
                posCollection.Add("CPOSWITHOUTSALES")
                posCollection.Add("CPOSMODIF")
                posCollection.Add("CPOSABNORMALTREND")
                posCollection.Add("EANWITHSALES")
                posCollection.Add("EANWITHOUTSALES")
                posCollection.Add("EANABNORMALTREND")
                posCollection.Add("EANMODIF")
                posCollection.Add("CPOSUNKNOWN")
                posCollection.Add("EANUNKNOWN")
                posCollection.Add("CPOSWITHOUTADDR")
                posCollection.Add("EANWITHOUTDESC")
                posCollection.Add("CPOSEXCLUDED")
                posCollection.Add("EANEXCLUDED")

            Case 1
                main = New CRCheckRelevance2
                posCollection.Add("ACTPOSWITHOUTSALES")
                posCollection.Add("SUPPPOSWITHSALES")
                posCollection.Add("INACBRDWITHSALES")
                posCollection.Add("ACTBRDWITHSALES")
                posCollection.Add("ACTBRDWITHOUTSALES")
                posCollection.Add("POSPERCHAIN")
                posCollection.Add("POSPERCHANNEL")
                posCollection.Add("BRANDPERPRICECAT")
                posCollection.Add("BRANDPERTASTE")
                posCollection.Add("BRANDPERBLEND")
                posCollection.Add("BRANDPERSIZE")
                posCollection.Add("BRANDPERMANUFACT")
                posCollection.Add("OTPPERMANUFACT")
                posCollection.Add("TOTALPERMANUFACT")
                posCollection.Add("WRLCHECK")
        End Select

        Dim _checkResultDetailDatatable As DataTable = dsReport.Tables("CHECK_RESULT_DETAIL")
        Dim nbr As Integer = checkResultDetailAdapter.SelectBySubEntityByMonth(_checkResultDetailDatatable, _subentityId, _monthId, typeResultIds)
        dsReport.AcceptChanges()

        Dim crSubReport As ReportDocument
        For Each typeCode In posCollection
            crSubReport = New ReportDocument

            typeResult = typeResultAdapter.SelectByCodeGetBo(typeCode)

            crSubReport = main.OpenSubreport(typeCode)

            crSubReport.Database.Tables(0).SetDataSource(dsReport) 'Вот тут, в этом месте main опустошается. Все параметры точнее опустошаются


            main.SetParameterValue("typeResultId", typeResult.TYP_RSLT_ID, typeCode) 'тут заполнился main а выше очистился... и у меня в отчете пусто
            main.SetParameterValue("period", VISTA.Main.boSubentityProcess.month, typeCode)
            main.SetParameterValue("subentity", VISTA.Main.boSubentityProcess.subEntity, typeCode)

            Select Case _reportType
                Case 0
                    main.SetParameterValue("title", "CONSISTENCY CHECK RESULTS", typeCode)
                Case 1
                    main.SetParameterValue("title", "RELEVANCE CHECK RESULTS", typeCode)
            End Select

            Dim sberp As ReportDocument = New ReportDocument()

        Next

        For Each typeCode In posCollection
            dv = New DataView(dsReport.Tables("CHECK_RESULT_DETAIL"))
            typeResult = typeResultAdapter.SelectByCodeGetBo(typeCode)
            dv.RowFilter = "TYP_RSLT_ID = " + typeResult.TYP_RSLT_ID.ToString()
            If dv.Count = 0 Then
                main.SetParameterValue(typeCode + "View", True)
            Else
                main.SetParameterValue(typeCode + "View", False)
            End If
        Next

        CrystalReportViewer1.ReportSource = main

Может у кого есть какие идеи?
Зарание благодарен!!!

Autosave для user form Outlook

Wed, 21 Sep 2011 08:05:35 GMT

Имеется пользовательская форма(задача). Outlook 2007
Хочу чтобы приходило событие автосохранения в мою форму.
Пишу в коде формы

Function Item_BeforeAutoSave()
MsgBox "BeforeAutoSave"
End Function

Событие генерируется только в новой, еще несохраненной задаче.
А в уже существующей нет. В чем может быть загвоздка?
Интернет перерыл. Ничего нет, кроме того, что этот обработчик нужно добавлят вручную.

ПОМОГИТЕ ПЛИЗ!!!!!!!

vba+access: некорректный вызов функции из формы

Wed, 14 Sep 2011 08:44:44 GMT

Придумал функцию для текстового поля, которая делает заглавной первую букву в текстовом поле:

Public Function CapitalLetter(text_value As String) As String ' делаем первую букву заглавной

text_value = UCase(Left(text_value, 1)) + LCase(Right(text_value, Len(text_value) — 1))

End Function
Функция будет использоваться на многих формах, поэтому она сделана public

На форме есть текстовое поле Form_f_Student.Surname

На загрузку формы делаю следующее:

Private Sub Form_Load()

Form_f_Student.Surname.Text = CapitalLetter(Form_f_Student.Surname.Text)

End Sub

При запуске дебага получаю сообщение, что невозможно обратиться к свойству или методу у которого не получен фокус.

Если я функцию привязываю к событию "изменение", то получаю сообщение о некорректном вызове функции или аргумента (invalid procedure call or argument)

Пробовал объявить локальную переменную для записи изменений в текстовом поле, но результат тот же...

Каким образом нужно засунуть функцию на форму, чтобы при вводе данных в текстовое поле оно обрабатывалось функцией?

Что можете мне посоветовать?
За любые советы буду премного благодарен

Получение прокси по умолчанию VBA Excel

Fri, 02 Sep 2011 10:26:07 GMT

Есть страница доступная через https. Есть скрипт, который читает эту страницу через WinHttpRequest (Должен читать). Доступ к этой странице происходит через прокси сервер, который настроен по умочанию в винде.
Так собственно сам вопрос.
1. Как можно WinHttpRequest заставить использовать прокси по умолчнию? SetProxy не помогает. Прокси настроен для всех протоколов.
2. Если нельзя заставить использовать прокси по умочанию, как прочитать настройки прокси с помощью VBA?

EXCEL DCOM PageSetup

Thu, 01 Sep 2011 10:49:22 GMT

Клиент через DCOM взаимодействует с EXCEL-сервером в домене на другом компе (Win2008 x64).

Один пользователь может обращаться к PageSetup, другой — нет. Получает сообщение:Unable to set the property XXX of the PageSetup.

Оба пользователя в домене и члены группы "Пользователи DCOM" и в остальном — документы EXCEL генерируются нормально.

В Microsof говорят (http://support.microsoft.com/kb/291298), что такая ошибка — если не установлен принтер, Но он есть и доступен от обоих пользователей (т.е. если залогиниться на сервер, то принтеры видны и вручную диалог настройки страницы в EXCEL вызывается).

В чём же может быть причина.
Если второму пользователю всё же не доступны принтеры, то где это можно явно указать.

map

Mon, 15 Aug 2011 14:15:08 GMT

Коллеги, подскажите, как в VB называется тип данных, реализующий map?
От типа данных нужен быстрый поиск.

Формы, Excel, VBA

Thu, 11 Aug 2011 06:41:32 GMT

подскажите, пожалуйста, как программно передать фокус ввода с формы(vbModeless)
на лист Excel без закрытия формы?

Outlook: Navigate from Tasks to Mail

Mon, 08 Aug 2011 07:21:17 GMT

Коллеги, хочу написать плагин (скрипт) для аутлука. UseCase следующий:
1) Навигируемся в фолдер "Tasks"
2) Выбираем письмо, которое туда попадает автоматически при отметке его красным флажком
3) Жмакаем кнопку со скриптом — перемещаемся в папку "Mail" с фокусом на это письмо.

С VBA знаком, но только в Word и Exel, аутлуковскую модель очень плохо знаю, поэтому буду рад подсказкам.
Ну или если кто знает готовый плагин — давайте ссылку. Мне в общем то нужен результат

Спасибо!

Как программно выключить ПК в NT4?

Thu, 04 Aug 2011 14:35:21 GMT

Как программно выключить ПК в NT4, чтобы не выскакивало сообщение о возможности отключениия питания?

как определить, что листа нет? (VBA)

Mon, 01 Aug 2011 20:39:53 GMT

Привет всем,

подскажите, пож-ста, способ программно понять,
что листа с данным именем в открытой книге excel нет.

Заранее спасибо,
Александр

VBA Field.Unlink не все обрабатывает из StoryRange

Thu, 21 Jul 2011 17:16:41 GMT

Проблема следующая,
автоматически снимаю связи во всём документе, но почему то упорно не снимаются связи находящиеся в верхнем или нижнем колонтитуле следующих за первым разделов (разделенных через "разрыв раздела"),всё это при условии что в последующих разделах колонтитул не наследуется из первого.
Вот код обработки:
For Each StoryRange In WordDoc.StoryRanges
For Each Field In StoryRange.Fields
If Field.Code <> "PAGE " Then
Field.Unlink
End If
Next Field
Next StoryRange

В общем не понимаю, почему в StoryRange отсутствуют искомые разделы и как с этим боротся...

Разные шрифты в одной строчке

Wed, 20 Jul 2011 07:59:43 GMT

Подскажите, есть ли возможность изменять свойства текста в пределах одной строки, скажем, для компонента Label?
Например, первое слово хочется печатать обычным шрифтом, второе — жирным.

Проверка на Nothing

Mon, 18 Jul 2011 10:11:09 GMT

Парни, а как проверить, что объект не Nothing?

version compatibility

Thu, 14 Jul 2011 22:26:22 GMT

подскажите пожалуйста как решить такую проблему
у меня имееться ActiveX который компилируеться binary compatibility
мне пришлось изменить API (добавить параметр в один из методов)
binary compatibility сломалось

я переключился в no compatibility откомпилировал activex и восстановил binary compatibility
теперь все проекты которые используют этот activex не компилируються так как изменился GUID activex-а

подскажите пожалуйста возможно ли как либо изменить API activex и сохранить binary compatibility

VBA, Access

Wed, 13 Jul 2011 11:47:05 GMT

Здравствуйте, необходима помощь:
Разрабатываю мини-приложение на MS Access с использованием vba.
Проблема следующая: есть форма с которой необходимо по клику кнопки через vba вызвать другую форму, причем также необходимо в форму передать параметр типа integer. Если прописывать в свойствах вызов формы по клику кнопки через макрокоманду, то все получается, но есть одно "НО"-таким образом невозможно передать параметр в форму. Наверняка форму вызвать можно как-то средствами vba через DoCmd.OpenForm. Как правильно вызвать с передачей параметра, и как на вызываемой форме получить этот параметр?