VPF::VBA в Access - Форум программистов

Catisha

Дата 31.3.2008, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: нет
Всего: 1

Есть таблица "tblTEMP" у неё есть только одно поле "e-mail". Запись бывает только одна, то есть в таблице просто записан один e-mail. Как получить это значение в переменную VBA?

bopoha

Дата 31.3.2008, 16:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

При помощи:
- DLookup()
- DFirst()
- DLast()

- библиотеки DAO
- библиотеки ADO

--------------------

Как создавать приложения на MS Access

Catisha

Дата 31.3.2008, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: нет
Всего: 1

не работает, ругается :(

Можно как-то напрямую обратиться к таблице и взять это значение, типа как в Excel
Cells(1, 1).Value ?

Это сообщение отредактировал(а) Catisha - 31.3.2008, 16:17

bopoha

Дата 31.3.2008, 16:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Как в Excel, только в Excel. Код в студию.

--------------------

Как создавать приложения на MS Access

Catisha

Дата 31.3.2008, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: нет
Всего: 1

Код


Function recieve_info() As Long
Dim TN As String
Dim DL As String
Dim M As String
Dim prio As String


If CStr([Forms]![All reguests]![Alert]) = "new" Then
    rq_number = CStr([Forms]![All reguests]![ID-request])
    DL = CStr([Forms]![All reguests]![DeadLine])
    TN = CStr([Forms]![All reguests]![Name_request])
    DoCmd.SetWarnings False
    DoCmd.RunSQL "SELECT Person.[e-mail] " & _
                    "INTO tblTemp " & _
                    "FROM Person " & _
                    "WHERE Person.[Name] = " & "[Forms]![Request]![Responsible]" & ";"
    M = rs.Fields(1)
    DoCmd.SetWarnings True
    f = Send_OutlookMsg("Íàçâàíèå çàäà÷è: " & "%20Line%0D%0AName%20line" & TN, " Êðàéíèé ñðîê âûïîëíåíèÿ: " & DL, " Ïðèîðèòåò: " & prio, M)
    db.TableDefs.Delete ("tblTemp")
End If

End Function

Мне надо получить адрес почты.
Она у меня записывается в tblTemp, в единственном эземляре, мне это поле далее надо отправить в Send_OutlookMsg()

Это сообщение отредактировал(а) Catisha - 31.3.2008, 16:21

bopoha

Дата 31.3.2008, 17:20 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21

Вот решение!

Код


переменная = DFirst("поле_е_мыла", "tblTemp")

Очень рекомендую в начале модуля писать Option Explicit.

З.Ы.

Код


M = rs.Fields(1)

rs - откуда?

--------------------

Как создавать приложения на MS Access

Catisha

Дата 31.3.2008, 17:45 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 33
Регистрация: 26.9.2006

Репутация: нет
Всего: 1

СПАСИБКИ!!!!! smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS Access \| Следующая тема »