Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS Access > VBA в Access

Автор: Catisha 31.3.2008, 15:28

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

Автор: bopoha 31.3.2008, 16:10

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

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

Автор: Catisha 31.3.2008, 16:12

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

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

Автор: bopoha 31.3.2008, 16:18

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

Автор: Catisha 31.3.2008, 16:19

Код


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()

Автор: bopoha 31.3.2008, 17:20

Вот решение!

Код


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

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

З.Ы.

Код


M = rs.Fields(1)

rs - откуда?

Автор: Catisha 31.3.2008, 17:45

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